Update TclX for Tcl 9

Changes from https://github.com/tcltk-depot/tclx/tree/tclx-9-port

vendor/tclx

@@ -1 +1 @@
-tclx-8.6.3
+tclx-9.0.0

vendor/tclx-8.6.3/library/fmath.tcl

@@ -1,52 +0,0 @@
-#
-# fmath.tcl --
-#
-#   Contains a package of procs that interface to the Tcl expr command built-in
-# functions.  These procs provide compatibility with older versions of TclX and
-# are also generally useful.
-#------------------------------------------------------------------------------
-# Copyright 1993-1999 Karl Lehenbauer and Mark Diekhans.
-#
-# Permission to use, copy, modify, and distribute this software and its
-# documentation for any purpose and without fee is hereby granted, provided
-# that the above copyright notice appear in all copies.  Karl Lehenbauer and
-# Mark Diekhans make no representations about the suitability of this
-# software for any purpose.  It is provided "as is" without express or
-# implied warranty.
-#------------------------------------------------------------------------------
-# $Id: fmath.tcl,v 1.1 2001/10/24 23:31:48 hobbs Exp $
-#------------------------------------------------------------------------------
-
-#@package: TclX-fmath acos asin atan ceil cos cosh exp fabs floor log log10 \
-           sin sinh sqrt tan tanh fmod pow atan2 abs double int round
-
-proc acos  x {uplevel 1 [list expr acos($x)]}
-proc asin  x {uplevel 1 [list expr asin($x)]}
-proc atan  x {uplevel 1 [list expr atan($x)]}
-proc ceil  x {uplevel 1 [list expr ceil($x)]}
-proc cos   x {uplevel 1 [list expr cos($x)]}
-proc cosh  x {uplevel 1 [list expr cosh($x)]}
-proc exp   x {uplevel 1 [list expr exp($x)]}
-proc fabs  x {uplevel 1 [list expr abs($x)]}
-proc floor x {uplevel 1 [list expr floor($x)]}
-proc log   x {uplevel 1 [list expr log($x)]}
-proc log10 x {uplevel 1 [list expr log10($x)]}
-proc sin   x {uplevel 1 [list expr sin($x)]}
-proc sinh  x {uplevel 1 [list expr sinh($x)]}
-proc sqrt  x {uplevel 1 [list expr sqrt($x)]}
-proc tan   x {uplevel 1 [list expr tan($x)]}
-proc tanh  x {uplevel 1 [list expr tanh($x)]}
-
-proc fmod {x n} {uplevel 1 [list expr fmod($x,$n)]}
-proc pow {x n} {uplevel 1 [list expr pow($x,$n)]}
-
-# New functions that TclX did not provide in eariler versions.
-
-proc atan2  x {uplevel 1 [list expr atan2($x)]}
-proc abs    x {uplevel 1 [list expr abs($x)]}
-proc double x {uplevel 1 [list expr double($x)]}
-proc int    x {uplevel 1 [list expr int($x)]}
-proc round  x {uplevel 1 [list expr round($x)]}
-
-
-

vendor/tclx-9.0.0/ChangeLog

@@ -1,3 +1,20 @@
+2025-04-08  Brian Griffin <bgriffinfortytwo@gmail.com>
+	**** Porting to Tcl 9.0 ****
+
+	* TCLX 9.0.0
+	* updated tclconfig
+	* all tclx math functions use Tcl's builtin math functions.
+	* int -> Tcl_Size throughout (i.e. 32-bit to 64-bit sizes)
+	* chmod: default argument base changed from decimal to
+	*        octal, since a leading zero is nolong considered
+	*        octal in Tcl 9. Other radix forms are accepted as
+	*        well, e.g. 0d65. This change makes chmod more
+	*        closely compatible with unix chmod command.
+	* profile: not yet working
+	* tcllib: not yet working
+	* tests: 44 out of 46 tests are passing.
+	*        Tested only on linux.
+
 2012-11-07  Andreas Kupries  <andreask@activestate.com>
 
 	**** TCLX 8.4.1 RELEASE ****

vendor/tclx-9.0.0/Makefile.in

@@ -77,6 +77,8 @@ HELP_DIR_NATIVE	= `@CYGPATH@ ${HELP_DIR}`
 #========================================================================
 
 PKG_LIB_FILE	= @PKG_LIB_FILE@
+PKG_LIB_FILE8	= @PKG_LIB_FILE8@
+PKG_LIB_FILE9	= @PKG_LIB_FILE9@
 
 lib_BINARIES	= $(PKG_LIB_FILE)
 BINARIES	= $(lib_BINARIES)
@@ -263,9 +265,13 @@ $(PKG_LIB_FILE): $(PKG_OBJECTS)
 	$(RANLIB) $(PKG_LIB_FILE)
 
 pkgIndex.tcl:
-	(echo 'package ifneeded Tclx $(PACKAGE_VERSION) \
-		[list load [file join $$dir $(PKG_LIB_FILE)] Tclx]'\
-	) > pkgIndex.tcl
+	echo 'if {[package vsatisfies 8.6 [set ::tcl_version]]} {'                                                   > $@
+	echo '    package ifneeded Tclx $(PACKAGE_VERSION) [list load [file join [set dir] $(PKG_LIB_FILE8)] Tclx]' >> $@
+	echo '} else {'                                                                                             >> $@
+	echo '    package ifneeded Tclx $(PACKAGE_VERSION) [list load [file join [set dir] $(PKG_LIB_FILE9)] Tclx]' >> $@
+	echo '}'                                                                                                    >> $@
+
+
 
 #========================================================================
 # We need to enumerate the list of .c to .o lines here.

vendor/tclx-9.0.0/configure.in

@@ -5,8 +5,8 @@ dnl	to configure the system for the local environment.
 #
 # RCS: @(#) $Id: configure.in,v 1.17 2006/01/26 00:30:54 hobbs Exp $
 
-AC_INIT([tclx], [8.6])
-FULL_VERSION="8.6.3"
+AC_INIT([tclx], [9.0])
+FULL_VERSION="9.0.0"
 
 TEA_INIT([3.9])
 
@@ -94,12 +94,12 @@ TEA_PRIVATE_TCL_HEADERS
 
 if test "${TEA_PLATFORM}" = "windows" ; then
     AC_DEFINE(BUILD_tclx)
-    CLEANFILES="pkgIndex.tcl *.lib *.dll *.exp *.ilk *.pdb vc*.pch"
+    CLEANFILES="pkgIndex.tcl gorp.file *.lib *.dll *.exp *.ilk *.pdb vc*.pch"
     TEA_ADD_SOURCES([tclXwinCmds.c tclXwinDup.c tclXwinId.c tclXwinOS.c])
     TEA_ADD_LIBS([wsock32.lib])
     TEA_ADD_INCLUDES([-I\"`${CYGPATH} ${srcdir}/win`\"])
 else
-    CLEANFILES="pkgIndex.tcl"
+    CLEANFILES="pkgIndex.tcl gorp.file"
     TEA_ADD_SOURCES([tclXunixCmds.c tclXunixDup.c tclXunixId.c tclXunixOS.c
 			tclXunixSock.c])
     TEA_ADD_LIBS([${MATH_LIBS}])