char>utf16be ( char stream -- )

Vocabulary

io.encodings.utf16.private

Inputs

char	an object
stream	an object

Outputs

None

Definition

USING: kernel math ;

IN: io.encodings.utf16.private

: char>utf16be ( char stream -- )
    over 65535 > [
        [ 65536 - ] dip
        [ [ encode-first ] dip stream-write2 ]
        [ [ encode-second ] dip stream-write2 ] 2bi
    ] [ [ split>b/b swap ] dip stream-write2 ] if ; inline