gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.59, 2007/07/01 11:32:44	version 1.62, 2007/07/19 13:28:18
Line 203 require utf-8.fs	Line 203 require utf-8.fs
Variable curpos	Variable curpos
Variable screenw	Variable screenw

	: at-deltaxy ( dx dy -- )
	#esc emit '[ emit dup abs 0 .r 0< IF 'A ELSE 'B THEN emit
	#esc emit '[ emit dup abs 0 .r 0< IF 'D ELSE 'C THEN emit ;

: cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;	: cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;
: at-xy? ( -- x y )	: at-xy? ( -- x y )
	key? drop \ make sure prep_terminal() is executed
#esc emit ." [6n" 0 0	#esc emit ." [6n" 0 0
BEGIN key dup 'R <> WHILE	BEGIN key dup 'R <> WHILE
dup '; = IF drop swap ELSE	dup '; = IF drop swap ELSE
Line 318 Variable screenw	Line 323 Variable screenw
['] xclear-tib ctrl K bindkey	['] xclear-tib ctrl K bindkey
['] xfirst-pos ctrl A bindkey	['] xfirst-pos ctrl A bindkey
['] xend-pos ctrl E bindkey	['] xend-pos ctrl E bindkey
['] xretype bl bindkey	['] xretype ctrl L bindkey
history IF ['] (xenter) #lf bindkey THEN	history IF ['] (xenter) #lf bindkey THEN
history IF ['] (xenter) #cr bindkey THEN	history IF ['] (xenter) #cr bindkey THEN
['] xtab-expand #tab bindkey	['] xtab-expand #tab bindkey