diff options
| -rw-r--r-- | jefs.fs | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -270,7 +270,11 @@ decimal : >ffa ( lfa -- ffa ) 8 + ; : >nfa ( lfa -- nfa ) 9 + ; -: (words) ( lfa -- ) >nfa dup w@ swap 2 + swap say 2 spaces ; +: (hide) ( lfa -- ) >ffa dup c@ 1 or swap c! ; +: hide parse find drop (hide) ; \ todo error handling + +: hidden? ( lfa -- ? ) >ffa c@ 1 and 0<> ; +: (words) ( lfa -- ) dup hidden? not if >nfa dup w@ swap 2 + swap say 2 spaces then ; : words latest @ begin ?dup 0<> while dup (words) @ repeat cr ; \ I/O {{{ @@ -333,6 +337,8 @@ stdin buffers-fd ! else over (accept-a) + c! 1+ then else drop truncate-(accept-n) false swap then repeat (accept-real-n) (accept-n) = if true else swap then ; +hide (accept-n) hide (accept-a) hide (accept-real-n) +hide truncate-(accept-n) \ i think i'll just take the wonkiness of \ 'if you use LOAD or something like that you lose the rest of that line' @@ -353,4 +359,5 @@ make line-buffer line-buffer-length allot .free \ make testb 10 allot \ testb 10 accept .s +words bye |