Changeset 21627 for misc

Timestamp:

07/30/08 06:45:06 (5 months ago)

Author:

Auzon

Message:

[evalbot] STD.pm on evalbot, first attempt. We'll see how this goes.

Files:

• misc/evalbot/evalbot.pl (modified) (3 diffs)

misc/evalbot/evalbot.pl

@@ -81 +81 @@
             },
             yap6 => \&exec_yap6,
+            std  => {
+                chdir       => '../../src/perl6',
+                cmd_line    => $^X . ' tryfile %program >> %out 2>&1',
+                revision    => \&get_revision,
+                filter      => \&filter_std,
+            },
     );
 
@@ -139 +145 @@
         my ($program, $fh, $filename) = @_;
         chdir('../yap6/src')
-            or confess("Can't chdir to elf base dir: $!");
+            or confess("Can't chdir to yap6 base dir: $!");
         my ($tmp_fh, $name) = tempfile();
         if ($program =~ m/\|\|\|/){
@@ -194 +200 @@
     }
 
-
+    sub filter_std {
+        my $str = shift;
+        if($str =~ /#+ PARSE FAILED #+/) {
+            my @lines = split /\n/, $str;
+            return $lines[1];
+        } else {
+            return 'parse ok';
+        }
+    }
 }