54 lines
646 B
Perl
54 lines
646 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
|
||
|
|
package S2::TokenIntegerLiteral;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use S2::Token;
|
||
|
|
use vars qw($VERSION @ISA);
|
||
|
|
|
||
|
|
$VERSION = '1.0';
|
||
|
|
@ISA = qw(S2::Token);
|
||
|
|
|
||
|
|
sub new
|
||
|
|
{
|
||
|
|
my ($class, $val) = @_;
|
||
|
|
bless {
|
||
|
|
'chars' => $val+0,
|
||
|
|
};
|
||
|
|
}
|
||
|
|
|
||
|
|
sub getInteger
|
||
|
|
{
|
||
|
|
my $this = shift;
|
||
|
|
$this->{'chars'};
|
||
|
|
}
|
||
|
|
|
||
|
|
sub asS2
|
||
|
|
{
|
||
|
|
my ($this, $o) = @_;
|
||
|
|
$o->write($this->{'chars'});
|
||
|
|
}
|
||
|
|
|
||
|
|
sub asHTML
|
||
|
|
{
|
||
|
|
my ($this, $o) = @_;
|
||
|
|
$o->write("<span class=\"n\">$this->{'chars'}</span>");
|
||
|
|
}
|
||
|
|
|
||
|
|
sub asPerl
|
||
|
|
{
|
||
|
|
my ($this, $bp, $o) = @_;
|
||
|
|
$o->write($this->{'chars'});
|
||
|
|
}
|
||
|
|
|
||
|
|
sub toString
|
||
|
|
{
|
||
|
|
my $this = shift;
|
||
|
|
"[TokenIntegerLiteral] = $this->{'chars'}";
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
1;
|
||
|
|
|