+++ /dev/null
-#!/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 $