quad-le ( stream ch -- stream char )

Vocabulary

io.encodings.utf16.private

Inputs

stream	an object
ch	an object

Outputs

stream	an object
char	an object

Definition

USING: io io.encodings kernel math ;

IN: io.encodings.utf16.private

: quad-le ( stream ch -- stream char )
    over stream-read1 swap 10 shift bitor
    over stream-read1 dup -2 shift 55 =
    [ 3 bitand append-nums 65536 + ] [ 2drop replacement-char ]
    if ;