quad-be ( 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: io io.encodings kernel math ;

IN: io.encodings.utf16.private

: quad-be ( stream byte -- stream char )
    double-be over stream-read1 [
        dup -2 shift 55 number= [
            [ 2 shift ] dip 3 bitand bitor
            over stream-read1 swap append-nums 65536 +
        ] [ 2drop dup stream-read1 drop replacement-char ] if
    ] when* ;