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
|
\ LocalTest.fth
\ Updated Thu, 31 Aug 2006 at 15:33 PDT by David L. Paktor
fcode-version2
\ Optionally omitting inclusion of LocalValuesSupport
\ Correct inclusion is in TokoLoco/SupportedLocalTest.fth
[ifdef] dont_omit_support
fload LocalValuesSupport.fth
[endif]
h# Deaf constant dean
: faber ( n3 n2 n1 -- alloc-addr size $addr,len )
{ _otter _weasel _skunk ; _muskrat _mole }
\ _otter is initialized with the value of n3
\ _weasel is initialized with the value of n2
\ _skunk is initialized with the value of n1
\ _muskrat and _mole are uninitialized
\ Use n1 to determine an amount of memory to allocate, and
\ stuff the address into _mole
_skunk 40 * -> _muskrat
_muskrat alloc-mem -> _mole
f[
123 456 789 3dup
to _otter
_otter
constant
seegammanoo
dean constant wenkroy
]f
_weasel .h type
_otter .d type
_mole _muskrat _mole count
;
f[
]f
: miracle ( n3 n2 n1 -- m3 m2 m1 )
{ _curly _larry _moe | _shemp _besser _joe }
." Nyuk! " _curly .h cr
." Why, you... " _moe .d cr
." Ouch! " _larry .
_curly _moe + -> _shemp
_larry _moe + -> _besser
_besser _curly + -> _joe
_joe _besser 8 faber type free-mem
_moe _larry 8 faber type free-mem
_curly _besser 8 faber type free-mem
_larry _shemp
;
: ordinary ( -- )
123 456 789 miracle
;
{ _don't _allow _this ; _ever }
F[
{ _nor _this ; _either }
]F
\ And the "unterminated" tests
: ahnold ( the unterminator )
fload UntermLocalDecl.fth
} \ Does this conclude it okay? (No, it's extraneous...)
_green _goose + dup
-> _souvenirs
fload UntermLocalAssgmnt.fth
_souvenirs
;
\ Once more, out of context:
fload UntermLocalDecl.fth
fload UntermLocalAssgmnt.fth _souvenirs
\ And another couple of corner-cases:
fload UntermDefn.fth moopoop
F[ fload UntermDefn.fth poop-de-moo ]F
fcode-end
|
