blob: 7ccba6677c265592d6bea90e82d3a085ad97f2c1 (
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
|
/*
* @LANG: indep
* @NEEDS_EOF: yes
*/
int q_1;
%%{
machine pattern_0001;
action match { print_str "match\n"; }
action ini_1 {
print_str "ini = 0\n";
q_1 = 0;
}
action inc_1 {
print_str "inc to ";
print_int q_1 + 1;
print_str "\n";
q_1 = q_1 + 1;
}
action min_1 { q_1 >= 5 }
action max_1 { q_1 < 10 }
main :=
:condstar( 'a', ini_1, inc_1, min_1, max_1 ):
%match;
}%%
##### INPUT #####
""
"a"
"aa"
"aaa"
"aaaa"
"aaaaa"
##### OUTPUT #####
ini = 0
FAIL
ini = 0
inc to 1
FAIL
ini = 0
inc to 1
inc to 2
FAIL
ini = 0
inc to 1
inc to 2
inc to 3
FAIL
ini = 0
inc to 1
inc to 2
inc to 3
inc to 4
FAIL
ini = 0
inc to 1
inc to 2
inc to 3
inc to 4
inc to 5
match
ACCEPT
|