[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 2625 Revision 2626
212sub perl { 212sub perl {
213 my $self = shift; my $parens = shift; my $matrix = shift; 213 my $self = shift; my $parens = shift; my $matrix = shift;
214 my $perl; my @p = (); 214 my $perl; my @p = ();
215 foreach my $x (@{$self->{coords}}) {push(@p,$x->perl)} 215 foreach my $x (@{$self->{coords}}) {push(@p,$x->perl)}
216 $perl = $self->type.'('.join(',',@p).')'; 216 $perl = $self->type.'('.join(',',@p).')';
217 $perl = 'Closed('.$perl.')'
218 if $self->{canBeInterval} && $self->{open}.$self->{close} eq '[]';
217 $perl = '('.$perl.')' if $parens; 219 $perl = '('.$perl.')' if $parens;
218 return $perl; 220 return $perl;
219} 221}
220 222
221######################################################################### 223#########################################################################

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

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9