Changeset 21193 for misc/sm0p/strip_out_actions

Timestamp:

07/03/08 22:05:08 (5 months ago)

Author:

pmurias

Message:

[sm0p] initial version of the new grammar

Files:

• misc/sm0p/strip_out_actions (modified) (2 diffs)

misc/sm0p/strip_out_actions

@@ -27 +27 @@
     my $body = $3;
     my $end = $4;
-    $body =~ s/(?<!')\{ ($block) \}/push(@blocks,["${name}__sm0p_$nr",$1]);'{*}' . "  #= sm0p_" . $nr++/egx;
+    $body =~ s/(?<!')\{ ($block) \}/push(@blocks,["${name}__sm0p_$nr",$1]);'{*}' . "  #= sm0p_" . $nr++ . "\n"
+/egx;
     $start.$body.$end;
 ]exg;
@@ -43 +44 @@
 }
 sub adapter {
-    local $_;
     if (ref $_[0] eq 'ARRAY') {
         [map {$_->item} @{$_[0]}];
+    } elsif ($_[0]) {
+        $_[0]->item;
     } else {
-        $_[0]->item;
+        $_[0]
     }
 }