summaryrefslogtreecommitdiff
path: root/fonts/greek/grtimes/inlig
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__