[gforth] / gforth / history.fs  

gforth: gforth/history.fs

Diff for /gforth/history.fs between version 1.33 and 1.38

version 1.33, Fri Dec 24 14:08:43 2004 UTC version 1.38, Wed Jan 5 22:13:40 2005 UTC
Line 1 
Line 1 
 \ command line edit and history support                 16oct94py  \ command line edit and history support                 16oct94py
   
 \ Copyright (C) 1995,2000,2003 Free Software Foundation, Inc.  \ Copyright (C) 1995,2000,2003,2004 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 185 
Line 185 
     REPEAT      REPEAT
     drop r> ;      drop r> ;
   
   : prefix-off ( -- )  0 0 prefix-found 2! ;
   
 : prefix-string ( addr len nfa -- addr' len' )  : prefix-string ( addr len nfa -- addr' len' )
     dup prefix-found !  ?dup      dup prefix-found !  ?dup
     IF      IF
         name>string rot /string rot drop          name>string rot /string rot drop
         dup 1+ prefix-found cell+ !          dup 1+ prefix-found cell+ !
     ELSE      ELSE
         2drop s" " prefix-found cell+ off          2drop s" " prefix-off
     THEN ;      THEN ;
   
 : search-prefix  ( addr1 len1 -- addr2 len2 )  : search-prefix  ( addr1 len1 -- addr2 len2 )
Line 216 
Line 218 
     prefix-found @ IF  bl (ins)  THEN  0 ;      prefix-found @ IF  bl (ins)  THEN  0 ;
   
 : kill-prefix  ( key -- key )  : kill-prefix  ( key -- key )
   dup #tab <> IF  0 0 prefix-found 2!  THEN ;    dup #tab <> IF  prefix-off  THEN ;
   
   [IFUNDEF] everyline defer everyline [THEN]
   
 : 8-bit-io ( -- )  : 8-bit-io ( -- )
     ['] forw        ctrl F bindkey      ['] forw        ctrl F bindkey
Line 240 
Line 244 
   
 \ UTF-8 support  \ UTF-8 support
   
 include utf-8.fs  require utf-8.fs
   
 : utf-8-cold ( -- )  : utf-8-cold ( -- )
     s" LANG" getenv s" .UTF-8" search nip nip      s" LANG" getenv s" .UTF-8" search nip nip

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help