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

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

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

Revision 2625 Revision 2626
73 return $TeX; 73 return $TeX;
74} 74}
75sub perl { 75sub perl {
76 my $self = shift; my $parens = shift; my $matrix = shift; 76 my $self = shift; my $parens = shift; my $matrix = shift;
77 my $perl = $self->{value}->perl(0,$matrix); 77 my $perl = $self->{value}->perl(0,$matrix);
78 $perl = 'Closed('.$perl.')'
79 if $self->{canBeInterval} && $self->{open}.$self->{close} eq '[]';
78 $perl = '('.$perl.')' if $parens; 80 $perl = '('.$perl.')' if $parens;
79 return $perl; 81 return $perl;
80} 82}
81 83
82sub ijk {(shift)->{value}->ijk} 84sub ijk {(shift)->{value}->ijk}

Legend:
Removed from v.2625  
changed lines
  Added in v.2626

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9