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::CreateTextNode {token text args} {
if {[string length $token]} {
array set parent [set $token]
upvar #0 $parent(docArray) docArray
set docArrayName $parent(docArray)
} else {
array set opts $args
upvar #0 $opts(-docarray) docArray
set docArrayName $opts(-docarray)
}
set id node[incr docArray(counter)]
set child ${docArrayName}($id)
# Create the new node
# NB. normally we'd use Node:create here,
# but inline it instead for performance
# Text nodes never have children, so don't create a variable
set docArray($id) [list id $id docArray $docArrayName node:parentNode $token node:childNodes {} node:nodeType textNode node:nodeValue $text ]
if {[string length $token]} {
# Update parent record
lappend $parent(node:childNodes) $child
set $token [array get parent]
}
return $child
}
