src/perl6/std

   1 #!/usr/local/bin/perl
   2
   3 use STD;
   4 use utf8;
   5
   6 use Actions;
   7
   8 my $failures = 0;
   9
  10 @ARGV = 'CORE.setting' unless @ARGV;
  11
  12 for my $file (@ARGV) {
  13     warn $file,"\n" if @ARGV > 1;
  14     my $setting = "CORE";
  15     $setting = "NULL" if $file eq 'CORE.setting';
  16     my $r;
  17     eval {
  18         $r = STD->parsefile($file, setting => $setting, actions => 'Actions')->{'_ast'};
  19     };
  20     if ($@) {
  21         warn $@;
  22         $failures++;
  23     }
  24 }
  25 my ($time, $vsz) = split(' ', `ps -o "time= vsz=" $$`);
  26 $time =~ s/^00://;
  27 $vsz =~ s/\d\d\d$/m/;
  28 if ($failures) {
  29     if ($vsz) {
  30         warn "std FAILED $time $vsz @ARGV\n";
  31     }
  32     else {
  33         warn "std FAILED @ARGV\n";
  34     }
  35     exit $failures;
  36 }
  37 elsif ($vsz) {
  38     warn "ok $time $vsz @ARGV\n";
  39 }
  40 else {
  41     warn "ok @ARGV\n";
  42 }
  43
  44 { package VAST::Additive; }
  45 { package VAST::Autoincrement; }
  46 { package VAST::Base; }
  47 { package VAST::Chaining; }
  48 { package VAST::Comma; }
  49 { package VAST::Concatenation; }
  50 { package VAST::Conditional; }
  51 { package VAST::Exponentiation; }
  52 { package VAST::Item_assignment; }
  53 { package VAST::Junctive_and; }
  54 { package VAST::Junctive_or; }
  55 { package VAST::List_assignment; }
  56 { package VAST::List_infix; }
  57 { package VAST::List_prefix; }
  58 { package VAST::Loose_and; }
  59 { package VAST::Loose_or; }
  60 { package VAST::Loose_unary; }
  61 { package VAST::Methodcall; }
  62 { package VAST::Multiplicative; }
  63 { package VAST::Named_unary; }
  64 { package VAST::Replication; }
  65 { package VAST::Sequencer; }
  66 { package VAST::Structural_infix; }
  67 { package VAST::Symbolic_unary; }
  68 { package VAST::Term; }
  69 { package VAST::Tight_and; }
  70 { package VAST::Tight_or; }