view release on metacpan or  search on metacpan

bin/navegante  view on Meta::CPAN

#!/usr/bin/perl5.12
####################################################################
#
#    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 Navegante;
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
		DEFAULT => -19,
		GOTOS => {
			'actions' => 1,
			'f' => 2
		}
	},
	{#State 1
		ACTIONS => {
			"proc" => 3,
			"feedback" => 5,
			"protect" => 4,
			"save" => 6,
			"formtitle" => 7,
			"desc" => 9,
			"livefeedback" => 10,
			"proctags" => 11,
			"iform" => 12,
			"init" => 14,
			"mail" => 13,
			"annotate" => 15,
			"quit" => 16,
			'FIM' => 17,
			"iframe" => 18,
			"filename" => 19
		},
		DEFAULT => -3,
		GOTOS => {
			'fop' => 8
		}
	},
	{#State 2
		ACTIONS => {
			'' => 20
		}
	},
	{#State 3
		ACTIONS => {
			'STRING' => 21
		}
	},
	{#State 4
		ACTIONS => {
			'STRING' => 22
		}
	},
	{#State 5
		ACTIONS => {
			'STRING' => 23
		}
	},
	{#State 6
		ACTIONS => {
			'STRING' => 24
		},
		GOTOS => {
			'actarg' => 25
		}