gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.72, 2008/07/15 16:11:49	version 1.73, 2010/01/23 22:19:50
Line 278 require utf-8.fs	Line 278 require utf-8.fs
: xend-pos ( max span addr pos1 -- max span addr span 0 )	: xend-pos ( max span addr pos1 -- max span addr span 0 )
drop over .all 0 ;	drop over .all 0 ;

	: xclear-rest ( max span addr pos -- max pos addr pos false )
: xclear-line ( max span addr pos1 -- max addr )	rot >r tuck 2dup r> swap /string u8width dup spaces linew +! .all 0 ;
2dup x-width dup xback-restore dup spaces xback-restore drop nip ;
: xclear-tib ( max span addr pos -- max 0 addr 0 false )
xclear-line 0 tuck dup ;

: (xenter) ( max span addr pos1 -- max span addr pos2 true )	: (xenter) ( max span addr pos1 -- max span addr pos2 true )
>r end^ 2@ hist-setpos	>r end^ 2@ hist-setpos
Line 316 require utf-8.fs	Line 313 require utf-8.fs
['] ?xdel ctrl H bindkey	['] ?xdel ctrl H bindkey
['] xeof ctrl D bindkey	['] xeof ctrl D bindkey
['] <xdel> ctrl X bindkey	['] <xdel> ctrl X bindkey
['] xclear-tib ctrl K bindkey	['] xclear-rest ctrl K bindkey
['] xfirst-pos ctrl A bindkey	['] xfirst-pos ctrl A bindkey
['] xend-pos ctrl E bindkey	['] xend-pos ctrl E bindkey
['] xretype ctrl L bindkey	['] xretype ctrl L bindkey