add-range ( contained ranges -- )

Vocabulary

io.encodings.gb18030.private

Inputs

contained	an object
ranges	an object

Outputs

None

Definition

USING: combinators kernel math.parser sequences xml.data ;

IN: io.encodings.gb18030.private

: add-range ( contained ranges -- )
    [
        {
            [ "uFirst" attr hex> ]
            [ "uLast" attr hex> ]
            [ "bFirst" attr b>byte-array linear ]
            [ "bLast" attr b>byte-array linear ]
        } cleave range boa
    ] dip push ;