[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 2673 Revision 2676
136 die $message . Value::getCaller(); 136 die $message . Value::getCaller();
137} 137}
138 138
139# 139#
140# Insert an implicit multiplication 140# Insert an implicit multiplication
141# (fix up the reference for spaces or juxtaposition)
141# 142#
142sub ImplicitMult { 143sub ImplicitMult {
143 my $self = shift; 144 my $self = shift;
144 my $ref = $self->{ref}; 145 my $ref = $self->{ref}; my $iref = [@{$ref}];
146 $iref->[2]--; $iref->[3] = $iref->[2]+1;
147 $iref->[3]++ unless substr($self->{string},$iref->[2],1) eq ' ';
145 $self->Error("Can't perform implied multiplication in this context",$ref) 148 $self->Error("Can't perform implied multiplication in this context",$iref)
146 unless $self->{context}{operators}{' '}{class}; 149 unless $self->{context}{operators}{' '}{class};
147 $self->Op(' '); 150 $self->Op(' ',$iref);
148 $self->{ref} = $ref; 151 $self->{ref} = $ref;
149} 152}
150 153
151# 154#
152# Push an operator onto the expression stack. 155# Push an operator onto the expression stack.

Legend:
Removed from v.2673  
changed lines
  Added in v.2676

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9