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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
header {
using System.IO;
}
options {
language="CSharp";
}
class PParser extends Parser;
{
public override void traceOut(string rname) {
Console.Out.WriteLine("exit "+rname+"; LT(1)="+LT(1));
}
public override void traceIn(string rname) {
Console.Out.WriteLine("enter "+rname+"; LT(1)="+LT(1));
}
/*
public override void consume() {
try {
Console.Out.WriteLine(LT(1));
}
catch (IOException ignore) {}
base.consume();
}
*/
}
startRule
: ( decl )+
;
decl: INT a:ID { Console.Out.WriteLine("decl "+a.getText()); }
( COMMA b:ID { Console.Out.WriteLine("decl "+b.getText()); } )*
SEMI
;
class PLexer extends Lexer;
options {
charVocabulary = '\3'..'\377';
k=2;
}
tokens {
INT="int";
}
{
public override void uponEOF() {
if ( Test.AppMain.selector.getCurrentStream() != Test.AppMain.mainLexer ) {
// don't allow EOF until main lexer. Force the
// selector to retry for another token.
Test.AppMain.selector.pop(); // return to old lexer/stream
Test.AppMain.selector.retry();
}
else {
Console.Out.WriteLine("Hit EOF of main file");
}
}
}
SEMI: ';'
;
COMMA
: ','
;
ID
: ('a'..'z')+
;
INCLUDE
: "#include" (WS)? f:STRING
{
// create lexer to handle include
String name = f.getText();
StreamReader fi = null;
try {
fi = new StreamReader(name);
}
catch (FileNotFoundException fnf) {
Console.Error.WriteLine("cannot find file "+name);
}
PLexer sublexer = new PLexer(fi);
// make sure errors are reported in right file
sublexer.setFilename(name);
Test.AppMain.parser.setFilename(name);
// you can't just call nextToken of sublexer
// because you need a stream of tokens to
// head to the parser. The only way is
// to blast out of this lexer and reenter
// the nextToken of the sublexer instance
// of this class.
Test.AppMain.selector.push(sublexer);
// ignore this as whitespace; ask selector to try
// to get another token. It will call nextToken()
// of the new instance of this lexer.
Test.AppMain.selector.retry(); // throws TokenStreamRetryException
}
;
STRING
: '"'! ( ~'"' )* '"'!
;
WS : ( ' '
| '\t'
| '\f'
// handle newlines
| ( options {generateAmbigWarnings=false;}
: "\r\n" // Evil DOS
| '\r' // Macintosh
| '\n' // Unix (the right way)
)
{ newline(); }
)+
{ $setType(Token.SKIP); }
;
|
