1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: io.encodings io.encodings.utf16 kernel alien.accessors ;
4 IN: io.encodings.utf16n
10 : utf16n ( -- descriptor )
11 B{ 1 0 0 0 } 0 alien-unsigned-4 1 = utf16le utf16be ? ; foldable
13 M: utf16n <decoder> drop utf16n <decoder> ;
15 M: utf16n <encoder> drop utf16n <encoder> ;