Changeset 21629 for misc

Timestamp:

07/30/08 08:34:48 (5 months ago)

Author:

pmurias

Message:

[elfX] sub {...}, lack of support from smop yet

Location:

misc/elfish/elfX

Files:

• EmitSM0P.pm (modified) (3 diffs)
• elfX (modified) (3 diffs)

misc/elfish/elfX/EmitSM0P.pm

@@ -34 +34 @@
   }
   method cb__CompUnit ($n) {
-      "# this is autogenerated sm0p code\n" ~ ";\n" ~ $.e($n.statements).join(';');
+      "# this is autogenerated sm0p code\n" ~ ";\n" ~ $.e($n.statements).join('');
   }
   method capturize($arguments,$id) {
@@ -72 +72 @@
           '$SMOP__SLIME__CurrentFrame.move_capturize('~self.capturize($arguments,$id)~");\n" ~
           $ret ~ ': $continuation.$SMOP__ID__setr();' ~ "\n"
+      } elsif ($n.function eq 'circumfix:( )') {
+          $n.capture.arguments[0].callback(self,$ret);
+      } else {
+          die "unsupported form of Apply\n";
       }
   }
@@ -81 +85 @@
       $label ~ ": " ~ $n.text ~ ";\n";
   }
+  method cb__Block ($n,$label) {
+      $label ~ ": " ~ "{\n"~ $.e($n.statements).join('') ~ "};\n"
+  }
   method cb__SubDecl ($n,$label) {
-      $label ~ ": " ~ "q:sm0p {\n"~ $.e($n.block.statements).join(';') ~ "};\n"
+      IRx1::Call.new('invocant',IRx1::Var.new('sigil','::','name','Code'),'method','new','capture',IRx1::Capture.new('arguments',[$n.block])).callback(self,$label);
   }
+
   method cb__Var ($n,$label) {
       if $n.sigil eq '$' and $n.twigil ne '*' {

misc/elfish/elfX/elfX

@@ -3540 +3540 @@
 (do{(("\#\ this\ is\ autogenerated\ sm0p\ code\
 " . "\;\
-") . $self->e($n->statements())->join("\;"))})};
+") . $self->e($n->statements())->join(""))})};
 sub capturize{my $self=CORE::shift;my($arguments,$id)=@_;
 (do{my $positionals = $arguments->keys()->map(sub {my($k)=@_;
@@ -3576 +3576 @@
 ") . $ret) . "\:\ \$continuation\.\$SMOP__ID__setr\(\)\;") . "\
 ")})
+}elsif((($n->function() eq "circumfix\:\(\ \)"))) {
+(do{$n->capture()->arguments()->[0]->callback($self, $ret)})
+}else {
+(do{GLOBAL::die("unsupported\ form\ of\ Apply\
+")})
 }})};
 sub cb__Buf{my $self=CORE::shift;my($n,$label)=@_;
@@ -3583 +3588 @@
 (do{((($label . "\:\ ") . $n->text()) . "\;\
 ")})};
+sub cb__Block{my $self=CORE::shift;my($n,$label)=@_;
+(do{(((($label . "\:\ ") . "\{\
+") . $self->e($n->statements())->join("")) . "\}\;\
+")})};
 sub cb__SubDecl{my $self=CORE::shift;my($n,$label)=@_;
-(do{(((($label . "\:\ ") . "q\:sm0p\ \{\
-") . $self->e($n->block()->statements())->join("\;")) . "\}\;\
-")})};
+(do{IRx1::Call->new("invocant", IRx1::Var->new("sigil", "\:\:", "name", "Code"), "method", "new", "capture", IRx1::Capture->new("arguments", [$n->block()]))->callback($self, $label)})};
 sub cb__Var{my $self=CORE::shift;my($n,$label)=@_;
 (do{if((($n->sigil() eq "\$") and ($n->twigil() ne "\*"))) {