blob: 9268ad31c5ccf1c7cb8ccb7d12d61709f3a79db0 (
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
|
/*
* @LANG: indep
*/
int top;
int stack[32];
int target;
%%{
machine ncall1;
unused := 'unused';
one := 'one' @{
print_str "one\n";
fnret;
};
two := 'two' @{
print_str "two\n";
fnret;
};
main := (
'1' @{ target = fentry(one); fncall *target; }
| '2' @{ target = fentry(two); fncall *target; }
| '\n'
)*;
}%%
##### INPUT #####
"1one2two1one\n"
##### OUTPUT #####
one
two
one
ACCEPT
|