File Coverage

blib/lib/Net/SPOCP/SExpr/Parser.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	16	18	88.8

####################################################################
#
#    This file was generated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
package Net::SPOCP::SExpr::Parser;
use vars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
use Parse::Yapp::Driver;



sub new {
        my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yystates =>
[
	{#State 0
		ACTIONS => {
			"(" => 2
		},
		GOTOS => {
			'sexp' => 1
		}
	},
	{#State 1
		ACTIONS => {
			'' => 3
		}
	},
	{#State 2
		DEFAULT => -3,
		GOTOS => {
			'list' => 4
		}
	},
	{#State 3
		DEFAULT => 0
	},
	{#State 4
		ACTIONS => {
			"(" => 2,
			")" => 6,
			'ATOM' => 7
		},
		GOTOS => {
			'sexp' => 8,
			'element' => 5
		}
	},
	{#State 5
		DEFAULT => -2
	},
	{#State 6
		DEFAULT => -1
	},
	{#State 7
		DEFAULT => -4
	},
	{#State 8
		DEFAULT => -5
	}
],
                                  yyrules  =>
[
	[#Rule 0
		 '$start', 2, undef
	],
	[#Rule 1
		 'sexp', 3,
sub
#line 5 "SPOCP/SExpr/Parser.y"
{ $_[2]; }
	],
	[#Rule 2
		 'list', 2,
sub
#line 8 "SPOCP/SExpr/Parser.y"
{ push(@{$_[1]}, $_[2]); $_[1] }
	],
	[#Rule 3
		 'list', 0,
sub
#line 9 "SPOCP/SExpr/Parser.y"
{ []; }
	],
	[#Rule 4
		 'element', 1,
sub
#line 12 "SPOCP/SExpr/Parser.y"
{ $_[1]; }
	],
	[#Rule 5
		 'element', 1,
sub
#line 13 "SPOCP/SExpr/Parser.y"
{ $_[1]; }
	]
],
                                  @_);
    bless($self,$class);
}

#line 16 "SPOCP/SExpr/Parser.y"


sub yylex
{
  my $parser = shift;

  $parser->YYData->{INPUT} or return('', undef);

  $parser->YYData->{INPUT} =~ s/^\s+//;
  $parser->YYData->{INPUT} =~ s/^#.*$//;

  for ($parser->YYData->{INPUT})
  {
    s/^([\(\)])// and return($1, undef);
    s/^([^\s\(\)]+)// and return('ATOM',$1);
    s/^(.)//s and return($1, $1);
  }
  return('', undef)
}

sub yyerror
{
  my ($msg, $s) = @_;
  die "$msg\n";
}

1;