22 lines
		
	
	
		
			684 B
		
	
	
	
		
			Plaintext
		
	
	
	
			
		
		
	
	
			22 lines
		
	
	
		
			684 B
		
	
	
	
		
			Plaintext
		
	
	
	
$latex = 'pdflatex ' . $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);
 | 
						|
  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'" );
 | 
						|
} |