From 3212162b7167202a54c789a4f8b06643666a53d2 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Wed, 30 Nov 2011 19:38:53 +0100
Subject: [PATCH] Utils: Uz nepotrebujeme

---
 utils/pstopsfix | 35 -----------------------------------
 1 file changed, 35 deletions(-)
 delete mode 100755 utils/pstopsfix

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;
-- 
2.39.2