chiark / gitweb /
remove gnucap2gnuplot
authorianmdlvl <ianmdlvl>
Wed, 24 Mar 2004 23:54:00 +0000 (23:54 +0000)
committerianmdlvl <ianmdlvl>
Wed, 24 Mar 2004 23:54:00 +0000 (23:54 +0000)
scripts/gnucap2gnuplot [deleted file]

diff --git a/scripts/gnucap2gnuplot b/scripts/gnucap2gnuplot
deleted file mode 100755 (executable)
index d9fc711..0000000
+++ /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 $