File Coverage

blib/lib/OPTiMaDe/Filter/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.21.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
package OPTiMaDe::Filter::Parser;
use vars qw ( @ISA );
use strict;

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

#line 3 "lib/OPTiMaDe/Filter/Parser.yp"


use warnings;

use Scalar::Util qw(blessed);

use OPTiMaDe::Filter::AndOr;
use OPTiMaDe::Filter::Comparison;
use OPTiMaDe::Filter::Known;
use OPTiMaDe::Filter::ListComparison;
use OPTiMaDe::Filter::Negation;
use OPTiMaDe::Filter::Property;
use OPTiMaDe::Filter::Zip;

our $allow_LIKE_operator = 0;



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

    my($self)=$class->SUPER::new( yyversion => '1.21',
                                  yystates =>
[
	{#State 0
		ACTIONS => {
			'string' => 1,
			"(" => 2,
			'identifier' => 7,
			'NOT' => 10,
			'number' => 12
		},
		GOTOS => {
			'constant' => 15,
			'property_first_comparison' => 14,
			'expression_phrase' => 13,
			'openingbrace' => 11,
			'expression_clause' => 9,
			'constant_first_comparison' => 6,
			'expression' => 8,
			'filter' => 4,
			'comparison' => 5,
			'property' => 3
		}
	},
	{#State 1
		DEFAULT => -2
	},
	{#State 2
		DEFAULT => -59
	},
	{#State 3
		ACTIONS => {
			">" => 29,
			'STARTS' => 16,
			'HAS' => 32,
			"=" => 17,
			'LENGTH' => 18,
			'CONTAINS' => 33,
			'IS' => 20,
			"." => 34,
			'ENDS' => 23,
			"<" => 38,
			"!" => 26,
			":" => 25,
			'LIKE' => 27
		},
		GOTOS => {
			'length_op_rhs' => 24,
			'property_zip_addon' => 35,
			'dot' => 21,
			'fuzzy_string_op_rhs' => 19,
			'operator' => 36,
			'value_op_rhs' => 37,
			'set_zip_op_rhs' => 22,
			'set_op_rhs' => 31,
			'known_op_rhs' => 28,
			'colon' => 30
		}
	},
	{#State 4
		ACTIONS => {
			'' => 39
		}
	},
	{#State 5
		DEFAULT => -22
	},
	{#State 6
		DEFAULT => -26
	},
	{#State 7
		DEFAULT => -57
	},
	{#State 8
		DEFAULT => -1
	},
	{#State 9
		ACTIONS => {
			'OR' => 40
		},
		DEFAULT => -18
	},
	{#State 10
		ACTIONS => {
			"(" => 2,
			'string' => 1,
			'identifier' => 7,
			'number' => 12
		},
		GOTOS => {
			'property_first_comparison' => 14,
			'property' => 3,
			'comparison' => 42,
			'constant' => 15,
			'constant_first_comparison' => 6,
			'openingbrace' => 41
		}
	},
	{#State 11
		ACTIONS => {
			'number' => 12,
			'NOT' => 10,
			'identifier' => 7,
			"(" => 2,
			'string' => 1
		},
		GOTOS => {
			'property' => 3,
			'comparison' => 5,
			'constant_first_comparison' => 6,
			'expression' => 43,
			'expression_clause' => 9,
			'openingbrace' => 11,
			'expression_phrase' => 13,
			'property_first_comparison' => 14,
			'constant' => 15
		}
	},
	{#State 12
		DEFAULT => -3
	},
	{#State 13
		ACTIONS => {
			'AND' => 44
		},
		DEFAULT => -20
	},
	{#State 14
		DEFAULT => -27
	},
	{#State 15
		ACTIONS => {
			"!" => 26,
			"=" => 17,
			"<" => 38,
			">" => 29
		},
		GOTOS => {
			'operator' => 36,
			'value_op_rhs' => 45
		}
	},
	{#State 16
		ACTIONS => {
			'identifier' => 7,
			'number' => 46,
			'WITH' => 48,
			'string' => 50
		},
		GOTOS => {
			'value' => 49,
			'property' => 47
		}
	},
	{#State 17
		DEFAULT => -68
	},
	{#State 18
		ACTIONS => {
			">" => 29,
			'number' => 46,
			'identifier' => 7,
			"!" => 26,
			"=" => 17,
			'string' => 50,
			"<" => 38
		},
		GOTOS => {
			'value' => 52,
			'operator' => 51,
			'property' => 47
		}
	},
	{#State 19
		DEFAULT => -31
	},
	{#State 20
		ACTIONS => {
			'UNKNOWN' => 54,
			'KNOWN' => 53
		}
	},
	{#State 21
		ACTIONS => {
			'identifier' => 55
		}
	},
	{#State 22
		DEFAULT => -33
	},
	{#State 23
		ACTIONS => {
			'identifier' => 7,
			'number' => 46,
			'WITH' => 56,
			'string' => 50
		},
		GOTOS => {
			'value' => 57,
			'property' => 47
		}
	},
	{#State 24
		DEFAULT => -34
	},
	{#State 25
		DEFAULT => -63
	},
	{#State 26
		ACTIONS => {
			"=" => 58
		}
	},
	{#State 27
		ACTIONS => {
			'string' => 50,
			'number' => 46,
			'identifier' => 7
		},
		GOTOS => {
			'value' => 59,
			'property' => 47
		}
	},
	{#State 28
		DEFAULT => -30
	},
	{#State 29
		ACTIONS => {
			"=" => 60
		},
		DEFAULT => -66
	},
	{#State 30
		ACTIONS => {
			'identifier' => 7
		},
		GOTOS => {
			'property' => 61
		}
	},
	{#State 31
		DEFAULT => -32
	},
	{#State 32
		ACTIONS => {
			"!" => 26,
			"<" => 38,
			'number' => 46,
			'identifier' => 7,
			'ANY' => 65,
			'ALL' => 66,
			"=" => 17,
			'string' => 50,
			">" => 29,
			'ONLY' => 62
		},
		GOTOS => {
			'operator' => 63,
			'value' => 64,
			'property' => 47
		}
	},
	{#State 33
		ACTIONS => {
			'string' => 50,
			'number' => 46,
			'identifier' => 7
		},
		GOTOS => {
			'value' => 67,
			'property' => 47
		}
	},
	{#State 34
		DEFAULT => -61
	},
	{#State 35
		ACTIONS => {
			'HAS' => 69,
			":" => 25
		},
		GOTOS => {
			'colon' => 68
		}
	},
	{#State 36
		ACTIONS => {
			'string' => 50,
			'identifier' => 7,
			'number' => 46
		},
		GOTOS => {
			'value' => 70,
			'property' => 47
		}
	},
	{#State 37
		DEFAULT => -29
	},
	{#State 38
		ACTIONS => {
			"=" => 71
		},
		DEFAULT => -64
	},
	{#State 39
		DEFAULT => 0
	},
	{#State 40
		ACTIONS => {
			"(" => 2,
			'string' => 1,
			'number' => 12,
			'NOT' => 10,
			'identifier' => 7
		},
		GOTOS => {
			'property_first_comparison' => 14,
			'expression_phrase' => 13,
			'constant' => 15,
			'expression' => 72,
			'constant_first_comparison' => 6,
			'openingbrace' => 11,
			'expression_clause' => 9,
			'property' => 3,
			'comparison' => 5
		}
	},
	{#State 41
		ACTIONS => {
			"(" => 2,
			'string' => 1,
			'identifier' => 7,
			'number' => 12,
			'NOT' => 10
		},
		GOTOS => {
			'openingbrace' => 11,
			'expression_clause' => 9,
			'expression' => 73,
			'constant_first_comparison' => 6,
			'constant' => 15,
			'property_first_comparison' => 14,
			'expression_phrase' => 13,
			'comparison' => 5,
			'property' => 3
		}
	},
	{#State 42
		DEFAULT => -24
	},
	{#State 43
		ACTIONS => {
			")" => 75
		},
		GOTOS => {
			'closingbrace' => 74
		}
	},
	{#State 44
		ACTIONS => {
			'number' => 12,
			'NOT' => 10,
			'identifier' => 7,
			"(" => 2,
			'string' => 1
		},
		GOTOS => {
			'property_first_comparison' => 14,
			'expression_phrase' => 13,
			'constant' => 15,
			'constant_first_comparison' => 6,
			'openingbrace' => 11,
			'expression_clause' => 76,
			'property' => 3,
			'comparison' => 5
		}
	},
	{#State 45
		DEFAULT => -28
	},
	{#State 46
		DEFAULT => -5
	},
	{#State 47
		ACTIONS => {
			"." => 34
		},
		DEFAULT => -6,
		GOTOS => {
			'dot' => 21
		}
	},
	{#State 48
		ACTIONS => {
			'identifier' => 7,
			'number' => 46,
			'string' => 50
		},
		GOTOS => {
			'value' => 77,
			'property' => 47
		}
	},
	{#State 49
		DEFAULT => -39
	},
	{#State 50
		DEFAULT => -4
	},
	{#State 51
		ACTIONS => {
			'number' => 46,
			'identifier' => 7,
			'string' => 50
		},
		GOTOS => {
			'property' => 47,
			'value' => 78
		}
	},
	{#State 52
		DEFAULT => -55
	},
	{#State 53
		DEFAULT => -36
	},
	{#State 54
		DEFAULT => -37
	},
	{#State 55
		DEFAULT => -58
	},
	{#State 56
		ACTIONS => {
			'string' => 50,
			'identifier' => 7,
			'number' => 46
		},
		GOTOS => {
			'property' => 47,
			'value' => 79
		}
	},
	{#State 57
		DEFAULT => -41
	},
	{#State 58
		DEFAULT => -69
	},
	{#State 59
		DEFAULT => -43
	},
	{#State 60
		DEFAULT => -67
	},
	{#State 61
		ACTIONS => {
			"." => 34
		},
		DEFAULT => -53,
		GOTOS => {
			'dot' => 21
		}
	},
	{#State 62
		ACTIONS => {
			'identifier' => 7,
			">" => 29,
			'number' => 46,
			'string' => 50,
			"<" => 38,
			"!" => 26,
			"=" => 17
		},
		GOTOS => {
			'property' => 47,
			'value_list' => 80,
			'operator' => 81,
			'value' => 82
		}
	},
	{#State 63
		ACTIONS => {
			'identifier' => 7,
			'number' => 46,
			'string' => 50
		},
		GOTOS => {
			'value' => 83,
			'property' => 47
		}
	},
	{#State 64
		DEFAULT => -44
	},
	{#State 65
		ACTIONS => {
			"<" => 38,
			'string' => 50,
			"=" => 17,
			"!" => 26,
			'identifier' => 7,
			'number' => 46,
			">" => 29
		},
		GOTOS => {
			'property' => 47,
			'value_list' => 84,
			'operator' => 81,
			'value' => 82
		}
	},
	{#State 66
		ACTIONS => {
			">" => 29,
			'number' => 46,
			'identifier' => 7,
			"!" => 26,
			"=" => 17,
			'string' => 50,
			"<" => 38
		},
		GOTOS => {
			'operator' => 81,
			'value' => 82,
			'value_list' => 85,
			'property' => 47
		}
	},
	{#State 67
		DEFAULT => -38
	},
	{#State 68
		ACTIONS => {
			'identifier' => 7
		},
		GOTOS => {
			'property' => 86
		}
	},
	{#State 69
		ACTIONS => {
			"!" => 26,
			"<" => 38,
			'number' => 46,
			'ANY' => 88,
			'identifier' => 7,
			"=" => 17,
			'ALL' => 87,
			'string' => 50,
			">" => 29,
			'ONLY' => 92
		},
		GOTOS => {
			'value_zip' => 91,
			'property' => 47,
			'value' => 90,
			'operator' => 89
		}
	},
	{#State 70
		DEFAULT => -35
	},
	{#State 71
		DEFAULT => -65
	},
	{#State 72
		DEFAULT => -19
	},
	{#State 73
		ACTIONS => {
			")" => 75
		},
		GOTOS => {
			'closingbrace' => 93
		}
	},
	{#State 74
		DEFAULT => -23
	},
	{#State 75
		DEFAULT => -60
	},
	{#State 76
		DEFAULT => -21
	},
	{#State 77
		DEFAULT => -40
	},
	{#State 78
		DEFAULT => -56
	},
	{#State 79
		DEFAULT => -42
	},
	{#State 80
		ACTIONS => {
			"," => 95
		},
		DEFAULT => -48,
		GOTOS => {
			'comma' => 94
		}
	},
	{#State 81
		ACTIONS => {
			'identifier' => 7,
			'number' => 46,
			'string' => 50
		},
		GOTOS => {
			'property' => 47,
			'value' => 96
		}
	},
	{#State 82
		DEFAULT => -7
	},
	{#State 83
		DEFAULT => -45
	},
	{#State 84
		ACTIONS => {
			"," => 95
		},
		DEFAULT => -47,
		GOTOS => {
			'comma' => 94
		}
	},
	{#State 85
		ACTIONS => {
			"," => 95
		},
		DEFAULT => -46,
		GOTOS => {
			'comma' => 94
		}
	},
	{#State 86
		ACTIONS => {
			"." => 34
		},
		DEFAULT => -54,
		GOTOS => {
			'dot' => 21
		}
	},
	{#State 87
		ACTIONS => {
			'string' => 50,
			"<" => 38,
			"!" => 26,
			"=" => 17,
			'identifier' => 7,
			">" => 29,
			'number' => 46
		},
		GOTOS => {
			'value_zip' => 98,
			'property' => 47,
			'value' => 90,
			'operator' => 89,
			'value_zip_list' => 97
		}
	},
	{#State 88
		ACTIONS => {
			"!" => 26,
			"=" => 17,
			'string' => 50,
			"<" => 38,
			">" => 29,
			'number' => 46,
			'identifier' => 7
		},
		GOTOS => {
			'value_zip' => 98,
			'property' => 47,
			'operator' => 89,
			'value' => 90,
			'value_zip_list' => 99
		}
	},
	{#State 89
		ACTIONS => {
			'string' => 50,
			'identifier' => 7,
			'number' => 46
		},
		GOTOS => {
			'property' => 47,
			'value' => 100
		}
	},
	{#State 90
		ACTIONS => {
			":" => 25
		},
		GOTOS => {
			'colon' => 102,
			'value_zip_part' => 101
		}
	},
	{#State 91
		ACTIONS => {
			":" => 25
		},
		DEFAULT => -49,
		GOTOS => {
			'value_zip_part' => 103,
			'colon' => 102
		}
	},
	{#State 92
		ACTIONS => {
			'number' => 46,
			">" => 29,
			'identifier' => 7,
			"=" => 17,
			"!" => 26,
			"<" => 38,
			'string' => 50
		},
		GOTOS => {
			'value' => 90,
			'operator' => 89,
			'value_zip_list' => 104,
			'value_zip' => 98,
			'property' => 47
		}
	},
	{#State 93
		DEFAULT => -25
	},
	{#State 94
		ACTIONS => {
			'number' => 46,
			">" => 29,
			'identifier' => 7,
			"=" => 17,
			"!" => 26,
			"<" => 38,
			'string' => 50
		},
		GOTOS => {
			'property' => 47,
			'value' => 105,
			'operator' => 106
		}
	},
	{#State 95
		DEFAULT => -62
	},
	{#State 96
		DEFAULT => -8
	},
	{#State 97
		ACTIONS => {
			"," => 95
		},
		DEFAULT => -51,
		GOTOS => {
			'comma' => 107
		}
	},
	{#State 98
		ACTIONS => {
			":" => 25
		},
		DEFAULT => -16,
		GOTOS => {
			'value_zip_part' => 103,
			'colon' => 102
		}
	},
	{#State 99
		ACTIONS => {
			"," => 95
		},
		DEFAULT => -52,
		GOTOS => {
			'comma' => 107
		}
	},
	{#State 100
		ACTIONS => {
			":" => 25
		},
		GOTOS => {
			'colon' => 102,
			'value_zip_part' => 108
		}
	},
	{#State 101
		DEFAULT => -11
	},
	{#State 102
		ACTIONS => {
			"<" => 38,
			'string' => 50,
			"=" => 17,
			"!" => 26,
			'identifier' => 7,
			'number' => 46,
			">" => 29
		},
		GOTOS => {
			'operator' => 110,
			'value' => 109,
			'property' => 47
		}
	},
	{#State 103
		DEFAULT => -13
	},
	{#State 104
		ACTIONS => {
			"," => 95
		},
		DEFAULT => -50,
		GOTOS => {
			'comma' => 107
		}
	},
	{#State 105
		DEFAULT => -9
	},
	{#State 106
		ACTIONS => {
			'number' => 46,
			'identifier' => 7,
			'string' => 50
		},
		GOTOS => {
			'value' => 111,
			'property' => 47
		}
	},
	{#State 107
		ACTIONS => {
			">" => 29,
			'number' => 46,
			'identifier' => 7,
			"!" => 26,
			"=" => 17,
			'string' => 50,
			"<" => 38
		},
		GOTOS => {
			'operator' => 89,
			'value' => 90,
			'value_zip' => 112,
			'property' => 47
		}
	},
	{#State 108
		DEFAULT => -12
	},
	{#State 109
		DEFAULT => -14
	},
	{#State 110
		ACTIONS => {
			'string' => 50,
			'number' => 46,
			'identifier' => 7
		},
		GOTOS => {
			'property' => 47,
			'value' => 113
		}
	},
	{#State 111
		DEFAULT => -10
	},
	{#State 112
		ACTIONS => {
			":" => 25
		},
		DEFAULT => -17,
		GOTOS => {
			'value_zip_part' => 103,
			'colon' => 102
		}
	},
	{#State 113
		DEFAULT => -15
	}
],
                                  yyrules  =>
[
	[#Rule 0
		 '$start', 2, undef
	],
	[#Rule 1
		 'filter', 1, undef
	],
	[#Rule 2
		 'constant', 1, undef
	],
	[#Rule 3
		 'constant', 1, undef
	],
	[#Rule 4
		 'value', 1, undef
	],
	[#Rule 5
		 'value', 1, undef
	],
	[#Rule 6
		 'value', 1, undef
	],
	[#Rule 7
		 'value_list', 1,
sub
#line 36 "lib/OPTiMaDe/Filter/Parser.yp"
{
                return [ [ '=', $_[1] ] ];
            }
	],
	[#Rule 8
		 'value_list', 2,
sub
#line 40 "lib/OPTiMaDe/Filter/Parser.yp"
{
                return [ [ @_[1..$#_] ] ];
            }
	],
	[#Rule 9
		 'value_list', 3,
sub
#line 44 "lib/OPTiMaDe/Filter/Parser.yp"
{
                push @{$_[1]}, [ '=', $_[3] ];
                return $_[1];
            }
	],
	[#Rule 10
		 'value_list', 4,
sub
#line 49 "lib/OPTiMaDe/Filter/Parser.yp"
{
                push @{$_[1]}, [ $_[3], $_[4] ];
                return $_[1];
            }
	],
	[#Rule 11
		 'value_zip', 2,
sub
#line 56 "lib/OPTiMaDe/Filter/Parser.yp"
{
                return [ [ '=', $_[1] ], $_[2] ];
            }
	],
	[#Rule 12
		 'value_zip', 3,
sub
#line 60 "lib/OPTiMaDe/Filter/Parser.yp"
{
                return [ [ $_[1], $_[2] ], $_[3] ];
            }
	],
	[#Rule 13
		 'value_zip', 2,
sub
#line 64 "lib/OPTiMaDe/Filter/Parser.yp"
{
                push @{$_[1]}, $_[2];
                return $_[1];
            }
	],
	[#Rule 14
		 'value_zip_part', 2,
sub
#line 71 "lib/OPTiMaDe/Filter/Parser.yp"
{
                    return [ '=', $_[2] ];
                }
	],
	[#Rule 15
		 'value_zip_part', 3,
sub
#line 75 "lib/OPTiMaDe/Filter/Parser.yp"
{
                    return [ $_[2], $_[3] ];
                }
	],
	[#Rule 16
		 'value_zip_list', 1,
sub
#line 81 "lib/OPTiMaDe/Filter/Parser.yp"
{
                    return [ $_[1] ];
                }
	],
	[#Rule 17
		 'value_zip_list', 3,
sub
#line 85 "lib/OPTiMaDe/Filter/Parser.yp"
{
                    push @{$_[1]}, $_[3];
                    return $_[1];
                }
	],
	[#Rule 18
		 'expression', 1, undef
	],
	[#Rule 19
		 'expression', 3,
sub
#line 95 "lib/OPTiMaDe/Filter/Parser.yp"
{
                return OPTiMaDe::Filter::AndOr->new( @_[1..$#_] );
            }
	],
	[#Rule 20
		 'expression_clause', 1, undef
	],
	[#Rule 21
		 'expression_clause', 3,
sub
#line 102 "lib/OPTiMaDe/Filter/Parser.yp"
{
                        return OPTiMaDe::Filter::AndOr->new( @_[1..$#_] );
                    }
	],
	[#Rule 22
		 'expression_phrase', 1, undef
	],
	[#Rule 23
		 'expression_phrase', 3,
sub
#line 109 "lib/OPTiMaDe/Filter/Parser.yp"
{
                        return $_[2];
                    }
	],
	[#Rule 24
		 'expression_phrase', 2,
sub
#line 113 "lib/OPTiMaDe/Filter/Parser.yp"
{
                        return OPTiMaDe::Filter::Negation->new( $_[2] );
                    }
	],
	[#Rule 25
		 'expression_phrase', 4,
sub
#line 117 "lib/OPTiMaDe/Filter/Parser.yp"
{
                        return OPTiMaDe::Filter::Negation->new( $_[3] );
                    }
	],
	[#Rule 26
		 'comparison', 1, undef
	],
	[#Rule 27
		 'comparison', 1, undef
	],
	[#Rule 28
		 'constant_first_comparison', 2,
sub
#line 125 "lib/OPTiMaDe/Filter/Parser.yp"
{
                                $_[2]->unshift_operand( $_[1] );
                                return $_[2];
                            }
	],
	[#Rule 29
		 'property_first_comparison', 2,
sub
#line 132 "lib/OPTiMaDe/Filter/Parser.yp"
{
                                    $_[2]->unshift_operand( $_[1] );
                                    return $_[2];
                                }
	],
	[#Rule 30
		 'property_first_comparison', 2,
sub
#line 137 "lib/OPTiMaDe/Filter/Parser.yp"
{
                                    $_[2]->property( $_[1] );
                                    return $_[2];
                                }
	],
	[#Rule 31
		 'property_first_comparison', 2,
sub
#line 142 "lib/OPTiMaDe/Filter/Parser.yp"
{
                                    $_[2]->unshift_operand( $_[1] );
                                    return $_[2];
                                }
	],
	[#Rule 32
		 'property_first_comparison', 2,
sub
#line 147 "lib/OPTiMaDe/Filter/Parser.yp"
{
                                    $_[2]->property( $_[1] );
                                    return $_[2];
                                }
	],
	[#Rule 33
		 'property_first_comparison', 2,
sub
#line 152 "lib/OPTiMaDe/Filter/Parser.yp"
{
                                    $_[2]->unshift_property( $_[1] );
                                    return $_[2];
                                }
	],
	[#Rule 34
		 'property_first_comparison', 2,
sub
#line 157 "lib/OPTiMaDe/Filter/Parser.yp"
{
                                    $_[2]->property( $_[1] );
                                    return $_[2];
                                }
	],
	[#Rule 35
		 'value_op_rhs', 2,
sub
#line 164 "lib/OPTiMaDe/Filter/Parser.yp"
{
                    my $cmp = OPTiMaDe::Filter::Comparison->new( $_[1] );
                    $cmp->push_operand( $_[2] );
                    return $cmp;
                }
	],
	[#Rule 36
		 'known_op_rhs', 2,
sub
#line 172 "lib/OPTiMaDe/Filter/Parser.yp"
{
                    return OPTiMaDe::Filter::Known->new( 1 );
                }
	],
	[#Rule 37
		 'known_op_rhs', 2,
sub
#line 176 "lib/OPTiMaDe/Filter/Parser.yp"
{
                    return OPTiMaDe::Filter::Known->new( 0 );
                }
	],
	[#Rule 38
		 'fuzzy_string_op_rhs', 2,
sub
#line 182 "lib/OPTiMaDe/Filter/Parser.yp"
{
                            my $cmp = OPTiMaDe::Filter::Comparison->new( $_[1] );
                            $cmp->push_operand( $_[2] );
                            return $cmp;
                        }
	],
	[#Rule 39
		 'fuzzy_string_op_rhs', 2,
sub
#line 188 "lib/OPTiMaDe/Filter/Parser.yp"
{
                            my $cmp = OPTiMaDe::Filter::Comparison->new( $_[1] );
                            $cmp->push_operand( $_[2] );
                            return $cmp;
                        }
	],
	[#Rule 40
		 'fuzzy_string_op_rhs', 3,
sub
#line 194 "lib/OPTiMaDe/Filter/Parser.yp"
{
                            my $cmp = OPTiMaDe::Filter::Comparison->new( "$_[1] $_[2]" );
                            $cmp->push_operand( $_[3] );
                            return $cmp;
                        }
	],
	[#Rule 41
		 'fuzzy_string_op_rhs', 2,
sub
#line 200 "lib/OPTiMaDe/Filter/Parser.yp"
{
                            my $cmp = OPTiMaDe::Filter::Comparison->new( $_[1] );
                            $cmp->push_operand( $_[2] );
                            return $cmp;
                        }
	],
	[#Rule 42
		 'fuzzy_string_op_rhs', 3,
sub
#line 206 "lib/OPTiMaDe/Filter/Parser.yp"
{
                            my $cmp = OPTiMaDe::Filter::Comparison->new( "$_[1] $_[2]" );
                            $cmp->push_operand( $_[3] );
                            return $cmp;
                        }
	],
	[#Rule 43
		 'fuzzy_string_op_rhs', 2,
sub
#line 212 "lib/OPTiMaDe/Filter/Parser.yp"
{
                            my $cmp = OPTiMaDe::Filter::Comparison->new( $_[1] );
                            $cmp->push_operand( $_[2] );
                            return $cmp;
                        }
	],
	[#Rule 44
		 'set_op_rhs', 2,
sub
#line 220 "lib/OPTiMaDe/Filter/Parser.yp"
{
                my $lc = OPTiMaDe::Filter::ListComparison->new( $_[1] );
                $lc->values( [ [ '=', $_[2] ] ] );
                return $lc;
            }
	],
	[#Rule 45
		 'set_op_rhs', 3,
sub
#line 226 "lib/OPTiMaDe/Filter/Parser.yp"
{
                my $lc = OPTiMaDe::Filter::ListComparison->new( $_[1] );
                $lc->values( [ [ $_[2], $_[3] ] ] );
                return $lc;
            }
	],
	[#Rule 46
		 'set_op_rhs', 3,
sub
#line 232 "lib/OPTiMaDe/Filter/Parser.yp"
{
                my $lc = OPTiMaDe::Filter::ListComparison->new( "$_[1] $_[2]" );
                $lc->values( $_[3] );
                return $lc;
            }
	],
	[#Rule 47
		 'set_op_rhs', 3,
sub
#line 238 "lib/OPTiMaDe/Filter/Parser.yp"
{
                my $lc = OPTiMaDe::Filter::ListComparison->new( "$_[1] $_[2]" );
                $lc->values( $_[3] );
                return $lc;
            }
	],
	[#Rule 48
		 'set_op_rhs', 3,
sub
#line 244 "lib/OPTiMaDe/Filter/Parser.yp"
{
                my $lc = OPTiMaDe::Filter::ListComparison->new( "$_[1] $_[2]" );
                $lc->values( $_[3] );
                return $lc;
            }
	],
	[#Rule 49
		 'set_zip_op_rhs', 3,
sub
#line 252 "lib/OPTiMaDe/Filter/Parser.yp"
{
                    $_[1]->operator( $_[2] );
                    $_[1]->values( [ $_[3] ] );
                    return $_[1];
                }
	],
	[#Rule 50
		 'set_zip_op_rhs', 4,
sub
#line 258 "lib/OPTiMaDe/Filter/Parser.yp"
{
                    $_[1]->operator( "$_[2] $_[3]" );
                    $_[1]->values( $_[4] );
                    return $_[1];
                }
	],
	[#Rule 51
		 'set_zip_op_rhs', 4,
sub
#line 264 "lib/OPTiMaDe/Filter/Parser.yp"
{
                    $_[1]->operator( "$_[2] $_[3]" );
                    $_[1]->values( $_[4] );
                    return $_[1];
                }
	],
	[#Rule 52
		 'set_zip_op_rhs', 4,
sub
#line 270 "lib/OPTiMaDe/Filter/Parser.yp"
{
                    $_[1]->operator( "$_[2] $_[3]" );
                    $_[1]->values( $_[4] );
                    return $_[1];
                }
	],
	[#Rule 53
		 'property_zip_addon', 2,
sub
#line 278 "lib/OPTiMaDe/Filter/Parser.yp"
{
                            my $zip = OPTiMaDe::Filter::Zip->new;
                            $zip->push_property( $_[2] );
                            return $zip;
                        }
	],
	[#Rule 54
		 'property_zip_addon', 3,
sub
#line 284 "lib/OPTiMaDe/Filter/Parser.yp"
{
                            $_[1]->push_property( $_[3] );
                            return $_[1];
                        }
	],
	[#Rule 55
		 'length_op_rhs', 2,
sub
#line 291 "lib/OPTiMaDe/Filter/Parser.yp"
{
                    my $cmp = OPTiMaDe::Filter::ListComparison->new( $_[1] );
                    $cmp->values( [ [ '=', $_[2] ] ] );
                    return $cmp;
                }
	],
	[#Rule 56
		 'length_op_rhs', 3,
sub
#line 297 "lib/OPTiMaDe/Filter/Parser.yp"
{
                    my $cmp = OPTiMaDe::Filter::ListComparison->new( $_[1] );
                    $cmp->values( [ [ $_[2], $_[3] ] ] );
                    return $cmp;
                }
	],
	[#Rule 57
		 'property', 1,
sub
#line 307 "lib/OPTiMaDe/Filter/Parser.yp"
{
                return OPTiMaDe::Filter::Property->new( $_[1] );
            }
	],
	[#Rule 58
		 'property', 3,
sub
#line 311 "lib/OPTiMaDe/Filter/Parser.yp"
{
                push @{$_[1]}, $_[3];
                return $_[1];
            }
	],
	[#Rule 59
		 'openingbrace', 1, undef
	],
	[#Rule 60
		 'closingbrace', 1, undef
	],
	[#Rule 61
		 'dot', 1, undef
	],
	[#Rule 62
		 'comma', 1, undef
	],
	[#Rule 63
		 'colon', 1, undef
	],
	[#Rule 64
		 'operator', 1, undef
	],
	[#Rule 65
		 'operator', 2,
sub
#line 333 "lib/OPTiMaDe/Filter/Parser.yp"
{
                return join( '', @_[1..$#_] );
            }
	],
	[#Rule 66
		 'operator', 1, undef
	],
	[#Rule 67
		 'operator', 2,
sub
#line 338 "lib/OPTiMaDe/Filter/Parser.yp"
{
                return join( '', @_[1..$#_] );
            }
	],
	[#Rule 68
		 'operator', 1, undef
	],
	[#Rule 69
		 'operator', 2,
sub
#line 343 "lib/OPTiMaDe/Filter/Parser.yp"
{
                return join( '', @_[1..$#_] );
            }
	]
],
                                  @_);
    bless($self,$class);
}

#line 348 "lib/OPTiMaDe/Filter/Parser.yp"


# Footer section

sub _Error
{
    my( $self ) = @_;
    close $self->{USER}{FILEIN} if $self->{USER}{FILEIN};
    my $msg = "$0: syntax error at line $self->{USER}{LINENO}, " .
              "position $self->{USER}{CHARNO}";
    if( $self->YYData->{INPUT} ) {
        $self->YYData->{INPUT} =~ s/\n$//;
        die "$msg: '" . $self->YYData->{INPUT} . "'.\n";
    } else {
        die "$msg.\n";
    }
}

sub _Lexer
{
    my( $self ) = @_;

    # If the line is empty and the input is originating from the file,
    # another line is read.
    if( !$self->YYData->{INPUT} && $self->{USER}{FILEIN} ) {
        my $filein = $self->{USER}{FILEIN};
        $self->YYData->{INPUT} = <$filein>;
        $self->{USER}{LINENO} = -1 unless exists $self->{USER}{LINENO};
        $self->{USER}{LINENO}++;
        $self->{USER}{CHARNO} = 0;
    }

    $self->YYData->{INPUT} =~ s/^(\s+)//;
    $self->{USER}{CHARNO} += length( $1 ) if defined $1;

    # Escaped double quote or backslash are detected here and returned
    # as is to the caller in order to be detected as syntax errors.
    if( $self->YYData->{INPUT} =~ s/^(\\"|\\\\)// ) {
        $self->{USER}{CHARNO} += length( $1 );
        return( $1, $1 );
    }

    # Handling strings
    if( $self->YYData->{INPUT} =~ s/^"// ) {
        $self->{USER}{CHARNO} ++;
        my $string = '';
        while( 1 ) {
            if( $self->YYData->{INPUT} =~
                    s/^([A-Za-z_0-9 \t!#\$\%&\'\(\)\*\+,\-\.\/\:;<=>\?@\[\]\^`\{\|\}\~\P{ASCII}]+)// ) {
                $self->{USER}{CHARNO} += length( $1 );
                $string .= $1;
            } elsif( $self->YYData->{INPUT} =~ s/^\\([\\"])// ) {
                $self->{USER}{CHARNO} ++;
                $string .= $1;
                next;
            } elsif( $self->YYData->{INPUT} =~ s/^"// ) {
                $self->{USER}{CHARNO} ++;
                return( 'string', $string );
            } else {
                return( undef, undef );
            }
        }
    }

    # Handling identifiers
    if( $self->YYData->{INPUT} =~ s/^([a-z_][a-z0-9_]*)// ) {
        $self->{USER}{CHARNO} += length( $1 );
        return( 'identifier', $1 );
    }

    # Handling boolean relations
    if( $self->YYData->{INPUT} =~ s/^(AND|NOT|OR|
                                      IS|UNKNOWN|KNOWN|
                                      CONTAINS|STARTS|ENDS|WITH|
                                      LENGTH|HAS|ALL|ONLY|ANY)//x ) {
        $self->{USER}{CHARNO} += length( $1 );
        return( $1, $1 );
    }

    # Handling LIKE operator if allowed
    if( $allow_LIKE_operator && $self->YYData->{INPUT} =~ s/^(LIKE)// ) {
        $self->{USER}{CHARNO} += length( $1 );
        return( $1, $1 );
    }

    # Handling numbers
    if( $self->YYData->{INPUT} =~ s/^([+-]?
                                     (\d+\.?\d*|\.\d+)
                                     ([eE][+-]?\d+)?)//x ) {
        $self->{USER}{CHARNO} += length( $1 );
        return( 'number', $1 );
    }

    my $char = substr( $self->YYData->{INPUT}, 0, 1 );
    if( $char ne '' ) {
        $self->YYData->{INPUT} = substr( $self->YYData->{INPUT}, 1 );
    }
    $self->{USER}{CHARNO}++;
    return( $char, $char );
}

sub Run
{
    my( $self, $filename ) = @_;
    open $self->{USER}{FILEIN}, $filename;
    my $result = $self->YYParse( yylex => \&_Lexer, yyerror => \&_Error );
    close $self->{USER}{FILEIN};
    return $result;
}

sub parse_string
{
    my( $self, $string ) = @_;
    $self->YYData->{INPUT} = $string;
    $self->{USER}{LINENO} = 0;
    $self->{USER}{CHARNO} = 0;
    return $self->YYParse( yylex => \&_Lexer, yyerror => \&_Error );
}

sub modify
{
    my $node = shift;
    my $code = shift;

    if( blessed $node && $node->can( 'modify' ) ) {
        return $node->modify( $code, @_ );
    } elsif( ref $node eq 'ARRAY' ) {
        return [ map { modify( $_, $code, @_ ) } @$node ];
    } else {
        return $code->( $node, @_ );
    }
}

1;

1;