|
- $latex = 'platex ' . $ENV{'LATEXOPTS'} . ' -kanji=utf8 %O %S';
- $dvipdf = 'dvipdfmx %O -o %D %S';
- $makeindex = 'internal mendex %S %B %D';
- sub mendex {
- my ($source, $basename, $destination) = @_;
- my $dictfile = $basename . ".dic";
- unlink($destination);
- if (-f $dictfile) {
- system("mendex", "-U", "-f", "-d", $dictfile, "-s", "python.ist", $source);
- if ($? > 0) {
- print("mendex exited with error code $? (ignored)\n");
- }
- }
- if (!-e $destination) {
- # create an empty .ind file if nothing
- open(FH, ">" . $destination);
- close(FH);
- }
- return 0;
- }
- add_cus_dep( "glo", "gls", 0, "makeglo" );
- sub makeglo {
- return system( "mendex -J -f -s gglo.ist -o '$_[0].gls' '$_[0].glo'" );
- }
|