Show
Ignore:
Timestamp:
07/04/08 13:39:38 (5 months ago)
Author:
pmurias
Message:

[pixie] arrays are marked in the dumps, stranger token names work more often

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • misc/pixie/insert_actions

    r21110 r21213  
    1717my ($name); 
    1818for (<$std>) { 
    19     if (/(?:token|rule) ([\w:]+)/) { 
     19    if (/(?:regex|rule|token) \s+ ([:\w]+?(?:sym<.*?>)?)\s/x) { 
    2020        $name = $1; 
     21        $name =~ s/:sym<(.*)>/$1/; 
    2122#        warn YELLOW,"$name",RESET; 
    2223    } 
    23     if (/\{\*\} \s* (?:\#=(.*))?/x) { 
     24    if (/\{\*\} .*? (?:\#=(.*))?$/x) { 
    2425        my $tag = $1 || "";  
    2526        my $full_name = $name . $tag; 
    26 #        warn "inserting ".GREEN.$full_name.RESET if $actions{$full_name}; 
     27#        warn "inserting ".GREEN.$full_name.RESET."\n".$_ if $actions{$full_name}; 
    2728#        warn "not inserting <".RED.$full_name.RESET.">" unless $actions{$full_name}; 
    2829        my $content = $actions{$full_name} // "*";