File Coverage

blib/lib/Text/Query/ParseSimple.pm

Criterion	Covered	Total	%
statement	44	44	100.0
branch	17	26	65.3
condition	5	12	41.6
subroutine	6	6	100.0
pod	2	2	100.0
total	74	90	82.2

#
#   Copyright (C) 1999 Eric Bohlman, Loic Dachary
#
#   This program is free software; you can redistribute it and/or modify it
#   under the terms of the GNU General Public License as published by the
#   Free Software Foundation; either version 2, or (at your option) any
#   later version.  You may also use, redistribute and/or modify it
#   under the terms of the Artistic License supplied with your Perl
#   distribution
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this program; if not, write to the Free Software
#   Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

package Text::Query::ParseSimple;

use strict;
use re qw/eval/;

use Text::Query::Parse;

use vars qw(@ISA);

@ISA = qw(Text::Query::Parse);

sub expression {
    my($self) = shift;

    my($t, $expr);
    foreach $t (@{$self->{'tokens'}}) {
	warn("t 0 = $t") if($self->{-verbose} > 1);

	my($type) = ($t =~ s/([-+\e])//) ? $1 : '';

	$t = $self->build_literal($t);

	if ($type eq '-') {
	    $t = $self->build_forbiden($t);
	} elsif($type eq '+') {
	    $t = $self->build_mandatory($t);
	}

	warn("t 1 = $t") if($self->{-verbose} > 1);

	$t = $self->build_expression_finish($t);

	warn("t 2 = $t") if($self->{-verbose} > 1);

	$expr = $expr ? $self->build_expression($expr, $t) : $t;
    }

    return $expr;
}

sub parse_tokens {
    local($^W) = 0;
    my($self) = shift;
    my($line) = @_;
    my($quote, $quoted, $unquoted, $delim, $word);
    my($quotes) = $self->{parseopts}{-quotes};

    my(@tokens) = ();
    while (length($line)) {
	($quote, $quoted, undef, $unquoted, $delim, undef) =
	    $line =~ m/^([$quotes])                 # a $quote
                ((?:\\.|(?!\1)[^\\])*)    # and $quoted text
                \1 		       # followed by the same quote
                ([\000-\377]*)	       # and the rest
	       |                       # --OR--
                ^((?:\\.|[^\\$quotes])*?)    # an $unquoted text
	        (\Z(?!\n)|\s+|(?!^)(?=[$quotes])) # plus EOL, delimiter, or quote
                ([\000-\377]*)	       # the rest
	       /ix;		       # extended layout

	last unless($quote || length($unquoted) || length($delim));
	$line = $+;
	$unquoted=~s/^\s+//;
	$unquoted=~s/\s+$//;
	$word .= defined($quote) ? (length($word) ? $quoted : "\e$quoted" ) : $unquoted;
	push(@tokens,$word) if(length($word) and (length($delim) or !length($line)));
	undef $word if(length($delim));
    }

    warn("parsed tokens @tokens") if($self->{-verbose} > 1);

    $self->{'tokens'} = \@tokens;
}

1;

__END__