Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | remove some debugging stuff |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | tip-388-impl |
| Files: | files | file ages | folders |
| SHA1: |
08c04d17bec4481e54ce5b70f0240ae2 |
| User & Date: | jan.nijtmans 2011-08-18 12:25:55 |
Context
|
2011-08-22
| ||
| 10:18 | Merge to feature branch check-in: 094a3c09ef user: jan.nijtmans tags: tip-388-impl | |
|
2011-08-18
| ||
| 12:25 | remove some debugging stuff check-in: 08c04d17be user: jan.nijtmans tags: tip-388-impl | |
| 12:25 | remove some debugging stuff check-in: be820a555c user: jan.nijtmans tags: trunk | |
| 12:10 | Merge to feature branch check-in: 34615edbb6 user: jan.nijtmans tags: tip-388-impl | |
Changes
Changes to tools/uniParse.tcl.
| ︙ | ︙ | |||
210 211 212 213 214 215 216 |
*/
static const unsigned short pageMap\[\] = {"
set line " "
set last [expr {[llength $pMap] - 1}]
for {set i 0} {$i <= $last} {incr i} {
append line [lindex $pMap $i]
| < < < | 210 211 212 213 214 215 216 217 218 219 220 221 222 223 |
*/
static const unsigned short pageMap\[\] = {"
set line " "
set last [expr {[llength $pMap] - 1}]
for {set i 0} {$i <= $last} {incr i} {
append line [lindex $pMap $i]
if {$i != $last} {
append line ", "
}
if {[string length $line] > 70} {
puts $f [string trimright $line]
set line " "
}
|
| ︙ | ︙ | |||
238 239 240 241 242 243 244 |
set line " "
set lasti [expr {[llength $pages] - 1}]
for {set i 0} {$i <= $lasti} {incr i} {
set page [lindex $pages $i]
set lastj [expr {[llength $page] - 1}]
for {set j 0} {$j <= $lastj} {incr j} {
append line [lindex $page $j]
| < < < | 235 236 237 238 239 240 241 242 243 244 245 246 247 248 |
set line " "
set lasti [expr {[llength $pages] - 1}]
for {set i 0} {$i <= $lasti} {incr i} {
set page [lindex $pages $i]
set lastj [expr {[llength $page] - 1}]
for {set j 0} {$j <= $lastj} {incr j} {
append line [lindex $page $j]
if {$j != $lastj || $i != $lasti} {
append line ", "
}
if {[string length $line] > 70} {
puts $f [string trimright $line]
set line " "
}
|
| ︙ | ︙ | |||
308 309 310 311 312 313 314 |
set delta $tolower
} else {
# noop
set case 0
set delta 0
}
| | < < < < < | 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 |
set delta $tolower
} else {
# noop
set case 0
set delta 0
}
append line [expr {($delta << 15) | ($case << 5) | $type}]
if {$i != $last} {
append line ", "
}
if {[string length $line] > 65} {
puts $f [string trimright $line]
set line " "
}
|
| ︙ | ︙ |