#!/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");
    }
}
