diff options
| author | Adam Russell <adamcrussell@outlook.com> | 2025-06-05 18:00:16 -0400 |
|---|---|---|
| committer | Adam Russell <adamcrussell@outlook.com> | 2025-06-05 18:00:16 -0400 |
| commit | b3aa6e68dadb04e7cc2e90c8b7c76de8f46945f4 (patch) | |
| tree | 7a6a148c88ddf02ede93dd3d37b9ce40bdd64fd2 | |
| parent | 4ec709f326872dcbc565cf1d7fb093adf80e8eb5 (diff) | |
| download | perlweeklychallenge-club-b3aa6e68dadb04e7cc2e90c8b7c76de8f46945f4.tar.gz perlweeklychallenge-club-b3aa6e68dadb04e7cc2e90c8b7c76de8f46945f4.tar.bz2 perlweeklychallenge-club-b3aa6e68dadb04e7cc2e90c8b7c76de8f46945f4.zip | |
removed generated file
| -rw-r--r-- | challenge-323/adam-russell/perl/IncrementDecrement.pm | 220 |
1 files changed, 0 insertions, 220 deletions
diff --git a/challenge-323/adam-russell/perl/IncrementDecrement.pm b/challenge-323/adam-russell/perl/IncrementDecrement.pm deleted file mode 100644 index 41b6b03dd5..0000000000 --- a/challenge-323/adam-russell/perl/IncrementDecrement.pm +++ /dev/null @@ -1,220 +0,0 @@ -#################################################################### -# -# This file was generated using Parse::Yapp version 1.21. -# -# Don't edit this file, use source file instead. -# -# ANY CHANGE MADE HERE WILL BE LOST ! -# -#################################################################### -package IncrementDecrement; -use vars qw ( @ISA ); -use strict; - -@ISA= qw ( Parse::Yapp::Driver ); -use Parse::Yapp::Driver; - -#line 10 "perl/IncrementDecrement.yp" - - my $variable_state = {}; - - -sub new { - my($class)=shift; - ref($class) - and $class=ref($class); - - my($self)=$class->SUPER::new( yyversion => '1.21', - yystates => -[ - {#State 0 - ACTIONS => { - 'DECREMENT' => 2, - 'INCREMENT' => 7, - 'LETTER' => 1 - }, - GOTOS => { - 'program' => 9, - 'decrement_variable' => 8, - 'increment_decrement' => 4, - 'increment_variable' => 3, - 'variable_declaration' => 6, - 'statement' => 5 - } - }, - {#State 1 - ACTIONS => { - 'INCREMENT' => 11, - 'DECREMENT' => 10 - }, - DEFAULT => -5 - }, - {#State 2 - ACTIONS => { - 'LETTER' => 12 - } - }, - {#State 3 - DEFAULT => -6 - }, - {#State 4 - DEFAULT => -4 - }, - {#State 5 - DEFAULT => -1 - }, - {#State 6 - DEFAULT => -3 - }, - {#State 7 - ACTIONS => { - 'LETTER' => 13 - } - }, - {#State 8 - DEFAULT => -7 - }, - {#State 9 - ACTIONS => { - '' => 15, - 'LETTER' => 1, - 'INCREMENT' => 7, - 'DECREMENT' => 2 - }, - GOTOS => { - 'statement' => 14, - 'variable_declaration' => 6, - 'increment_variable' => 3, - 'decrement_variable' => 8, - 'increment_decrement' => 4 - } - }, - {#State 10 - DEFAULT => -11 - }, - {#State 11 - DEFAULT => -9 - }, - {#State 12 - DEFAULT => -10 - }, - {#State 13 - DEFAULT => -8 - }, - {#State 14 - DEFAULT => -2 - }, - {#State 15 - DEFAULT => 0 - } -], - yyrules => -[ - [#Rule 0 - '$start', 2, undef - ], - [#Rule 1 - 'program', 1, -sub -#line 19 "perl/IncrementDecrement.yp" -{$variable_state} - ], - [#Rule 2 - 'program', 2, undef - ], - [#Rule 3 - 'statement', 1, undef - ], - [#Rule 4 - 'statement', 1, undef - ], - [#Rule 5 - 'variable_declaration', 1, -sub -#line 27 "perl/IncrementDecrement.yp" -{$variable_state->{$_[1]} = 0} - ], - [#Rule 6 - 'increment_decrement', 1, undef - ], - [#Rule 7 - 'increment_decrement', 1, undef - ], - [#Rule 8 - 'increment_variable', 2, -sub -#line 34 "perl/IncrementDecrement.yp" -{$variable_state->{$_[2]}++} - ], - [#Rule 9 - 'increment_variable', 2, -sub -#line 35 "perl/IncrementDecrement.yp" -{$variable_state->{$_[1]}++} - ], - [#Rule 10 - 'decrement_variable', 2, -sub -#line 38 "perl/IncrementDecrement.yp" -{$variable_state->{$_[2]}--} - ], - [#Rule 11 - 'decrement_variable', 2, -sub -#line 39 "perl/IncrementDecrement.yp" -{$variable_state->{$_[1]}--} - ] -], - @_); - bless($self,$class); -} - -#line 44 "perl/IncrementDecrement.yp" - - - - - sub lexer{ - my($parser) = @_; - $parser->YYData->{INPUT} or return(q//, undef); - $parser->YYData->{INPUT} =~ s/^[ \t]//g; - ## - # send tokens to parser - ## - for($parser->YYData->{INPUT}){ - s/^(\s+)// and return (q/SPACE/, $1); - s/^([a-z]{1})// and return (q/LETTER/, $1); - s/^(\+\+)// and return (q/INCREMENT/, $1); - s/^(--)// and return (q/DECREMENT/, $1); - } - } - - - sub parse{ - my($self, $input) = @_; - $input =~ tr/\t/ /s; - $input =~ tr/\n/ /s; - $self->YYData->{INPUT} = $input; - my $result = $self->YYParse(yylex => \&lexer, yyerror => \&error); - return $result; - } - - - sub error{ - exists $_[0]->YYData->{ERRMSG} - and do{ - print $_[0]->YYData->{ERRMSG}; - return; - }; - print "syntax error\n"; - } - - - sub clear{ - my($self) = @_; - $variable_state = {}; - } - - - -1; |
