1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!/usr/bin/perl
use strict;
my %JTEX =
( name => 'jtex',
latex => 'jlatex',
formats => 'jtex jlatex amsjtex',
texmf => <<'__jtex_texmf__',
%
% NTT jTeX
%
TEXINPUTS.jtex = .;\$TEXMF/{jtex,tex}/{plain,generic,}//
TEXINPUTS.jlatex = .;\$TEXMF/{jtex,tex}/{latex,generic,}//
TEXINPUTS.jlatex2e = .;\$TEXMF/{jtex,tex}/{latex,generic,}//
TEXINPUTS.amsjtex = .;\$TEXMF/{jtex,tex}/{amstex,plain,generic,}//
__jtex_texmf__
fmtcnf => <<'__jtex_fmtcnf__',
#
# NTT jTeX
#
# format engine pattern-file arguments
jtex jtex - jtex.ini
jlatex jtex - jlatex.ini
amsjtex jtex - amsjtex.ini
__jtex_fmtcnf__
);
my %MULTEX =
( name => 'multex',
latex => 'mullatex',
formats => 'multex mullatex amsmultex',
texmf => <<'__multex_texmf__',
%
% NTT MulTeX
%
TEXINPUTS.multex = .;\$TEXMF/{multex,jtex,tex}/{plain,generic,}//
TEXINPUTS.mullatex = .;\$TEXMF/{multex,jtex,tex}/{latex,generic,}//
TEXINPUTS.jmullatex = .;\$TEXMF/{multex,jtex,tex}/{latex,generic,}//
TEXINPUTS.mullatex2e = .;\$TEXMF/{multex,jtex,tex}/{latex,generic,}//
TEXINPUTS.amsmultex = .;\$TEXMF/{multex,jtex,tex}/{amstex,plain,generic,}//
__multex_texmf__
fmtcnf => <<'__multex_fmtcnf__',
#
# NTT MulTeX
#
# format engine pattern-file arguments
multex multex - multex.ini
mullatex multex - mullatex.ini
amsmultex multex - amsmultex.ini
__multex_fmtcnf__
);
my( $mode, $file ) = @ARGV;
my %value;
if( $mode eq 'jtex' ){
%value = %JTEX;
} else {
%value = %MULTEX;
}
my $regexp = sprintf( '@(%s)@', join( '|', map( quotemeta, keys %value ) ) );
open( F, "< $file" ) or die;
while( <F> ){
s/$regexp/$value{$1}/ge;
print;
}
close F;
|
