chiark
/
gitweb
/
~ian
/
chiark-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
hexterm
[chiark-utils.git]
/
scripts
/
genspic2gnuplot
diff --git
a/scripts/genspic2gnuplot
b/scripts/genspic2gnuplot
index 1cb0fff5e5657d7b1dad97f2bfe68ae5a6987f81..11ee8b82d2a19476f288df27ce7f2f62a3b6f980 100755
(executable)
--- a/
scripts/genspic2gnuplot
+++ b/
scripts/genspic2gnuplot
@@
-52,7
+52,6
@@
END
for (;;) {
($c,@s)= split /\s+/, <STDIN>;
for (;;) {
($c,@s)= split /\s+/, <STDIN>;
-print STDERR ">$c< >@s<\n";
if ($c eq 'S') {
($cplot,$logxy,@columns) = @s;
$cplot .= $counter{$cplot}++;
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
@mmm= map { s/^(\w+)\:// or die; $1; } @columns;
open S, "> $ofb,$cplot.gnuplot-cmd" or die $!;
print S <<END
-set data style lines
points
+set data style lines
set title '$cplot'
END
or die $!;
set title '$cplot'
END
or die $!;
@@
-96,7
+95,6
@@
END
} elsif ($c eq 'D') {
die unless @mmm;
@numbers= @s;
} 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];
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 $!;
print ": generated ; $sof\n" or die $!;
-# $Id: genspic2gnuplot,v 1.
2 2004-03-25 00:29:59
ianmdlvl Exp $
+# $Id: genspic2gnuplot,v 1.
4 2004-03-25 02:04:48
ianmdlvl Exp $