JezK
Edit File: mk4ht
#!/usr/bin/perl # Debian required shebang above # Original shebang below # #!/usr/bin/env perl #%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% # mk4ht Version 1.1 % # Copyright (C) 2003--2009 Eitan M. Gurari % # Copyright 2009 TeX Users Group % # % # 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".% # % # The Current Maintainer of this work % # is the TeX4ht Project. % # % # tex4ht@tug.org % # http://www.tug.org/tex4ht % #%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% use strict; $^W=1; # turn warning on my $texFile = ''; if( @ARGV ){ my(@array) = split('\.',@ARGV[1]); $texFile = @array[0]; } my @options = ( "", "ht", "", "", "", "-cvalidatehtml", "ht", "htlatex", "latex", "", "", "-cvalidatehtml", "ht", "httex", "tex", "", "", "-cvalidatehtml", "ht", "httexi", "texi", "", "", "-cvalidatehtml", "ht", "htcontext", "context", "", "", "-cvalidatehtml", "ht", "htxetex", "xetex", "", "", "-cvalidatehtml", "ht", "htxelatex", "xelatex", "", "", "-cvalidatehtml", "xh", "xhlatex", "latex", "xhtml", "", "-cvalidate", "xh", "xhtex", "tex", "xhtml", "", "-cvalidate", "xh", "xhtexi", "texi", "xhtml", "", "-cvalidate", "xh", "xhcontext","context", "xhtml", "", "-cvalidat", "xh", "xhxelatex", "xelatex", "xhtml", "", "-cvalidate", "xh", "xhxetex", "xetex", "xhtml", "", "-cvalidate", "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", "uxh", "uxhxelatex", "xelatex", "xhtml,uni-html4", " -cunihtf", "-cvalidate", "uxh", "uxhxetex", "xetex", "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", "xhm", "xhmxelatex", "xelatex", "xhtml,mathml", " -cunihtf", "-cvalidate", "xhm", "xhmxetex", "xetex", "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", "mz", "mzxelatex", "xelatex", "xhtml,mozilla", " -cmozhtf", "-cvalidate", "mz", "mzxetex", "xetex", "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", "oo", "ooxelatex", "xelatex", "xhtml,ooffice", "ooffice/\! -cmozhtf", "-cooxtpipes -coo", "oo", "ooxetex", "xetex", "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", "es", "esxelatex", "xelatex", "xhtml,emspk", " -cemspkhtf -s4es", "-cemspk", "es", "esxetex", "xetex", "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", "js", "jsxelatex", "xelatex", "xhtml,jsml", " -cjsmlhtf", "-cjsml", "js", "jsxetex", "xetex", "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", "", "jm", "jmxelatex", "xelatex", "xhtml,jsmath", " -cmozhtf", "", "jm", "jmxetex", "xetex", "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", "tei", "teixelatex", "xelatex", "xhtml,tei", " -cunihtf", "-cvalidate", "tei", "teixetex", "xetex", "xhtml,tei", " -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", "db", "dbxelatex", "xelatex", "xhtml,docbook", " -cunihtf", "-cvalidate -cdocbk", "db", "dbxetex", "xetex", "xhtml,docbook", " -cunihtf", "-cvalidate -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", "", "w", "wxelatex", "xelatex", "xhtml,word", " -csymhtf", "", "w", "wxetex", "xetex", "xhtml,word", " -csymhtf", "", "jh", "jhlatex", "latex", "html,javahelp,xml,3.2,unicode", " -cmozhtf -u10", " -d$texFile-doc/ -cjavahelp -cvalidatehtml", "jh", "jhtex", "tex", "html,javahelp,xml,3.2,unicode", " -cmozhtf -u10", " -d$texFile-doc/ -cjavahelp -cvalidatehtml", "jh", "jhtexi", "texi", "html,javahelp,xml,3.2,unicode", " -cmozhtf -u10", " -d$texFile-doc/ -cjavahelp -cvalidatehtml", "jh", "jhcontext","context", "html,javahelp,xml,3.2,unicode", " -cmozhtf -u10", " -d$texFile-doc/ -cjavahelp -cvalidatehtml", "jh", "jhxelatex", "xelatex", "html,javahelp,xml,3.2,unicode", " -cmozhtf -u10", " -d$texFile-doc/ -cjavahelp -cvalidatehtml", "jh", "jhxetex", "xetex", "html,javahelp,xml,3.2,unicode", " -cmozhtf -u10", " -d$texFile-doc/ -cjavahelp -cvalidatehtml", "jh1", "jh1latex", "latex", "html,javahelp,xml,3.2,unicode,jh1.0", " -cmozhtf -u10", " -d$texFile-doc/ -cjavahelp", "jh1", "jh1tex", "tex", "html,javahelp,xml,3.2,unicode,jh1.0", " -cmozhtf -u10", " -d$texFile-doc/ -cjavahelp", "jh1", "jh1texi", "texi", "html,javahelp,xml,3.2,unicode,jh1.0", " -cmozhtf -u10", " -d$texFile-doc/ -cjavahelp", "jh1", "jh1context","context", "html,javahelp,xml,3.2,unicode,jh1.0", " -cmozhtf -u10", " -d$texFile-doc/ -cjavahelp", "jh1", "jh1xelatex", "xelatex", "html,javahelp,xml,3.2,unicode,jh1.0", " -cmozhtf -u10", " -d$texFile-doc/ -cjavahelp", "jh1", "jh1xetex", "xetex", "html,javahelp,xml,3.2,unicode,jh1.0", " -cmozhtf -u10", " -d$texFile-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', 'context', 'xetex', and 'xelatex'\n"; print " instead of 'latex'\n"; print " \n"; print " #2: file name\n"; print " #3: optional arguments for latex/tex/... \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, context, xetex, and xelatex.\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 (Version 1.1)\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 $cmd; open (KPSEA, "kpsewhich " . $command[0] . " |"); if ($cmd = <KPSEA>){ $cmd =~ s/\s+$//; } else { $cmd = $command[0]; } close KPSEA; my $commando = $cmd . " " . $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; 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 );