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

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

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

Revision 5508 Revision 5509
46 $open = '' if $open eq 'start'; $close = '' if $close eq 'start'; 46 $open = '' if $open eq 'start'; $close = '' if $close eq 'start';
47 my $list = bless { 47 my $list = bless {
48 coords => $coords, type => $type, open => $open, close => $close, 48 coords => $coords, type => $type, open => $open, close => $close,
49 paren => $paren, equation => $equation, isConstant => $constant 49 paren => $paren, equation => $equation, isConstant => $constant
50 }, $context->{lists}{$type->{name}}{class}; 50 }, $context->{lists}{$type->{name}}{class};
51 $list->weaken;
51 52
52 my $zero = 1; 53 my $zero = 1;
53 foreach my $x (@{$coords}) {$zero = 0, last unless $x->{isZero}} 54 foreach my $x (@{$coords}) {$zero = 0, last unless $x->{isZero}}
54 $list->{isZero} = 1 if $zero && scalar(@{$coords}) > 0; 55 $list->{isZero} = 1 if $zero && scalar(@{$coords}) > 0;
55 56

Legend:
Removed from v.5508  
changed lines
  Added in v.5509

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9