Permalink
Browse files

suppress missing action package warnings

  • Loading branch information...
1 parent a025490 commit d54dd12153544c09e859369e0e06adf20705e2eb @TimToady TimToady committed Sep 1, 2012
Showing with 33 additions and 6 deletions.
  1. +6 −6 Actions.pm
  2. +27 −0 viv
View
12 Actions.pm
@@ -22,9 +22,9 @@ sub AUTOLOAD {
my $r = hoistast($match);
(my $class = $AUTOLOAD) =~ s/^Actions/VAST/;
$class =~ s/__S_\d\d\d/__S_/ and $r->{_specific} = 1;
- if ($class =~ /::(infix|prefix|postfix|postcircumfix|dotty|regex_infix)__S_/) {
+ if ($class =~ /::((?:p5)?)(infix|prefix|postfix|postcircumfix|dotty|regex_infix)__S_/) {
$r->{_op} = $class;
- $class =~ s/::(infix|prefix|postfix|postcircumfix|dotty|regex_infix)__S_/::SYM_$1__S_/;
+ $class =~ s/::((?:p5)?)(infix|prefix|postfix|postcircumfix|dotty|regex_infix)__S_/::SYM_$1$2__S_/;
}
gen_class($class);
bless $r, $class unless ref($r) =~ /^VAST/;
@@ -236,7 +236,7 @@ sub LIST {
my $class =
$match->{delims}[0]{_ast}{infix}{_op} //
$match->{delims}[0]{_ast}{regex_infix}{_op} //
- warn ref($match);
+ exit warn ::Dump($match);
gen_class($class, $base);
$r = bless $r, $class;
$match->{'_ast'} = $r;
@@ -267,7 +267,7 @@ sub POSTFIX {
$match->{_ast}{postop}{postfix}{_op} //
$match->{_ast}{postop}{postcircumfix}{_op} //
$match->{_ast}{dotty}{_op} //
- warn ref($match);
+ exit warn ::Dump($match);
}
gen_class($class, $base);
@@ -301,7 +301,7 @@ sub PREFIX {
$match->{_ast}{prefix}{_op} //
$match->{_ast}{prefix_postfix_meta_operator}{_op} //
$match->{_ast}{prefix_circumfix_meta_operator}{_op} //
- warn ref($match);
+ exit warn ::Dump($match);
}
gen_class($class,$base);
@@ -340,7 +340,7 @@ sub INFIX {
$class =
$match->{_ast}{infix}{_op} //
$match->{_ast}{regex_infix}{_op} //
- warn ref($match);
+ exit warn ::Dump($match);
}
gen_class($class, $base);
View
27 viv
@@ -644,6 +644,10 @@ TEMPLATE
}
+{ package VAST::Assignment; our @ISA = 'VAST::Base';
+}
+
+
{ package VAST::Autoincrement; our @ISA = 'VAST::Base';
}
@@ -652,6 +656,10 @@ TEMPLATE
}
+{ package VAST::babble; our @ISA = 'VAST::Base';
+}
+
+
{ package VAST::backslash; our @ISA = 'VAST::Base';
}
@@ -709,6 +717,10 @@ TEMPLATE
}
+{ package VAST::Binding; our @ISA = 'VAST::Base';
+}
+
+
{ package VAST::block; our @ISA = 'VAST::Base';
}
@@ -780,6 +792,13 @@ TEMPLATE
}
+{ package VAST::Comma_operator; our @ISA = 'VAST::Base';
+}
+
+
+{ package VAST::Comparison; our @ISA = ('VAST::Base', 'VAST::InfixCall');
+}
+
{ package VAST::comp_unit; our @ISA = 'VAST::Base';
sub emit_p5 { my $self = shift;
@@ -1531,6 +1550,10 @@ BODY
}
+{ package VAST::Not_operator; our @ISA = 'VAST::Base';
+}
+
+
{ package VAST::nulltermish; our @ISA = 'VAST::Base';
}
@@ -2109,6 +2132,10 @@ TEXT
}
+{ package VAST::Range; our @ISA = 'VAST::Base';
+}
+
+
{ package VAST::regex_block; our @ISA = 'VAST::Base';
}

0 comments on commit d54dd12

Please sign in to comment.