stream-json-print ( obj stream -- )

Vocabulary

json

Inputs

obj	an object
stream	an object

Outputs

None

Definition

IN: json

GENERIC#: stream-json-print 1 ( obj stream -- )

Methods

USING: io json kernel ;

M: f stream-json-print [ drop "false" ] [ stream-write ] bi* ;


USING: io json kernel math ;

M: float stream-json-print [ float>json ] [ stream-write ] bi* ;


USING: hashtables json json.private ;

M: hashtable stream-json-print json-print-assoc ;


USING: io json kernel math math.parser ;

M: integer stream-json-print
    [ number>string ] [ stream-write ] bi* ;


USING: io json kernel ;

M: json-null stream-json-print
    [ drop "null" ] [ stream-write ] bi* ;


USING: io json kernel math math.parser ;

M: real stream-json-print
    [ >float number>string ] [ stream-write ] bi* ;


USING: io json kernel sequences ;

M: sequence stream-json-print
    91 over stream-write1 swap over [ [ 44 ] ] dip
    [ stream-write1 ] curry compose pick
    [ stream-json-print ] curry interleave 93 swap stream-write1
    ;


USING: combinators io json json.private kernel namespaces
sequences strings ;

M: string stream-json-print
    34 over stream-write1 swap [
        {
            { 34 [ "\\\"" over stream-write ] }
            { 92 [ "\\\\" over stream-write ] }
            {
                47
                [
                    json-escape-slashes? get
                    [ "\\/" over stream-write ]
                    [ 47 over stream-write1 ] if
                ]
            }
            { 8 [ "\\b" over stream-write ] }
            { 12 [ "\\f" over stream-write ] }
            { 10 [ "\\n" over stream-write ] }
            { 13 [ "\\r" over stream-write ] }
            { 9 [ "\\t" over stream-write ] }
            { 8232 [ "\\u2028" over stream-write ] }
            { 8233 [ "\\u2029" over stream-write ] }
            [
                {
                    { ~quotation~ ~quotation~ }
                    { ~quotation~ ~quotation~ }
                    [ json-escape-unicode? get ]
                } cond
                [ json-print-generic-escape ]
                [ over stream-write1 ] if
            ]
        } case
    ] each 34 swap stream-write1 ;


USING: io json kernel ;

M: t stream-json-print [ drop "true" ] [ stream-write ] bi* ;


USING: json json.private kernel mirrors ;

M: tuple stream-json-print [ <mirror> ] dip json-print-assoc ;


USING: accessors json kernel words ;

M: word stream-json-print [ name>> ] dip stream-json-print ;