gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.63, 2007/09/30 19:46:10	version 1.64, 2007/09/30 20:21:44
Line 206 require utf-8.fs	Line 206 require utf-8.fs

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

: at-deltaxy ( dx dy -- )	: at-deltaxy ( dx dy -- ) base @ >r decimal
?dup IF	?dup IF
#esc emit '[ emit dup abs 0 .r 0< IF 'A ELSE 'B THEN emit	#esc emit '[ emit dup abs 0 .r 0< IF 'A ELSE 'B THEN emit
THEN	THEN
?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 ;	THEN r> base ! ;

\ : cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;	\ : cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;
\ : at-xy? ( -- x y )	\ : at-xy? ( -- x y )
Line 252 require utf-8.fs	Line 252 require utf-8.fs
2dup chars + r@ swap r@ xc-size xc!+? 2drop drop	2dup chars + r@ swap r@ xc-size xc!+? 2drop drop
r> xc-size >r rot r@ chars + -rot r> chars + ;	r> xc-size >r rot r@ chars + -rot r> chars + ;
: (xins) ( max span addr pos1 xc -- max span addr pos2 )	: (xins) ( max span addr pos1 xc -- max span addr pos2 )
<xins> .all .rest ;	<xins> key? 0= IF .all .rest THEN ;
: xback ( max span addr pos1 -- max span addr pos2 f )	: xback ( max span addr pos1 -- max span addr pos2 f )
dup IF over + xchar- over - 0 max .all .rest	dup IF over + xchar- over - 0 max .all .rest
ELSE bell THEN 0 ;	ELSE bell THEN 0 ;