[llvm-commits] CVS: llvm/utils/cgiplotNLT.pl webNLT.pl

[Andrew Lenharth]

Changes in directory llvm/utils:

cgiplotNLT.pl updated: 1.1 -> 1.2
webNLT.pl updated: 1.1 -> 1.2
---
Log message:

now with a legend, and multiple lines work.



---
Diffs of the changes:  (+10 -6)

 cgiplotNLT.pl |    3 ++-
 webNLT.pl     |   13 ++++++++-----
 2 files changed, 10 insertions(+), 6 deletions(-)


Index: llvm/utils/cgiplotNLT.pl
diff -u llvm/utils/cgiplotNLT.pl:1.1 llvm/utils/cgiplotNLT.pl:1.2
--- llvm/utils/cgiplotNLT.pl:1.1	Fri May 20 12:33:42 2005
+++ llvm/utils/cgiplotNLT.pl	Fri May 20 12:50:51 2005
@@ -27,6 +27,7 @@
 print "Content-type: image/png", "\n\n";
 
 open CMDSTREAM, "|gnuplot";
+#open CMDSTREAM, "|echo";
 
 print CMDSTREAM "set terminal png\n";
 print CMDSTREAM "set output\n";
@@ -36,7 +37,7 @@
 for ($iter = 0; $iter < $count; $iter++) {
   if ($iter)
     { print CMDSTREAM ","; }
-  print CMDSTREAM " '-' using 1:2 with lines";
+  print CMDSTREAM " '-' using 1:2 title \"" . $q->param('t' . $iter) . "," . $q->param('n' . $iter) . "\"with lines";
 }
 
 print CMDSTREAM "\n";


Index: llvm/utils/webNLT.pl
diff -u llvm/utils/webNLT.pl:1.1 llvm/utils/webNLT.pl:1.2
--- llvm/utils/webNLT.pl:1.1	Fri May 20 12:33:42 2005
+++ llvm/utils/webNLT.pl	Fri May 20 12:50:51 2005
@@ -61,15 +61,18 @@
       {
         my @names = $q->param('name');
         my @tests = $q->param('test');
+        print "<P>";
+        print join "<BR>", @names;
+        print "<P>";
+        print join "<BR>", @tests;
+        print "<P>";
         $str = "pwd=" . $q->param('pwd');
         $count = 0;
-        while (@names)
+        foreach $n (@names)
           {
-            $n = pop @names;
-            while (@tests)
+            foreach $t (@tests)
               {
-                $t = pop @tests;
-                $str .= "&t$count=$t&n$count=$n";
+                $str = "$str&t$count=$t&n$count=$n";
                 $count++;
               }
           }