File: rewrite.g

package info (click to toggle)
antlr 2.7.7%2Bdfsg-14
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 10,016 kB
  • sloc: java: 54,649; cs: 12,537; makefile: 8,854; cpp: 7,359; pascal: 5,273; sh: 4,333; python: 4,297; lisp: 1,969; xml: 220; lex: 192; ansic: 127
file content (51 lines) | stat: -rw-r--r-- 1,013 bytes parent folder | download | duplicates (12)
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
class Rewrite extends Lexer;

protected
START
options {
	ignore=WS;
}
	:	id:ID ":="! '('! expr:EXPR ')'!
		{
			// can access text matched for any rule
			System.out.println("found "+id.getText()+","+expr.getText());
			// text will be ID+EXPR minus whitespace
		}
	;

protected
ID	:	( let:LETTER {System.out.println("letter "+let.getText());} )+
	;

protected
LETTER
	:	'a'..'z'
		{
		String s = $getText;		// get access text of this rule
		$setText(s.toUpperCase());	// can reset it too
		}
	;

protected
EXPR:	i:INT!	// don't include, but i.getText() has access
		{$setText(i.getText());} // effect is if no "!" and no "i:"
	|	ID
	;

protected
INT	:	('0'..'9')+
	;

// what if ! on rule itself and invoker had !...should
// rule return anything in the token to the invoker?  NO!
// make sure 'if' is in the right spot
// What about no ! on caller but ! on called rule?
protected
WS!	:	(	' '			// whitespace not saved
		|	'\t'
		|	'\n' {newline();}
		)+
		{$setType(Token.SKIP);}		// way to set token type
	;