dom::Trim

This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.

The procedure is defined as:

proc dom::Trim {nodeid} {
    
    array set node [set $nodeid]

    switch -- $node(node:nodeType) {

        textNode {
            if {[string trim $node(node:nodeValue)] eq ""} {
                node removeChild $node(node:parentNode) $nodeid
            }
        }

        default {
            foreach child [set $node(node:childNodes)] {
                Trim $child
            }
        }

    }

    return {}

}