[undo-xml] ( xml -- quot )

Vocabulary

xml.syntax.inverse

Inputs

xml

an object

Outputs

quot

an object

Definition

IN: xml.syntax.inverse

GENERIC: [undo-xml] ( xml -- quot )

Methods

USING: accessors kernel namespaces xml.data xml.syntax.inverse ;

M: interpolated [undo-xml] var>> [ set ] curry ;


USING: combinators kernel sequences xml.syntax.inverse ;

M: sequence [undo-xml]
    remove-blanks [ length ] [ [ [undo-xml] ] { } map-as ] bi [
        [ [ remove-blanks ] ] dip [ firstn-strong ] curry
        compose
    ] dip [ spread ] curry compose ;


USING: inverse kernel strings xml.syntax.inverse ;

M: string [undo-xml] [ =/fail ] curry ;


USING: accessors combinators inverse kernel xml.data
xml.syntax.inverse ;

M: tag [undo-xml]
    {
        [
            name>> main>> [ [ name>> main>> ] ] dip
            [ =/fail ] curry compose
        ]
        [ attrs>> undo-attrs ]
        [ children>> [undo-xml] [ [ children>> ] ] dip compose ]
    } cleave [ tri ] 3curry ;


USING: accessors kernel xml.data xml.syntax.inverse ;

M: xml-chunk [undo-xml]
    seq>> [undo-xml] [ [ >xml-chunk ] ] dip compose ;


USING: inverse kernel xml.data xml.syntax.inverse ;

M: xml-data [undo-xml] [ =/fail ] curry ;


USING: accessors kernel xml.data xml.syntax.inverse ;

M: xml [undo-xml] body>> [undo-xml] [ [ >xml ] ] dip compose ;