Perl ANTLR v3 Target

Status

Early prototyping phase. A simple lexer is working.

Here's a simple example. Note that everything is still subject to change.

$ cat T.g
lexer grammar T;
options { language = Perl5; }
ZERO: '0';
ONE: '1';

$ cat T.tokens
Tokens=6
ZERO=4
ONE=5

$ cat t.pl
#!/usr/bin/perl

use ANTLR::Runtime::ANTLRStringStream;
use TLexer;

use strict;
use warnings;

my $input = ANTLR::Runtime::ANTLRStringStream->new('010');
my $lexer = TLexer->new($input);

while (1) {
    my $token = $lexer->next_token();
    last if $token->get_type() == $TLexer::EOF;

    print "type: ", $token->get_type(), "\n";
    print "text: ", $token->get_text(), "\n";
    print "\n";
}

$ perl t.pl
type: 4
text: 0

type: 5
text: 1

type: 4
text: 0

Author

Ronald Blaschke (ron at rblasch org)

Antlr3PerlTarget

Perl ANTLR v3 Target

Status

Author