Changeset 21519 for misc

Show
Ignore:
Timestamp:
07/24/08 23:01:25 (6 months ago)
Author:
pmurias
Message:

[s1p] fixed .!

Location:
misc/elfish/elfX
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • misc/elfish/elfX/IRx1_FromAST.pm

    r21514 r21519  
    139139 
    140140    $main::irbuilder.add_constructor('dotty:.^!', sub ($m) { 
    141       IRx1::Call.newp($m,$+blackboard::expect_term_base,'.^!'~irbuild_ir($m.{'hash'}{'methodop'}.{'hash'}{'ident'}),IRx1::Capture.newp($m,irbuild_ir($m.{'hash'}{'methodop'}.{'hash'}{'semilist'})||[])); 
     141      IRx1::Call.newp($m,$+blackboard::expect_term_base,'^!'~irbuild_ir($m.{'hash'}{'methodop'}.{'hash'}{'ident'}),IRx1::Capture.newp($m,irbuild_ir($m.{'hash'}{'methodop'}.{'hash'}{'semilist'})||[])); 
    142142    }); 
    143143 

  • misc/elfish/elfX/IRx1_FromAST_create.pl

    r21514 r21519  
    7878 
    7979dotty:.^! 
    80 Call.newp($+blackboard::expect_term_base,'.^!'~$m<methodop><ident>,Capture.newp($m<methodop><semilist>||[])) 
     80Call.newp($+blackboard::expect_term_base,'^!'~$m<methodop><ident>,Capture.newp($m<methodop><semilist>||[])) 
    8181 
    8282dotty:postcircumfix 

  • misc/elfish/elfX/elfX

    r21514 r21519  
    19221922(do{IRx1::Call->newp($m, $::es_blackboard__expect_term_base, irbuild_ir($m->{"hash"}->{"ident"}), IRx1::Capture->newp($m, (irbuild_ir($m->{"hash"}->{"semilist"}) || [])))})}); 
    19231923$main::irbuilder->add_constructor("dotty\:\.\^\!", sub {my($m)=@_; 
    1924 (do{IRx1::Call->newp($m, $::es_blackboard__expect_term_base, ("\.\^\!" . irbuild_ir($m->{"hash"}->{"methodop"}->{"hash"}->{"ident"})), IRx1::Capture->newp($m, (irbuild_ir($m->{"hash"}->{"methodop"}->{"hash"}->{"semilist"}) || [])))})}); 
     1924(do{IRx1::Call->newp($m, $::es_blackboard__expect_term_base, ("\^\!" . irbuild_ir($m->{"hash"}->{"methodop"}->{"hash"}->{"ident"})), IRx1::Capture->newp($m, (irbuild_ir($m->{"hash"}->{"methodop"}->{"hash"}->{"semilist"}) || [])))})}); 
    19251925$main::irbuilder->add_constructor("dotty\:postcircumfix", sub {my($m)=@_; 
    19261926(do{my $s = ($m->match_string());