51 lines
964 B
Perl
51 lines
964 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
|
||
|
|
package S2::TokenKeyword;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use S2::Token;
|
||
|
|
use vars qw($VERSION @ISA %keywords);
|
||
|
|
|
||
|
|
$VERSION = '1.0';
|
||
|
|
@ISA = qw(S2::TokenIdent);
|
||
|
|
|
||
|
|
%keywords = ();
|
||
|
|
foreach my $kw (qw(class else elseif function if builtin
|
||
|
|
property propgroup set static var while foreach print
|
||
|
|
println not and or xor layerinfo extends
|
||
|
|
return delete defined new true false reverse
|
||
|
|
size isnull null readonly)) {
|
||
|
|
my $uc = uc($kw);
|
||
|
|
eval "use vars qw(\$$uc); \$keywords{\"$kw\"} = \$$uc = S2::TokenKeyword->new(\"$kw\");";
|
||
|
|
}
|
||
|
|
|
||
|
|
sub new
|
||
|
|
{
|
||
|
|
my ($class, $ident) = @_;
|
||
|
|
bless {
|
||
|
|
'chars' => $ident,
|
||
|
|
}, $class;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub tokenFromString
|
||
|
|
{
|
||
|
|
my ($class, $ident) = @_;
|
||
|
|
return $keywords{$ident};
|
||
|
|
}
|
||
|
|
|
||
|
|
sub toString
|
||
|
|
{
|
||
|
|
my $this = shift;
|
||
|
|
"[TokenKeyword] = $this->{'chars'}";
|
||
|
|
}
|
||
|
|
|
||
|
|
sub asHTML
|
||
|
|
{
|
||
|
|
my ($this, $o) = @_;
|
||
|
|
$o->write("<span class=\"k\">$this->{'chars'}</span>");
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|
||
|
|
|