double-le ( stream byte1 byte2 -- stream char )

Vocabulary

io.encodings.utf16.private

Inputs

stream	an object
byte1	an object
byte2	an object

Outputs

stream	an object
char	an object

Definition

USING: io.encodings kernel math ;

IN: io.encodings.utf16.private

: double-le ( stream byte1 byte2 -- stream char )
    dup -3 shift 27 = [
        dup 4 bitand 0 number=
        [ 3 bitand 8 shift bitor quad-le ]
        [ 2drop replacement-char ] if
    ] [ append-nums ] if ;