[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 5119 Revision 5120
58} 58}
59 59
60# 60#
61# Return the constant's name 61# Return the constant's name
62# 62#
63sub string {(shift)->{name}} 63sub string {
64 my $self = shift;
65 return $self->{def}{string} if defined($self->{def}{string});
66 return $self->{name}
67}
64 68
65sub TeX { 69sub TeX {
66 my $self = shift; my $name = $self->{name}; 70 my $self = shift; my $name = $self->{name};
67 return $self->{def}{TeX} if defined($self->{def}{TeX}); 71 return $self->{def}{TeX} if defined($self->{def}{TeX});
68 $name = $1.'_{'.$2.'}' if ($name =~ m/^(\D+)(\d+)$/); 72 $name = $1.'_{'.$2.'}' if ($name =~ m/^(\D+)(\d+)$/);

Legend:
Removed from v.5119  
changed lines
  Added in v.5120

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9