From cfaf3ba644b1df171aab1cf6bc2a39a1e2ad6914 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Mon, 17 Mar 2008 18:52:26 +0000
Subject: prepare for restore

git-svn-id: svn://tug.org/texlive/trunk@6988 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/bin/hppa-hpux/fixpspps | 58 -------------------------------------------
 1 file changed, 58 deletions(-)
 delete mode 100755 Master/bin/hppa-hpux/fixpspps

(limited to 'Master/bin/hppa-hpux/fixpspps')

diff --git a/Master/bin/hppa-hpux/fixpspps b/Master/bin/hppa-hpux/fixpspps
deleted file mode 100755
index 77bba66d6b7..00000000000
--- a/Master/bin/hppa-hpux/fixpspps
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/usr/bin/env perl
-# mangle PostScript produced by PSPrint to make it almost conforming
-#
-# Copyright (C) Angus J. C. Duggan 1991-1995
-# See file LICENSE for details.
-
-$header = 1; $ignore = 0;
-$verbose = 0;
-@body = ();
-%fonts = (); $font = "";
-$inchar = 0; @char = ();
-
-while (<>) {
-   if (/^\@end$/) {
-      $ignore = 1;
-   } elsif (/^[0-9]+ \@bop0$/) {
-      $ignore = 0;
-      $header = 1;
-   } elsif ($header) {
-      if (/^\/([a-z.0-9]+) \@newfont$/) {
-	 if (! defined($fonts{$1})) {
-	    $fonts{$1} = 1;
-	    print;
-	 } elsif ($verbose) {
-	    print STDERR "$font already defined\n";
-	 }
-      } elsif (/^([a-z.0-9]+) sf$/) {
-	 $font = $1;
-	 print;
-      } elsif (/^\[</) {
-	 $inchar = 1;
-	 push (@char, $_);
-      } elsif ($inchar) {
-	 push (@char, $_);
-	 if (/.*\] ([0-9]+) dc$/) {
-	    if (! defined($fonts{$font,$1})) {
-	       $fonts{$font,$1} = 1;
-	       print (@char);
-	    } elsif ($verbose) {
-	       print STDERR "$font character $1 already defined\n";
-	    }
-	    $inchar = 0;
-	    @char = ();
-	 }
-      } elsif (/^([0-9]+) \@bop1$/) {
-	 $header = 0;
-	 push (@body, "%%Page: ? $1\n");
-	 push (@body, $_);
-      } else {
-	 print;
-      }
-   } elsif (! $ignore) {
-      push (@body, $_);
-   }
-}
-print (@body);
-print ("\@end\n");
-
-- 
cgit v1.2.3