blob: f590840b97e5efdf6ce72d6c32c50e17be5bff59 (
plain)
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
|
#!/usr/bin/perl
#############################################################################
#Program : inligs
#Author : Apostolos Syropoulos
#E-mail : apostolo@obelix.ee.duth.gr or apostolo@ocean1.ee.duth.gr
#Functionality: Includes the cbligs.mf file in METAFONT files generated with
# ttf2mf and the cb-tex.enc encoding.
############################################################################
die "Usage: inlig <METAFONT file>\n" if !(@ARGV);
$file=$ARGV[0];
$tmpf="temp.tmp";
open(TEMP,">$tmpf")||die "Can't create temporal file!\n";
open(MF,"$file")||die "can't open file $file!\n";
while(<MF>)
{
if (/^end\.$/)
{
print TEMP "input cbligs.mf\nend.";
}
else
{
print TEMP;
}
}
close;
rename $tmpf, $file;
__END__
|
