dom::Encode

Begin main content

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::Encode {value} {
    
    array set Entity {
	$ $
	< &lt;
	> &gt;
	& &amp;
	\" &quot;
	' &apos;
    }

    regsub -all -- {([$<>&"'])} $value {$Entity(\1)} value

    return [subst -nocommand -nobackslash $value]

}