From 6d2c3ccd0bfa00958a0b634ca45639ea6ab4809b Mon Sep 17 00:00:00 2001
From: Dima Kogan <dkogan@cds.caltech.edu>
Date: Wed, 4 Feb 2009 13:22:03 -0800
Subject: [PATCH] drivegnuplots: tabs->spaces. whitespace modifications only

Ignore-this: 8f3c72e2b8ce91f6eb13d7c6db6e38f2

darcs-hash:20090204212203-0cb85-8f340682a9daae2825be0b6a3dc743e5434b13f9.gz
---
 driveGnuPlots.pl | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/driveGnuPlots.pl b/driveGnuPlots.pl
index 9e64af0..00c3cbc 100755
--- a/driveGnuPlots.pl
+++ b/driveGnuPlots.pl
@@ -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);
           }
         }