decode-quad ( byte-array -- char )

Vocabulary

io.encodings.gb18030.private

Inputs

byte-array

an object

Outputs

char

an object

Definition

USING: accessors assocs interval-maps io.encodings kernel math
namespaces ;

IN: io.encodings.gb18030.private

: decode-quad ( byte-array -- char )
    [ mapping get-global value-at ] [
        linear dup gb>u get-global interval-at
        [ [ bfirst>> - ] [ ufirst>> ] bi + ]
        [ drop replacement-char ] if*
    ] ?unless ;