Changeset 21194 for v6/smop/sm0p.pl

Show
Ignore:
Timestamp:
07/03/08 22:07:58 (5 months ago)
Author:
pmurias
Message:

[smop] added a SM0P_FASTER env var to used the new parser

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • v6/smop/sm0p.pl

    r19870 r21194  
    4242    my $code = shift; 
    4343    my ($writer, $reader, $error) = map { gensym } 1..3; 
    44     my $pid = open3($writer, $reader, $error, 'perl', 
    45                     '-I'.$base.'/../v6-KindaPerl6/compiled/perl5-kp6-mp6/lib', 
    46                     $base.'/sm0p/KP6sm0p.pl'); 
     44    my $pid; 
     45    if ($ENV{SM0P_FASTER}) { 
     46        $pid = open3($writer, $reader, $error, 'perl','-I'.$base.'/../../misc/sm0p', $base.'/../../misc/sm0p/sm0p_with_actions') || die "$@"; 
     47    } else { 
     48        $pid = open3($writer, $reader, $error, 'perl', '-I'.$base.'/../v6-KindaPerl6/compiled/perl5-kp6-mp6/lib',$base.'/sm0p/KP6sm0p.pl'); 
     49    } 
    4750    print {$writer} $code; 
    4851    close $writer; 
     52    print join '', <$error> if $ENV{SM0P_FASTER}; 
    4953    my $ret = join '', <$reader>; 
    5054    die 'Bad sm0p code at '.$in unless $ret && $ret ne "\n";