blob: 13775d20a99ce90913310bbcc67071be9050241e (
plain) (
blame)
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
|
1 2 3
.s
: test-case ( n -- )
case
0 of
." zero"
endof
1 of
." one"
endof
." something else"
endcase
cr
;
see test-case
.( You should see 1 2 3 ->)
.s
.( <-) cr
.( You should see "zero": )
0 test-case
.( You should see "one": )
1 test-case
.( You should see "something else": )
324 test-case
.( You should still see 1 2 3 ->)
.s
.( <-) cr
: test-case-2 ( n -- )
case
0 of
." zero"
fallthrough
1 of
." one"
endof
2 of
." two"
fallthrough
." something else"
endcase
cr
;
see test-case-2
cr
.( You should once more see 1 2 3 ->)
.s
.( <-) cr
.( You should see "zeroone": )
0 test-case-2
.( You should see "one": )
1 test-case-2
.( You should see "two": )
2 test-case-2
.( You should see "something else": )
324 test-case-2
.( You should still see 1 2 3 ->)
.s
.( <-) cr
bye
|
