From: Martin Mares <mj@ucw.cz>
Date: Wed, 30 Nov 2011 18:38:53 +0000 (+0100)
Subject: Utils: Uz nepotrebujeme
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=3212162b7167202a54c789a4f8b06643666a53d2;p=ads2.git

Utils: Uz nepotrebujeme
---

diff --git a/utils/pstopsfix b/utils/pstopsfix
deleted file mode 100755
index bdea303..0000000
--- a/utils/pstopsfix
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/usr/bin/perl
-# A filter for fixing PS generated by pstops
-# (c) 2008 Martin Mares <mj@ucw.cz>
-
-my $seen_procset = 0;
-my @procset = ();
-my $seen_setup = 0;
-while (<>) {
-	if (/^%%BeginProcSet: PStoPS/) {
-		$seen_procset = 1;
-	} elsif ($seen_procset == 1) {
-		if (/^%%EndProcSet/) {
-			$seen_procset = 2;
-		} else {
-			push @procset, $_;
-		}
-	} elsif (/^%%BeginSetup/) {
-		print;
-		if ($seen_procset == 2) {
-			print "%%BeginFeature: PStoPS\n";
-			print join("", @procset);
-			print "%%EndFeature\n";
-			$seen_procset = 3;
-		}
-		$seen_setup = 1;
-	} else {
-		print;
-	}
-}
-
-$seen_setup or die "No setup section seen\n";
-$seen_procset or die "No PStoPS procset seen\n";
-$seen_procset >= 2 or die "PStoPS procset not terminated\n";
-$seen_procset >= 3 or die "Setup section precedes PStoPS procset\n";
-exit 0;