item>xml ( object -- xml )

Vocabulary

xml-rpc

Inputs

object

an object

Outputs

xml

an object

Definition

IN: xml-rpc

GENERIC: item>xml ( object -- xml )

Methods

USING: arrays sequences xml-rpc xml.data xml.syntax.private ;

M: array item>xml
    [
        item>xml 1 nenum T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        } interpolate-xml
    ] map 1 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;


USING: accessors base64 xml-rpc xml.data xml.syntax.private ;

M: base64 item>xml
    string>> >base64 1 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;


USING: kernel xml-rpc xml.data xml.syntax.private ;

M: boolean item>xml
    "1" "0" ? 1 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;


USING: math math.parser xml-rpc xml.data xml.syntax.private ;

M: float item>xml
    number>string 1 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;


USING: assocs hashtables xml-rpc xml.data xml.syntax.private ;

M: hashtable item>xml
    [ struct-member ] { } assoc>map 1 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;


USING: kernel math math.order xml-rpc xml.data
xml.syntax.private ;

M: integer item>xml
    dup 31 2^ neg 31 2^ 1 - between?
    [ "Integers must fit in 32 bits" throw ] unless 1 nenum T{
    xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;


USING: strings xml-rpc xml.data xml.syntax.private ;

M: string item>xml
    1 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;