Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | oops, that's no utf-8 BOM ;-( |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA1: |
d2c359a194e7e1672419a1f002f62033 |
| User & Date: | jan.nijtmans 2012-02-29 22:38:28 |
Context
|
2012-03-04
| ||
| 16:38 | Patch from the cygwin folks check-in: 8dafecc06c user: jan.nijtmans tags: core-8-5-branch | |
|
2012-03-01
| ||
| 22:48 | experiment: Handle BOM by switching to utf-8 when the system encoding is cp1250-cp1258 or identity (... check-in: 110d7c7820 user: jan.nijtmans tags: bug-3466099 | |
| 10:02 | merge core-8-5-branch check-in: 09bbc03c47 user: sebres tags: dgp-scan-element | |
|
2012-02-29
| ||
| 22:41 | oops, that's no utf-8 BOM ;-( check-in: 86923ce939 user: jan.nijtmans tags: trunk | |
| 22:38 | oops, that's no utf-8 BOM ;-( check-in: d2c359a194 user: jan.nijtmans tags: core-8-5-branch | |
| 22:35 | oops, that's no utf-8 BOM ;-( check-in: ced33be881 user: jan.nijtmans tags: core-8-4-branch | |
| 21:34 | [Bug 3466099] BOM in Unicode check-in: ca6c454087 user: jan.nijtmans tags: core-8-5-branch | |
Changes
Changes to generic/tclIOUtil.c.
| ︙ | ︙ | |||
1799 1800 1801 1802 1803 1804 1805 |
}
string = Tcl_GetString(objPtr);
/*
* If first character is not a BOM, append the remaining characters,
* otherwise replace them [Bug 3466099].
*/
if (Tcl_ReadChars(chan, objPtr, -1,
| | | 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 |
}
string = Tcl_GetString(objPtr);
/*
* If first character is not a BOM, append the remaining characters,
* otherwise replace them [Bug 3466099].
*/
if (Tcl_ReadChars(chan, objPtr, -1,
memcmp(string, "\xef\xbb\xbf", 3)) < 0) {
Tcl_Close(interp, chan);
Tcl_AppendResult(interp, "couldn't read file \"",
Tcl_GetString(pathPtr), "\": ", Tcl_PosixError(interp), NULL);
goto end;
}
if (Tcl_Close(interp, chan) != TCL_OK) {
|
| ︙ | ︙ |
Changes to tests/source.test.
| ︙ | ︙ | |||
108 109 110 111 112 113 114 |
{couldn't read file "*_non_existent_": no such file or directory} \
{POSIX ENOENT {no such file or directory}}]
test source-2.7 {utf-8 with BOM} -setup {
set sourcefile [makeFile {} source.file]
} -body {
set out [open $sourcefile w]
fconfigure $out -encoding utf-8
| | | 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 |
{couldn't read file "*_non_existent_": no such file or directory} \
{POSIX ENOENT {no such file or directory}}]
test source-2.7 {utf-8 with BOM} -setup {
set sourcefile [makeFile {} source.file]
} -body {
set out [open $sourcefile w]
fconfigure $out -encoding utf-8
puts $out "\ufeffset y new-y"
close $out
set y old-y
source -encoding utf-8 $sourcefile
return $y
} -cleanup {
removeFile $sourcefile
} -result {new-y}
|
| ︙ | ︙ |