1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
use v5.10;
use warnings;
my $grammar = do {
my %type_symbol_table = (
'num' => 'num',
'str' => 'str',
'bool' => 'bool',
);
use Regexp::Grammars;
qr{
<[statement]>+
<rule: statement>
<typedef>
| <vardef>
<rule: typedef>
type <ident> : <typename>
(?{ $type_symbol_table{$MATCH{ident}} = $MATCH{typename} })
<rule: vardef>
var <ident> : <typename>
<rule: typename>
<name=%type_symbol_table>
<MATCH=(?{ $type_symbol_table{$MATCH{name}} })>
| <pointer=(?: \^ )> <typename>
<token: ident>
[^\W\d] \w*
}xms;
};
while (my $line = <>) {
if ($line =~ $grammar) {
use Data::Dumper 'Dumper';
say Dumper \%/;
}
}
say {*STDERR} 'done!';
|
