encode-char ( char stream encoding -- )
Factor handbook » Input and output » I/O encodings » Encoding protocol

Prev:

decode-char ( stream encoding -- char/f )

Vocabulary
io.encodings

Inputs

char	a character
stream	an underlying output stream
encoding	an encoding descriptor

Outputs
None

Generic word contract
Writes the code point to the underlying stream in the given encoding.

Notes
Calling this word directly is not necessary in most cases. Higher-level words call it automatically.

See also
decode-char

Definition

IN: io.encodings

GENERIC: encode-char ( char stream encoding -- )

Methods

USING: io io.encodings io.encodings.8-bit.private kernel ;

M: 8-bit encode-char swap [ 8-bit-encode ] dip stream-write1 ;


USING: io io.encodings io.encodings.ascii kernel math ;

M: ascii encode-char
    drop over 127 <= [ stream-write1 ] [ encode-error ] if ;
    inline


USING: accessors assocs byte-arrays io io.encodings
io.encodings.euc io.encodings.euc.private kernel math.bitwise ;

M: euc encode-char
    swapd table>> value-at [
        dup byte?
        [ swap stream-write1 ]
        [ h>b/b swap 2byte-array swap stream-write ] if
    ] [ encode-error ] if* ;


USING: assocs io io.encodings io.encodings.gb18030
io.encodings.gb18030.private kernel namespaces ;

M: gb18030 encode-char
    drop
    [ [ mapping get-global at ] [ lookup-range ] ?unless ] dip
    stream-write ;


USING: accessors assocs io io.encodings
io.encodings.iso2022.private kernel ;

M:: iso2022-state encode-char ( char stream encoding -- )
    char encoding type>> value? [
        char find-type
        [ stream stream-write ] [ encoding type<< ] bi*
    ] unless char encoding type>> value-at
    stream stream-write-num ;


USING: io io.encodings io.encodings.shift-jis.private kernel ;

M: jis encode-char
    swapd ch>jis dup small?
    [ swap stream-write1 ] [ write-halfword ] if ;


USING: io io.encodings io.encodings.latin1 kernel ;

M: latin1 encode-char drop [ latin1-encode ] dip stream-write1 ;


USING: io.encodings io.encodings.utf16
io.encodings.utf16.private kernel ;

M: utf16be encode-char drop char>utf16be ;


USING: io.encodings io.encodings.utf16
io.encodings.utf16.private kernel ;

M: utf16le encode-char drop char>utf16le ;


USING: endian io.encodings io.encodings.utf32
io.encodings.utf32.private kernel ;

M: utf32be encode-char drop [ >be ] >char ;


USING: endian io.encodings io.encodings.utf32
io.encodings.utf32.private kernel ;

M: utf32le encode-char drop [ >le ] >char ;


USING: io.encodings io.encodings.utf8 io.encodings.utf8.private
kernel ;

M: utf8 encode-char drop char>utf8 ;