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

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

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

Revision 2625 Revision 2626
38# Return the constant's name 38# Return the constant's name
39# 39#
40sub string {(shift)->{name}} 40sub string {(shift)->{name}}
41 41
42sub TeX { 42sub TeX {
43 my $self = shift; 43 my $self = shift; my $name = $self->{name};
44 return $self->{def}{TeX} if defined($self->{def}{TeX}); 44 return $self->{def}{TeX} if defined($self->{def}{TeX});
45 $name = $1.'_{'.$2.'}' if ($name =~ m/^(\D+)(\d+)$/);
45 return $self->{name}; 46 return $name;
46} 47}
47 48
48sub perl { 49sub perl {
49 my $self = shift; 50 my $self = shift;
50 return $self->{def}{perl} if defined($self->{def}{perl}); 51 return $self->{def}{perl} if defined($self->{def}{perl});

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

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9