begin-utf16be ( stream byte -- stream char )

Vocabulary

io.encodings.utf16.private

Inputs

stream	an object
byte	an object

Outputs

stream	an object
char	an object

Definition

USING: kernel math ;

IN: io.encodings.utf16.private

: begin-utf16be ( stream byte -- stream char )
    dup -3 shift 27 number= [
        dup 4 bitand zero?
        [ 3 bitand quad-be ] [ drop ignore ] if
    ] [ double-be ] if ;