summaryrefslogtreecommitdiff
path: root/Master/bin/mips-irix
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2010-12-14 12:55:02 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2010-12-14 12:55:02 +0000
commit642cb4fe7002b0e56f1c537835e38e9ad03e99fe (patch)
tree422089421ce29d23c1e0fa72330cd2f125b661ee /Master/bin/mips-irix
parent6ed3c2d08e3f59485366fafee1b40ae5b500c056 (diff)
psutils: remove non-free
git-svn-id: svn://tug.org/texlive/trunk@20736 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/bin/mips-irix')
-rwxr-xr-xMaster/bin/mips-irix/fixmacps95
1 files changed, 0 insertions, 95 deletions
diff --git a/Master/bin/mips-irix/fixmacps b/Master/bin/mips-irix/fixmacps
deleted file mode 100755
index f4cfdb10a9e..00000000000
--- a/Master/bin/mips-irix/fixmacps
+++ /dev/null
@@ -1,95 +0,0 @@
-#!/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++;
-}
-