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
|
\ Another test of Erroneous Control Constructs.
\ Contrived to completely crash the tokenizer...
\ Updated Wed, 03 Aug 2005 at 09:49 by David L. Paktor
fcode-version2
headers
\ Seven dwarves:
\ Happy Grumpy Sleepy Sneezy Dopey Bashful and Doc
\ Their disfavored cousins:
\ Crappy Dumpy Sneaky Sleazy Gropey Trashful and Schlock
: crapsky
." 0 case" 0 case
." 1 of"
1 of ." 1 endof" 1 endof
." 2 of"
2 of ." 2 endof" 2 endof
." 3 of"
3 of ." 3 endof" 3 endof
." default 0" 0
." resolve case w/ then" then
." resolve 3 endof w/ then" then
." resolve 2 endof w/ then" then
." resolve 1 endof w/ then" then
." Donesky vith crapsky."
;
: dumpsky
." 0 if" 0 if
." free-floating endcase"
endcase ." And no then"
;
: sneaksky
." Free-floating else" else
." And notsnik aftervards."
;
: gropsky
." A typo. 0 of not 0 if"
0 of
." Misbalanced by a then?"
then
." Goobar... Guwno?"
;
: trashsky
." Another typo..."
." 0 case " 0 case
." 10 if not 10 of"
10 if
." Misbalanced by endof."
endof
." Not my default."
endcase
." That was an endcase just in case"
;
: schlocksky
." Like trashsky but without final balancer..."
." Another typo..."
." 0 case " 0 case
." 10 if not 10 of"
10 if
." Misbalanced by endof."
endof
." No endcase here"
;
fcode-end
|
