Rebase to 9.0

.github/workflows/win-build.yml

@@ -22,7 +22,6 @@ jobs:
       matrix:
         config:
           - ""
-          - "CHECKS=nodep"
           - "OPTS=static"
           - "OPTS=noembed"
           - "OPTS=symbols"
@@ -66,7 +65,6 @@ jobs:
       matrix:
         config:
           - ""
-          - "CFLAGS=-DTCL_NO_DEPRECATED=1"
           - "--disable-shared"
           - "--disable-zipfs"
           - "--enable-symbols"

README.md

@@ -1,19 +1,29 @@
 # README:  Tcl
 
-This is the **Tcl 9.0.2** source distribution.
+This is the **Tcl 9.1a0** source distribution.
 
 You can get any source release of Tcl from [our distribution
 site](https://sourceforge.net/projects/tcl/files/Tcl/).
 
-9.0 (production release, daily build)
-[![Build Status](https://github.com/tcltk/tcl/actions/workflows/linux-build.yml/badge.svg?branch=main)](https://github.com/tcltk/tcl/actions/workflows/linux-build.yml?query=branch%3Amain)
-[![Build Status](https://github.com/tcltk/tcl/actions/workflows/win-build.yml/badge.svg?branch=main)](https://github.com/tcltk/tcl/actions/workflows/win-build.yml?query=branch%3Amain)
-[![Build Status](https://github.com/tcltk/tcl/actions/workflows/mac-build.yml/badge.svg?branch=main)](https://github.com/tcltk/tcl/actions/workflows/mac-build.yml?query=branch%3Amain)
+8.6 (production release, daily build)
+[![Build Status](https://github.com/tcltk/tcl/workflows/Linux/badge.svg?branch=core-8-6-branch)](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Linux%22+branch%3Acore-8-6-branch)
+[![Build Status](https://github.com/tcltk/tcl/workflows/Windows/badge.svg?branch=core-8-6-branch)](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Windows%22+branch%3Acore-8-6-branch)
+[![Build Status](https://github.com/tcltk/tcl/workflows/macOS/badge.svg?branch=core-8-6-branch)](https://github.com/tcltk/tcl/actions?query=workflow%3A%22macOS%22+branch%3Acore-8-6-branch)
 <br>
-8.7 (in development, daily build)
-[![Build Status](https://github.com/tcltk/tcl/actions/workflows/linux-build.yml/badge.svg?branch=core-8-branch)](https://github.com/tcltk/tcl/actions/workflows/linux-build.yml?query=branch%3Acore-8-branch)
-[![Build Status](https://github.com/tcltk/tcl/actions/workflows/win-build.yml/badge.svg?branch=core-8-branch)](https://github.com/tcltk/tcl/actions/workflows/win-build.yml?query=branch%3Acore-8-branch)
-[![Build Status](https://github.com/tcltk/tcl/actions/workflows/mac-build.yml/badge.svg?branch=core-8-branch)](https://github.com/tcltk/tcl/actions/workflows/mac-build.yml?query=branch%3Acore-8-branch)
+8.7 (in development, daily build))
+[![Build Status](https://github.com/tcltk/tcl/workflows/Linux/badge.svg?branch=core-8-branch)](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Linux%22+branch%3Acore-8-branch)
+[![Build Status](https://github.com/tcltk/tcl/workflows/Windows/badge.svg?branch=core-8-branch)](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Windows%22+branch%3Acore-8-branch)
+[![Build Status](https://github.com/tcltk/tcl/workflows/macOS/badge.svg?branch=core-8-branch)](https://github.com/tcltk/tcl/actions?query=workflow%3A%22macOS%22+branch%3Acore-8-branch)
+<br>
+9.0 (in development, daily build))
+[![Build Status](https://github.com/tcltk/tcl/workflows/Linux/badge.svg?branch=main)](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Linux%22+branch%3Amain)
+[![Build Status](https://github.com/tcltk/tcl/workflows/Windows/badge.svg?branch=main)](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Windows%22+branch%3Amain)
+[![Build Status](https://github.com/tcltk/tcl/workflows/macOS/badge.svg?branch=main)](https://github.com/tcltk/tcl/actions?query=workflow%3A%22macOS%22+branch%3Amain)
+<br>
+9.1 (unofficial, with TIP #626))
+[![Build Status](https://github.com/tcltk/tcl/workflows/Linux/badge.svg?branch=tip-626)](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Linux%22+branch%3Atip-626)
+[![Build Status](https://github.com/tcltk/tcl/workflows/Windows/badge.svg?branch=tip-626)](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Windows%22+branch%3Atip-626)
+[![Build Status](https://github.com/tcltk/tcl/workflows/macOS/badge.svg?branch=tip-626)](https://github.com/tcltk/tcl/actions?query=workflow%3A%22macOS%22+branch%3Atip-626)
 
 ## Contents
  1. [Introduction](#intro)

changes.md

@@ -4,180 +4,12 @@ changes to the Tcl source code at
 
 > [Tcl Source Code](https://core.tcl-lang.org/tcl/timeline)
 
-Release Tcl 9.0.1 arises from the check-in with tag `core-9-0-1`.
+Release Tcl 9.1a0 arises from the check-in with tag core-9-1-a0.
 
-Tcl patch releases have the primary purpose of delivering bug fixes
-to the userbase.  As the first patch release in the Tcl 9.0.\* series,
-Tcl 9.0.1 also includes a small number of interface changes that complete
-some incomplete features first delivered in Tcl 9.0.0.
-
-# Completed 9.0 Features and Interfaces
- - [TIP 701 - Tcl_FSTildeExpand C API](https://core.tcl-lang.org/tips/doc/trunk/tip/701.md)
- - [TIP 707 - ptrAndSize internal rep in Tcl_Obj](https://core.tcl-lang.org/tips/doc/trunk/tip/707.md)
- - [Size modifiers j, q, z, t not implemented]( https://core.tcl-lang.org/tcl/info/c4f365)
-
-# Bug fixes
- - [regression in tzdata, %z instead of offset TZ-name](https://core.tcl-lang.org/tcl/tktview/2c237b)
- - [Tcl will not start properly if there is an init.tcl file in the current dir](https://core.tcl-lang.org/tcl/tktview/43c94f)
- - [clock scan "24:00", ISO-8601 compatibility](https://core.tcl-lang.org/tcl/tktview/aee9f2)
- - [Temporary folder with file "tcl9registry13.dll" remains after "exit"](https://core.tcl-lang.org/tcl/tktview/6ce3c0)
- - [Wrong result by "lsearch -stride -subindices -inline -all"](https://core.tcl-lang.org/tcl/info/5a1aaa)
- - [TIP 609 - required Tcl_ThreadAlert() skipped with nested event loop](https://core.tcl-lang.org/tcl/info/c7e4c4)
- - [buffer overwrite for non-BMP characters in utf-16](https://core.tcl-lang.org/tcl/tktview/66da4d)
- - [zipfs info on mountpoint of executable returns zero offset in field 4"](https://core.tcl-lang.org/tcl/info/aaa84f)
- - [zlib-8.8, zlib-8.16 fail on Fedora 40, gcc 14.1.1](https://core.tcl-lang.org/tcl/tktview/73d5cb)
- - [install registry and dde in $INSTALL_DIR\lib always](https://core.tcl-lang.org/tcl/tktview/364bd9)
- - [cannot build .chm help file (Windows)](https://core.tcl-lang.org/tcl/tktview/bb110c)
-
-# Incompatibilities
- - No known incompatibilities with the Tcl 9.0.0 public interface.
-
-# Updated bundled packages, libraries, standards, data
- - Itcl 4.3.2
- - sqlite3 3.47.2
- - Thread 3.0.1
- - TDBC\* 1.1.10
- - tcltest 2.5.9
- - tzdata 2024b, corrected
-
-Release Tcl 9.0.0 arises from the check-in with tag `core-9-0-0`.
-
-Highlighted differences between Tcl 9.0 and Tcl 8.6 are summarized below,
+Highlighted differences between Tcl 9.1 and Tcl 9.0 are summarized below,
 with focus on changes important to programmers using the Tcl library and
 writing Tcl scripts.
 
-# Major Features
-
-## 64-bit capacity: Data values larger than 2Gb
- - Strings can be any length (that fits in your available memory)
- - Lists and dictionaries can have very large numbers of elements
-
-## Internationalization of text
- - Full Unicode range of codepoints
- - New encodings: `utf-16`/`utf-32`/`ucs-2`(`le`|`be`), `CESU-8`, etc.
- - `encoding` options `-profile`, `-failindex` manage encoding of I/O.
- - `msgcat` supports custom locale search list
- - `source` defaults to `-encoding utf-8`
-
-## Zip filesystems and attached archives.
- - Packaging of the Tcl script library with the Tcl binary library,
-   meaning that the `TCL_LIBRARY` environment variable is usually not required.
- - Packaging of an application into a virtual filesystem is now a supported
-   core Tcl feature.
-
-## Unix notifiers available using `epoll()` or `kqueue()`
- - This relieves limits on file descriptors imposed by legacy `select()` and fixes a performance bottleneck.
-
-# Incompatibilities
-
-## Notable incompatibilities
- - Unqualified varnames resolved in current namespace, not global.
-   Note that in almost all cases where this causes a change, the change is actually the removal of a latent bug.
- - No `--disable-threads` build option.  Always thread-enabled.
- - I/O malencoding default response: raise error (`-profile strict`)
- - Windows platform needs Windows 7 or Windows Server 2008 R2 or later
- - Ended interpretation of `~` as home directory in pathnames.
-   (See `file home` and `file tildeexpand` for replacements when you need them.)
- - Removed the `identity` encoding.
-   (There were only ever very few valid use cases for this; almost all uses
-   were systematically wrong.)
- - Removed the encoding alias `binary` to `iso8859-1`.
- - `$::tcl_precision` no longer controls string generation of doubles.
-   (If you need a particular precision, use `format`.)
- - Removed pre-Tcl 8 legacies: `case`, `puts` and `read` variant syntaxes.
- - Removed subcommands [`trace variable`|`vdelete`|`vinfo`]
- - Removed `-eofchar` option for write channels.
- - On Windows 10+ (Version 1903 or higher), system encoding is always utf-8.
- - `%b`/`%d`/`%o`/`%x` format modifiers (without size modifier) for `format`
-   and `scan` always truncate to 32-bits on all platforms.
- - `%L` size modifier for `scan` no longer truncates to 64-bit.
- - Removed command `::tcl::unsupported::inject`.
-   (See `coroinject` and `coroprobe` for supported commands with significantly
-   more comprehensible semantics.)
-
-## Incompatibilities in C public interface
- - Extensions built against Tcl 8.6 and before will not work with Tcl 9.0;
-   ABI compatibility was a non-goal for 9.0.  In _most_ cases, rebuilding
-   against Tcl 9.0 should work except when a removed API function is used.
- - Many arguments expanded type from `int` to `Tcl_Size`, a signed integer type
-   large enough to support 64-bit sized memory objects.
-   The constant `TCL_AUTO_LENGTH` is a value of that type that indicates that
-   the length should be obtained using an appropriate function (typically `strlen()` for `char *` values).
- - Ended support for `Tcl_ChannelTypeVersion` less than 5
- - Introduced versioning of the `Tcl_ObjType` struct
- - Removed macros `CONST*`: Tcl 9 support means dropping Tcl 8.3 support.
-   (Replaced with standard C `const` keyword going forward.)
- - Removed registration of several `Tcl_ObjType`s.
- - Removed API functions:
-
-     `Tcl_Backslash()`,
-     `Tcl_*VA()`,
-     `Tcl_*MathFunc*()`,
-     `Tcl_MakeSafe()`,
-     `Tcl_(Save|Restore|Discard|Free)Result()`,
-     `Tcl_EvalTokens()`,
-     `Tcl_(Get|Set)DefaultEncodingDir()`,
-     `Tcl_UniCharN(case)cmp()`,
-     `Tcl_UniCharCaseMatch()`
-
- - Revised many internals; beware reliance on undocumented behaviors.
-
-# New Features
-
-## New commands
- - `array default` — Specify default values for arrays (note that this alters the behaviour of `append`, `incr`, `lappend`).
- - `array for` — Cheap iteration over an array's contents.
- - `chan isbinary` — Test if a channel is configured to work with binary data.
- - `coroinject`, `coroprobe` — Interact with paused coroutines.
- - `clock add weekdays` — Clock arithmetic with week days.
- - `const`, `info const*` — Commands for defining constants (variables that can't be modified).
- - `dict getwithdefault` — Define a fallback value to use when `dict get` would otherwise fail.
- - `file home` — Get the user home directory.
- - `file tempdir` — Create a temporary directory.
- - `file tildeexpand` — Expand a file path containing a `~`.
- - `info commandtype` — Introspection for the kinds of commands.
- - `ledit` — Equivalent to `lreplace` but on a list in a variable.
- - `lpop` — Remove an item from a list in a variable.
- - `lremove` — Remove a sublist from a list in a variable.
- - `lseq` — Generate a list of numbers in a sequence.
- - `package files` — Describe the contents of a package.
- - `string insert` — Insert a string as a substring of another string.
- - `string is dict` — Test whether a string is a dictionary.
- - `tcl::process` — Commands for working with subprocesses.
- - `*::build-info` — Obtain information about the build of Tcl.
- - `readFile`, `writeFile`, `foreachLine` — Simple procedures for basic working with files.
- - `tcl::idna::*` — Commands for working with encoded DNS names.
-
-## New command options
- - `chan configure ... -inputmode ...` — Support for raw terminal input and reading passwords.
- - `clock scan ... -validate ...`
- - `info loaded ... ?prefix?`
- - `lsearch ... -stride ...` — Search a list by groups of items.
- - `regsub ... -command ...` — Generate the replacement for a regular expression by calling a command.
- - `socket ... -nodelay ... -keepalive ...`
- - `vwait` controlled by several new options
- - `expr` string comparators `lt`, `gt`, `le`, `ge`
- - `expr` supports comments inside expressions
-
-## Numbers
- - <code>0<i>NNN</i></code> format is no longer octal interpretation. Use <code>0o<i>NNN</i></code>.
- - <code>0d<i>NNNN</i></code> format to compel decimal interpretation.
- - <code>NN_NNN_NNN</code>, underscores in numbers for optional readability
- - Functions: `isinf()`, `isnan()`, `isnormal()`, `issubnormal()`, `isunordered()`
- - Command: `fpclassify`
- - Function `int()` no longer truncates to word size
-
-## TclOO facilities
- - private variables and methods
- - class variables and methods
- - abstract and singleton classes
- - configurable properties
- - `method -export`, `method -unexport`
+## Continued 64-bit capacity: Command line arguments larger than 2Gb
 
-# Known bugs
- - [changed behaviour wrt command names, namespaces and resolution](https://core.tcl-lang.org/tcl/tktview/f14b33)
- - [windows dos device paths inconsistencies and missing functionality](https://core.tcl-lang.org/tcl/tktview/d8f121)
- - [load library (dll) from zipfs-library causes a leak in temporary folder](https://core.tcl-lang.org/tcl/tktview/a8e4f7)
- - [lsearch -sorted -inline -subindices incorrect result](https://core.tcl-lang.org/tcl/tktview/bc4ac0)
- - ["No error" when load fails due to a missing secondary DLL](https://core.tcl-lang.org/tcl/tktview/bc4ac0)
 

doc/zipfs.n

@@ -190,7 +190,7 @@ be silently overwritten.
 .PP
 If the \fIinfile\fR parameter is specified, this file is prepended in front of
 the ZIP archive, otherwise the file returned by \fBinfo nameofexecutable\fR
-(i.e., the executable file of the running process,
+<(i.e., the executable file of the running process,
 typically \fBwish\fR or \fBtclsh\fR) is used. If the
 \fIpassword\fR parameter is not the empty string, an obfuscated version of that password
 (see \fBzipfs mkkey\fR) is placed between the image and ZIP chunks of the

generic/tcl.decls

@@ -40,22 +40,22 @@ declare 2 {
     TCL_NORETURN void Tcl_Panic(const char *format, ...)
 }
 declare 3 {
-    void *Tcl_Alloc(TCL_HASH_TYPE size)
+    void *Tcl_Alloc(size_t size)
 }
 declare 4 {
     void Tcl_Free(void *ptr)
 }
 declare 5 {
-    void *Tcl_Realloc(void *ptr, TCL_HASH_TYPE size)
+    void *Tcl_Realloc(void *ptr, size_t size)
 }
 declare 6 {
-    void *Tcl_DbCkalloc(TCL_HASH_TYPE size, const char *file, int line)
+    void *Tcl_DbCkalloc(size_t size, const char *file, int line)
 }
 declare 7 {
     void Tcl_DbCkfree(void *ptr, const char *file, int line)
 }
 declare 8 {
-    void *Tcl_DbCkrealloc(void *ptr, TCL_HASH_TYPE size,
+    void *Tcl_DbCkrealloc(void *ptr, size_t size,
 	    const char *file, int line)
 }
 
@@ -129,17 +129,6 @@ declare 29 {
 declare 30 {
     void TclFreeObj(Tcl_Obj *objPtr)
 }
-declare 31 {
-    int Tcl_GetBoolean(Tcl_Interp *interp, const char *src, int *intPtr)
-}
-declare 32 {
-    int Tcl_GetBooleanFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
-	    int *intPtr)
-}
-# Only available in Tcl 8.x, NULL in Tcl 9.0
-declare 33 {
-    unsigned char *Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, Tcl_Size *numBytesPtr)
-}
 declare 34 {
     int Tcl_GetDouble(Tcl_Interp *interp, const char *src, double *doublePtr)
 }
@@ -259,10 +248,6 @@ declare 79 {
 declare 80 {
     void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, void *clientData)
 }
-# Only available in Tcl 8.x, NULL in Tcl 9.0
-declare 81 {
-    int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan)
-}
 declare 82 {
     int Tcl_CommandComplete(const char *cmd)
 }
@@ -1217,7 +1202,7 @@ declare 392 {
 }
 declare 393 {
     int Tcl_CreateThread(Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *proc,
-	    void *clientData, TCL_HASH_TYPE stackSize, int flags)
+	    void *clientData, size_t stackSize, int flags)
 }
 
 # Introduced in 8.3.2
@@ -1324,16 +1309,16 @@ declare 427 {
 	    int flags, Tcl_CommandTraceProc *proc, void *clientData)
 }
 declare 428 {
-    void *Tcl_AttemptAlloc(TCL_HASH_TYPE size)
+    void *Tcl_AttemptAlloc(size_t size)
 }
 declare 429 {
-    void *Tcl_AttemptDbCkalloc(TCL_HASH_TYPE size, const char *file, int line)
+    void *Tcl_AttemptDbCkalloc(size_t size, const char *file, int line)
 }
 declare 430 {
-    void *Tcl_AttemptRealloc(void *ptr, TCL_HASH_TYPE size)
+    void *Tcl_AttemptRealloc(void *ptr, size_t size)
 }
 declare 431 {
-    void *Tcl_AttemptDbCkrealloc(void *ptr, TCL_HASH_TYPE size,
+    void *Tcl_AttemptDbCkrealloc(void *ptr, size_t size,
 	    const char *file, int line)
 }
 declare 432 {
@@ -2144,7 +2129,7 @@ declare 636 {
 }
 declare 637 {
     char *Tcl_InitStringRep(Tcl_Obj *objPtr, const char *bytes,
-	    TCL_HASH_TYPE numBytes)
+	    size_t numBytes)
 }
 declare 638 {
     Tcl_ObjInternalRep *Tcl_FetchInternalRep(Tcl_Obj *objPtr, const Tcl_ObjType *typePtr)