[jackhill/mal.git] / forth / step0_repl.fs

require types.fs

: read ;
: eval ;
: print ;

: rep
    read
    eval
    print ;

create buff 128 allot

: read-lines
    begin
      ." user> "
      buff 128 stdin read-line throw
    while ( num-bytes-read )
      dup 0 <> if
        buff swap
        rep type cr
      endif
    repeat ;

read-lines
Commit	Line	Data
59038a10	1	require types.fs
ccc7d9d1 C	2
	3	: read ;
	4	: eval ;
	5	: print ;
	6
	7	: rep
	8	read
	9	eval
	10	print ;
	11
	12	create buff 128 allot
	13
	14	: read-lines
	15	begin
	16	." user> "
	17	buff 128 stdin read-line throw
9e2a4ab0 JMC	18	while ( num-bytes-read )
	19	dup 0 <> if
	20	buff swap
	21	rep type cr
	22	endif
ccc7d9d1 C	23	repeat ;
ccc7d9d1 C	24
9e2a4ab0	25	read-lines