Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Enhanced bench suite. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | tdomNodeType |
| Files: | files | file ages | folders |
| SHA1: |
7148e122400fd1732180d312a49b904f |
| User & Date: | rolf 2014-01-01 22:08:41 |
Context
|
2014-01-10
| ||
| 01:11 | Improved speed of operations in node token mode notable. This is achieved by introducing a Tcl_Obj type tdomNodeType. Tcl_Objs of type tdomNodeType are created without string representation, saving malloc costs until string representation is needed (which typically isn't needed). Additionally, DOM node identification from token is faster with tdomNodeType Tcl_Objs. check-in: 8f70a39a92 user: rolf tags: trunk | |
|
2014-01-01
| ||
| 22:08 | Enhanced bench suite. Closed-Leaf check-in: 7148e12240 user: rolf tags: tdomNodeType | |
| 04:03 | Made tcldom_returnNodeOjb static. check-in: 40b95f4a60 user: rolf tags: tdomNodeType | |
Changes
Changes to tests/dom.bench.
50 51 52 53 54 55 56 |
$doc getElementsByTagName e1
} -post {
dom setObjectCommands automatic
$doc delete
}
}
|
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > |
50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 |
$doc getElementsByTagName e1
} -post {
dom setObjectCommands automatic
$doc delete
}
}
proc cloneImitated {source target} {
foreach att [$source attributes] {
$target setAttribute $att [$source @$att]
}
set targetDoc [$target ownerDocument]
foreach child [$source childNodes] {
switch [$child nodeType] {
"ELEMENT_NODE" {
set targetChild [$targetDoc createElement [$child nodeName]]
}
"TEXT_NODE" {
set targetChild [$targetDoc createTextNode [$child nodeValue]]
}
"CDATA_SECTION_NODE" {
set targetChild [$targetDoc createCDATASection \
[$child nodeValue]]
}
"PROCESSING_INSTRUCTION_NODE" {
set targetChild [$targetDoc createProcessingInstruction \
[$child nodeName] [$child nodeValue]]
}
"COMMENT_NODE" {
set targetChild [$targetDoc createComment [$child nodeValue]]
}
default {
error "Unexpected node type [$child nodeType]"
}
}
$target appendChild $targetChild
cloneImitated $child $targetChild
}
}
proc cloneImitated2 {source target} {
foreach att [$source attributes] {
$target setAttribute $att [$source @$att]
}
set targetDoc [$target ownerDocument]
foreach child [$source childNodes] {
switch [$child nodeType] {
"ELEMENT_NODE" {
$targetDoc createElement [$child nodeName] targetChild
}
"TEXT_NODE" {
$targetDoc createTextNode [$child nodeValue] targetChild
}
"CDATA_SECTION_NODE" {
$targetDoc createCDATASection [$child nodeValue] targetChild
}
"PROCESSING_INSTRUCTION_NODE" {
$targetDoc createProcessingInstruction [$child nodeName] \
targetChild
}
"COMMENT_NODE" {
$targetDoc createComment [$child nodeValue] targetChild
}
default {
error "Unexpected node type [$child nodeType]"
}
}
$target appendChild $targetChild
cloneImitated2 $child $targetChild
}
}
proc cloneImitatedToken {source target} {
foreach att [domNode $source attributes] {
domNode $target setAttribute $att [domNode $source @$att]
}
set targetDoc [domNode $target ownerDocument]
foreach child [domNode $source childNodes] {
switch [domNode $child nodeType] {
"ELEMENT_NODE" {
set targetChild [$targetDoc createElement \
[domNode $child nodeName]]
}
"TEXT_NODE" {
set targetChild [$targetDoc createTextNode \
[domNode $child nodeValue]]
}
"CDATA_SECTION_NODE" {
set targetChild [$targetDoc createCDATASection \
[domNode $child nodeValue]]
}
"PROCESSING_INSTRUCTION_NODE" {
set targetChild [$targetDoc createProcessingInstruction \
[domNode $child nodeName] \
[domNode $child nodeValue]]
}
"COMMENT_NODE" {
set targetChild [$targetDoc createComment \
[domNode $child nodeValue]]
}
default {
error "Unexpected node type [domNode $child nodeType]"
}
}
domNode $target appendChild $targetChild
cloneImitatedToken $child $targetChild
}
}
bench -desc "clone dom tree without clone method - cmds" -pre {
set fd [open [file join [file dir [info script]] ../tests/data/mondial-europe.xml]]
fconfigure $fd -encoding utf-8
set doc [dom parse -channel $fd]
close $fd
set root [$doc documentElement]
set clone [dom createDocument [$root nodeName]]
set cloneRoot [$clone documentElement]
} -iters 5 -body {
cloneImitated $root $cloneRoot
} -post {
$doc delete
$clone delete
}
bench -desc "clone dom tree without clone method - cmds 2" -pre {
set fd [open [file join [file dir [info script]] ../tests/data/mondial-europe.xml]]
fconfigure $fd -encoding utf-8
set doc [dom parse -channel $fd]
close $fd
set root [$doc documentElement]
set clone [dom createDocument [$root nodeName]]
set cloneRoot [$clone documentElement]
} -iters 5 -body {
cloneImitated2 $root $cloneRoot
} -post {
$doc delete
$clone delete
}
bench -desc "clone dom tree without clone method - token" -pre {
set fd [open [file join [file dir [info script]] ../tests/data/mondial-europe.xml]]
fconfigure $fd -encoding utf-8
set doc [dom parse -channel $fd]
close $fd
set root [$doc documentElement]
set clone [dom createDocument [$root nodeName]]
set cloneRoot [$clone documentElement]
dom setObjectCommands token
} -iters 5 -body {
cloneImitatedToken $root $cloneRoot
} -post {
$doc delete
$clone delete
dom setObjectCommands automatic
}
|