zhangyiss/feedgnuplot
1
0
Fork 0
mirror of https://github.com/dkogan/feedgnuplot.git synced 2025-08-08 13:06:38 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

drivegnuplots: tabs->spaces. whitespace modifications only

Browse Source 
Ignore-this: 8f3c72e2b8ce91f6eb13d7c6db6e38f2

darcs-hash:20090204212203-0cb85-8f340682a9daae2825be0b6a3dc743e5434b13f9.gz
This commit is contained in:
Dima Kogan 2009-02-04 13:22:03 -08:00
parent cc96aac692
commit 6d2c3ccd0b
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
driveGnuPlots.pl
View File

@ -16,8 +16,8 @@ OEF
sub Arg {
if ($#ARGV < $_[0]) {
print "Expected parameter missing...\n\n";
usage;
print "Expected parameter missing...\n\n";
usage;
}
$ARGV[int($_[0])];
}
@ -68,7 +68,7 @@ sub main {
my $xcounter = 0;
plotHeader($xcounter, $samples, $numberOfStreams, *PIPE);
while(<>) {
chomp;
chomp;
my $line = $_;
foreach my $point ($line =~ /([-]?[0-9\.]+)/g)
{
@ -79,19 +79,19 @@ sub main {
my $cnt = 0;
for my $elem (reverse @{$buf}) {
#print " ".$elem;
print PIPE ($xcounter-$cnt)." ".$elem."\n";
$cnt++;
#print " ".$elem;
print PIPE ($xcounter-$cnt)." ".$elem."\n";
$cnt++;
}
#print "\n";
print PIPE "e\n";
if ($cnt>=$samples) {
shift @{$buf};
shift @{$buf};
}
$streamIdx++;
if ($streamIdx == $numberOfStreams) {
$streamIdx = 0;
$xcounter++;
$streamIdx = 0;
$xcounter++;
plotHeader($xcounter, $samples, $numberOfStreams, *PIPE);
}
}