gforth/utf-8.fs - diff

Return to utf-8.fs CVS log

Up to [gforth] / gforth

-version 1.14, 2005/01/10 10:30:55
+version 1.16, 2005/01/13 21:26:46
  Line 140  $80 Value max-single-byte
      ['] -u8trailing-garbage is -trailing-garbage
  ;
+ : utf-8-cold ( -- )
+     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 ;
+ ' utf-8-cold INIT8 chained
+ utf-8-cold