trunk

git-svn-id: svn://tug.org/texlive/trunk@10 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 95 insertions, 0 deletions

diff --git a/Master/bin/i386-linux/fixmacps b/Master/bin/i386-linux/fixmacps
new file mode 100755
index 00000000000..f4cfdb10a9e
--- /dev/null
+++ b/Master/bin/i386-linux/fixmacps
@@ -0,0 +1,95 @@
+#!/usr/bin/env perl
+# fixmacps: swap to sanitised appledict
+#
+# Copyright (C) Angus J. C. Duggan 1991-1995
+# See file LICENSE for details.
+
+$line = 0;			# keep line count
+$predir = `kpsewhich -progname=psutils md71_0.ps`;
+$dir=`basename $predir`;
+$prefix = "md";
+$default = "md71_0.ps";
+
+while ($_ = shift(@ARGV)) {
+   if (/^-d(ir)?$/)   { $dir = shift(@ARGV); }
+   elsif (/^-n(ame)?$/)   { $prefix = shift(@ARGV); }
+   else {
+      unshift(@ARGV, $_);
+      last;
+   }
+}
+
+%fonts = ();
+$nesting = 0;
+
+while (<>) {
+   if (/^%!/) {
+      if (! $line) {
+	 print;
+      }
+   } elsif (/^%%(Begin|Include)ProcSet: "?\(AppleDict md\)"? ([0-9]+) ([0-9]+)$/) {
+      local($inc, $mdv, $mdr) = ($1, $2, $3);
+      if (open(SANE, "<$dir/$prefix${mdv}_$mdr.ps") ||
+	  open(SANE, "<$dir/$default")) {
+	 $sane = <SANE>;
+	 local($snv, $snr) =
+	    $sane =~ /^%%BeginProcSet: \(AppleDict md\) ([0-9]+) ([0-9]+)$/;
+	 if ($mdv == $snv && $mdr == $snr) {
+	     if ( $inc eq "Include" ) {
+		 print STDERR "Inserting ProcSet \"(AppleDict md)\" $snv $snr\n";
+		 print $sane;
+		 while(<SANE>) {
+		     print;
+		 }
+		 close(SANE);
+	     }
+	     else {
+		 print STDERR "Substituting ProcSet \"(AppleDict md)\" $snv $snr\n";
+		 $ignore = 1;
+	     }
+	 } else {
+	    print STDERR "Unrecognised AppleDict version $mdv $mdr\n";
+	    print "%!\n" if !$line;
+	    print;
+	 }
+      } else {
+	 print STDERR "Can't find sanitised AppleDict\n";
+	 print "%!\n" if !$line;
+	 print;
+      }
+   } elsif (/^%%EndProcSet/) {
+      if ($ignore) {
+	 $ignore = 0;
+	 print "%!\n" if !$line;
+	 print $sane;
+	 while(<SANE>) {
+	    print;
+	 }
+	 close(SANE);
+      } else {
+	 print "%!\n" if !$line;
+	 print;
+      }
+   } elsif (/^%%Page:/ && $nesting == 0) {
+      print $_;
+      print values(%fonts);
+   } elsif (/^%%BeginDocument/ || /^%%BeginBinary/ || /^%%BeginFile/) {
+      print $_;
+      $nesting++;
+   } elsif (/^%%EndDocument/ || /^%%EndBinary/ || /^%%EndFile/) {
+      print $_;
+      $nesting--;
+   } else {
+      if (! $ignore) {
+	 if (/^\{\}mark .*rf$/) {
+	    $fonts{$_} = $_;
+	    print;
+	 } else {
+	    print "%!\n" if !$line;
+	    print;
+	 }
+      }
+   }
+   $line++;
+}
+