summaryrefslogtreecommitdiff
path: root/fonts/greek/grtimes/inlig
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/greek/grtimes/inlig')
-rw-r--r--fonts/greek/grtimes/inlig27
1 files changed, 27 insertions, 0 deletions
diff --git a/fonts/greek/grtimes/inlig b/fonts/greek/grtimes/inlig
new file mode 100644
index 0000000000..f590840b97
--- /dev/null
+++ b/fonts/greek/grtimes/inlig
@@ -0,0 +1,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__