Ports: Update tcl to 9.0.4

Ports/AvailablePorts.md

@@ -334,7 +334,7 @@ This list is also available at [ports.serenityos.net](https://ports.serenityos.n
 | [`SuperTuxKart`](SuperTuxKart/)                 | Super Tux Kart                                                | 1.5                    | https://supertuxkart.net/                                            |
 | [`tar`](tar/)                                   | GNU tar                                                       | 1.35                   | https://www.gnu.org/software/tar/                                    |
 | [`taskwarrior`](taskwarrior/)                   | TODO list manager                                             | 2.6.2                  | https://taskwarrior.org/                                             |
-| [`tcl`](tcl/)                                   | Tcl                                                           | 8.6.12                 | https://www.tcl-lang.org/                                            |
+| [`tcl`](tcl/)                                   | Tcl                                                           | 9.0.4                  | https://www.tcl-lang.org/                                            |
 | [`thesilversearcher`](thesilversearcher/)       | The Silver Searcher: A fast code-searching tool               | 2.2.0                  | https://github.com/ggreer/the_silver_searcher                        |
 | [`tig`](tig/)                                   | Tig: text-mode interface for Git                              | 2.6.1                  | https://jonas.github.io/tig/                                         |
 | [`timidity`](timidity/)                         | TiMidity++                                                    | 2.15.0                 | http://timidity.sourceforge.net                                      |

Ports/tcl/package.sh

@@ -1,13 +1,19 @@
 #!/usr/bin/env -S bash ../.port_include.sh
-port=tcl
-version=8.6.12
-workdir=tcl${version}/unix
-useconfigure=true
+port='tcl'
+version='9.0.4'
+workdir="tcl${version}/unix"
+useconfigure='true'
 launcher_name='Tcl'
 launcher_category='D&evelopment'
-launcher_command='/usr/local/bin/tclsh8.6'
+launcher_command='/usr/local/bin/tclsh9.0'
 launcher_run_in_terminal='true'
 #icon_file=FIXME
 files=(
-    "https://prdownloads.sourceforge.net/tcl/tcl${version}-src.tar.gz#26c995dd0f167e48b11961d891ee555f680c175f7173ff8cb829f4ebcde4c1a6"
+    "https://prdownloads.sourceforge.net/tcl/tcl${version}-src.tar.gz#d0aed49230bc02a65c1e0229e65f34590a4b037ec40d546f32573b467f7551ea"
 )
+
+post_configure() {
+    # Vendored sqlite3 was pre-configured on someone else's machine...?
+    # PKG_CFLAGS="$PKG_CFLAGS -DSQLITE_USE_ALLOCA=1"
+    run_replace_in_file 's/-DSQLITE_USE_ALLOCA=1//' ../pkgs/sqlite3.53.0/configure
+}

Ports/tcl/patches/0001-Remove-uses-of-ipv6.patch

@@ -8,29 +8,29 @@ Subject: [PATCH] Remove uses of ipv6
  1 file changed, 5 insertions(+)
 
 diff --git a/tclUnixSock.c b/tclUnixSock.c
-index 1a54914..121f8a4 100644
+index 8474bcf9f7f75203c6e98d0b8e985ed3b4da39da..2ce3c1b126258e988eabfc36f4d9c2cff5c735de 100644
 --- a/tclUnixSock.c
 +++ b/tclUnixSock.c
-@@ -706,6 +706,7 @@ static inline int
+@@ -704,6 +704,7 @@ static inline int
  IPv6AddressNeedsNumericRendering(
      struct in6_addr addr)
  {
 +#ifndef __serenity__
      if (IN6_ARE_ADDR_EQUAL(&addr, &in6addr_any)) {
-         return 1;
+ 	return 1;
      }
-@@ -716,11 +717,15 @@ IPv6AddressNeedsNumericRendering(
+@@ -714,11 +715,15 @@ IPv6AddressNeedsNumericRendering(
       */
  
      if (!IN6_IS_ADDR_V4MAPPED(&addr)) {
 +#else
-         return 0;
+ 	return 0;
 +#endif
 +#ifndef __serenity__
      }
  
      return (addr.s6_addr[12] == 0 && addr.s6_addr[13] == 0
-             && addr.s6_addr[14] == 0 && addr.s6_addr[15] == 0);
+ 	    && addr.s6_addr[14] == 0 && addr.s6_addr[15] == 0);
 +#endif
  }
  #if defined (__clang__) || ((__GNUC__)  && ((__GNUC__ > 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ > 5))))

Ports/tcl/patches/0002-Work-around-broken-fd_set-detection.patch

@@ -0,0 +1,24 @@
+From 0000000000000000000000000000000000000000 Mon Sep 17 00:00:00 2001
+From: Linus Groh <[email protected]>
+Date: Sat, 5 Sep 2026 16:57:09 +0100
+Subject: [PATCH] Work around broken fd_set detection
+
+We have it in sys/select.h according to POSIX but the configure script
+goes looking in sys/types.h (apparently for historic reasons).
+---
+ tclUnixPort.h | 2 ++
+ 1 file changed, 2 insertions(+)
+
+diff --git a/tclUnixPort.h b/tclUnixPort.h
+index 7df1634374376390846cc07cc1a99a78ef6b1096..ed447087a3d83d85d8669bb181adde17ea89a325 100644
+--- a/tclUnixPort.h
++++ b/tclUnixPort.h
+@@ -428,6 +428,8 @@ extern int	gettimeofday(struct timeval *tp,
+  *---------------------------------------------------------------------------
+  */
+ 
++#undef NO_FD_SET
++
+ #ifndef NO_FD_SET
+ #   define SELECT_MASK	fd_set
+ #else /* NO_FD_SET */

Ports/tcl/patches/ReadMe.md

@@ -5,3 +5,10 @@
 Remove uses of ipv6
 
 
+## `0002-Work-around-broken-fd_set-detection.patch`
+
+Work around broken fd_set detection
+
+We have it in sys/select.h according to POSIX but the configure script
+goes looking in sys/types.h (apparently for historic reasons).
+

Toolchain/default.nix

@@ -43,6 +43,7 @@ mkShell.override { stdenv = gccStdenv; } {
     meson
     nasm
     perl
+    tcl-9_0
     wayland-scanner
     # For development
     # NOTE: The unwrapped clang package is used because the one installed by `clang-tools`