6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-12 13:30:51 +00:00
Code Issues Projects Releases Wiki Activity

now with a legend, and multiple lines work.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@22153 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Andrew Lenharth 2005-05-20 17:50:51 +00:00
parent 24d77506d0
commit edd47f21c5
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
utils/cgiplotNLT.pl
View File

@ -27,6 +27,7 @@ $| = 1;
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 @@ print CMDSTREAM "\nplot";
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";

13
utils/webNLT.pl
View File

@ -61,15 +61,18 @@ else
{
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++;
}
}