File: test.g

package info (click to toggle)
pccts 1.33MR33-3
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 3,212 kB
  • ctags: 5,280
  • sloc: ansic: 46,051; cpp: 3,234; makefile: 957
file content (55 lines) | stat: -rw-r--r-- 949 bytes parent folder | download | duplicates (17)
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
<<
#include ATOKPTR_H	// define smart pointers

class ANTLRToken : public ANTLRCommonToken {
public:
	int muck;
public:
    ANTLRToken(ANTLRTokenType t, ANTLRChar *s) : ANTLRCommonToken(t,s)
		{ muck = atoi(s); }
    ANTLRToken() {;}
    ANTLRChar *getText() const { return ""; }
    void setText(const ANTLRChar *s) { ; }
    virtual ANTLRAbstractToken *makeToken(ANTLRTokenType t, char *s, int line)
		{
			ANTLRToken *tk = new ANTLRToken(t,s);
			tk->muck = atoi(s);
			return tk;
		}
};

#include "DLGLexer.h"
#include "PBlackBox.h"

int main()
{
	ParserBlackBox<DLGLexer, Expr, ANTLRToken> p(stdin);

	p.parser()->calc();
	return 0;
}
>>

#token "[\ \t\n]+"	<<skip();>>

class Expr {

calc:	<<int r;>>
		e>[r]
		<<printf("result is %d\n", r);>>
	;

e > [int r]
	:	<<int b;>>
		e2>[$r] ( "\+" e2>[b] <<$r+=b;>> )*
	;

e2 > [int r]
	:	NUMBER <<$r=mytoken($1)->muck;>>
		( "\*" NUMBER <<$r*=mytoken($2)->muck;>> )*
	;

}

#token NUMBER		"[0-9]+"