load-encoding ( name iana-name file-name -- )

Vocabulary

io.encodings.8-bit.private

Inputs

name	an object
iana-name	an object
file-name	an object

Outputs

None

Definition

USING: generic io.encodings io.encodings.iana kernel
simple-flat-file words ;

IN: io.encodings.8-bit.private

: load-encoding ( name iana-name file-name -- )
    [ create-encoding dup ] [ register-encoding ]
    [ encoding-file load-codetable-file <8-bit> ] tri* [
        [ \ <encoder> create-method ] dip [ [ drop ] ] dip
        [ <encoder> ] curry compose define
    ] [
        [ \ <decoder> create-method ] dip [ [ drop ] ] dip
        [ <decoder> ] curry compose define
    ] 2bi ;