summaryrefslogtreecommitdiff
path: root/test/trans.d/case/gotocallret2_d.rl
blob: 1aa67996990b62d10dc951ec1ce8880d066e6440 (plain)
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
121
122
123
/*
 * @LANG: d
 * @GENERATED: true
 */

import std.stdio;
import std.string;

class GotoCallRet
{
char comm;
int top;
int stack[32];
const(char) * ts;
const(char) * te;
int act;
int val;

%%{
	machine GotoCallRet;

	sp = ' ';

	handle := any @{printf( "%.*s", "handle " );fhold;if ( val == 1 )
{
	fnext *fentry(one);
} 
if ( val == 2 )
{
	fnext *fentry(two);
} 
if ( val == 3 )
{
	fnext main;
} 
};

	one := |*
		'{' => {printf( "%.*s", "{ " );fcall *fentry(one);};
		"[" => {printf( "%.*s", "[ " );fcall *fentry(two);};
		"}" sp* => {printf( "%.*s", "} " );fret;};
		[a-z]+ => {printf( "%.*s", "word " );val = 1;
fgoto *fentry(handle);};
		' ' => {printf( "%.*s", "space " );};
	*|;

	two := |*
		'{' => {printf( "%.*s", "{ " );fcall *fentry(one);};
		"[" => {printf( "%.*s", "[ " );fcall *fentry(two);};
		']' sp* => {printf( "%.*s", "] " );fret;};
		[a-z]+ => {printf( "%.*s", "word " );val = 2;
fgoto *fentry(handle);};
		' ' => {printf( "%.*s", "space " );};
	*|;

	main := |* 
		'{' => {printf( "%.*s", "{ " );fcall one;};
		"[" => {printf( "%.*s", "[ " );fcall two;};
		[a-z]+ => {printf( "%.*s", "word " );val = 3;
fgoto handle;};
		[a-z] ' foil' => {printf( "%.*s", "this is the foil" );};
		' ' => {printf( "%.*s", "space " );};
		'\n';
	*|;
}%%



%% write data;
int cs;
int blen;
char buffer[1024];

void init()
{
	%% write init;
}
void exec( const(char) data[] )
{
	const(char) *p = data.ptr;
	const(char) *pe = data.ptr + data.length;
	const(char) *eof = pe;
	char _s[];

	%% write exec;
}

void finish( )
{
	if ( cs >= GotoCallRet_first_final )
		writefln( "ACCEPT" );
	else
		writefln( "FAIL" );
}
static const char[][] inp = [
"{a{b[c d]d}c}\n",
"[a{b[c d]d}c}\n",
"[a[b]c]d{ef{g{h}i}j}l\n",
"{{[]}}\n",
"a b c\n",
"{a b c}\n",
"[a b c]\n",
"{]\n",
"{{}\n",
"[[[[[[]]]]]]\n",
"[[[[[[]]}]]]\n",
];

int inplen = 11;

}
int main()
{
	GotoCallRet m = new GotoCallRet();
	int i;
	for ( i = 0; i < m.inplen; i++ ) {
		m.init();
		m.exec( m.inp[i] );
		m.finish();
	}
	return 0;
}