From 03e51809df481f668d90bf2d9aa1f887b86ec7ee Mon Sep 17 00:00:00 2001 From: kitty Date: Wed, 4 Mar 2026 18:06:54 +1100 Subject: remove old commented out stuff --- jefs.fs | 20 -------------------- 1 file changed, 20 deletions(-) diff --git a/jefs.fs b/jefs.fs index 5ade0d6..84bb85a 100644 --- a/jefs.fs +++ b/jefs.fs @@ -281,7 +281,6 @@ init-source source-id ! \ including the console input, we can recurse input buffers \ up to four levels. (max-include-depth <=) -\ todo maybe these should be renamed 0 value include-depth 3 constant max-include-depth max-include-depth 1+ constant #buffers @@ -298,9 +297,7 @@ make buffers-fd #buffers cells allot stdin buffers-fd ! : buffer-refill ( u|0 ) cbuffer /buffer cbuffer-fd @ read-file 0<> if 0 then 0 cbuffer->in ! dup cbuffer-used ! ; \ returns zero on error or nothing read. -\ this is Borken : buffer-empty? cbuffer->in @ cbuffer-used @ >= ; -\ bug: always seems to refill : buffer-key buffer-empty? if buffer-refill 0= if -1 [ ret, ] then then cbuffer cbuffer->in @ + c@ cbuffer->in @ 1+ cbuffer->in ! ; @@ -310,18 +307,6 @@ stdin buffers-fd ! \ i dont think that's that big a deal 2048 constant line-buffer-length make line-buffer line-buffer-length allot - -\ todo move remaining stuff back before read-file, -\ update tib stuff for new data -\ what if word spans accross refills? maybe parse -\ should be rewritten here to take this into account -\ : move-back ( -- remaining ) tib @ >in @ + tib @ #tib @ >in @ - dup >r cmove -\ r> #tib ! 0 >in ! #tib @ ; \ maybe make this less shitty at sum pt -\ : (refill) ( fd -- flag ) >r file-buffer file-buffer-length r> read-file -\ 0= if ?dup 0> if ( TODO > ) drop ( < TODO ) true -\ else false then else false then ; -\ : refill ( -- flag ) source-id @ dup 0>= if (refill) else drop false then ; -\ : refill ." UNIMPLEMENTED" cr ; \ }}} : (evaluate) ( c-addr u -- ) 0 >in ! ( u ) #tib ! ( c-addr ) tib ! @@ -335,9 +320,4 @@ make line-buffer line-buffer-length allot \ }}} .free -\ input-buffer buffer-length stdin read-file drop input-buffer swap evaluate -buffer-key -buffer-key -char = emit cr -.s bye -- cgit v1.2.3