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
|
//
// @LANG: crack
// @GENERATED: true
//
import crack.io cout;
import crack.lang Buffer;
byte comm;
int top;
array[int] stack = [ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ];
%%{
machine gotocallret;
# A reference to a state in an unused action caused a segfault in 5.8. */
action unusedAction {fentry(garble_line);
}
action err_garbling_line {cout.format( "error: garbling line\n" );
}
action goto_main {fnext main;}
action recovery_failed {cout.format( "error: failed to recover\n" );
}
# Error machine, consumes to end of
# line, then starts the main line over.
garble_line := ( (any-'\n')*'\n')
>err_garbling_line
@goto_main
$/recovery_failed;
action hold_and_return {fhold;fnret;}
# Look for a string of alphas or of digits,
# on anything else, hold the character and return.
alp_comm := alpha+ $!hold_and_return;
dig_comm := digit+ $!hold_and_return;
# Choose which to machine to call into based on the command.
action comm_arg {if ( comm >= 97 )
{
fncall alp_comm;
}
else {
fncall dig_comm;
}
}
# Specifies command string. Note that the arg is left out.
command = (
[a-z0-9] @{comm = fc;
} ' ' @comm_arg @{cout.format( "prints\n" );
} '\n'
) @{cout.format( "correct command\n" );
};
# Any number of commands. If there is an
# error anywhere, garble the line.
main := command* $!{fhold;fnext garble_line;};
}%%
%% write data;
void m( String s )
{
byteptr data = s.buffer;
int p = 0;
int pe = s.size;
int cs;
String buffer;
int eof = pe;
%% write init;
%% write exec;
if ( cs >= gotocallret_first_final ) {
cout `ACCEPT\n`;
}
else {
cout `FAIL\n`;
}
}
void main()
{
m( "lkajsdf\n" );
m( "2134\n" );
m( "(\n" );
m( "\n" );
m( "*234234()0909 092 -234aslkf09`1 11\n" );
m( "1\n" );
m( "909\n" );
m( "1 a\n" );
m( "11 1\n" );
m( "a 1\n" );
m( "aa a\n" );
m( "1 1\n" );
m( "1 123456\n" );
m( "a a\n" );
m( "a abcdef\n" );
m( "h" );
m( "a aa1" );
}
main();
|
