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 (60 lines) | stat: -rw-r--r-- 1,170 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
52
53
54
55
56
57
58
59
60
options {
	language="Cpp";
}

{
#include <iostream>
}

class Rewrite extends Lexer;

//protected
START
options {
	ignore=WS_;
}
	:	id:ID ":="! '('! expr:EXPR ')'!
		{
			// can access text matched for any rule
			std::cout << "found " << id->getText() << "," << expr->getText() << std::endl;
			// text will be ID+EXPR minus whitespace
		}
	;

protected
ID	:	( let:LETTER {std::cout << "letter " << let->getText() << std::endl;} )+
	;

protected
LETTER
	:	'a'..'z'
		{
		std::string s = $getText;		// get access text of this rule
//		$setText(s.toUpperCase());	// can reset it too
		$setText(s);	// 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(ANTLR_USE_NAMESPACE(antlr)Token::SKIP);}		// way to set token type
	;