basis/io/encodings/utf16n/utf16n.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien.c-types io.encodings io.encodings.utf16 kernel ;
   4 IN: io.encodings.utf16n
   5
   6 ! Native-order UTF-16
   7
   8 SINGLETON: utf16n
   9
  10 : utf16n ( -- descriptor )
  11     little-endian? utf16le utf16be ? ; foldable
  12
  13 M: utf16n <decoder> drop utf16n <decoder> ;
  14
  15 M: utf16n <encoder> drop utf16n <encoder> ;