gforth/utf-8.fs - diff

Return to utf-8.fs CVS log

Up to [gforth] / gforth

version 1.15, 2005/01/12 21:21:53	version 1.16, 2005/01/13 21:26:46
Line 141 $80 Value max-single-byte	Line 141 $80 Value max-single-byte
;	;

: 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