File Coverage

blib/lib/Config/Objective/Parser.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

####################################################################
#
#    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 Config::Objective::Parser;
use vars qw ( @ISA );
use strict;

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

#line 19 "grammar.yp"

use strict;

###
### constants for conditional evaluation state
###

### either we already found a true condition, or the parent conditional
### block is not being evaluated, so:
###  1. subsequent %else or %elif clauses are NOT evaluated
###  2. enclosed statements are NOT evaluated
use constant CS_NO_EVAL		=> -1;

### have not yet found a true conditional in this block, which means:
###  1. subsequent %else or %elif clauses are evaluated
###  2. enclosed statements are NOT evaluated
use constant CS_FALSE		=> 0;

### immediately preceding condition was true, so:
###  1. subsequent %else or %elif clauses are NOT evaluated
###  2. enclosed statements are evaluated
use constant CS_TRUE		=> 1;


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

    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yystates =>
[
	{#State 0
		DEFAULT => -1,
		GOTOS => {
			'config' => 1
		}
	},
	{#State 1
		ACTIONS => {
			'IF' => 7,
			'' => 4,
			'ELIF' => 14,
			'WORD' => 12,
			'INCLUDE' => 15,
			'ELSE' => 3
		},
		GOTOS => {
			'directive' => 9,
			'cond_if' => 8,
			'statement' => 10,
			'conditional' => 13,
			'cond_else' => 11,
			'include' => 2,
			'method_call' => 5,
			'cond_elif' => 6
		}
	},
	{#State 2
		DEFAULT => -5
	},
	{#State 3
		DEFAULT => -20
	},
	{#State 4
		DEFAULT => 0
	},
	{#State 5
		ACTIONS => {
			'EOS' => 16
		}
	},
	{#State 6
		DEFAULT => -8
	},
	{#State 7
		ACTIONS => {
			'PAREN_START' => 17
		}
	},
	{#State 8
		DEFAULT => -1,
		GOTOS => {
			'config' => 18
		}
	},
	{#State 9
		DEFAULT => -2
	},
	{#State 10
		DEFAULT => -3
	},
	{#State 11
		DEFAULT => -9
	},
	{#State 12
		ACTIONS => {
			'METHOD_ARROW' => 19
		},
		DEFAULT => -27,
		GOTOS => {
			'method_name' => 20
		}
	},
	{#State 13
		DEFAULT => -4
	},
	{#State 14
		ACTIONS => {
			'PAREN_START' => 21
		}
	},
	{#State 15
		ACTIONS => {
			'QSTRING' => 22,
			'WORD' => 23
		},
		GOTOS => {
			'string' => 24
		}
	},
	{#State 16
		DEFAULT => -26
	},
	{#State 17
		ACTIONS => {
			'PAREN_START' => 25,
			'NOT' => 28
		},
		DEFAULT => -15,
		GOTOS => {
			'@1-0' => 26,
			'expression' => 29,
			'expr' => 27
		}
	},
	{#State 18
		ACTIONS => {
			'IF' => 7,
			'ELSE' => 3,
			'ENDIF' => 31,
			'ELIF' => 14,
			'WORD' => 12,
			'INCLUDE' => 15
		},
		GOTOS => {
			'method_call' => 5,
			'cond_elif' => 6,
			'cond_endif' => 30,
			'include' => 2,
			'cond_else' => 11,
			'conditional' => 13,
			'directive' => 9,
			'statement' => 10,
			'cond_if' => 8
		}
	},
	{#State 19
		ACTIONS => {
			'WORD' => 32
		}
	},
	{#State 20
		ACTIONS => {
			'PAREN_START' => 36,
			'QSTRING' => 22,
			'WORD' => 23,
			'HASH_START' => 40,
			'LIST_START' => 39
		},
		DEFAULT => -29,
		GOTOS => {
			'string' => 37,
			'value' => 35,
			'hash' => 34,
			'method_args' => 38,
			'list' => 33
		}
	},
	{#State 21
		ACTIONS => {
			'NOT' => 28,
			'PAREN_START' => 25
		},
		DEFAULT => -15,
		GOTOS => {
			'expression' => 41,
			'expr' => 27,
			'@1-0' => 26
		}
	},
	{#State 22
		DEFAULT => -22
	},
	{#State 23
		DEFAULT => -21
	},
	{#State 24
		DEFAULT => -6
	},
	{#State 25
		ACTIONS => {
			'NOT' => 28,
			'PAREN_START' => 25
		},
		DEFAULT => -15,
		GOTOS => {
			'@1-0' => 26,
			'expr' => 27,
			'expression' => 42
		}
	},
	{#State 26
		ACTIONS => {
			'WORD' => 12
		},
		GOTOS => {
			'method_call' => 43
		}
	},
	{#State 27
		DEFAULT => -10
	},
	{#State 28
		ACTIONS => {
			'NOT' => 28,
			'PAREN_START' => 25
		},
		DEFAULT => -15,
		GOTOS => {
			'@1-0' => 26,
			'expression' => 44,
			'expr' => 27
		}
	},
	{#State 29
		ACTIONS => {
			'PAREN_END' => 47,
			'AND' => 46,
			'OR' => 45
		}
	},
	{#State 30
		DEFAULT => -7
	},
	{#State 31
		DEFAULT => -18
	},
	{#State 32
		DEFAULT => -28
	},
	{#State 33
		DEFAULT => -24
	},
	{#State 34
		DEFAULT => -25
	},
	{#State 35
		DEFAULT => -30
	},
	{#State 36
		DEFAULT => -31,
		GOTOS => {
			'@2-1' => 48
		}
	},
	{#State 37
		DEFAULT => -23
	},
	{#State 38
		DEFAULT => -33
	},
	{#State 39
		DEFAULT => -34,
		GOTOS => {
			'@3-1' => 49
		}
	},
	{#State 40
		ACTIONS => {
			'HASH_END' => 51
		},
		DEFAULT => -40,
		GOTOS => {
			'@4-1' => 50
		}
	},
	{#State 41
		ACTIONS => {
			'OR' => 45,
			'PAREN_END' => 52,
			'AND' => 46
		}
	},
	{#State 42
		ACTIONS => {
			'AND' => 46,
			'PAREN_END' => 53,
			'OR' => 45
		}
	},
	{#State 43
		DEFAULT => -16
	},
	{#State 44
		DEFAULT => -11
	},
	{#State 45
		ACTIONS => {
			'PAREN_START' => 25,
			'NOT' => 28
		},
		DEFAULT => -15,
		GOTOS => {
			'expr' => 27,
			'expression' => 54,
			'@1-0' => 26
		}
	},
	{#State 46
		ACTIONS => {
			'PAREN_START' => 25,
			'NOT' => 28
		},
		DEFAULT => -15,
		GOTOS => {
			'@1-0' => 26,
			'expression' => 55,
			'expr' => 27
		}
	},
	{#State 47
		DEFAULT => -17
	},
	{#State 48
		ACTIONS => {
			'LIST_START' => 39,
			'QSTRING' => 22,
			'HASH_START' => 40,
			'WORD' => 23
		},
		DEFAULT => -36,
		GOTOS => {
			'list' => 33,
			'list_values' => 57,
			'hash' => 34,
			'value' => 56,
			'string' => 37
		}
	},
	{#State 49
		ACTIONS => {
			'LIST_START' => 39,
			'QSTRING' => 22,
			'WORD' => 23,
			'HASH_START' => 40
		},
		DEFAULT => -36,
		GOTOS => {
			'string' => 37,
			'value' => 56,
			'hash' => 34,
			'list' => 33,
			'list_values' => 58
		}
	},
	{#State 50
		ACTIONS => {
			'WORD' => 23,
			'QSTRING' => 22
		},
		GOTOS => {
			'string' => 59,
			'hash_value' => 61,
			'hash_values' => 60
		}
	},
	{#State 51
		DEFAULT => -39
	},
	{#State 52
		DEFAULT => -19
	},
	{#State 53
		DEFAULT => -14
	},
	{#State 54
		DEFAULT => -12
	},
	{#State 55
		DEFAULT => -13
	},
	{#State 56
		DEFAULT => -37
	},
	{#State 57
		ACTIONS => {
			'COMMA' => 63,
			'PAREN_END' => 62
		}
	},
	{#State 58
		ACTIONS => {
			'COMMA' => 63,
			'LIST_END' => 64
		}
	},
	{#State 59
		ACTIONS => {
			'HASH_ARROW' => 65
		},
		DEFAULT => -44
	},
	{#State 60
		ACTIONS => {
			'HASH_END' => 67,
			'COMMA' => 66
		}
	},
	{#State 61
		DEFAULT => -43
	},
	{#State 62
		DEFAULT => -32
	},
	{#State 63
		ACTIONS => {
			'LIST_START' => 39,
			'QSTRING' => 22,
			'WORD' => 23,
			'HASH_START' => 40
		},
		GOTOS => {
			'string' => 37,
			'value' => 68,
			'hash' => 34,
			'list' => 33
		}
	},
	{#State 64
		DEFAULT => -35
	},
	{#State 65
		ACTIONS => {
			'LIST_START' => 39,
			'HASH_START' => 40,
			'WORD' => 23,
			'QSTRING' => 22
		},
		GOTOS => {
			'list' => 33,
			'hash' => 34,
			'value' => 69,
			'string' => 37
		}
	},
	{#State 66
		ACTIONS => {
			'QSTRING' => 22,
			'WORD' => 23
		},
		GOTOS => {
			'hash_value' => 70,
			'string' => 59
		}
	},
	{#State 67
		DEFAULT => -41
	},
	{#State 68
		DEFAULT => -38
	},
	{#State 69
		DEFAULT => -45
	},
	{#State 70
		DEFAULT => -42
	}
],
                                  yyrules  =>
[
	[#Rule 0
		 '$start', 2, undef
	],
	[#Rule 1
		 'config', 0, undef
	],
	[#Rule 2
		 'config', 2, undef
	],
	[#Rule 3
		 'directive', 1, undef
	],
	[#Rule 4
		 'directive', 1, undef
	],
	[#Rule 5
		 'directive', 1, undef
	],
	[#Rule 6
		 'include', 2,
sub
#line 65 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};

		return undef
			if (@{$config->{'cond_stack'}}
			    && $config->{'cond_stack'}->[-1] != CS_TRUE);

		$_[2] = $config->{'include_dir'} . '/' . $_[2]
			if ($_[2] !~ m|^/|);

		$config->parse($_[2]);
	}
	],
	[#Rule 7
		 'conditional', 3, undef
	],
	[#Rule 8
		 'conditional', 1, undef
	],
	[#Rule 9
		 'conditional', 1, undef
	],
	[#Rule 10
		 'expression', 1, undef
	],
	[#Rule 11
		 'expression', 2,
sub
#line 88 "grammar.yp"
{
		return (! $_[2]);
	}
	],
	[#Rule 12
		 'expression', 3,
sub
#line 92 "grammar.yp"
{
		return ($_[1] || $_[3]);
	}
	],
	[#Rule 13
		 'expression', 3,
sub
#line 96 "grammar.yp"
{
		return ($_[1] && $_[3]);
	}
	],
	[#Rule 14
		 'expression', 3,
sub
#line 100 "grammar.yp"
{
		return $_[2];
	}
	],
	[#Rule 15
		 '@1-0', 0,
sub
#line 106 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};
		$config->{'in_expr'} = 1;
	}
	],
	[#Rule 16
		 'expr', 2,
sub
#line 111 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};
		$config->{'in_expr'} = 0;
		return $_[2];
	}
	],
	[#Rule 17
		 'cond_if', 4,
sub
#line 119 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};

		push(@{$config->{'cond_stack'}},
		     ((@{$config->{'cond_stack'}}
		       && $config->{'cond_stack'}->[-1] != CS_TRUE)
		      ? CS_NO_EVAL
		      : ($_[3]
			 ? CS_TRUE
			 : CS_FALSE)));
	}
	],
	[#Rule 18
		 'cond_endif', 1,
sub
#line 134 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};

		die "%endif: not in conditional\n"
			if (! @{$config->{'cond_stack'}});

		pop(@{$config->{'cond_stack'}});
	}
	],
	[#Rule 19
		 'cond_elif', 4,
sub
#line 146 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};

		die "%elif: not in conditional\n"
			if (! @{$config->{'cond_stack'}});

		### all previous conditions were false, so evaluate this one
		if ($config->{'cond_stack'}->[-1] == CS_FALSE)
		{
			$config->{'cond_stack'}->[-1] = ($_[3]
							 ? CS_TRUE
							 : CS_FALSE);
		}

		### the last condition was true, so all subsequent %else
		### or %elif clauses must be false
		elsif ($config->{'cond_stack'}->[-1] == CS_TRUE)
		{
			$config->{'cond_stack'}->[-1] = CS_NO_EVAL;
		}

		### if it's CS_NO_EVAL, leave it alone
	}
	],
	[#Rule 20
		 'cond_else', 1,
sub
#line 173 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};

		die '%else: not in conditional'
			if (! @{$config->{'cond_stack'}});

		### all previous conditions were false, so set to true
		if ($config->{'cond_stack'}->[-1] == CS_FALSE)
		{
			$config->{'cond_stack'}->[-1] = CS_TRUE;
		}

		### the last condition was true, so set to CS_NO_EVAL
		elsif ($config->{'cond_stack'}->[-1] == CS_TRUE)
		{
			$config->{'cond_stack'}->[-1] = CS_NO_EVAL;
		}

		### if it's CS_NO_EVAL, leave it alone
	}
	],
	[#Rule 21
		 'string', 1, undef
	],
	[#Rule 22
		 'string', 1, undef
	],
	[#Rule 23
		 'value', 1, undef
	],
	[#Rule 24
		 'value', 1, undef
	],
	[#Rule 25
		 'value', 1, undef
	],
	[#Rule 26
		 'statement', 2, undef
	],
	[#Rule 27
		 'method_name', 0,
sub
#line 210 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};
		return ($config->{'in_expr'} ? 'equals' : 'default');
	}
	],
	[#Rule 28
		 'method_name', 2,
sub
#line 215 "grammar.yp"
{
		return $_[2];
	}
	],
	[#Rule 29
		 'method_args', 0,
sub
#line 222 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};
		push(@{$config->{arg_stack}}, []);
	}
	],
	[#Rule 30
		 'method_args', 1,
sub
#line 227 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};
		push(@{$config->{arg_stack}}, [ $_[1] ]);
	}
	],
	[#Rule 31
		 '@2-1', 0,
sub
#line 232 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};
		push(@{$config->{'list_stack'}}, []);
	}
	],
	[#Rule 32
		 'method_args', 4,
sub
#line 237 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};
		push(@{$config->{arg_stack}}, pop(@{$config->{'list_stack'}}));
	}
	],
	[#Rule 33
		 'method_call', 3,
sub
#line 245 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};

#		print "var='$_[1]' method='$_[2]' value='$_[3]'\n";

		### for conditional expressions, don't bother evaluating
		### if a previous condition was true
		return undef
			if ($config->{'in_expr'}
			    && $config->{'cond_stack'}->[-1] == CS_NO_EVAL);

		### for statements, don't evaluate if we're inside a
		### false conditional block
		return undef
			if (! $config->{'in_expr'}
			    && @{$config->{'cond_stack'}}
			    && $config->{'cond_stack'}->[-1] != CS_TRUE);

		return $config->_call_obj_method($_[1], $_[2],
					@{pop(@{$config->{arg_stack}})});
	}
	],
	[#Rule 34
		 '@3-1', 0,
sub
#line 269 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};
		push(@{$config->{'list_stack'}}, []);
	}
	],
	[#Rule 35
		 'list', 4,
sub
#line 274 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};
		return pop(@{$config->{'list_stack'}});
	}
	],
	[#Rule 36
		 'list_values', 0, undef
	],
	[#Rule 37
		 'list_values', 1,
sub
#line 283 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};
		push(@{$config->{'list_stack'}->[-1]}, $_[1]);
	}
	],
	[#Rule 38
		 'list_values', 3,
sub
#line 288 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};
		push(@{$config->{'list_stack'}->[-1]}, $_[3]);
	}
	],
	[#Rule 39
		 'hash', 2,
sub
#line 295 "grammar.yp"
{
		return {};
	}
	],
	[#Rule 40
		 '@4-1', 0,
sub
#line 299 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};

		push(@{$config->{'hash_stack'}}, {});
	}
	],
	[#Rule 41
		 'hash', 4,
sub
#line 305 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};

		return pop(@{$config->{'hash_stack'}});
	}
	],
	[#Rule 42
		 'hash_values', 3, undef
	],
	[#Rule 43
		 'hash_values', 1, undef
	],
	[#Rule 44
		 'hash_value', 1,
sub
#line 319 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};

#		print "\t'$_[1]' => undef\n";
		$config->{'hash_stack'}->[-1]->{$_[1]} = undef;
	}
	],
	[#Rule 45
		 'hash_value', 3,
sub
#line 326 "grammar.yp"
{
		my ($config) = $_[0]->YYData->{'config'};

#		print "\t'$_[1]' => '$_[3]'\n";
		$config->{'hash_stack'}->[-1]->{$_[1]} = $_[3];
	}
	]
],
                                  @_);
    bless($self,$class);
}

#line 334 "grammar.yp"


###
### Footer section
###



1;