Changeset 22567 for src/perl6

Timestamp:

10/10/08 18:43:06 (6 weeks ago)

Author:

lwall

Message:

[viv] --match to attach match objects

Files:

• src/perl6/viv (modified) (3 diffs)

src/perl6/viv

@@ -13 +13 @@
 $::ACTIONS = 'Actions';
 my $OPT_pos = 0;
+my $OPT_match = 0;
 
 sub MAIN {
@@ -29 +30 @@
         }
         elsif ($switch eq '--pos') {
-            $OPT_pos = 1;
+            $OPT_pos = 1;       # attach position and prior ws len
+        }
+        elsif ($switch eq '--match') {
+            $OPT_match = 1;     # attach match object
         }
     }
@@ -63 +67 @@
         gen_class($class);
         bless $r, $class unless ref($r) =~ /^VAST/;
+        $r->{MATCH} = $match if $OPT_match;
         $match->{''} = $r;
     }