gforth/kernel/accept.fs - diff

Return to accept.fs CVS log

Up to [gforth] / gforth / kernel

version 1.18, 2006/12/31 13:39:18	version 1.19, 2007/06/30 23:00:15
Line 41 Create ctrlkeys	Line 41 Create ctrlkeys
' false a, ' false a, ' false a, ' false a,	' false a, ' false a, ' false a, ' false a,
' false a, ' false a, ' false a, ' false a,	' false a, ' false a, ' false a, ' false a,

	' false a,

defer insert-char	defer insert-char
' (ins) IS insert-char	' (ins) IS insert-char
defer everychar	defer everychar
Line 55 defer everyline	Line 57 defer everyline
everychar	everychar
dup -1 = IF drop 4 THEN \ -1 is EOF	dup -1 = IF drop 4 THEN \ -1 is EOF
dup #del = IF drop #bs THEN \ del is rubout	dup #del = IF drop #bs THEN \ del is rubout
	dup $FF = IF drop bl cells ctrlkeys + perform EXIT THEN
dup bl u< IF cells ctrlkeys + perform EXIT THEN	dup bl u< IF cells ctrlkeys + perform EXIT THEN
\ check for end reached	\ check for end reached
insert-char 0 ;	insert-char 0 ;