sidef/utils/Experiments/regexp_grammars_parser.pl

#!/usr/bin/perl

# Author: Daniel "Trizen" Șuteu
# License: GPLv3
# Date: 30 April 2014
# Wesbite: https://github.com/trizen

# Experimental Sidef parser, using Damian Conway's Regexp::Grammars.

use 5.010;
use strict;
use warnings;
use Data::Dump qw(pp);

BEGIN {
    $SIG{__WARN__} = sub { };
};

use Regexp::Grammars;
local $SIG{__WARN__} = sub { print STDERR @_ };

my $parser = qr{
        <[main]>*

        <rule: main>
            <obj> ((?:\.|\s*)<[method]>)* ;*

        <rule: obj>
              "([^"\\]+|\\.)*"
            | \d+(?:\.\d+)?
            | \{ <[main]> \}

        <rule: args>
            \(<[obj]>(?:,<[obj]>)*\)

        <rule: name>
            (say|print|sort)

        <rule: method>
            <name> <args>?
    }xms;

my $text = <<'CODE';
"hello".sort("test", "here").print;
{
    "sidef" say;
}
CODE

if ($text =~ $parser) {
    #print Dumper(\%/);
    pp \%/;
}

__END__