From e49e8042537c7cf57139c8ddac9c1497af3ee280 Mon Sep 17 00:00:00 2001 From: kitty Date: Thu, 5 Mar 2026 15:07:48 +1100 Subject: an interpreter!!!!!!!!!!! aaaaaaaaaaaaaaaaaaaa --- jefs.fs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'jefs.fs') diff --git a/jefs.fs b/jefs.fs index f211395..f26a8af 100644 --- a/jefs.fs +++ b/jefs.fs @@ -346,10 +346,11 @@ hide truncate-(accept-n) 2048 constant line-buffer-length make line-buffer line-buffer-length allot -\ todo source-id : refill ( -- ? ) source-id 0< if false [ ret, ] then 0 >in ! line-buffer tib ! line-buffer line-buffer-length accept 0= if ?dup if false [ ret, ] then then #tib ! true ; + +: quit 0 to source-id [compile] [ begin refill while interpret ." ok" cr repeat ; \ }}} : (evaluate) ( c-addr u -- ) 0 >in ! ( u ) #tib ! ( c-addr ) tib ! @@ -357,7 +358,5 @@ make line-buffer line-buffer-length allot : evaluate ( c-addr u -- ) tib @ >r #tib @ >r >in @ >r (evaluate) r> >in ! r> #tib ! r> tib ! ; .free -\ make testb 10 allot -\ testb 10 accept .s -words +quit bye bye -- cgit v1.2.3