write-json-assoc ( obj stream -- )

Vocabulary

json.private

Inputs

obj	an object
stream	an object

Outputs

None

Definition

USING: assocs io json kernel namespaces sequences strings ;

IN: json.private

:: write-json-assoc ( obj stream -- )
    123 stream stream-write1 obj >alist
    [ 44 stream stream-write1 ] json-friendly-keys? get
    json-coerce-keys? get '[
        first2 [
            dup string?
            [ _ [ json-friendly ] when ]
            [ _ [ json-coerce ] when ] if
            stream stream-write-json
        ] [ 58 stream stream-write1 stream stream-write-json ]
        bi*
    ] interleave 125 stream stream-write1 ;