summaryrefslogtreecommitdiff
path: root/test/ragel.d/call4.rl
blob: a999d49087bf53ce0528056e7a6578581512c891 (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
/*
 * @LANG: indep
 * @PROHIBIT_LANGUAGES: cv ruby ocaml rust crack
 * @PROHIBIT_FLAGS: --var-backend
 */

int target;
int top;
int stack[32];

%%{
	machine call4;

	unused := 'unused';

	one := 'one' @{
		print_str "one\n";
		fret;
	};

	two := 'two' @{
		print_str "two\n";
		fret;
	};

	main := (
			'1' @{ target = fentry(one); fcall *target; }
		|	'2' @{ target = fentry(two); fcall *target; }
		|	'\n'
	)*;
}%%

##### INPUT #####
"1one2two1one\n"
##### OUTPUT #####
one
two
one
ACCEPT