<?php
/*	program ADVENT0.C					*\
\*	execution will read the four adventure text files	*\
\*	files; "advent1.txt", "advent2.txt", "advent3.txt" &	*\
\*	"advent4.txt".  it will create the file "advtext.h"	*\
\*	which is an Index Sequential Access Method (ISAM)	*\
\*	header to be #included into "advent.c" before the	*\
\*	header "advdef.h" is #included.				*/


//#include	"stdio.h"	/* drv = 1.1st file 2.def 3.A	*/
//#include	"advent.h"

//extern	int	fclose();
//extern	char	*fgets();
//extern	FILE	*fopen();
//extern	int	fprintf();
//extern	int	fputs();
//extern	long	ftell();
//extern	int	printf();


function main($argc, $argv)
{
global $MAXLOC,$idx1,$idx2,$idx3,$MAXOBJ,$idx4,$MAXMSG;

	$isam= $fd1= $fd2= $fd3= $fd4=0;
	$itxt= $otxt= $lstr="";
	$cnt= $llen=0;

	$isam = fopen("advtexth.php3", "w");
	if (!$isam) {
		printf("Sorry, I can't open advtexth.php3...\n");
		exit();
	}
	$fd1 = fopen("advent1.txt", "r");
	if (!$fd1) {
		printf("Sorry, I can't open advent1.txt...\n");
		exit();
	}
	$fd2 = fopen("advent2.txt", "r");
	if (!$fd2) {
		printf("Sorry, I can't open advent2.txt...\n");
		exit();
	}
	$fd3 = fopen("advent3.txt", "r");
	if (!$fd3) {
		printf("Sorry, I can't open advent3.txt...\n");
		exit();
	}
	$fd4 = fopen("advent4.txt", "r");
	if (!$fd4) {
		printf("Sorry, I can't open advent4.txt...\n");
		exit();
	}

	fputs($isam, "\n");
	fputs($isam, "<?php\n\n/*\theader: ADVTEXT.H\t\t\t\t\t*/\n\n\n");


	$cnt = -1;
	$lstr = '9999=>0';
	fputs($isam, "\$idx1 = array (\n\t");
	while (!feof($fd1)) {
	        $itxt=fgets($fd1, 255);
		echo($itxt);
		if (substr($itxt,0,1) == '#') {
			fputs($isam, substr($itxt,1,strlen($itxt)-3)." => ");
			$llen = ftell($fd1);
			if (!$llen) {
				print("llen err in advent1.txt\n");
				exit();
			}			/* if (!llen)	*/
			fputs($isam,$llen.", ");
			if (++$cnt == 5) {
				fputs($isam, "\n\t");
				$cnt = 0;
			}			/* if (cnt)	*/
		}				/* if (itxt[0])	*/
	}					/* while feof   */
	fputs($isam, "$lstr\n\t);\n\n" );

	$cnt = -1;
	$lstr = '9999=>0';
	fputs($isam, "\$idx2 = array (\n\t");
	while (!feof($fd2)) {
	        $itxt=fgets($fd2, 255);
		echo($itxt);
		if (substr($itxt,0,1) == '#') {
			fputs($isam, substr($itxt,1,strlen($itxt)-3)." => ");
			$llen = ftell($fd2);
			if (!$llen) {
				print("llen err in advent1.txt\n");
				exit();
			}			/* if (!llen)	*/
			fputs($isam,$llen.", ");
			if (++$cnt == 5) {
				fputs($isam, "\n\t");
				$cnt = 0;
			}			/* if (cnt)	*/
		}				/* if (itxt[0])	*/
	}					/* while feof   */
	fputs($isam, "$lstr\n\t);\n\n" );

	$cnt = -1;
	$lstr = '9999=>0';
	fputs($isam, "\$idx3 = array (\n\t");
	while (!feof($fd3)) {
	        $itxt=fgets($fd3, 255);
		echo($itxt);
		if (substr($itxt,0,1) == '#') {
			fputs($isam, substr($itxt,1,strlen($itxt)-3)." => ");
			$llen = ftell($fd3);
			if (!$llen) {
				print("llen err in advent1.txt\n");
				exit();
			}			/* if (!llen)	*/
			fputs($isam,$llen.", ");
			if (++$cnt == 5) {
				fputs($isam, "\n\t");
				$cnt = 0;
			}			/* if (cnt)	*/
		}				/* if (itxt[0])	*/
	}					/* while feof   */
	fputs($isam, "$lstr\n\t);\n\n" );

	$cnt = -1;
	$lstr = '9999=>0';
	fputs($isam, "\$idx4 = array (\n\t");
	while (!feof($fd4)) {
	        $itxt=fgets($fd4,1024);
		echo($itxt);
		if (substr($itxt,0,1) == '#') {
			fputs($isam, substr($itxt,1,strlen($itxt)-3)." => ");
			$llen = ftell($fd4);
			if (!$llen) {
				print("llen err in advent1.txt\n");
				exit();
			}			/* if (!llen)	*/
			fputs($isam,$llen.", ");
			if (++$cnt == 5) {
				fputs($isam, "\n\t");
				$cnt = 0;
			}			/* if (cnt)	*/
		}				/* if (itxt[0])	*/
	}					/* while feof   */
	fputs($isam, "$lstr\n\t);\n\n?>" );

fflush($isam);
fclose($isam);
fclose($fd1);
fclose($fd2);
fclose($fd3);
fclose($fd4);

}						/* main		*/

main('','');

?>