attrs>ns ( attrs-alist -- hash )

Vocabulary

xml.name

Inputs

attrs-alist

an object

Outputs

hash

an object

Definition

USING: accessors assocs kernel make sequences xml.data ;

IN: xml.name

: attrs>ns ( attrs-alist -- hash )
    [
        [
            swap dup space>> "xmlns" =
            [ main>> ,, ] [
                T{ name { space "" } { main "xmlns" } }
                names-match? [ "" ,, ] [ drop ] if
            ] if
        ] assoc-each
    ] { } make f like ;