collapseos/forth/str.fs

: SLEN      ( a -- n )
    DUP     ( astart aend )
    BEGIN
    DUP C@ 0 = IF -^ EXIT THEN
    1 +
    AGAIN
;

: BS 8 EMIT ;
: LF 10 EMIT ;
: CR 13 EMIT ;
: SPC 32 EMIT ;
forth: Implement "(parseh)" 2020-03-18 21:52:55 -04:00			`: SLEN ( a -- n )`
			`DUP ( astart aend )`
			`BEGIN`
			`DUP C@ 0 = IF -^ EXIT THEN`
			`1 +`
			`AGAIN`
			`;`
tests: add Forth tests Modest first step 2020-03-19 15:43:48 -04:00
forth: implement readline in Forth The commit ended up being much bigger than anticipated. This was a long thread of underlying complexities. This lead to the creation of interesting concepts such as (sysv). 2020-03-20 13:35:02 -04:00			`: BS 8 EMIT ;`
tests: add Forth tests Modest first step 2020-03-19 15:43:48 -04:00			`: LF 10 EMIT ;`
forth: implement readline in Forth The commit ended up being much bigger than anticipated. This was a long thread of underlying complexities. This lead to the creation of interesting concepts such as (sysv). 2020-03-20 13:35:02 -04:00			`: CR 13 EMIT ;`
tests: add Forth tests Modest first step 2020-03-19 15:43:48 -04:00			`: SPC 32 EMIT ;`