<PRIVATE
: byte? ( ch -- ? )
- HEX: 0 HEX: ff between? ;
+ 0x0 0xff between? ;
M: euc encode-char ( char stream encoding -- )
swapd table>> value-at [
] [ encode-error ] if* ;
: euc-multibyte? ( ch -- ? )
- HEX: 81 HEX: fe between? ;
+ 0x81 0xfe between? ;
:: decode-multibyte ( ch stream encoding -- char )
stream stream-read1
PRIVATE>
-: EUC:
+SYNTAX: EUC:
! EUC: euc-kr "vocab:io/encodings/korean/cp949.txt"
- CREATE-CLASS scan-object define-euc ; parsing
+ scan-new-class scan-object define-euc ;