gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.66, 2007/10/22 20:30:39	version 1.67, 2007/12/16 15:22:05
Line 78 defer cur-correct ( addr u -- )	Line 78 defer cur-correct ( addr u -- )

Variable linew	Variable linew
Variable screenw	Variable screenw
	: linew-off linew off cols screenw ! ;
: linew-off linew off form nip screenw ! ;

[IFDEF] x-width	[IFDEF] x-width
: clear-line ( max span addr pos1 -- max addr )	: clear-line ( max span addr pos1 -- max addr )
Line 239 require utf-8.fs	Line 238 require utf-8.fs
linew @ xback-restore >r 2dup swap type 2dup swap cur-correct r> ;	linew @ xback-restore >r 2dup swap type 2dup swap cur-correct r> ;

: xretype ( max span addr pos1 -- max span addr pos1 f )	: xretype ( max span addr pos1 -- max span addr pos1 f )
.all form nip screenw @ >r screenw !	.all cols screenw @ >r screenw !
linew @ screenw @ / linew @ r@ / max	linew @ screenw @ / linew @ r@ / max
screenw @ r> - * 0 max	screenw @ r> - * 0 max
dup spaces linew +! .rest false ;	dup spaces linew +! .rest false ;