| … | |
… | |
| 216 | $perl = $self->type.'('.join(',',@p).')'; |
216 | $perl = $self->type.'('.join(',',@p).')'; |
| 217 | $perl = '('.$perl.')' if $parens; |
217 | $perl = '('.$perl.')' if $parens; |
| 218 | return $perl; |
218 | return $perl; |
| 219 | } |
219 | } |
| 220 | |
220 | |
| 221 | sub makeUnion { |
|
|
| 222 | my $self = shift; |
|
|
| 223 | $self = bless $self->copy, 'Parser::List::Interval'; |
|
|
| 224 | $self->typeRef->{name} = $self->{equation}{context}{parens}{interval}{type}; |
|
|
| 225 | return $self; |
|
|
| 226 | } |
|
|
| 227 | |
|
|
| 228 | ######################################################################### |
221 | ######################################################################### |
| 229 | # |
222 | # |
| 230 | # Load the subclasses. |
223 | # Load the subclasses. |
| 231 | # |
224 | # |
| 232 | |
225 | |
Parent Directory
| 
Revision Log
| 
Patch