diff options
Diffstat (limited to 'Master/bin/i386-darwin/mk4ht')
l---------[-rwxr-xr-x] | Master/bin/i386-darwin/mk4ht | 347 |
1 files changed, 1 insertions, 346 deletions
diff --git a/Master/bin/i386-darwin/mk4ht b/Master/bin/i386-darwin/mk4ht index 2bd1f7e2038..4b7480809ba 100755..120000 --- a/Master/bin/i386-darwin/mk4ht +++ b/Master/bin/i386-darwin/mk4ht @@ -1,346 +1 @@ -#!/usr/bin/env perl -#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -# mk4ht 2007-01-04-01:34 % -# Copyright (C) 2003--2007 Eitan M. Gurari % -# % -# % -# This work may be distributed and/or modified under the % -# conditions of the LaTeX Project Public License, either % -# version 1.3 of this license or (at your option) any % -# later version. The latest version of this license is % -# in % -# http://www.latex-project.org/lppl.txt % -# and version 1.3 or later is part of all distributions % -# of LaTeX version 2003/12/01 or later. % -# % -# This work has the LPPL maintenance status "maintained".% -# % -# This Current Maintainer of this work % -# is Eitan M. Gurari. % -# % -# gurari@cse.ohio-state.edu % -# http://www.cse.ohio-state.edu/~gurari % -#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -use strict; -$^W=1; # turn warning on -my @options = ( - "", "ht", "", "", "", "-cvalidatehtml", - "ht", "htlatex", "latex", "", "", "-cvalidatehtml", - "ht", "httex", "tex", "", "", "-cvalidatehtml", - "ht", "httexi", "texi", "", "", "-cvalidatehtml", - "ht", "htcontext", "context", "", "", "-cvalidatehtml", - "xh", "xhlatex", "latex", "xhtml", "", "-cvalidate", - "xh", "xhtex", "tex", "xhtml", "", "-cvalidate", - "xh", "xhtexi", "texi", "xhtml", "", "-cvalidate", - "xh", "xhcontext","context", "xhtml", "", "-cvalidat", - "uxh", "uxhlatex", "latex", "xhtml,uni-html4", " -cunihtf", "-cvalidate", - "uxh", "uxhtex", "tex", "xhtml,uni-html4", " -cunihtf", "-cvalidate", - "uxh", "uxhtexi", "texi", "xhtml,uni-html4", " -cunihtf", "-cvalidate", - "uxh", "uxhcontext","context", "xhtml,uni-html4", " -cunihtf", "-cvalidate", - "xhm", "xhmlatex", "latex", "xhtml,mathml", " -cunihtf", "-cvalidate", - "xhm", "xhmtex", "tex", "xhtml,mathml", " -cunihtf", "-cvalidate", - "xhm", "xhmtexi", "texi", "xhtml,mathml", " -cunihtf", "-cvalidate", - "xhm", "xhmcontext","context", "xhtml,mathml", " -cunihtf", "-cvalidate", - "mz", "mzlatex", "latex", "xhtml,mozilla", " -cmozhtf", "-cvalidate", - "mz", "mztex", "tex", "xhtml,mozilla", " -cmozhtf", "-cvalidate", - "mz", "mztexi", "texi", "xhtml,mozilla", " -cmozhtf", "-cvalidate", - "mz", "mzcontext", "context", "xhtml,mozilla", " -cmozhtf", "-cvalidate", - "oo", "oolatex", "latex", "xhtml,ooffice", "ooffice/\! -cmozhtf", "-cooxtpipes -coo", - "oo", "ootex", "tex", "xhtml,ooffice", "ooffice/\! -cmozhtf", "-cooxtpipes -coo", - "oo", "ootexi", "texi", "xhtml,ooffice", "ooffice/\! -cmozhtf", "-cooxtpipes -coo", - "oo", "oocontext", "context", "xhtml,ooffice", "ooffice/\! -cmozhtf", "-cooxtpipes -coo", - "es", "eslatex", "latex", "xhtml,emspk", " -cemspkhtf -s4es", "-cemspk", - "es", "estex", "tex", "xhtml,emspk", " -cemspkhtf -s4es", "-cemspk", - "es", "estexi", "texi", "xhtml,emspk", " -cemspkhtf -s4es", "-cemspk", - "es", "escontext", "context", "xhtml,emspk", " -cemspkhtf -s4es", "-cemspk", - "js", "jslatex", "latex", "xhtml,jsml", " -cjsmlhtf", "-cjsml", - "js", "jstex", "tex", "xhtml,jsml", " -cjsmlhtf", "-cjsml", - "js", "jstexi", "texi", "xhtml,jsml", " -cjsmlhtf", "-cjsml", - "js", "jscontext", "context", "xhtml,jsml", " -cjsmlhtf", "-cjsml", - "jm", "jmlatex", "latex", "xhtml,jsmath", " -cmozhtf", "", - "jm", "jmtex", "tex", "xhtml,jsmath", " -cmozhtf", "", - "jm", "jmtexi", "texi", "xhtml,jsmath", " -cmozhtf", "", - "jm", "jmcontext", "context", "xhtml,jsmath", " -cmozhtf", "", - "tei", "teilatex", "latex", "xhtml,tei", " -cunihtf", "-cvalidate", - "tei", "teitex", "tex", "xhtml,tei", " -cunihtf", "-cvalidate", - "tei", "teitexi", "texi", "xhtml,tei", " -cunihtf", "-cvalidate", - "tei", "teicontext","context", "xhtml,tei", " -cunihtf", "-cvalidate", - "teim", "teimlatex", "latex", "xhtml,tei-mml"," -cunihtf", "-cvalidate", - "teim", "teimtex", "tex", "xhtml,tei-mml"," -cunihtf", "-cvalidate", - "teim", "teimtexi", "texi", "xhtml,tei-mml"," -cunihtf", "-cvalidate", - "teim", "teimcontext","context","xhtml,tei-mml"," -cunihtf", "-cvalidate", - "db", "dblatex", "latex", "xhtml,docbook", " -cunihtf", "-cvalidate -cdocbk", - "db", "dbtex", "tex", "xhtml,docbook", " -cunihtf", "-cvalidate -cdocbk", - "db", "dbtexi", "texi", "xhtml,docbook", " -cunihtf", "-cvalidate -cdocbk", - "db", "dbcontext", "context", "xhtml,docbook", " -cunihtf", "-cvalidate -cdocbk", - "dbm", "dbmlatex", "latex", "xhtml,docbook-mml", " -cunihtf", "-cdocbk", - "dbm", "dbmtex", "tex", "xhtml,docbook-mml", " -cunihtf", "-cdocbk", - "dbm", "dbmtexi", "texi", "xhtml,docbook-mml", " -cunihtf", "-cdocbk", - "dbm", "dbmcontext","context", "xhtml,docbook-mml", " -cunihtf", "-cdocbk", - "w", "wlatex", "latex", "xhtml,word", " -csymhtf", "", - "w", "wtex", "tex", "xhtml,word", " -csymhtf", "", - "w", "wtexi", "texi", "xhtml,word", " -csymhtf", "", - "w", "wcontext", "context", "xhtml,word", " -csymhtf", "", - "jh", "jhlatex", "latex", "html,javahelp,3.2,unicode", " -cmozhtf -u10", " -d%1-doc/ -cjavahelp -cvalidatehtml", - "jh", "jhtex", "tex", "html,javahelp,3.2,unicode", " -cmozhtf -u10", " -d%1-doc/ -cjavahelp -cvalidatehtml", - "jh", "jhtexi", "texi", "html,javahelp,3.2,unicode", " -cmozhtf -u10", " -d%1-doc/ -cjavahelp -cvalidatehtml", - "jh", "jhcontext","context", "html,javahelp,3.2,unicode", " -cmozhtf -u10", " -d%1-doc/ -cjavahelp -cvalidatehtml", - "jh1", "jh1latex", "latex", "html,javahelp,3.2,unicode,jh1.0", " -cmozhtf -u10", " -d%1-doc/ -cjavahelp", - "jh1", "jh1tex", "tex", "html,javahelp,3.2,unicode,jh1.0", " -cmozhtf -u10", " -d%1-doc/ -cjavahelp", - "jh1", "jh1texi", "texi", "html,javahelp,3.2,unicode,jh1.0", " -cmozhtf -u10", " -d%1-doc/ -cjavahelp", - "jh1", "jh1context","context", "html,javahelp,3.2,unicode,jh1.0", " -cmozhtf -u10", " -d%1-doc/ -cjavahelp", - -); - -sub showInstrucions(){ - print " option1: mk4ht #1 \"#2\" \"#3\" \"#4\" \"#5\"\n"; - print " \n"; - print " #1: htlatex, xhlatex, mzlatex, oolatex, dblatex, dbmlatex,\n"; - print " jhlatex, eslatex, teilatex, teimlatex, uxhlatex, \n"; - print " wlatex, xhmlatex\n"; - print " \n"; - print " also 'tex', 'texi', and 'context' instead of 'latex'\n"; - print " \n"; - print " #2: file name\n"; - print " #3: optional arguments for latex/tex/texi/context \n"; - print " #4: optional arguments for tex4ht.c\n"; - print " #5: optional arguments for t4ht.c\n"; - print " \n"; - print " option2: mk4ht ht #2 #3 \"#4\" \"#5\"\n"; - print " \n"; - print " #1: ht\n"; - print " #2: latex, tex\n"; - print " #3: file name\n"; - print " #4: optional arguments for tex4ht.c\n"; - print " #5: optional arguments for t4ht.c\n"; - print " \n"; - print " Within the program, in column three of the options\n"; - print " variable, the requests for the commands \"latex\",\n"; - print " \"tex\", etc. can be replaced with other equivalent\n"; - print " commands (e.g., \"tex -fmt=latex\").\n"; - - print "--------------------------------------------------------------------------\n"; -print " Private configuration file: mk4ht.cfg\n"; -print "--------------------------------------------------------------------------\n"; -print "\n"; -print "A private configuration file mk4ht.cfg or .mk4ht may be placed at the\n"; -print "work or home directory, to update existing commands and introduce new\n"; -print "ones. The configuration file may contain records of the following\n"; -print "kinds.\n"; -print "\n"; -print " # Comment\n"; -print " \n"; -print " name = type\n"; -print " Defines a ht*tex like command, and assocites to it the \n"; -print " TeX compiler of the specified type. Examples of TeX \n"; -print " types: latex, tex, texi, and context.\n"; -print " \n"; -print " name.tex = options\n"; -print " Command line options for the compilation under\n"; -print " the (la)tex compiler\n"; -print " \n"; -print " name.tex4ht = options\n"; -print " Command line options for tex4ht.c \n"; -print " \n"; -print " name.t4ht = options\n"; -print " Command line options for t4ht.c\n"; -print " \n"; -print "Each record should appear in a different line. Variants\n"; -print "`name.tex += options', `name.tex4ht += options',\n"; -print "`name.t4ht += options' of the above records are also allowed.\n"; -print "They append the listed options to the base values.\n"; -print "\n"; -print "Example:\n"; -print "\n"; -print " foohlatex = latex\n"; -print " foohlatex.tex = xhtml,uni-html4\n"; -print " foohlatex.tex4ht += -cunihtf\n"; -print " foohlatex.t4ht = -cvalidate\n"; -print " htlatex.t4ht += -d./\n"; - - - print "--------------------------------------------------------------------------\n"; -print " Deleting files\n"; -print "--------------------------------------------------------------------------\n"; -print "\n"; -print "The configuration file mk4ht.cfg may also contain requests for\n"; -print "removing files created in the work directory during the compilation.\n"; -print "The requests are to be made through records of the following forms.\n"; -print "\n"; -print " clean ext1 ext2 ...\n"; -print " The extensions of the file name to be removed.\n"; -print " \n"; -print " clean.name ext1 ext2 ...\n"; -print " Conditional request. The `name' refers to the ht*tex \n"; -print " like command in use.\n"; -print "\n"; -print "Example:\n"; -print " clean dvi idv\n"; -print " clean.foohlatex lg \n"; -print " clean.htlatex lg tmp\n"; - -} - -print "mk4ht (2007-01-04-01:34)\n"; -if( !@ARGV ){ - print "improper command\n"; - showInstrucions(); exit(1); -} -my @command=("","","","",""); -my $i=0; -my $j=0; -my $param; -my $name; -my $compiler; -my $tex; -my $tex4ht; -my $t4ht; -my $texp; -my $tex4htp = ""; -my $t4htp = ""; -my @ext; - -foreach $param (@ARGV) { - if( $i == 0 ){ - my $inf; -open $inf, "<mk4ht.cfg" -or -( open $inf, "<.mk4ht" - or - ( - open $inf, "<" . $ENV{HOME} . "/mk4ht.cfg" - or - ( - open $inf, "<" . $ENV{HOME} . "/.mk4ht" - or $inf = "" -) ) ) -; - -if( $inf ){ - print "(mk4ht cfg)\n"; - while(<$inf>) { - my($line) = $_; - chomp($line); # remove eoln char - if ($line =~ m|\s*#.*|) {} - elsif($line =~ m|^\s*(\S*)\.(\S*)\s*\+=\s*(.*\S)\s*$|) { - if( ($param."tex4ht") eq ($1.$2) ){ - $tex4htp = $tex4htp . " " . $3; - } - elsif( ($param."t4ht") eq ($1.$2) ){ - $t4htp = $t4htp . " " . $3; - } - elsif( ($param."tex") eq ($1.$2) ){ - $texp = $texp . "," . $3; - } - } - elsif($line =~ m|^\s*(\S*)\.(\S*)\s*=\s*(.*\S)\s*$|) { - if( ($param."tex4ht") eq ($1.$2) ){ - $tex4ht = $3 . " "; - $tex4htp = ""; - } - elsif( ($param."t4ht") eq ($1.$2) ){ - $t4ht = $3 . " "; - $t4htp = ""; - } - elsif( ($param."tex") eq ($1.$2) ){ - $tex = $3 . ","; - $texp = ""; - } - } - elsif($line =~ m|^\s*(\S*)\s*=\s*(.*\S)\s*$|) { - if( $param eq $1 ){ - $name = $1; - $compiler = $2; - } - } - elsif($line =~ m|^\s*clean\s+(.+)|){ - my(@array) = split(' ',$1); - push(@ext,@array); -} elsif($line =~ m|^\s*clean\.(\S+)\s+(.+)|){ - if( $1 eq @ARGV[0] ){ - my(@array) = split(' ',$2); - push(@ext,@array); -} } - - elsif ($line) { print "--- Error --- " . $line . "\n"; } - } - close $inf; -} - - for( $j=1; $j<$#options; $j+=6 ){ - if( $param eq $options[$j] ){ - if( $name ){ - $command[0] = "ht".$compiler; -if( $tex ){ $command[2] = $tex; } else { $command[2] = ""; } -if( $tex4ht ){ $command[3] = $tex4ht; } else { $command[3] = ""; } -if( $t4ht ){ $command[4] = $t4ht; } else { $command[4] = ""; } - - } else { - if( $options[$j-1] eq "" ){ - $command[0] = $options[$j]; -} else { - $command[0] = "ht".$options[$j+1]; -} -if( $tex ){ $command[2] = $tex; } else { $command[2] = $options[$j+2]; } -if( $tex4ht ){ $command[3] = $tex4ht; } else { $command[3] = $options[$j+3]; } -if( $t4ht ){ $command[4] = $t4ht; } else { $command[4] = $options[$j+4]; } - - } - if( $texp ){ $command[2] = $command[2] . "," . $texp; } -if( $tex4htp){ $command[3] = $command[3] . " " . $tex4htp; } -if( $t4htp ){ $command[4] = $command[4] . " " . $t4htp; } - - last; - } } - if( $j>$#options ){ - if( $name ){ $command[0] = "ht".$compiler; -if( $tex ){ $command[2] = $tex; } else { $command[2] = ""; } -if( $tex4ht ){ $command[3] = $tex4ht; } else { $command[3] = ""; } -if( $t4ht ){ $command[4] = $t4ht; } else { $command[4] = ""; } - } - else { - print "improper command: $param \n"; - showInstrucions(); exit(1); - } } - } elsif ( $i== 1 ) { - $command[1] = $param; - } elsif ( $i== 2 ) { - if( $command[2] eq "" ){ - $command[2] = $param; - } else { - $command[2] = $param. "," . $command[2]; - } - } elsif ( $i== 3 ) { - $command[3] = $param . $command[3]; - } else { - $command[4] = $param. " " .$command[4]; - } - $i++; -} -my $commando = $command[0] . " " . $command[1] . " \"". - $command[2] . "\" \"". $command[3] . "\" \"" . - $command[4] . "\""; -print "$commando\n"; -my $rtrn; -if( $rtrn = system($commando) ){ - print "--- error --- failed to execute command\n"; -} else { - my $file; -my $ext; -my(@array) = split('\.',@ARGV[1]); -my $texFile = @array[0]; -opendir(DIR,".") ; -while ($file = readdir(DIR) ){ - if(index($file,$texFile) == 0 ){ - foreach $ext(@ext){ - if (index($file,$ext,length($file)-length($ext)) != -1){ - if( stat($file)){ - unlink($file); - print "Deleted: ". $file . "\n"; -} } } } } -closedir(DIR); - - exit( !$rtrn ); -} - +../../texmf-dist/scripts/tex4ht/mk4ht.pl
\ No newline at end of file |