test-xml ( str -- str' )

Vocabulary

tools.deploy.test.20

Inputs

str

an object

Outputs

str'

an object

Definition

USING: xml.data xml.syntax.private xml.writer ;

IN: tools.deploy.test.20

: test-xml ( str -- str' )
    1 nenum T{ xml
        { prolog
            T{ prolog { version "1.0" } { encoding "UTF-8" } }
        }
        { before V{ } }
        { body
            T{ tag
                { name
                    T{ name
                        { space "" }
                        { main "foo" }
                        { url "" }
                    }
                }
                { children V{ "" ~interpolated~ "" } }
            }
        }
        { after V{ "" } }
    } interpolate-xml xml>string ;