Changeset 21570 for misc

Timestamp:

07/27/08 16:26:10 (6 months ago)

Author:

pmurias

Message:

[elf] removed old on_smop attempts

Location:

misc/elfish

Files:

• elfX/EmitSM0P.pm (modified) (2 diffs)
• elfX/elfX (modified) (2 diffs)
• on_smop_xa (deleted)
• on_smop_xb (deleted)

misc/elfish/elfX/EmitSM0P.pm

@@ -50 +50 @@
           $positionals = $positionals ~ $.e($arguments[$i],"pos_"~$id~"_"~$i);
       }
-      "# method call " ~ $id ~ "\n" ~
+      #"# method call " ~ $id ~ "\n" ~
       $.e($n.invocant,'i_'~$id) ~
       'ic_'~$id~': $SMOP__SLIME__CurrentFrame.copy(`i_' ~ $id ~ ");\n" ~
@@ -81 +81 @@
       $label ~ ": " ~ $n.text ~ ";\n";
   }
+  method cb__SubDecl ($n,$label) {
+      $label ~ ": " ~ "q:sm0p {\n"~ $.e($n.block.statements).join(';') ~ "};\n"
+  }
   method cb__Var ($n,$label) {
       if $n.sigil eq '$' and $n.twigil ne '*' {

misc/elfish/elfX/elfX

@@ -3556 +3556 @@
 (do{($positionals = ($positionals . $self->e($arguments->[$i], ((("pos_" . $id) . "_") . $i))))})}->($_)
 };
-((((((((((((((((((((((((("\#\ method\ call\ " . $id) . "\
-") . $self->e($n->invocant(), ("i_" . $id))) . "ic_") . $id) . "\:\ \$SMOP__SLIME__CurrentFrame\.copy\(\`i_") . $id) . "\)\;\
+(((((((((((((((((((((($self->e($n->invocant(), ("i_" . $id)) . "ic_") . $id) . "\:\ \$SMOP__SLIME__CurrentFrame\.copy\(\`i_") . $id) . "\)\;\
 ") . "id_") . $id) . "\:\ q\:identifier\[") . $n->method()->re_gsub(qr/\]/, "\\\]")) . "\]\;\
 ") . $positionals) . "\$SMOP__SLIME__CurrentFrame\.move_responder\(\`ic_") . $id) . "\,3\)\;\
@@ -3583 +3582 @@
 sub cb__NumInt{my $self=CORE::shift;my($n,$label)=@_;
 (do{((($label . "\:\ ") . $n->text()) . "\;\
+")})};
+sub cb__SubDecl{my $self=CORE::shift;my($n,$label)=@_;
+(do{(((($label . "\:\ ") . "q\:sm0p\ \{\
+") . $self->e($n->block()->statements())->join("\;")) . "\}\;\
 ")})};
 sub cb__Var{my $self=CORE::shift;my($n,$label)=@_;