[gforth] / gforth / utf-8.fs  

gforth: gforth/utf-8.fs

Diff for /gforth/utf-8.fs between version 1.15 and 1.16

version 1.15, Wed Jan 12 21:21:53 2005 UTC version 1.16, Thu Jan 13 21:26:46 2005 UTC
Line 141 
Line 141 
 ;  ;
   
 : utf-8-cold ( -- )  : utf-8-cold ( -- )
     s" LANG" getenv s" .UTF-8" search nip nip      s" LC_ALL" getenv 2dup d0= IF  2drop
           s" LC_CTYPE" getenv 2dup d0= IF  2drop
               s" LANG" getenv 2dup d0= IF  2drop
                   s" C"  THEN THEN THEN
       s" UTF-8" search nip nip
     IF  set-encoding-utf-8  ELSE  set-encoding-fixed-width  THEN ;      IF  set-encoding-utf-8  ELSE  set-encoding-fixed-width  THEN ;
   
 ' utf-8-cold INIT8 chained  ' utf-8-cold INIT8 chained

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help