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
433
434
435
436
437
438
439
440
...
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
|
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
#
#----------------------------------------------------------------------------
................................................................................
}
seek $fd 0 start
set encString UTF-16le
}
"4c6fa794" {
# EBCDIC in some flavor
if {[package vsatisfies [package provide Tcl] 9-]} {
set $fd 0 start
set encoding ebcdic
} else {
error "EBCDIC not supported"
}
}
default {
# UTF-8 without an encoding declaration
|
|
|
|
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
...
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
|
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
#
#----------------------------------------------------------------------------
................................................................................
}
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
|