[gforth] / gforth / history.fs  

gforth: gforth/history.fs

Diff for /gforth/history.fs between version 1.22 and 1.23

version 1.22, Mon Jul 31 19:56:08 2000 UTC version 1.23, Mon Jul 31 21:00:26 2000 UTC
Line 41 
Line 41 
 : (ret)  type-rest drop true space ;  : (ret)  type-rest drop true space ;
 : back  dup  IF  1- #bs emit  ELSE  #bell emit  THEN 0 ;  : back  dup  IF  1- #bs emit  ELSE  #bell emit  THEN 0 ;
 : forw 2 pick over <> IF  2dup + c@ emit 1+  ELSE  #bell emit  THEN 0 ;  : forw 2 pick over <> IF  2dup + c@ emit 1+  ELSE  #bell emit  THEN 0 ;
 : eof ( max span addr pos1 -- max span addr pos2 0 )  : <del> ( max span addr pos1 -- max span addr pos2 0 )
     2 pick over <>      2 pick over <>
     IF  forw drop (del)  ELSE  #bell emit  THEN  0 ;      IF  forw drop (del)  ELSE  #bell emit  THEN  0 ;
   : eof  2 pick over or 0=  IF  bye  ELSE  <del>  THEN ;
   
 ' forw  ctrl F cells ctrlkeys + !  ' forw  ctrl F cells ctrlkeys + !
 ' back  ctrl B cells ctrlkeys + !  ' back  ctrl B cells ctrlkeys + !
Line 202 
Line 203 
     5 pick over 4 pick + prefix-found @ 0<> - < ;      5 pick over 4 pick + prefix-found @ 0<> - < ;
   
 : tab-expand ( max span addr pos1 -- max span addr pos2 0 )  : tab-expand ( max span addr pos1 -- max span addr pos2 0 )
     kill-expand  2dup extract-word search-prefix      kill-expand  2dup extract-word dup 0= IF  nip EXIT  THEN
     tib-full?      search-prefix  tib-full?
     IF    7 emit  2drop  0 0 prefix-found 2!      IF    7 emit  2drop  0 0 prefix-found 2!
     ELSE  bounds ?DO  I c@ (ins)  LOOP  THEN      ELSE  bounds ?DO  I c@ (ins)  LOOP  THEN
     prefix-found @ IF  bl (ins)  THEN  0 ;      prefix-found @ IF  bl (ins)  THEN  0 ;

Generate output suitable for use with a patch program
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help