1 USING: alien alien.data alien.strings io.encodings.ascii
2 io.encodings.latin1 io.encodings.string io.encodings.utf16
3 io.encodings.utf8 kernel libc tools.test ;
6 [ "\u0000ff" latin1 string>alien latin1 alien>string ]
10 [ "hello world" latin1 string>alien latin1 alien>string ]
13 { "hello\u00abcdworld" }
14 [ "hello\u00abcdworld" utf16le string>alien utf16le alien>string ]
17 { t } [ f expired? ] unit-test
20 "hello world" ascii malloc-string
21 dup ascii alien>string swap free
25 "hello world" utf16n malloc-string
26 dup utf16n alien>string swap free
29 { f } [ f utf8 alien>string ] unit-test
31 { "hello" } [ "hello" utf16 encode utf16 decode ] unit-test
33 { "hello" } [ "hello" utf16 string>alien utf16 alien>string ] unit-test