chiark / gitweb /
update licence to GPLv3 or later (was GPLv2 or later).
[chiark-utils.git] / scripts / genspic2gnuplot
index 1cb0fff5e5657d7b1dad97f2bfe68ae5a6987f81..7ba71c892ed172663ae92cdbca2594eb1577cd47 100755 (executable)
@@ -23,7 +23,7 @@
 # This program and its documentation are free software; you can
 # redistribute them and/or modify them under the terms of the GNU
 # General Public License as published by the Free Software Foundation;
-# either version 2, or (at your option) any later version.
+# either version 3, or (at your option) any later version.
 # 
 # This program and its documentation are distributed in the hope that
 # they will be useful, but WITHOUT ANY WARRANTY; without even the
@@ -52,7 +52,6 @@ END
 
 for (;;) {
     ($c,@s)= split /\s+/, <STDIN>;
-print STDERR ">$c< >@s<\n";
     if ($c eq 'S') {
        ($cplot,$logxy,@columns) = @s;
        $cplot .= $counter{$cplot}++;
@@ -60,7 +59,7 @@ print STDERR ">$c< >@s<\n";
        @mmm= map { s/^(\w+)\:// or die; $1; } @columns;
        open S, "> $ofb,$cplot.gnuplot-cmd" or die $!;
        print S <<END
-set data style linespoints
+set data style lines
 set title '$cplot'
 END
         or die $!;
@@ -96,7 +95,6 @@ END
     } elsif ($c eq 'D') {
        die unless @mmm;
        @numbers= @s;
-print STDERR "$#numbers $#columns.\n";
        die unless @numbers == @columns;
        for ($yn=0; $yn<=$#columns; $yn++) {
            $_= $numbers[$yn];
@@ -126,4 +124,4 @@ close A or die $!;
 
 print ": generated ; $sof\n" or die $!;
 
-# $Id: genspic2gnuplot,v 1.2 2004-03-25 00:29:59 ianmdlvl Exp $
+# $Id: genspic2gnuplot,v 1.5 2007-09-21 20:59:02 ianmdlvl Exp $