#!/usr/local/Hughes/bin/lite


funct dodgeProlog(int $fd)
{
	$line = readln($fd);
	$line = chop($line);
	while($line != "%%EndProlog")
	{
		$line = readln($fd);
		$line = chop($line);
	}
}

$files[0] = "welcome";
$files[1] = "info";
$files[2] = "sysvar";
$files[3] = "api";
$files[4] = "utils";
$files[5] = "config";
$files[6] = "w3-msql";
$files[7] = "w3-sec";
$files[8] = "w3-auth";
$files[9] = "lite";
$files[10] = "mod_std";
$files[11] = "mod_msql";
$files[12] = "modules";

system("cat prolog.ps > manual.ps");
$out = open("manual.ps",">>");

$count = 0;
while($count < # $files)
{
	$curFile = $files[$count] + ".ps";
	$fd = open($curFile,"<");
	fprintf($out,"%%\n%% File = %s\n%%\n",$files[$count]);
	dodgeProlog($fd);
	$line = readln($fd);
	while (# $line > 0)
	{
		fprintf($out,"%s",$line);
		$line = readln($fd);
	}
	close($fd);
	fprintf($out,"showpage\n");
	$count = $count + 1;
}
