gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.78, 2012/04/06 16:50:03	version 1.79, 2012/08/15 00:48:12
Line 207 require utf-8.fs	Line 207 require utf-8.fs

[IFUNDEF] #esc 27 Constant #esc [THEN]	[IFUNDEF] #esc 27 Constant #esc [THEN]

: at-deltaxy ( dx dy -- )	Defer at-deltaxy
	: vt100-at-deltaxy ( dx dy -- )
over 0< over 0= and IF drop abs backspaces EXIT THEN	over 0< over 0= and IF drop abs backspaces EXIT THEN
base @ >r decimal	base @ >r decimal
?dup IF	?dup IF
Line 216 require utf-8.fs	Line 217 require utf-8.fs
?dup IF	?dup IF
#esc emit '[ emit dup abs 0 .r 0< IF 'D ELSE 'C THEN emit	#esc emit '[ emit dup abs 0 .r 0< IF 'D ELSE 'C THEN emit
THEN r> base ! ;	THEN r> base ! ;
	' vt100-at-deltaxy IS at-deltaxy

\ : cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;	\ : cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;
\ : at-xy? ( -- x y )	\ : at-xy? ( -- x y )