Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fixed ebcdic encoding handling. Braced an expr. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | wip |
| Files: | files | file ages | folders |
| SHA3-256: |
688dbe0d8addb4a01003517f460352f8 |
| User & Date: | rolf 2024-07-08 09:34:46 |
Context
|
2024-07-08
| ||
| 12:30 | In a few cases Tcl 9 needs Tcl_Size and Tcl 8 long. check-in: a1f819339d user: rolf tags: wip | |
| 09:34 | Fixed ebcdic encoding handling. Braced an expr. check-in: 688dbe0d8a user: rolf tags: wip | |
| 00:53 | Again more type massage and fixes. check-in: 48173f10ad user: rolf tags: wip | |
Changes
Changes to lib/tdom.tcl.
| ︙ | ︙ | |||
426 427 428 429 430 431 432 |
set type [$node nodeType]
if {($type != "TEXT_NODE") && ($type != "CDATA_SECTION_NODE") &&
($type != "COMMENT_NODE")
} {
return -code error "NOT_SUPPORTED_ERR: node is not a cdata node"
}
| | | 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 |
set type [$node nodeType]
if {($type != "TEXT_NODE") && ($type != "CDATA_SECTION_NODE") &&
($type != "COMMENT_NODE")
} {
return -code error "NOT_SUPPORTED_ERR: node is not a cdata node"
}
set endOffset {[expr $offset + $count - 1]}
return [string range [$node nodeValue] $offset $endOffset]
}
#----------------------------------------------------------------------------
# coerce2number
#
#----------------------------------------------------------------------------
|
| ︙ | ︙ | |||
896 897 898 899 900 901 902 |
}
seek $fd 0 start
set encString UTF-16le
}
"4c6fa794" {
# EBCDIC in some flavor
if {[package vsatisfies [package provide Tcl] 9-]} {
| | | 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 |
}
seek $fd 0 start
set encString UTF-16le
}
"4c6fa794" {
# EBCDIC in some flavor
if {[package vsatisfies [package provide Tcl] 9-]} {
seek $fd 0 start
set encoding ebcdic
} else {
error "EBCDIC not supported"
}
}
default {
# UTF-8 without an encoding declaration
|
| ︙ | ︙ |