Changeset 7869e48 for perl/modules/Jabber/lib/XML/Stream/XPath/Query.pm
- Timestamp:
- Jan 12, 2013, 1:43:13 PM (11 years ago)
- Children:
- e3a0d71, 4485285
- Parents:
- 4626016
- git-author:
- Jason Gross <jgross@mit.edu> (01/12/13 13:13:18)
- git-committer:
- Jason Gross <jgross@mit.edu> (01/12/13 13:43:13)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/XML/Stream/XPath/Query.pm
rc2bed55 r7869e48 37 37 bless($self,$proto); 38 38 39 $self->{TOKENS} = [ '/','[',']','@','"',"'",'=','!','(',')',':',' ',',']; 39 $self->{TOKENS} = [ '/','[',']','@','"',"'",'=','!','(',')',':',' ',',']; 40 40 $self->{QUERY} = shift; 41 41 42 42 if (!defined($self->{QUERY}) || ($self->{QUERY} eq "")) 43 43 { 44 44 confess("No query string specified"); 45 45 } 46 46 47 47 $self->parseQuery(); 48 48 49 49 return $self; 50 50 } … … 52 52 53 53 sub getNextToken 54 { 54 { 55 55 my $self = shift; 56 56 my $pos = shift; … … 104 104 my $token_start = ++$$pos; 105 105 my $ident; 106 106 107 107 if (defined($token)) 108 108 { … … 193 193 return; 194 194 } 195 195 196 196 $$pos = $token_start; 197 197 my $val = $self->getNextIdentifier($pos); … … 234 234 235 235 $self->getOp($pos,$token); 236 236 237 237 foreach my $arg ($op_pos..$#{$self->{OPS}}) 238 238 { … … 241 241 242 242 splice(@{$self->{OPS}},$op_pos); 243 243 244 244 } 245 245 elsif ($token eq ")") … … 261 261 confess("Found ',' but not in a function"); 262 262 } 263 263 264 264 } 265 265 elsif ($token eq "=") … … 280 280 } 281 281 $$pos++; 282 282 283 283 my $tmp_op; 284 284 while(!defined($tmp_op)) … … 307 307 confess("Token undefined"); 308 308 } 309 309 310 310 $loop = 0 unless $in_context; 311 311 }
Note: See TracChangeset
for help on using the changeset viewer.