version 1.10, 1998/12/19 13:43:19
|
version 1.15, 2000/04/27 08:51:33
|
Line 129 end-struct my-struct%
|
Line 129 end-struct my-struct%
|
|
|
0 field2 float% %alignment <> throw |
0 field2 float% %alignment <> throw |
|
|
|
\ filenames with "//" |
|
|
|
s" //jkfklfggfld/fjsjfk/hjfdjs" open-fpath-file 2drop |
|
|
|
\ allotting negative space |
|
|
|
1 allot |
|
-1 allot |
|
|
|
\ unaligned input for head? |
|
|
|
here 1+ head? throw |
|
|
|
\ [compile] exit = exit |
|
|
|
: foo [compile] exit abort" '[compile] exit' broken" ; |
|
foo |
|
|
|
\ restore-input |
|
|
|
: test-restore-input[ ( -- ) |
|
refill 0= abort" refill failed" |
|
bl word drop |
|
save-input |
|
refill 0= abort" refill failed" |
|
-1 ; |
|
|
|
: ]test-restore-input ( -- ) |
|
drop restore-input abort" restore-input failed" 0 ; |
|
|
|
\ First input is skipped until the "]test-restore-input", then it is |
|
\ reset to just before "0 [if]" |
|
test-restore-input[ abort \ these aborts are skipped |
|
abort 0 [if] |
|
s" oops" 2drop ]test-restore-input abort |
|
[then] |
|
( 0 ) throw |
|
|
\ comments across several lines |
\ comments across several lines |
|
|
( fjklfjlas;d |
( fjklfjlas;d |