[system] / trunk / pg / lib / Parser.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/Parser.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 2628 Revision 2650
… …
451################################################## 451##################################################
452# 452#
453# Handle a numeric token 453# Handle a numeric token
454# 454#
455# Add an implicit multiplication, if needed 455# Add an implicit multiplication, if needed
456# Create the number object and check it
456# Save the number as an operand 457# Save the number as an operand
457# 458#
458sub Num { 459sub Num {
459 my $self = shift; 460 my $self = shift;
460 $self->ImplicitMult() if $self->state eq 'operand'; 461 $self->ImplicitMult() if $self->state eq 'operand';
461 $self->pushOperand(Parser::Number->new($self,shift,$self->{ref})); 462 my $num = Parser::Number->new($self,shift,$self->{ref});
463 my $check = $self->{context}->flag('NumberCheck');
464 &$check($num) if $check;
465 $self->pushOperand($num);
462} 466}
463 467
464################################################## 468##################################################
465# 469#
466# Handle a constant token 470# Handle a constant token
Legend:
Removed from v.2628  
changed lines
  Added in v.2650
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9