From 9a5b8581d0fb18d20ac21b8d1f96bf18806f1742 Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Tue, 21 Feb 2023 09:08:30 -0500 Subject: s", quit, abort --- core.fth | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) (limited to 'core.fth') diff --git a/core.fth b/core.fth index 3f10371..e461964 100644 --- a/core.fth +++ b/core.fth @@ -88,7 +88,7 @@ : cr 9 emit ; : bl 32 ; : space bl emit ; -: spaces begin dup 0 > while space 1- repeat ; +: spaces begin dup 0 > while space 1- repeat drop ; : ?dup dup if dup then ; @@ -104,8 +104,14 @@ : char bl word cell+ c@ ; : [char] char postpone literal ; imm -: type begin dup 0 > while swap dup c@ emit char+ swap 1- repeat ; -: ." [char] " word count type ; +: type begin dup 0 > while swap dup c@ emit char+ swap 1- repeat 2drop ; +: s" state @ if ['] _jmp , here 0 , then + [char] " word count + state @ 0= if exit then + dup cell+ allot + rot here swap ! + swap postpone literal postpone literal ; imm +: ." postpone s" state @ if ['] type , else type then ; imm : create align here bl word count nip cell+ allot align ['] _lit , here 3 cells + , ['] exit , 0 , @@ -123,3 +129,6 @@ : >in _input 80 chars + cell+ _input @ - 4 chars - ; : source _input @ 6 chars + >in 3 chars - swap ; + +: quit begin _rdepth 1 > while r> drop repeat postpone [ ; +: abort begin depth 0 > while drop repeat quit ; -- cgit v1.2.3