Diff for /gforth/history.fs between versions 1.34 and 1.38

version 1.34, 2004/12/26 20:32:02 version 1.38, 2005/01/05 22:13:40
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  Create prefix-found  0 , 0 , Line 185  Create prefix-found  0 , 0 ,
     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  Create prefix-found  0 , 0 , Line 218  Create prefix-found  0 , 0 ,
     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]  [IFUNDEF] everyline defer everyline [THEN]
   
Line 242  Create prefix-found  0 , 0 , Line 244  Create prefix-found  0 , 0 ,
   
 \ 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

Removed from v.1.34  
changed lines
  Added in v.1.38


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>