diff options
Diffstat (limited to 'Build/cdbuild/ctan2tds.pl')
-rwxr-xr-x | Build/cdbuild/ctan2tds.pl | 48 |
1 files changed, 32 insertions, 16 deletions
diff --git a/Build/cdbuild/ctan2tds.pl b/Build/cdbuild/ctan2tds.pl index 2a2184046c6..955e3c11c06 100755 --- a/Build/cdbuild/ctan2tds.pl +++ b/Build/cdbuild/ctan2tds.pl @@ -331,6 +331,7 @@ chdir $startdir || die "chdir($startdir) failed: $!"; 'vpe', "&MAKEvpe", 'vrsion', "warn \"skipping vrsion, nonfree license\n\"", 'wasy2', "&MAKEflatten", + 'wordcount', "&MAKEwordcount", 'xfor', "&MAKEflatten", 'xfrac', "&MAKEflatten", 'xkeyval', "&MAKExkeyval", @@ -1168,7 +1169,7 @@ sub xchdir my ($dir) = @_; chdir ($dir) || die "chdir($dir) failed: $!"; chomp (my $pwd = `pwd`); - print "chdir $dir (now $pwd)\n"; + print "\t CHDIR $dir (now $pwd)\n"; } @@ -1242,6 +1243,7 @@ sub MAKEcopy { sub setup { my ($ctl) = @_; + print "doing setup($ctl)...\n"; # precreate the directories we might need $DOCDIR = "$DEST/doc/$whichdocformat/$package"; &SYSTEM("mkdir -p $DOCDIR"); @@ -1258,6 +1260,7 @@ sub setup { } sub donormal { + print "doing donormal()...\n"; &setup; chdir("$DEST/doc/$whichdocformat/$package"); &buildfilelist; @@ -1510,10 +1513,10 @@ sub killfiles { # rebuild list of input files, e.g., after flattening sub buildfilelist { + print "doing buildfilelist()...\n"; opendir(DIR,'.') || die ("ERROR: cannot open directory"); @filenames =grep(!/^\.\.?$/,readdir(DIR)); closedir(DIR); - print " [file list rebuilt]\n"; } sub runmf { @@ -1565,13 +1568,14 @@ sub runfonts { sub SYSTEM { local ($job) = @_; if ($opt_test) { - print "SYSTEM: $job\n"; + print "\t SYSTEM $job\n"; } else { - print "SYSTEM: $job\n" if $opt_debug; + print "\t SYSTEM $job\n" if $opt_debug; system($job); } } + sub MAKEflatten { &setup; &xchdir ("$DEST/doc/$whichdocformat/$package"); @@ -1665,8 +1669,8 @@ sub GENMAKEhyphenation { &SYSTEM("echo $langname $hyphfile >$configfile"); } - print "\t YOU-MUST-DO $package: create texmf/tpm/hyphen-$langname.tpm\n"; - print "\t YOU-MUST-DO $package: add to texmf/tpm/collection-langsomething.tpm\n"; + print "YOU-MUST-DO! $package: create texmf/tpm/hyphen-$langname.tpm\n"; + print "YOU-MUST-DO! $package: add to texmf/tpm/collection-langsomething.tpm\n"; } sub MAKEcbcoptic { @@ -1770,7 +1774,7 @@ sub MAKEbabel { my $files = "icehyph.tex iahyphen.tex "; print "\t SPECIAL move to /tmp: $files\n"; # since not separate on CTAN &SYSTEM("cd $DEST/doc/generic/$package && mv $files /tmp"); - print "\t YOU-MUST-DO check those against texmf/tex/generic/hyphen\n"; + print "YOU-MUST-DO! check those against texmf/tex/generic/hyphen\n"; } sub MAKEbbm { @@ -1895,7 +1899,7 @@ sub MAKEmpattern { print "\t SPECIAL move mpp from doc to /tmp\n"; &SYSTEM("$MV $DEST/doc/metapost/$package/mpp /tmp"); &SYSTEM("chmod a+x /tmp/mpp"); - print "\t YOU-MUST-DO update mpp to source/.../texlive/\n"; + print "YOU-MUST-DO! update mpp to source/.../texlive/\n"; } sub MAKEpbdiagram { @@ -1915,7 +1919,7 @@ sub MAKEperltex { print "\t SPECIAL move $package.pl from doc to /tmp\n"; &SYSTEM("$MV $DEST/doc/latex/$package/$package.pl /tmp"); &SYSTEM("chmod a+x /tmp/$package.pl"); - print "\t YOU-MUST-DO update $package.pl to source/.../texlive/\n"; + print "YOU-MUST-DO! update $package.pl to source/.../texlive/\n"; } # pgf mostly is just a copy to the tex dir, but Till has a doc dir at @@ -2090,7 +2094,7 @@ sub MAKEdevanagr { print "\t SPECIAL $package: flatten\n"; &xchdir (".."); &MAKEflatten; - print "\t YOU-MUST-DO update /tmp/devnag.c and devnag.exe into Build\n"; + print "YOU-MUST-DO! update /tmp/devnag.c and devnag.exe into Build\n"; } # We don't want to flatten the templates, only the source. @@ -2128,7 +2132,7 @@ sub MAKEebong { print "\t SPECIAL $package: flatten\n"; &xchdir (".."); &MAKEflatten; - print "\t YOU-MUST-DO update /tmp/ebong.py into Build\n"; + print "YOU-MUST-DO! update /tmp/ebong.py into Build\n"; } sub MAKEfootnpag { @@ -2369,9 +2373,9 @@ sub MAKEelhyphen { &SYSTEM("mkdir -p $generichyphdir"); &SYSTEM("$MV gr*hyph*.tex $generichyphdir"); - print "\t YOU-MUST-DO $package: update texmf/tex/generic/config/language.gr.dat\n"; - print "\t YOU-MUST-DO $package: update texmf/tpm/hyphen-greek.tpm\n"; - print "\t YOU-MUST-DO $package: add to texmf/tpm/collection-langgreek.tpm\n"; + print "YOU-MUST-DO! $package: update texmf/tex/generic/config/language.gr.dat\n"; + print "YOU-MUST-DO! $package: update texmf/tpm/hyphen-greek.tpm\n"; + print "YOU-MUST-DO! $package: add to texmf/tpm/collection-langgreek.tpm\n"; } sub MAKEcatalog { @@ -2569,7 +2573,19 @@ sub MAKEvpe { &xchdir (".."); &donormal (); # - print "\t YOU-MUST-DO update /tmp/vpe into Build\n"; + print "YOU-MUST-DO! update /tmp/vpe to source/texk/texlive\n"; +} + +sub MAKEwordcount { + &xchdir ($packagedir); + # + print "\t SPECIAL $package: moving wordcount.sh to /tmp\n"; + &SYSTEM('mv wordcount.sh /tmp/'); + # + &xchdir (".."); + &donormal (); + # + print "YOU-MUST-DO! update /tmp/wordcount.sh to source/texk/texlive\n"; } sub MAKEukrhyph { @@ -2785,7 +2801,7 @@ sub MAKEpst { &SYSTEM("mv $DEST/doc/generic/$package/*cfg $DEST/tex/latex/$package"); if (-f "scripts/ps4pdf") { - print "\t YOU-MUST-DO copy scripts/ps4pdf to source/texk/tetex\n"; + print "YOU-MUST-DO! copy scripts/ps4pdf to source/texk/tetex\n"; } } |