#!/usr/bin/perl

use File::Find;
use File::Basename;

# creates the help2 makefile for a given 
# directory including all help xhp files
# in that and the subordinate directories
# Only help files with the following 
#
# status values are included:
# PUBLISH DEPRECATED
#
# The following status values are 
# disregarded:
# DRAFT FINAL STALLED

$makefiletemplate = 'helpers/makefile.template';
$linkmakefiletemplate = 'helpers/linkmakefile.template';
$prj = "helpcontent2";
$helpdirprefix = "$prj/source/";

undef @sbasic;
undef @scalc;
undef @schart;
undef @sdraw;
undef @shared;
undef @simpress;
undef @smath;
undef @swriter;

$params = join "|", "",@ARGV,"";
($params =~ /-dir/) ? ($startdir = $params) =~ (s/.*-dir=([^\|]*).*$/$1/gs) : (($startdir = `pwd`) =~ s/\n//gs);
($startdir = $startdir."/source/text") if ($startdir =~ /$prj$/);
($params =~ /-linkdir/) ? ($linkdir = $params) =~ (s/.*-linkdir=([^\|]*).*$/$1/gs) : (($linkdir = `pwd`) =~ s/\n//gs);
($linkdir = $linkdir."/util") if ($linkdir =~ /$prj$/);
$recursive = $params =~ /-recursive/ || 0;
$all = $params =~ /-all/ || 0;

if (open TMPL, $makefiletemplate) {
	undef $/;
	$tmpl = <TMPL>;
	close TMPL;
} else {
	&terminate("Cannot open $makefiletemplate");
}

if (open LINKTMPL, $linkmakefiletemplate) {
	undef $/;
	$linktmpl = <LINKTMPL>;
	close LINKTMPL;
} else {
	&terminate("Cannot open $linkmakefiletemplate");
}

print "Start Directory: $startdir\n";
print "Link Directory : $linkdir\n";
print "Recursive      : ". ($recursive ? "yes" : "no") . "\n";
print "All files      : ". ($all ? "yes" : "no") . "\n";

if ($recursive) {	
	find(sub{push @dirs, $File::Find::name if (-d and ($File::Find::name!~/\/CVS/));},$startdir); 
} else { 
	push @dirs, $startdir;
}

#print join "\n", @dirs;
#die;

for $d(@dirs) {
	opendir DIR, $d;
	@files = grep {/xhp$/} readdir DIR;
	undef @files2;
	closedir DIR;
	
	($helpdir = $d) =~ s/.*\/$helpdirprefix/source\//gis;
	
	($package = $helpdir) =~ s/^source\///gi; 
	 
	($target = $package) =~ s/\//_/g; $target =~ s/_$//;
	($module = $package) =~ s/^\/*text\/([^\/]+)\/*.*$/$1/;

	for $f(@files) {
		($n,$p,$e) = fileparse($f,".xhp");
		if (not $all) {
			if (open XML, $d.'/'.$f) {
				undef $/;
				($status = <XML>) =~ s/.*<topic[^>]*status="([^"]*)"[^>]*>.*$/$1/gs;
				close XML;
			} else {
				die "Error: Cannot open ${d}/$f:$!\n";
			}
			if ($status =~ /(DEPRECATED|PUBLISH)/i) {
				($p2=$package) =~ s,/,\$/,gis;
				push @{$module}, $p2.'$/'.$n.'.xhp';
				push @files2, '    '.$n.'.xhp ';
			}
		} else {
			($p2=$package) =~ s,/,\$/,gis;
			push @{$module}, $p2.'$/'.$n.'.xhp';
			push @files2, '   '.$n.'.xhp ';
		}
	}
	
	printf "%s: %4d files, %4d included in makefile -> ",$d,scalar @files,scalar @files2;
		
	if (scalar @files2 > 0) { # don't write makefiles where there are no files to make
		($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	
		$auth = "script";
		$date = sprintf "%4d/%02d/%02d %02d:%02d:%02d",$year+1900,$mon,$mday,$hour,$min,$sec;
		$prj = '..$/' x ((split "/", $helpdir) -1); $prj = $prj . "..";

		
		$xhpfiles = join "\\\n", sort @files2;

		($makefile = $tmpl) =~ s/%([^%]*)%/$$1/gise;
	
		if (open(MK, ">$d/makefile.mk")) {
			print MK $makefile;
			close MK;
			print "makefile created\n";
		} else {
			&terminate("Cannot write to ${d}/makefile.mk\n");
		}
	} else {
		print "NO makefile created\n";
	}
}

@sbasic = sort @sbasic;
@schart = sort @schart;
@scalc = sort @scalc;
@shared = sort @shared;
@sdraw = sort @sdraw;
@simpress = sort @simpress;
@smath = sort @smath;
@swriter = sort @swriter;

# now create the link makefiles

#----------------------------------
# sbasic
	$module = "sbasic";
	
	$linkaddedfiles = <<"LAF";
   -add $module.cfg \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   -add $module.tree \$(COMMONMISC)\$/LANGUAGE\$/$module.tree \\
   -add $module.jar  \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAF
	
	$linkaddeddeps = <<"LAD";
   \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   \$(COMMONMISC)\$/LANGUAGE\$/$module.tree \\
   \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAD
	
	$linklinkfiles = '';
	for (@sbasic) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	for (@shared) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	
	$auth = "script";
	$date = sprintf "%4d/%02d/%02d %02d:%02d:%02d",$year+1900,$mon,$mday,$hour,$min,$sec;
	$prj = '..$/..' ;
	
	($linkmakefile = $linktmpl) =~ s/%([^%]*)%/$$1/gise;
	&writelinkmakefile($module,$linkmakefile);

	
#-------------------------------------
# scalc
	$module = "scalc";
	
	$linkaddedfiles = <<"LAF";
   -add $module.cfg \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   -add $module.tree \$(COMMONMISC)\$/LANGUAGE\$/$module.tree \\
   -add $module.jar  \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAF
	
	$linkaddeddeps = <<"LAD";
   \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   \$(COMMONMISC)\$/LANGUAGE\$/$module.tree \\
   \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAD
	
	$linklinkfiles = '';
	for (@scalc)  { $linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	for (@shared) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	for (@schart) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}

	$auth = "script";
	$date = sprintf "%4d/%02d/%02d %02d:%02d:%02d",$year+1900,$mon,$mday,$hour,$min,$sec;
	$prj = '..$/..' ;
	
	($linkmakefile = $linktmpl) =~ s/%([^%]*)%/$$1/gise;
	&writelinkmakefile($module,$linkmakefile);

#--------------------------------	
# schart
	$module = "schart";
	
	$linkaddedfiles = <<"LAF";
   -add $module.cfg \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   -add $module.tree \$(COMMONMISC)\$/LANGUAGE\$/$module.tree \\
   -add $module.jar  \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAF
	
	$linkaddeddeps = <<"LAD";
   \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   \$(COMMONMISC)\$/LANGUAGE\$/$module.tree \\
   \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAD
	
	$linklinkfiles = '';

	for (@shared) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	for (@schart) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}


	$auth = "script";
	$date = sprintf "%4d/%02d/%02d %02d:%02d:%02d",$year+1900,$mon,$mday,$hour,$min,$sec;
	$prj = '..$/..' ;
	
	($linkmakefile = $linktmpl) =~ s/%([^%]*)%/$$1/gise;
	&writelinkmakefile($module,$linkmakefile);

#------------------------------
# sdraw
	$module = "sdraw";
	
	$linkaddedfiles = <<"LAF";
   -add $module.cfg \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   -add $module.jar  \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAF
	
	$linkaddeddeps = <<"LAD";
   \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAD
	
	$linklinkfiles = '';
	for (@sdraw) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	for (@simpress) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	for (@shared) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	for (@schart) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}

	$auth = "script";
	$date = sprintf "%4d/%02d/%02d %02d:%02d:%02d",$year+1900,$mon,$mday,$hour,$min,$sec;
	$prj = '..$/..' ;
	
	($linkmakefile = $linktmpl) =~ s/%([^%]*)%/$$1/gise;
	&writelinkmakefile($module,$linkmakefile);
		
#-------------------------------------
# shared
 
	$module = "shared";
	
	$linkaddedfiles = <<"LAF";
   -add $module.tree \$(COMMONMISC)\$/LANGUAGE\$/$module.tree \\
   -add $module.jar  \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip \\
   -add default.css  \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/default.css \\
   -add highcontrast1.css  \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/highcontrast1.css \\
   -add highcontrast2.css  \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/highcontrast2.css \\
   -add highcontrastwhite.css  \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/highcontrastwhite.css \\
   -add highcontrastblack.css  \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/highcontrastblack.css \\
   -add err.html  \$(COMMONMISC)\$/LANGUAGE\$/text\$/shared\$/05\$/err_html.xhp
LAF
	
	$linkaddeddeps = <<"LAD";
   \$(COMMONMISC)\$/LANGUAGE\$/$module.tree \\
   \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip \\
   \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/default.css \\
   \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/highcontrast1.css \\
   \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/highcontrast2.css \\
   \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/highcontrastwhite.css \\
   \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/highcontrastblack.css \\
   \$(COMMONMISC)\$/LANGUAGE\$/text\$/shared\$/05\$/err_html.xhp
LAD
	
	$linklinkfiles = '';

	$auth = "script";
	$date = sprintf "%4d/%02d/%02d %02d:%02d:%02d",$year+1900,$mon,$mday,$hour,$min,$sec;
	$prj = '..$/..' ;
	
	($linkmakefile = $linktmpl) =~ s/%([^%]*)%/$$1/gise;
	&writelinkmakefile($module,$linkmakefile);

#-------------------------------
# simpress
	$module = "simpress";
	
	$linkaddedfiles = <<"LAF";
   -add $module.cfg \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   -add $module.tree \$(COMMONMISC)\$/LANGUAGE\$/$module.tree \\
   -add $module.jar  \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAF
	
	$linkaddeddeps = <<"LAD";
   \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   \$(COMMONMISC)\$/LANGUAGE\$/$module.tree \\
   \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAD
	
	$linklinkfiles = '';

	for (@sdraw) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	for (@simpress) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	for (@shared) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	for (@schart) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	
	$auth = "script";
	$date = sprintf "%4d/%02d/%02d %02d:%02d:%02d",$year+1900,$mon,$mday,$hour,$min,$sec;
	$prj = '..$/..' ;
	
	($linkmakefile = $linktmpl) =~ s/%([^%]*)%/$$1/gise;
	&writelinkmakefile($module,$linkmakefile);

#-------------------------------------
# smath
	$module = "smath";
	
	$linkaddedfiles = <<"LAF";
   -add $module.cfg \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   -add $module.tree \$(COMMONMISC)\$/LANGUAGE\$/$module.tree \\
   -add $module.jar  \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAF
	
	$linkaddeddeps = <<"LAD";
   \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   \$(COMMONMISC)\$/LANGUAGE\$/$module.tree \\
   \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAD
	
	$linklinkfiles = '';
	for (@smath) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	for (@shared) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	
	$auth = "script";
	$date = sprintf "%4d/%02d/%02d %02d:%02d:%02d",$year+1900,$mon,$mday,$hour,$min,$sec;
	$prj = '..$/..' ;
	
	($linkmakefile = $linktmpl) =~ s/%([^%]*)%/$$1/gise;
	&writelinkmakefile($module,$linkmakefile);

#-------------------------------
# swriter
	$module = "swriter";
	
	$linkaddedfiles = <<"LAF";
   -add $module.cfg \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   -add $module.tree \$(COMMONMISC)\$/LANGUAGE\$/$module.tree \\
   -add $module.jar  \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAF
	
	$linkaddeddeps = <<"LAD";
   \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   \$(COMMONMISC)\$/LANGUAGE\$/$module.tree \\
   \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAD
	
	$linklinkfiles = '';
	for (@swriter) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	for (@shared) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	for (@schart) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	$auth = "script";
	$date = sprintf "%4d/%02d/%02d %02d:%02d:%02d",$year+1900,$mon,$mday,$hour,$min,$sec;
	$prj = '..$/..' ;
	
	($linkmakefile = $linktmpl) =~ s/%([^%]*)%/$$1/gise;
	&writelinkmakefile($module,$linkmakefile);

#-------------------------------
# sdatabase
	$module = "sdatabase";
	
	$linkaddedfiles = <<"LAF";
   -add $module.cfg \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   -add $module.jar  \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAF
	
	$linkaddeddeps = <<"LAD";
   \$(PRJ)\$/source\$/auxiliary\$/LANGUAGE\$/$module.cfg \\
   \$(COMMONBIN)\$/xhp_${module}_LANGUAGE.zip
LAD
	
	$linklinkfiles = '';
	for (@shared) {	$linklinkfiles = $linklinkfiles . "   $_ \\\n";	}
	$auth = "script";
	$date = sprintf "%4d/%02d/%02d %02d:%02d:%02d",$year+1900,$mon,$mday,$hour,$min,$sec;
	$prj = '..$/..' ;
	
	($linkmakefile = $linktmpl) =~ s/%([^%]*)%/$$1/gise;
	
	# remove zip1 targets
	$linkmakefile =~ s,\n(ZIP1LIST=.*)\n,\nZIP1LIST=\$(LANGDIR)\$/text\$/shared\$/explorer\$/database\$/main.xhp\n,gi;
	&writelinkmakefile($module,$linkmakefile);
	
	
	
print "sbasic: $#sbasic\n";
print "scalc : $#scalc\n";
print "schart: $#schart\n";
print "sdraw : $#sdraw\n";
print "shared: $#shared\n";
print "simpr : $#simpress\n";
print "smath : $#smath\n";
print "swrit : $#swriter\n";
print "sdbase: $#sdatabase\n";

sub terminate {
	$err = shift;
	print "$err\n\n";
	$msg = <<"MSG";
createmakefile.pl -dir=[directory name] -linkdir=[directory name] [-recursive] [-all] 
  -dir        Directory to start
  -linkdir    Directory to write the link makefiles
  -recursive  Write makefiles recursively
  -all        include files with all status values
MSG
	die "$msg\n";
}


sub writelinkmakefile {
	$module = shift;
	$content = shift;
	if (open(MK, ">$linkdir/$module/makefile.mk")) {
		print MK $content;	
		close MK;
	} else {
		&terminate("Cannot write makefile to ${linkdir}/$module\n");
	}
}
