From 02a24fbe1444965d9384aa44e4fdf8501426e98e Mon Sep 17 00:00:00 2001
From: ianmdlvl <ianmdlvl>
Date: Wed, 24 Mar 2004 23:54:00 +0000
Subject: [PATCH] remove gnucap2gnuplot

---
 scripts/gnucap2gnuplot | 33 ---------------------------------
 1 file changed, 33 deletions(-)
 delete mode 100755 scripts/gnucap2gnuplot

diff --git a/scripts/gnucap2gnuplot b/scripts/gnucap2gnuplot
deleted file mode 100755
index d9fc711..0000000
--- a/scripts/gnucap2gnuplot
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/perl
-
-sub fail ($) { die "gnucap2gnuplot: $_[0]\n"; }
-
-while ($ARGV[0] =~ m/^\-./) {
-    if (m/^\-\-$/) {
-	last;
-    } elsif (m/^\-g$/) {
-	$rungnucap= 1;
-    } elsif (m/^\-G$/) {
-	$rungnucap= 0;
-    } elsif (m/^\-o(.+)$/) {
-	$ofb= $1;
-    } else {
-	fail("unknown option $_\n");
-    }
-}
-
-if (@ARGV) {
-    @ARGV==1 or fail("one input file only please");
-    $if= shift @ARGV;
-    $ofb= $if unless defined $ofb;
-    $rungnucap= $if =~ m/\.cir$/i unless defined $rungnucap;
-    open STDIN, $rungnucap ? "gnucap -b $if |" : "< $if"
-	or fail("open $if: $!");
-} else {
-    fail("cannot run gnucap on stdin, run it yourself") if $rungnucap;
-    fail("you must specify -o... when running from stdin") unless defined $ofb;
-}
-
-$sof= "./$sof" unless $sof =~ m,/,;
-
-# $Id: gnucap2gnuplot,v 1.4 2004-03-24 23:53:41 ianmdlvl Exp $
-- 
2.30.2