gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.21, 2000/04/12 20:53:46	version 1.22, 2000/07/31 19:56:08
Line 41 interpret/compile: ctrl ( "<char>" -- c	Line 41 interpret/compile: ctrl ( "<char>" -- c
: (ret) type-rest drop true space ;	: (ret) type-rest drop true space ;
: back dup IF 1- #bs emit ELSE #bell emit THEN 0 ;	: back dup IF 1- #bs emit ELSE #bell emit THEN 0 ;
: forw 2 pick over <> IF 2dup + c@ emit 1+ ELSE #bell emit THEN 0 ;	: forw 2 pick over <> IF 2dup + c@ emit 1+ ELSE #bell emit THEN 0 ;
: eof 2 pick over or 0= IF	: eof ( max span addr pos1 -- max span addr pos2 0 )
bye	2 pick over <>
ELSE 2 pick over <>	IF forw drop (del) ELSE #bell emit THEN 0 ;
IF forw drop (del) ELSE #bell emit THEN 0
THEN ;

' forw ctrl F cells ctrlkeys + !	' forw ctrl F cells ctrlkeys + !
' back ctrl B cells ctrlkeys + !	' back ctrl B cells ctrlkeys + !