summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--ds9/tclconfig/ChangeLog1003
-rw-r--r--ds9/tclconfig/README.txt26
-rw-r--r--ds9/tclconfig/config.tcl.in82
-rwxr-xr-xds9/tclconfig/install-sh528
-rw-r--r--ds9/tclconfig/practcl.tcl4923
-rw-r--r--ds9/tclconfig/tcl.m44456
6 files changed, 0 insertions, 11018 deletions
diff --git a/ds9/tclconfig/ChangeLog b/ds9/tclconfig/ChangeLog
deleted file mode 100644
index 9504def..0000000
--- a/ds9/tclconfig/ChangeLog
+++ /dev/null
@@ -1,1003 +0,0 @@
-2016-03-11 Sean Woods <yoda@etoyoc.com>
- *tcl.m4 Fixed the search for Tcl and Wish shells under MinGW. Static builds and threaded builds
- get an "s" or "t" added to the name.
-
-2015-08-28 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: Rfe [00189c4afc]: Allow semi-static UCRT build on
- Windows with VC 14.0
-
-2013-10-08 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: Bug [172223e008]: Wrong filename in
- --disable-shared compile on MinGW
-
-2013-10-04 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: stub library is no longer linked with msvcrt??.dll.
-
-2013-10-01 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: Workaround for MinGW bug #2065: "gcc --shared" links
- with libgcc_s_dw2-1.dll when using 64-bit division in C
-
-2013-07-04 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: Bug [3324676]: AC_PROG_INSTALL incompat,
- Bug [3606445]: Unneeded -DHAVE_NO_SEH=1 when not building on Windows
-
-2013-07-02 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: Bug [32afa6e256]: dirent64 check is incorrect in tcl.m4
- (thanks to Brian Griffin)
-
-2013-06-20 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: Use X11/Xlib.h for checking where X11 can be found
- in stead of X11/XIntrinsic.h. Suggested by Pietro Cerutti.
-
-2013-06-04 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: Eliminate NO_VIZ macro as current
- zlib uses HAVE_HIDDEN in stead. One more last-moment
- fix for FreeBSD by Pietro Cerutti
-
-2013-05-19 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: Fix for FreeBSD, and remove support for old
- FreeBSD versions. Patch by Pietro Cerutti
-
-2013-03-12 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: Patch by Andrew Shadura, providing better support for
- * three architectures they have in Debian.
-
-2012-08-07 Stuart Cassoff <stwo@users.sourceforge.net>
-
- * tcl.m4: Added "-DNDEBUG" to CFLAGS_DEFAULT
- when building with --disable-symbols.
-
-2012-08-07 Stuart Cassoff <stwo@users.sourceforge.net>
-
- * tcl.m4: [Bug 3555058]: Checkin [30736d63f0] broke
- CFLAGS_DEFAULT, LDFLAGS_DEFAULT
-
-2012-08-07 Stuart Cassoff <stwo@users.sourceforge.net>
-
- * tcl.m4: [Bug 3511806]: Checkin [30736d63f0] broke CFLAGS
-
-2012-08-07 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: [Bug 3511806]: Checkin [30736d63f0] broke CFLAGS
-
-2012-07-25 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: My previous commit (2012-04-03) broke the ActiveTcl
- build for AMD64, because of the quotes in "C:/<path>/AMD64/cl.exe".
- It turns out that the AC_TRY_COMPILE macro cannot handle that.
-
-2012-07-22 Stuart Cassoff <stwo@users.sourceforge.net>
-
- * tcl.m4: Tidy: consistency, spelling, phrasing, whitespace.
- No functional change.
-
-2012-04-03 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: [Bug 3511806] Compiler checks too early
- This change allows to build the cygwin and mingw32 ports of
- Tcl/Tk extensions to build out-of-the-box using a native or
- cross-compiler, e.g. on Cygwin, Linux or Darwin.
-
-2011-04-02 Jan Nijtmans <nijtmans@users.sf.net>
-
- * install-sh: Fix issue with library stripping in install-sh
- (backported from kevin_walzer's patch from Tcl 8.6 trunk)
-
-2011-04-05 Andreas Kupries <andreask@activestate.com>
-
- * tcl.m4: Applied patch by Jeff Lawson. Nicer error message when
- tclConfig.sh was not found.
-
-2010-12-15 Stuart Cassoff <stwo@users.sourceforge.net>
-
- * install-sh: Upgrade to newer install-sh and use it.
- * tcl.m4:
-
-2010-12-14 Stuart Cassoff <stwo@users.sourceforge.net>
-
- * tcl.m4: Better building on OpenBSD.
-
-2010-12-14 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: when using gcc, don't try to determine Win64 SDK
-
-2010-12-12 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: Determine correctly a cross-compiler-windres
-
-2010-11-23 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: add some cross-compile support, borrowed from Tcl 8.6
-
-2010-09-16 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: correct HP-UX LDFLAGS (only used when building big shell)
-
-2010-09-14 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: add extra if check for .manifest file generation
- Add notice about package name and version being built.
-
-2010-09-09 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: [FREQ #3058486] TEA_LOAD_CONFIG doesn't set all BUILD_ vars
- Slightly related: defining BUILD_$1 on all platforms - not only win -
- allows the -fvisibility feature to be used in extensions as well, at
- least if you compile against tcl >= 8.5.
-
-2010-08-26 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: ensure safe quoting for autoheader usage
-
-2010-08-19 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: add TEA_ADD_CLEANFILES macro to make adding cleanfiles
- easier, and add *.exp to CLEANFILES Windows default.
- (TEA_MAKE_LIB): Enhanced to check for MSVC that requires manifests
- and auto-embed it into proj DLL via MAKE_SHARED_LIB. Also define
- VC_MANIFEST_EMBED_DLL and VC_MANIFEST_EMBED_EXE that do the same
- magic in case it is needed for extended TEA projects.
-
-2010-08-16 Jeff Hobbs <jeffh@ActiveState.com>
-
- *** Bump to TEA_VERSION 3.9 ***
- If upgrading from TEA_VERSION 3.8, copy over tcl.m4, change
- TEA_INIT to use 3.9 and reconfigure (ac-2.59+).
- BUILD_${PACKAGE_NAME} will be auto-defined on Windows for
- correct setting of TCL_STORAGE_CLASS.
- TEA_LOAD_CONFIG users should remove the SHLIB_LD_LIBS setting done
- in configure.in (LIBS will be automagically populated by
- TEA_LOAD_CONFIG).
- TEA_EXPORT_CONFIG has been added for ${pkg}Config.sh creators
- SHLIB_LD_FLAGS was deprecated a while ago, remove it if it is
- still in your Makefile.in.
-
- * tcl.m4: add /usr/lib64 to set of auto-search dirs. [Bug 1230554]
- Auto-define BUILD_$PACKAGE_NAME so users don't need to. This
- needs to correspond with $pkg.h define magic for TCL_STORAGE_CLASS.
- Auto-define CLEANFILES. Users can expand it.
- (SHLIB_LD_LIBS): define to '${LIBS}' default and change it only if
- necessary. Platforms not using this may simply not work or have
- very funky linkers.
- (TEA_LOAD_CONFIG): When loading config for another extension,
- auto-add stub libraries found with TEA_ADD_LIBS. Eases
- configure.in for modules like itk and img::*.
- (TEA_EXPORT_CONFIG): Add standardized function for exporting a
- ${pkg}Config.sh. See use by img::* and itcl.
-
-2010-08-12 Jeff Hobbs <jeffh@ActiveState.com>
-
- *** Bump to TEA_VERSION 3.8 ***
- If upgrading from TEA_VERSION 3.7, copy over tcl.m4, change
- TEA_INIT to use 3.8 and reconfigure (ac-2.59+).
- No other changes should be necessary.
-
- * tcl.m4: remove more vestigial bits from removed platforms.
- Add back SCO_SV-3.2*.
- Remove use of DL_LIBS and DL_OBJS and related baggage - these are
- only needed by the core to support 'load'.
- Allow for macosx in TEA_ADD_SOURCES.
- Correct check for found_xincludes=no in TEA_PATH_UNIX_X.
-
-2010-08-11 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: remove the following old platform configurations:
- UNIX_SV*|UnixWare-5*, SunOS-4.*, SINIX*5.4*, SCO_SV-3.2*<readded>,
- OSF1-1.*, NEXTSTEP-*, NetBSD-1.*|FreeBSD-[[1-2]].*, MP-RAS-*,
- IRIX-5.*, HP-UX-*.08.*|HP-UX-*.09.*|HP-UX-*.10.*, dgux*,
- BSD/OS-2.1*|BSD/OS-3*
- (AIX): drop AIX-pre4 support and use of ldAix, use -bexpall/-brtl
-
-2010-07-05 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: [Patch #1055668] removal of exported internals from
- tclInt.h (EXTERN macro)
-
-2010-04-14 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4 - Backport a lot of quoting fixes from tcl8.6/unix/tcl.m4
- - Fix determination of CYGPATH for CYGWIN
- With those fixes, itcl and tdbc compile fine with CYGWIN
-
-2010-04-06 Jan Nijtmans <nijtmans@users.sf.net>
-
- * install-sh [Bug 2982540] configure and install* script files
- should always have LF
-
-2010-02-19 Stuart Cassoff <stwo@users.sourceforge.net>
-
- * tcl.m4: Correct compiler/linker flags for threaded builds on
- OpenBSD.
-
-2010-01-19 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: Detect CYGWIN variant: win32 or unix
-
-2010-01-03 Donal K. Fellows <dkf@users.sf.net>
-
- * unix/tcl.m4 (TEA_CONFIG_CFLAGS): [Tcl Bug 1636685]: Use the
- configuration for modern FreeBSD suggested by the FreeBSD porter.
-
-2009-10-22 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: [Tcl Patch #2883533] tcl.m4 support for Haiku OS
-
-2009-04-27 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_CONFIG_CFLAGS): harden the check to add _r to CC on
- AIX with threads.
-
-2009-04-10 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Darwin): check for 64-bit TkAqua.
-
-2009-03-26 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tclconfig/tcl.m4: Adapt LDFLAGS and LD_SEARCH_FLAGS
- together with SHLIB_LD definition to unbreak building on HPUX.
-
-2009-03-20 Andreas Kupries <andreask@activestate.com>
-
- * tclconfig/tcl.m4: Changed SHLIB_LD definition to unbreak
- building on HPUX.
-
-2009-03-16 Joe English <jenglish@users.sourceforge.net>
-
- * tcl.m4(TEA_PUBLIC_TK_HEADERS): Look at ${TK_INCLUDE_SPEC}
- (found in tkConfig.sh) when trying to guess where tk.h might be
- [Patch 1960628].
-
-2009-03-11 Joe English <jenglish@users.sourceforge.net>
-
- * tcl.m4: Allow ${SHLIB_SUFFIX} to be overridden at
- configure-time [Patch 1960628]. Also fix some comment typos,
- and an uninitialized variable bug-waiting-to-happen.
-
-2008-12-21 Jan Nijtmans <nijtmans@users.sf.net>
-
- * tcl.m4: [Bug 2073255] Tcl_GetString(NULL) doesn't crash on HP-UX
- (this bug report was for Tcl, but holds for TEA as well.)
-
-2008-12-20 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4: sync with tdbc tcl.m4 changes
- (SunOS-5.11): Sun cc SHLIB_LD: use LDFLAGS_DEFAULT instead of LDFLAGS
-
-2008-12-02 Jeff Hobbs <jeffh@ActiveState.com>
-
- *** Bump to TEA_VERSION 3.7 ***
-
- * tcl.m4: in private header check, check for <plat>Port.h instead
- of Int.h to ensure all private headers are available.
-
-2008-11-04 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Darwin): sync TEA_PRIVATE_TK_HEADERS handling of
- Tk.framework PrivateHeaders with TEA_PRIVATE_TCL_HEADERS.
-
-2008-11-04 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_PATH_TCLCONFIG, TEA_PATH_TKCONFIG): exit with error
- when tclConfig.sh cannot be found. [Bug #1997760]
- (TEA_PRIVATE_TCL_HEADERS, TEA_PRIVATE_TK_HEADERS): allow for
- finding the headers installed in the public areas, e.g. a result of
- make install-private-headers. [Bug #1631922]
-
-2008-08-12 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Darwin): link shlib with current and compatiblity version
- flags; look for libX11.dylib when searching for X11 libraries.
-
-2008-06-12 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (SunOS-5.11): fix 64bit amd64 support with gcc & Sun cc.
-
-2008-03-27 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (SunOS-5.1x): fix 64bit support for Sun cc. [Bug 1921166]
-
-2008-02-01 Donal K. Fellows <donal.k.fellows@man.ac.uk>
-
- * tcl.m4 (TEA_CONFIG_CFLAGS): Updated to work at least in part with
- more modern VC versions. Currently just made the linker flags more
- flexible; more work may be needed.
-
-2007-10-26 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Darwin): add support for 64-bit X11.
-
-2007-10-23 Jeff Hobbs <jeffh@ActiveState.com>
-
- *** Tagged tea-3-branch to start TEA 4 development on HEAD ***
-
-2007-09-17 Joe English <jenglish@users.sourceforge.net>
-
- * tcl.m4: use '${CC} -shared' instead of 'ld -Bshareable'
- to build shared libraries on current NetBSDs [Bug 1749251].
-
-2007-09-15 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4: replace all direct references to compiler by ${CC} to
- enable CC overriding at configure & make time.
- (SunOS-5.1x): replace direct use of '/usr/ccs/bin/ld' in SHLIB_LD by
- 'cc' compiler driver.
-
-2007-08-08 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: check Ttk dir for Tk private headers (8.5).
- Add some comments to other bits.
-
-2007-06-25 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_PROG_TCLSH, TEA_PROG_WISH): move where / is added.
-
-2007-06-13 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: fix --with-tkinclude alignment. [Bug 1506111]
-
-2007-06-06 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Darwin): fix 64bit arch removal in fat 32&64bit builds.
-
-2007-05-18 Donal K. Fellows <donal.k.fellows@man.ac.uk>
-
- * tcl.m4: Added quoting so that paths with spaces cause fewer
- problems.
-
-2007-03-07 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Darwin): s/CFLAGS/CPPFLAGS/ in -mmacosx-version-min check.
-
-2007-02-15 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: correct private header check to search in generic subdir
-
-2007-02-09 Jeff Hobbs <jeffh@ActiveState.com>
-
- *** Bump to TEA_VERSION 3.6 ***
-
- * tcl.m4: correct -d to -f
- (TEA_CONFIG_CFLAGS): SHLIB_SUFFIX is .so on HP ia64 [Bug 1615058]
-
-2007-02-08 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_PRIVATE_TCL_HEADERS, TEA_PRIVATE_TK_HEADERS): check
- that the dirs actually have private headers. [Bug 1631922]
-
-2007-02-04 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4: add caching to -pipe check.
-
-2007-01-25 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4: integrate CPPFLAGS into CFLAGS as late as possible and
- move (rather than duplicate) -isysroot flags from CFLAGS to CPPFLAGS to
- avoid errors about multiple -isysroot flags from some older gcc builds.
-
-2006-01-19 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4: ensure CPPFLAGS env var is used when set. [Bug 1586861]
- (Darwin): add -isysroot and -mmacosx-version-min flags to CPPFLAGS when
- present in CFLAGS to avoid discrepancies between what headers configure
- sees during preprocessing tests and compiling tests.
-
-2006-12-19 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Darwin): --enable-64bit: verify linking with 64bit -arch flag
- succeeds before enabling 64bit build.
-
-2006-12-16 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Linux): fix previous change to use makefile variable
- LDFLAGS_DEFAULT instead of LDFLAGS in SHLIB_LD, to ensure linker
- flags in sampleextension Makefile are picked up.
-
-2006-11-26 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Linux): --enable-64bit support. [Patch 1597389], [Bug 1230558]
-
-2006-08-18 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Darwin): add support for --enable-64bit on x86_64, for
- universal builds including x86_64 and for use of -mmacosx-version-min
- instead of MACOSX_DEPLOYMENT_TARGET. For Tk extensions, remove 64-bit
- arch flags from CFLAGS like in the Tk configure, as neither TkAqua nor
- TkX11 can be built for 64-bit at present.
-
-2006-03-28 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: []-quote AC_DEFUN functions.
- (TEA_PATH_TKCONFIG): Fixed Windows-specific check for tkConfig.sh.
- (TEA_MAKE_LIB): Prepend 'lib' for Windows-gcc configs.
-
-2006-03-07 Joe English <jenglish@users.sourceforge.net>
-
- * tcl.m4: Set SHLIB_LD_FLAGS='${LIBS}' on NetBSD,
- as per the other *BSD variants [Bug 1334613].
-
-2006-01-25 Jeff Hobbs <jeffh@ActiveState.com>
-
- *** Bump to TEA version 3.5 ***
-
- * tcl.m4: keep LD_SEARCH_FLAGS and CC_SEARCH_FLAGS synchronous
- with core tcl.m4 meaning.
-
-2006-01-24 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Darwin): use makefile variable LDFLAGS_DEFAULT instead of
- LDFLAGS in SHLIB_LD, to ensure linker flags in sampleextension Makefile
- are picked up. [Bug 1403343]
-
-2006-01-23 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: add C:/Tcl/lib and C:/Progra~1/Tcl/lib dirs to check for
- *Config.sh on Windows. [Bug 1407544]
-
-2006-01-23 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Darwin): for Tk extensions, remove -arch ppc64 from CFLAGS
- like in the Tk configure, as neither TkAqua nor TkX11 can be built for
- 64bit at present (no 64bit GUI libraries).
-
-2006-01-22 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: restore system=windows on Windows.
- Remove error if 'ar' isn't found (it may not be on Windows).
- Do not add -lxnet or define _XOPEN_SOURCE on HP-UX by default.
- Ensure the C|LDFLAGS_DEFAULT gets the fully sub'd value at
- configure time.
-
-2006-01-10 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4: add caching, use AC_CACHE_CHECK instead of AC_CACHE_VAL
- where possible, consistent message quoting, sync relevant
- tcl/unix/tcl.m4 HEAD changes and gratuitous formatting differences
- (notably sunc removal of support for for ancient BSD's, IRIX 4,
- RISCos and Ultrix by kennykb), Darwin improvements to
- TEA_LOAD_*CONFIG to make linking work against Tcl/Tk frameworks
- installed in arbitrary location, change TEA_PROG_* search order
- (look in *_BIN_DIR parents before *_PREFIX).
-
-2006-01-05 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: add dkf's system config refactor
-
-2006-01-04 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: remove extraneous ' that causes bash 3.1 to choke
-
-2005-12-19 Joe English <jenglish@users.sourceforge.net>
-
- * tcl.m4 (TEA_PATH_TCLCONFIG &c): Look for tclConfig.sh &c
- in ${libdir}, where they are installed by default [Patch #1377407].
-
-2005-12-05 Don Porter <dgp@users.sf.net>
-
- * tcl.m4 (TEA_PUBLIC_*_HEADERS): Better support for finding
- header files for uninstalled Tcl and Tk.
-
-2005-12-02 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: correctly bump TEA_VERSION var to 3.4
-
-2005-12-01 Daniel Steffen <das@users.sourceforge.net>
-
- * unix/tcl.m4 (Darwin): fixed error when MACOSX_DEPLOYMENT_TARGET unset
-
-2005-11-29 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: *** Bump to TEA version 3.4 ***
- Add Windows x64 build support.
- Remove TEA_PATH_NOSPACE and handle the problem with ""s where
- necessary - the macro relied on TCLSH_PROG which didn't work for
- cross-compiles.
-
-2005-11-27 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Darwin): add 64bit support, add CFLAGS to SHLIB_LD to
- support passing -isysroot in env(CFLAGS) to configure (flag can't
- be present twice, so can't be in both CFLAGS and LDFLAGS during
- configure), don't use -prebind when deploying on 10.4.
- (TEA_ENABLE_LANGINFO, TEA_TIME_HANDLER): add/fix caching.
-
-2005-10-30 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4: fixed two tests for TEA_WINDOWINGSYSTEM = "aqua" that
- should have been for `uname -s` = "Darwin" instead; added some
- missing quoting.
- (TEA_PROG_TCLSH, TEA_PROG_WISH): fix incorrect assumption that
- install location of tclConfig.sh/tkConfig.sh allows to determine
- the tclsh/wish install dir via ../bin. Indeed tcl/tk can be
- configured with arbitrary --libdir and --bindir (independent of
- prefix) and such a configuration is in fact standard with Darwin
- framework builds. At least now also check ${TCL_PREFIX}/bin
- resp. ${TK_PREFIX}/bin for presence of tclsh resp. wish (if tcl/tk
- have been configured with arbitrary --bindir, this will still not
- find them, for a general solution *Config.sh would need to contain
- the values of bindir/libdir/includedir passed to configure).
-
-2005-10-07 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: Fix Solaris 5.10 check and Solaris AMD64 64-bit builds.
-
-2005-10-04 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_PRIVATE_TCL_HEADERS): add / to finish sed macro
- (TEA_ENABLE_THREADS): don't check for pthread_attr_setstacksize func
-
-2005-09-13 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: *** Update to TEA version 3.3 ***
- define TEA_WINDOWINGSYSTEM in TEA_LOAD_TKCONFIG.
- Make --enable-threads the default (users can --disable-threads).
- Improve AIX ${CC}_r fix to better check existing ${CC} value.
- Do the appropriate evals to not require the *TOP_DIR_NATIVE vars
- be set for extensions that use private headers.
- Make aqua check for Xlib compat headers the same as win32.
-
-2005-07-26 Mo DeJong <mdejong@users.sourceforge.net>
-
- * tcl.m4 (TEA_PROG_TCLSH, TEA_BUILD_TCLSH,
- TEA_PROG_WISH, TEA_BUILD_WISH): Remove
- TEA_BUILD_TCLSH and TEA_BUILD_WISH because
- of complaints that it broke the build when
- only an installed version of Tcl was available
- at extension build time. The TEA_PROG_TCLSH and
- TEA_PROG_WISH macros will no longer search the
- path at all. The build tclsh or installed
- tclsh shell will now be found by TEA_PROG_TCLSH.
-
-2005-07-24 Mo DeJong <mdejong@users.sourceforge.net>
-
- * tcl.m4 (TEA_PROG_TCLSH, TEA_BUILD_TCLSH,
- TEA_PROG_WISH, TEA_BUILD_WISH):
- Split confused search for tclsh on PATH and
- build and install locations into two macros.
- TEA_PROG_TCLSH and TEA_PROG_WISH search the
- system PATH for an installed tclsh or wish.
- The TEA_BUILD_TCLSH and TEA_BUILD_WISH
- macros determine the name of tclsh or
- wish in the Tcl or Tk build directory even
- if tclsh or wish has not yet been built.
- [Tcl bug 1160114]
- [Tcl patch 1244153]
-
-2005-06-23 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (TEA_PRIVATE_TK_HEADERS): add ${TK_SRC_DIR}/macosx to
- TK_INCLUDES when building against TkAqua.
-
- * tcl.m4 (TEA_PATH_X): fixed missing comma in AC_DEFINE
-
- * tcl.m4: changes to better support framework builds of Tcl and Tk out
- of the box: search framework install locations for *Config.sh, and if in
- presence of a framework build, use the framework's Headers and
- PrivateHeaders directories for public and private includes. [FR 947735]
-
-2005-06-18 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Darwin): add -headerpad_max_install_names to LDFLAGS to
- ensure we can always relocate binaries with install_name_tool.
-
-2005-06-04 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (TEA_PATH_X): for TEA_WINDOWINGSYSTEM == aqua, check if xlib
- compat headers are available in tkheaders location, otherwise add xlib
- sourcedir to TK_XINCLUDES.
-
-2005-04-25 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4: added AC_DEFINE* descriptions (from core tcl.m4) to allow
- use with autoheader.
- (Darwin): added configure checks for recently added linker flags
- -single_module and -search_paths_first to allow building with older
- tools (and on Mac OS X 10.1), use -single_module in SHLIB_LD.
- (TEA_MISSING_POSIX_HEADERS): added caching of dirent.h check.
- (TEA_BUGGY_STRTOD): added caching (sync with core tcl.m4).
-
-2005-03-24 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_TCL_64BIT_FLAGS): use Tcl header defaults for wide
- int type only on Windows when __int64 is detected as valid.
-
-2005-03-24 Don Porter <dgp@users.sf.net>
-
- * README.txt: Update reference to "SC_* macros" to "TEA_* macros".
- * tcl.m4: Incorporated recent improvements in SC_PATH_TCLCONFIG
- and SC_PATH_TKCONFIG into TEA_PATH_TCLCONFIG and TEA_PATH_TKCONFIG.
- Corrected search path in TEA_PATH_CONFIG and added
- AC_SUBST($1_BIN_DIR) to TEA_LOAD_CONFIG so that packages that load
- the configuration of another package can know where they loaded
- it from.
-
-2005-03-18 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_CONFIG_CFLAGS): correct 2005-03-17 change to have
- variant LD_SEARCH_FLAGS for gcc and cc builds.
-
- * tcl.m4 (TEA_PROG_TCLSH, TEA_PROG_WISH): correct x-compile check.
-
-2005-03-17 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: Correct gcc build and HP-UX-11.
-
-2005-02-08 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_ADD_LIBS): don't touch lib args starting with -.
- (TEA_CONFIG_CFLAGS): only define _DLL for CE in shared build.
- (TEA_MAKE_LIB): set RANLIB* to : on Windows (it's not needed).
-
-2005-02-01 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: redo of 2005-01-27 changes to correctly handle paths
- with spaces. Win/CE and Win/64 builds now require a prebuilt
- tclsh to handle conversion to short pathnames. This is done in
- the new TEA_PATH_NOSPACE macro. For Win/CE|64, make CC just the
- compiler and move the necessary includes to CFLAGS.
- (TEA_CONFIG_CFLAGS): Add Solaris 64-bit gcc build support.
- (TEA_PROG_TCLSH, TEA_PROG_WISH): Allow TCLSH_PROG and WISH_PROG to
- be set in the env and prevent resetting.
- (TEA_ADD_LIBS): On Windows using GCC (mingw), convert foo.lib
- args to -lfoo, for use with mingw.
- *** POTENTIAL INCOMPATABILITY ***
- (TEA_CONFIG_CFLAGS): Fix AIX gcc builds to work out-of-box.
- Bumped TEA to 3.2.
-
-2005-01-27 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: remove cygpath calls to support msys.
- Update base CE build assumption to "420,ARMV4,ARM,Pocket PC 2003".
- Make STLIB_LD use $LINKBIN -lib.
-
-2005-01-25 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (Darwin): fixed bug with static build linking to dynamic
- library in /usr/lib etc instead of linking to static library earlier
- in search path. [Tcl Bug 956908]
- Removed obsolete references to Rhapsody.
-
-2004-12-29 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: Updates for VC7 compatibility, fixing CFLAGS and LDFLAGS
- options, using better default -O levels. [Bug 1092952, 1091967]
-
-2004-12-29 Joe English <jenglish@users.sourceforge.net>
-
- * tcl.m4: Do not use ${DBGX} suffix when building
- shared libraries [patch #1081595, TIP #34]
-
-2004-09-07 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_CONFIG_CFLAGS): support eVC4 Win/CE builds
-
-2004-08-10 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_INIT, TEA_PREFIX): update handling of exec_prefix to
- work around subdir configures since autoconf only propagates the
- prefix (not exec_prefix).
-
-2004-07-23 Daniel Steffen <das@users.sourceforge.net>
-
- * tcl.m4 (TEA_CONFIG_CFLAGS): Darwin section: brought inline with
- Tcl 8.5 HEAD config, removed core specific & obsolete settings.
-
-2004-07-22 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_PATH_X): check in TK_DEFS for MAC_OSX_TK to see if
- we are compiling on Aqua. Add TEA_WINDOWINGSYSTEM var that
- reflects 'tk windowingsystem' value.
-
-2004-07-16 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_ENABLE_THREADS): force a threaded build when
- building against a threaded core.
- (CFLAGS_WARNING): Remove -Wconversion for gcc builds
- (TEA_CONFIG_CFLAGS): Reorder configure.in for better 64-bit build
- configuration, replacing EXTRA_CFLAGS with CFLAGS. [Bug #874058]
- Update to latest Tcl 8.5 head config settings.
- Call this TEA version 3.1.
-
-2004-04-29 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_TCL_64BIT_FLAGS): replace AC_TRY_RUN test with
- AC_TRY_COMPILE for the long vs. long long check. (kenny)
-
-2004-04-26 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_TCL_64BIT_FLAGS): update against core tcl.m4 to
- define TCL_WIDE_INT_IS_LONG if 'using long'.
-
-2004-03-19 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: correct Windows builds getting LDFLAGS info in MAKE_LIB
-
-2004-02-11 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: correct TCL_INCLUDES for private headers on Windows - it
- doesn't need the eval.
-
-2004-02-10 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: don't require TK_INCLUDES and TCL_INCLUDES to have the
- DIR_NATIVE vars defined when using private headers on unix.
- Allow $... to TEA_ADD_SOURCES for constructs like
- TEA_ADD_SOURCES([\$(WIN_OBJECTS)]), that allow the developer to
- place more in the Makefile.in.
- tkUnixPort.h checks for HAVE_LIMITS_H, so do both HAVE and
- CHECK on limits.h
-
-2003-12-10 Jeff Hobbs <jeffh@ActiveState.com>
-
- * Makefile.in: added TEA_ADD_LIBS, TEA_ADD_INCLUDES and
- * configure: TEA_ADD_CFLAGS to configurable parameters with
- * configure.in: PKG_* equivs in the Makefile. This allows the
- * tclconfig/tcl.m4: user to worry less about actual magic VAR names.
- Corrected Makefile.in to note that TEA_ADD_TCL_SOURCES requires
- exact file names.
-
-2003-12-09 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: updated OpenBSD support based on [Patch #775246] (cassoff)
-
-2003-12-05 Jeff Hobbs <jeffh@ActiveState.com>
-
- * configure:
- * configure.in:
- * Makefile.in (VPATH): readd $(srcdir) to front of VPATH as the
- first part of VPATH can get chopped off.
- Change .c.$(OBJEXT) rule to .c.@OBJEXT@ to support more makes.
- * tclconfig/tcl.m4: add TEA_ADD_STUB_SOURCES to support libstub
- generation and TEA_ADD_TCL_SOURCES to replace RUNTIME_SOURCES as
- the way the user specifies library files.
-
-2003-12-03 Jeff Hobbs <jeffh@ActiveState.com>
-
- * configure: Update of TEA spec to (hopefully) simplify
- * configure.in: some aspects of TEA by making use of more
- * Makefile.in: AC 2.5x features. Use PACKAGE_NAME (instead
- * generic/tclsample.c: of PACKAGE) and PACKAGE_VERSION (instead of
- * tclconfig/tcl.m4: VERSION) arguments to AC_INIT as the TEA
- package name and version.
- Provide a version argument to TEA_INIT - starting with 3.0.
- Drop all use of interior shell substs that older makefiles didn't
- like. Use PKG_* naming convention instead.
- Move specification of source files and public headers into
- configure.in with TEA_ADD_SOURCES and TEA_ADD_HEADERS. These will
- be munged during ./configure into the right obj file names (no
- $(SOURCES:.c=.obj) needed).
- There is almost nothing that should be touched in Makefile.in now
- for the developer. May want to add a TEA_ADD_TCL_SOURCES for the
- RUNTIME_SOURCES that remains.
- Use SHLID_LD_FLAGS (instead of SHLID_LDFLAGS) as Tcl does.
- Only specify the user requested LDFLAGS/CFLAGS in the Makefile,
- don't mention the _OPTIMIZE/_DEBUG variants.
-
-2003-10-15 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: create a TEA_SETUP_COMPILER_CC the precedes the
- TEA_SETUP_COMPILER macro. They are split so the check for CC
- occurs before any use of CC. Also add AC_PROG_CPP to the compiler
- checks.
-
-2003-10-06 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: Updated for autoconf 2.5x prereq.
- Where TCL_WIDE_INT_TYPE would be __int64, defer to the code checks
- in tcl.h, which also handles TCL_LL_MODIFIER* properly.
-
-2003-04-22 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: correct default setting of ARCH for WinCE builds.
- Correct \ escaping for CE sed macros.
-
-2003-04-10 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: replace $(syscal) construct with older `syscall` for
- systems where sh != bash.
-
-2003-04-09 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_WITH_CELIB): add --enable-wince and --with-celib
- options for Windows/CE compilation support. Requires the
- Microsoft eMbedded SDK and Keuchel's celib emulation layer.
-
-2003-02-18 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_ENABLE_THREADS): Make sure -lpthread gets passed on
- the link line when checking for the pthread_attr_setstacksize
- symbol. (dejong)
-
- * tcl.m4 (TEA_SETUP_COMPILER): added default calls to
- TEA_TCL_EARLY_FLAGS, TEA_TCL_64BIT_FLAGS,
- TEA_MISSING_POSIX_HEADERS and TEA_BUGGY_STRTOD.
-
-2003-02-14 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: correct HP-UX ia64 --enable-64bit build flags
-
-2003-01-29 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: check $prefix/lib as well as $exec_prefix/lib when
- looking for tcl|tkConfig.sh, as this check is done before we would
- set exec_prefix when the user does not define it.
-
-2003-01-21 Mo DeJong <mdejong@users.sourceforge.net>
-
- * tcl.m4 (TEA_CONFIG_CFLAGS): Fix build support
- for mingw, the previous implementation would
- use VC++ when compiling with mingw gcc. Don't
- pass -fPIC since gcc always compiles pic code
- under win32. Change some hard coded cases
- of gcc to ${CC}.
-
-2002-10-15 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: move the CFLAGS definition from TEA_ENABLE_SHARED to
- TEA_MAKE_LIB because setting too early confuses other AC_* macros.
- Correct the HP-11 SHLIB_LD_LIBS setting.
-
- * tcl.m4: add the CFLAGS definition into TEA_ENABLE_SHARED and
- make it pick up the env CFLAGS at configure time.
-
-2002-10-09 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: add --enable-symbols=mem option to enable TCL_MEM_DEBUG.
- Improved AIX 64-bit build support, allow it on AIX-4 as well.
- Enable 64-bit HP-11 compilation with gcc.
- Enable 64-bit IRIX64-6 cc build support.
- Correct FreeBSD thread library linkage.
- Add OSF1 static build support.
- Improve SunOS-5 shared build SHLIB_LD macro.
-
-2002-07-20 Zoran Vasiljevic <zoran@archiware.com>
-
- * tcl.m4: Added MINGW32 to list of systems checked for Windows build.
- Also, fixes some indentation issues with "--with-XXX" options.
-
-2002-04-23 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_ENABLE_THREADS): added USE_THREAD_ALLOC define to
- use new threaded allocatory by default on Unix for Tcl 8.4.
- (TEA_CONFIG_CFLAGS): corrected LD_SEARCH_FLAGS for FreeBSD-3+.
-
-2002-04-22 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4 (TEA_SETUP_COMPILER): removed call to AC_CYGWIN so that
- we can use autoconf 2.5x as well as 2.13. This prevents us from
- being able to warn against the use of cygwin gcc at configure
- time, but allows autoconf 2.5x, which is what is shipped with most
- newer systems.
-
-2002-04-11 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: Enabled COFF as well as CV style debug info with
- --enable-symbols to allow Dr. Watson users to see function info.
- More info on debugging levels can be obtained at:
- http://msdn.microsoft.com/library/en-us/dnvc60/html/gendepdebug.asp
-
-2002-04-03 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: change all SC_* macros to TEA_*. The SC_ was for
- Scriptics, which is no more. TEA represents a better, independent
- prefix that won't need changing.
- Added preliminary mingw gcc support. [Patch #538772]
- Added TEA_PREFIX macro that handles defaulting the prefix and
- exec_prefix vars to those used by Tcl if none were specified.
- Added TEA_SETUP_COMPILER macro that encompasses the AC_PROG_CC
- check and several other basic AC_PROG checks needed for making
- executables. This greatly simplifies user's configure.in files.
- Collapsed AIX-5 defines into AIX-* with extra checks for doing the
- ELF stuff on AIX-5-ia64.
- Updated TEA_ENABLE_THREADS to take an optional arg to allow
- switching it on by default (for Thread) and add sanity checking to
- warn the user if configuring threads incompatibly.
-
-2002-03-29 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: made sure that SHLIB_LDFLAGS was set to LDFLAGS_DEFAULT.
- Removed --enable-64bit support for AIX-4 because it wasn't correct.
- Added -MT or -MD Windows linker switches to properly support
- symbols-enabled builds.
-
-2002-03-28 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: called AC_MSG_ERROR when SC_TEA_INIT wasn't called first
- instead of calling it as that inlines it each time in shell code.
- Changed Windows CFLAGS_OPTIMIZE to use -O2 instead of -Oti.
- Noted TCL_LIB_VERSIONS_OK=nodots for Windows builds.
- A few changes to support itcl (and perhaps others):
- Added support for making your own stub libraries to SC_MAKE_LIB.
- New SC_PATH_CONFIG and SC_LOAD_CONFIG that take a package name arg
- and find that ${pkg}Config.sh file. itk uses this for itcl.
-
-2002-03-27 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: made SC_LOAD_TKCONFIG recognize when working with a Tk
- build dir setup.
- Added EXTRA_CFLAGS and SHLIB_LD_LIBS substs to SC_CONFIG_CFLAGS.
- Added XLIBSW onto LIBS when it is defined.
- Remove TCL_LIBS from MAKE_LIB and correctly use SHLIB_LD_LIBS
- instead to not rely as much on tclConfig.sh cached info.
- Add TK_BIN_DIR to paths to find wish in SC_PROG_WISH.
- These move towards making TEA much more independent of *Config.sh.
-
-2002-03-19 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: corrected forgotten (UN)SHARED_LIB_SUFFIX and
- SHLIB_SUFFIX defines for Win.
- (SC_PATH_X): made this only do the check on unix platforms.
-
-2002-03-12 Jeff Hobbs <jeffh@ActiveState.com>
-
- * README.txt: updated to reflect fewer files
-
-2002-03-06 Jeff Hobbs <jeffh@ActiveState.com>
-
- * config.guess (removed):
- * config.sub (removed): removed unnecessary files
-
- * installFile.tcl (removed):
- * mkinstalldirs (removed): these aren't really necessary for
- making TEA work
-
- * tcl.m4 (SC_PUBLIC_TCL_HEADERS, SC_PUBLIC_TK_HEADERS): don't
- check /usr(/local)/include for includes on Windows when not using
- gcc
-
-2002-03-05 Jeff Hobbs <jeffh@ActiveState.com>
-
- * tcl.m4: added warnings on Windows, removed RELPATH define and
- added TCL_LIBS to MAKE_LIB macro.
-
- This import represents 2.0.0, or a new start at attempting to
- make TEA much easier for C extension developers.
-
- **** moved from tclpro project to core tcl project, ****
- **** renamed to 'tclconfig' ****
-
-2001-03-15 Karl Lehenbauer <karl@procplace.com>
-
- * installFile.tcl: Added updating of the modification time of
- the target file whether we overwrote it or decided that it
- hadn't changed. This was necessary for us to be able to
- determine whether or not a module install touched the file.
-
-2001-03-08 Karl Lehenbauer <karl@procplace.com>
-
- * installFile.tcl: Added support for converting new-style (1.1+)
- Cygnus drive paths to Tcl-style.
-
-2001-01-15 <brent.welch@interwoven.com>
-
- * tcl.m4: Added FreeBSD clause.
-
-2001-01-03 <brent.welch@interwoven.com>
-
- * tcl.m4: Fixed typo in SC_LIB_SPEC where it is checking
- for exec-prefix.
-
-2000-12-01 <brent.welch@interwoven.com>
-
- * tcl.m4: Concatenated most of the Ajuba acsite.m4 file
- so we don't need to modify the autoconf installation.
- * config.guess:
- * config.sub:
- * installFile.tcl:
- Added files from the itcl config subdirectory,
- which should go away.
-
-2000-7-29 <welch@ajubasolutions.com>
-
- * Fixed the use of TCL_SRC_DIR and TK_SRC_DIR within
- TCL_PRIVATE_INCLUDES and TK_PRIVATE_INCLUDES to match their recent
- change from $(srcdir) to $(srcdir)/..
diff --git a/ds9/tclconfig/README.txt b/ds9/tclconfig/README.txt
deleted file mode 100644
index 59b5a3e..0000000
--- a/ds9/tclconfig/README.txt
+++ /dev/null
@@ -1,26 +0,0 @@
-These files comprise the basic building blocks for a Tcl Extension
-Architecture (TEA) extension. For more information on TEA see:
-
- http://www.tcl.tk/doc/tea/
-
-This package is part of the Tcl project at SourceForge, and latest
-sources should be available there:
-
- http://tcl.sourceforge.net/
-
-This package is a freely available open source package. You can do
-virtually anything you like with it, such as modifying it, redistributing
-it, and selling it either in whole or in part.
-
-CONTENTS
-========
-The following is a short description of the files you will find in
-the sample extension.
-
-README.txt This file
-
-install-sh Program used for copying binaries and script files
- to their install locations.
-
-tcl.m4 Collection of Tcl autoconf macros. Included by a package's
- aclocal.m4 to define TEA_* macros.
diff --git a/ds9/tclconfig/config.tcl.in b/ds9/tclconfig/config.tcl.in
deleted file mode 100644
index ffc1c9d..0000000
--- a/ds9/tclconfig/config.tcl.in
+++ /dev/null
@@ -1,82 +0,0 @@
-###
-# Tcl Parsable version of data from xxxConfig.sh
-###
-name {@PACKAGE_NAME@}
-version {@PACKAGE_VERSION@}
-libfile {@PKG_LIB_FILE@}
-srcdir {@srcdir@}
-prefix {@prefix@}
-exec_prefix {@exec_prefix@}
-exeext {@EXEEXT@}
-tk {@TEA_TK_EXTENSION@}
-
-bindir {@bindir@}
-libdir {@libdir@}
-includedir {@includedir@}
-datarootdir {@datarootdir@}
-datadir {@datadir@}
-mandir {@mandir@}
-cleanfiles {@CLEANFILES@}
-
-AR {@AR@}
-CC {@CC@}
-CFLAGS {@CFLAGS@}
-CFLAGS_DEBUG {@CFLAGS_DEBUG@}
-CFLAGS_OPTIMIZE {@CFLAGS_OPTIMIZE@}
-CFLAGS_DEFAULT {@CFLAGS_DEFAULT@}
-CFLAGS_WARNING {@CFLAGS_WARNING@}
-CPPFLAGS {@CPPFLAGS@}
-DEFS {@DEFS@ @PKG_CFLAGS@}
-EXEEXT {@EXEEXT@}
-LDFLAGS {@LDFLAGS@}
-LDFLAGS_DEFAULT {@LDFLAGS_DEFAULT@}
-LIBS {@PKG_LIBS@ @LIBS@}
-MAKE_LIB {@MAKE_LIB@}
-MAKE_SHARED_LIB {@MAKE_SHARED_LIB@}
-MAKE_STATIC_LIB {@MAKE_STATIC_LIB@}
-MAKE_STUB_LIB {@MAKE_STUB_LIB@}
-OBJEXT {@OBJEXT@}
-PKG_CFLAGS {@PKG_CFLAGS@}
-RANLIB {@RANLIB@}
-RANLIB_STUB {@RANLIB_STUB@}
-
-SHELL {@SHELL@}
-
-SHARED_BUILD {@SHARED_BUILD@}
-
-SHLIB_CFLAGS {@SHLIB_CFLAGS@}
-SHLIB_LD {@SHLIB_LD@}
-SHLIB_LD_LIBS {@SHLIB_LD_LIBS@}
-SHLIB_SUFFIX {@SHLIB_SUFFIX@}
-STLIB_LD {@STLIB_LD@}
-TCL_DEFS {@TCL_DEFS@}
-TCL_VERSION {@TCL_VERSION@}
-TCL_PATCH_LEVEL {@TCL_PATCH_LEVEL@}
-TCL_BIN_DIR {@TCL_BIN_DIR@}
-TCL_SRC_DIR {@TCL_SRC_DIR@}
-TEA_TK_EXTENSION {@TEA_TK_EXTENSION@}
-
-TK_VERSION {@TK_VERSION@}
-TK_PATCH_LEVEL {@TK_PATCH_LEVEL@}
-TK_BIN_DIR {@TK_BIN_DIR@}
-TK_SRC_DIR {@TK_SRC_DIR@}
-
-TEA_PLATFORM {@TEA_PLATFORM@}
-TEA_WINDOWINGSYSTEM {@TEA_WINDOWINGSYSTEM@}
-TEA_SYSTEM {@TEA_SYSTEM@}
-TEACUP_OS {@TEACUP_OS@}
-TEACUP_ARCH {@TEACUP_ARCH@}
-TEACUP_TOOLSET {@TEACUP_TOOLSET@}
-TEACUP_PROFILE {@TEACUP_PROFILE@}
-
-PRACTCL_DEFS {@PRACTCL_DEFS@}
-PRACTCL_TOOLSET {@PRACTCL_TOOLSET@}
-PRACTCL_SHARED_LIB {@PRACTCL_SHARED_LIB@}
-PRACTCL_STATIC_LIB {@PRACTCL_STATIC_LIB@}
-PRACTCL_STUB_LIB {@PRACTCL_STUB_LIB@}
-PRACTCL_LIBS {@PKG_LIBS@ @LIBS@}
-PRACTCL_VC_MANIFEST_EMBED_DLL {@PRACTCL_VC_MANIFEST_EMBED_DLL@}
-PRACTCL_VC_MANIFEST_EMBED_EXE {@PRACTCL_VC_MANIFEST_EMBED_EXE@}
-PRACTCL_NAME_LIBRARY {@PRACTCL_NAME_LIBRARY@}
-
-PRACTCL_PKG_LIBS {@PKG_LIBS@} \ No newline at end of file
diff --git a/ds9/tclconfig/install-sh b/ds9/tclconfig/install-sh
deleted file mode 100755
index 7c34c3f..0000000
--- a/ds9/tclconfig/install-sh
+++ /dev/null
@@ -1,528 +0,0 @@
-#!/bin/sh
-# install - install a program, script, or datafile
-
-scriptversion=2011-04-20.01; # UTC
-
-# This originates from X11R5 (mit/util/scripts/install.sh), which was
-# later released in X11R6 (xc/config/util/install.sh) with the
-# following copyright and license.
-#
-# Copyright (C) 1994 X Consortium
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to
-# deal in the Software without restriction, including without limitation the
-# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
-# sell copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
-# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
-# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-#
-# Except as contained in this notice, the name of the X Consortium shall not
-# be used in advertising or otherwise to promote the sale, use or other deal-
-# ings in this Software without prior written authorization from the X Consor-
-# tium.
-#
-#
-# FSF changes to this file are in the public domain.
-#
-# Calling this script install-sh is preferred over install.sh, to prevent
-# `make' implicit rules from creating a file called install from it
-# when there is no Makefile.
-#
-# This script is compatible with the BSD install script, but was written
-# from scratch.
-
-nl='
-'
-IFS=" "" $nl"
-
-# set DOITPROG to echo to test this script
-
-# Don't use :- since 4.3BSD and earlier shells don't like it.
-doit=${DOITPROG-}
-if test -z "$doit"; then
- doit_exec=exec
-else
- doit_exec=$doit
-fi
-
-# Put in absolute file names if you don't have them in your path;
-# or use environment vars.
-
-chgrpprog=${CHGRPPROG-chgrp}
-chmodprog=${CHMODPROG-chmod}
-chownprog=${CHOWNPROG-chown}
-cmpprog=${CMPPROG-cmp}
-cpprog=${CPPROG-cp}
-mkdirprog=${MKDIRPROG-mkdir}
-mvprog=${MVPROG-mv}
-rmprog=${RMPROG-rm}
-stripprog=${STRIPPROG-strip}
-
-posix_glob='?'
-initialize_posix_glob='
- test "$posix_glob" != "?" || {
- if (set -f) 2>/dev/null; then
- posix_glob=
- else
- posix_glob=:
- fi
- }
-'
-
-posix_mkdir=
-
-# Desired mode of installed file.
-mode=0755
-
-chgrpcmd=
-chmodcmd=$chmodprog
-chowncmd=
-mvcmd=$mvprog
-rmcmd="$rmprog -f"
-stripcmd=
-
-src=
-dst=
-dir_arg=
-dst_arg=
-
-copy_on_change=false
-no_target_directory=
-
-usage="\
-Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE
- or: $0 [OPTION]... SRCFILES... DIRECTORY
- or: $0 [OPTION]... -t DIRECTORY SRCFILES...
- or: $0 [OPTION]... -d DIRECTORIES...
-
-In the 1st form, copy SRCFILE to DSTFILE.
-In the 2nd and 3rd, copy all SRCFILES to DIRECTORY.
-In the 4th, create DIRECTORIES.
-
-Options:
- --help display this help and exit.
- --version display version info and exit.
-
- -c (ignored)
- -C install only if different (preserve the last data modification time)
- -d create directories instead of installing files.
- -g GROUP $chgrpprog installed files to GROUP.
- -m MODE $chmodprog installed files to MODE.
- -o USER $chownprog installed files to USER.
- -s $stripprog installed files.
- -S $stripprog installed files.
- -t DIRECTORY install into DIRECTORY.
- -T report an error if DSTFILE is a directory.
-
-Environment variables override the default commands:
- CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG
- RMPROG STRIPPROG
-"
-
-while test $# -ne 0; do
- case $1 in
- -c) ;;
-
- -C) copy_on_change=true;;
-
- -d) dir_arg=true;;
-
- -g) chgrpcmd="$chgrpprog $2"
- shift;;
-
- --help) echo "$usage"; exit $?;;
-
- -m) mode=$2
- case $mode in
- *' '* | *' '* | *'
-'* | *'*'* | *'?'* | *'['*)
- echo "$0: invalid mode: $mode" >&2
- exit 1;;
- esac
- shift;;
-
- -o) chowncmd="$chownprog $2"
- shift;;
-
- -s) stripcmd=$stripprog;;
-
- -S) stripcmd="$stripprog $2"
- shift;;
-
- -t) dst_arg=$2
- shift;;
-
- -T) no_target_directory=true;;
-
- --version) echo "$0 $scriptversion"; exit $?;;
-
- --) shift
- break;;
-
- -*) echo "$0: invalid option: $1" >&2
- exit 1;;
-
- *) break;;
- esac
- shift
-done
-
-if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then
- # When -d is used, all remaining arguments are directories to create.
- # When -t is used, the destination is already specified.
- # Otherwise, the last argument is the destination. Remove it from $@.
- for arg
- do
- if test -n "$dst_arg"; then
- # $@ is not empty: it contains at least $arg.
- set fnord "$@" "$dst_arg"
- shift # fnord
- fi
- shift # arg
- dst_arg=$arg
- done
-fi
-
-if test $# -eq 0; then
- if test -z "$dir_arg"; then
- echo "$0: no input file specified." >&2
- exit 1
- fi
- # It's OK to call `install-sh -d' without argument.
- # This can happen when creating conditional directories.
- exit 0
-fi
-
-if test -z "$dir_arg"; then
- do_exit='(exit $ret); exit $ret'
- trap "ret=129; $do_exit" 1
- trap "ret=130; $do_exit" 2
- trap "ret=141; $do_exit" 13
- trap "ret=143; $do_exit" 15
-
- # Set umask so as not to create temps with too-generous modes.
- # However, 'strip' requires both read and write access to temps.
- case $mode in
- # Optimize common cases.
- *644) cp_umask=133;;
- *755) cp_umask=22;;
-
- *[0-7])
- if test -z "$stripcmd"; then
- u_plus_rw=
- else
- u_plus_rw='% 200'
- fi
- cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;;
- *)
- if test -z "$stripcmd"; then
- u_plus_rw=
- else
- u_plus_rw=,u+rw
- fi
- cp_umask=$mode$u_plus_rw;;
- esac
-fi
-
-for src
-do
- # Protect names starting with `-'.
- case $src in
- -*) src=./$src;;
- esac
-
- if test -n "$dir_arg"; then
- dst=$src
- dstdir=$dst
- test -d "$dstdir"
- dstdir_status=$?
- else
-
- # Waiting for this to be detected by the "$cpprog $src $dsttmp" command
- # might cause directories to be created, which would be especially bad
- # if $src (and thus $dsttmp) contains '*'.
- if test ! -f "$src" && test ! -d "$src"; then
- echo "$0: $src does not exist." >&2
- exit 1
- fi
-
- if test -z "$dst_arg"; then
- echo "$0: no destination specified." >&2
- exit 1
- fi
-
- dst=$dst_arg
- # Protect names starting with `-'.
- case $dst in
- -*) dst=./$dst;;
- esac
-
- # If destination is a directory, append the input filename; won't work
- # if double slashes aren't ignored.
- if test -d "$dst"; then
- if test -n "$no_target_directory"; then
- echo "$0: $dst_arg: Is a directory" >&2
- exit 1
- fi
- dstdir=$dst
- dst=$dstdir/`basename "$src"`
- dstdir_status=0
- else
- # Prefer dirname, but fall back on a substitute if dirname fails.
- dstdir=`
- (dirname "$dst") 2>/dev/null ||
- expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$dst" : 'X\(//\)[^/]' \| \
- X"$dst" : 'X\(//\)$' \| \
- X"$dst" : 'X\(/\)' \| . 2>/dev/null ||
- echo X"$dst" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'
- `
-
- test -d "$dstdir"
- dstdir_status=$?
- fi
- fi
-
- obsolete_mkdir_used=false
-
- if test $dstdir_status != 0; then
- case $posix_mkdir in
- '')
- # Create intermediate dirs using mode 755 as modified by the umask.
- # This is like FreeBSD 'install' as of 1997-10-28.
- umask=`umask`
- case $stripcmd.$umask in
- # Optimize common cases.
- *[2367][2367]) mkdir_umask=$umask;;
- .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;;
-
- *[0-7])
- mkdir_umask=`expr $umask + 22 \
- - $umask % 100 % 40 + $umask % 20 \
- - $umask % 10 % 4 + $umask % 2
- `;;
- *) mkdir_umask=$umask,go-w;;
- esac
-
- # With -d, create the new directory with the user-specified mode.
- # Otherwise, rely on $mkdir_umask.
- if test -n "$dir_arg"; then
- mkdir_mode=-m$mode
- else
- mkdir_mode=
- fi
-
- posix_mkdir=false
- case $umask in
- *[123567][0-7][0-7])
- # POSIX mkdir -p sets u+wx bits regardless of umask, which
- # is incompatible with FreeBSD 'install' when (umask & 300) != 0.
- ;;
- *)
- tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
- trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0
-
- if (umask $mkdir_umask &&
- exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1
- then
- if test -z "$dir_arg" || {
- # Check for POSIX incompatibilities with -m.
- # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
- # other-writeable bit of parent directory when it shouldn't.
- # FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
- ls_ld_tmpdir=`ls -ld "$tmpdir"`
- case $ls_ld_tmpdir in
- d????-?r-*) different_mode=700;;
- d????-?--*) different_mode=755;;
- *) false;;
- esac &&
- $mkdirprog -m$different_mode -p -- "$tmpdir" && {
- ls_ld_tmpdir_1=`ls -ld "$tmpdir"`
- test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
- }
- }
- then posix_mkdir=:
- fi
- rmdir "$tmpdir/d" "$tmpdir"
- else
- # Remove any dirs left behind by ancient mkdir implementations.
- rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null
- fi
- trap '' 0;;
- esac;;
- esac
-
- if
- $posix_mkdir && (
- umask $mkdir_umask &&
- $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
- )
- then :
- else
-
- # The umask is ridiculous, or mkdir does not conform to POSIX,
- # or it failed possibly due to a race condition. Create the
- # directory the slow way, step by step, checking for races as we go.
-
- case $dstdir in
- /*) prefix='/';;
- -*) prefix='./';;
- *) prefix='';;
- esac
-
- eval "$initialize_posix_glob"
-
- oIFS=$IFS
- IFS=/
- $posix_glob set -f
- set fnord $dstdir
- shift
- $posix_glob set +f
- IFS=$oIFS
-
- prefixes=
-
- for d
- do
- test -z "$d" && continue
-
- prefix=$prefix$d
- if test -d "$prefix"; then
- prefixes=
- else
- if $posix_mkdir; then
- (umask=$mkdir_umask &&
- $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
- # Don't fail if two instances are running concurrently.
- test -d "$prefix" || exit 1
- else
- case $prefix in
- *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
- *) qprefix=$prefix;;
- esac
- prefixes="$prefixes '$qprefix'"
- fi
- fi
- prefix=$prefix/
- done
-
- if test -n "$prefixes"; then
- # Don't fail if two instances are running concurrently.
- (umask $mkdir_umask &&
- eval "\$doit_exec \$mkdirprog $prefixes") ||
- test -d "$dstdir" || exit 1
- obsolete_mkdir_used=true
- fi
- fi
- fi
-
- if test -n "$dir_arg"; then
- { test -z "$chowncmd" || $doit $chowncmd "$dst"; } &&
- { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } &&
- { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false ||
- test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1
- else
-
- # Make a couple of temp file names in the proper directory.
- dsttmp=$dstdir/_inst.$$_
- rmtmp=$dstdir/_rm.$$_
-
- # Trap to clean up those temp files at exit.
- trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0
-
- # Copy the file name to the temp name.
- (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") &&
-
- # and set any options; do chmod last to preserve setuid bits.
- #
- # If any of these fail, we abort the whole thing. If we want to
- # ignore errors from any of these, just make sure not to ignore
- # errors from the above "$doit $cpprog $src $dsttmp" command.
- #
- { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } &&
- { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } &&
- { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } &&
- { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } &&
-
- # If -C, don't bother to copy if it wouldn't change the file.
- if $copy_on_change &&
- old=`LC_ALL=C ls -dlL "$dst" 2>/dev/null` &&
- new=`LC_ALL=C ls -dlL "$dsttmp" 2>/dev/null` &&
-
- eval "$initialize_posix_glob" &&
- $posix_glob set -f &&
- set X $old && old=:$2:$4:$5:$6 &&
- set X $new && new=:$2:$4:$5:$6 &&
- $posix_glob set +f &&
-
- test "$old" = "$new" &&
- $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1
- then
- rm -f "$dsttmp"
- else
- # Rename the file to the real destination.
- $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null ||
-
- # The rename failed, perhaps because mv can't rename something else
- # to itself, or perhaps because mv is so ancient that it does not
- # support -f.
- {
- # Now remove or move aside any old file at destination location.
- # We try this two ways since rm can't unlink itself on some
- # systems and the destination file might be busy for other
- # reasons. In this case, the final cleanup might fail but the new
- # file should still install successfully.
- {
- test ! -f "$dst" ||
- $doit $rmcmd -f "$dst" 2>/dev/null ||
- { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null &&
- { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }
- } ||
- { echo "$0: cannot unlink or rename $dst" >&2
- (exit 1); exit 1
- }
- } &&
-
- # Now rename the file to the real destination.
- $doit $mvcmd "$dsttmp" "$dst"
- }
- fi || exit 1
-
- trap '' 0
- fi
-done
-
-# Local variables:
-# eval: (add-hook 'write-file-hooks 'time-stamp)
-# time-stamp-start: "scriptversion="
-# time-stamp-format: "%:y-%02m-%02d.%02H"
-# time-stamp-time-zone: "UTC"
-# time-stamp-end: "; # UTC"
-# End:
diff --git a/ds9/tclconfig/practcl.tcl b/ds9/tclconfig/practcl.tcl
deleted file mode 100644
index ecabbf8..0000000
--- a/ds9/tclconfig/practcl.tcl
+++ /dev/null
@@ -1,4923 +0,0 @@
-###
-# Practcl
-# An object oriented templating system for stamping out Tcl API calls to C
-###
-puts [list LOADED practcl.tcl from [info script]]
-
-package require TclOO
-###
-# Seek out Tcllib if it's available
-###
-set tcllib_path {}
-foreach path {.. ../.. ../../..} {
- foreach path [glob -nocomplain [file join [file normalize $path] tcllib* modules]] {
- set tclib_path $path
- lappend ::auto_path $path
- break
- }
- if {$tcllib_path ne {}} break
-}
-
-###
-# Build utility functions
-###
-
-
-###
-# Extend http to follow redirects (ala Sourceforge downloads)
-###
-namespace eval ::http {}
-proc ::http::_followRedirects {url args} {
- while 1 {
- set token [geturl $url -validate 1]
- set ncode [ncode $token]
- if { $ncode eq "404" } {
- error "URL Not found"
- }
- switch -glob $ncode {
- 30[1237] {### redirect - see below ###}
- default {cleanup $token ; return $url}
- }
- upvar #0 $token state
- array set meta [set ${token}(meta)]
- cleanup $token
- if {![info exists meta(Location)]} {
- return $url
- }
- set url $meta(Location)
- unset meta
- }
- return $url
-}
-
-proc ::http::wget {url destfile {verbose 1}} {
- package require http
- set tmpchan [open $destfile w]
- fconfigure $tmpchan -translation binary
- if { $verbose } {
- puts [list GETTING [file tail $destfile] from $url]
- }
- set real_url [_followRedirects $url]
- set token [geturl $real_url -channel $tmpchan -binary yes]
- if {[ncode $token] != "200"} {
- error "DOWNLOAD FAILED"
- }
- cleanup $token
- close $tmpchan
-}
-
-namespace eval ::practcl {}
-
-###
-# A command to do nothing. A handy way of
-# negating an instruction without
-# having to comment it completely out.
-# It's also a handy attachment point for
-# an object to be named later
-###
-if {[info command ::noop] eq {}} {
- proc ::noop args {}
-}
-
-proc ::practcl::debug args {
- #puts $args
- ::practcl::cputs ::DEBUG_INFO $args
-}
-
-###
-# Drop in a static copy of Tcl
-###
-proc ::practcl::doexec args {
- puts [list {*}$args]
- exec {*}$args >&@ stdout
-}
-
-proc ::practcl::doexec_in {path args} {
- set PWD [pwd]
- cd $path
- puts [list {*}$args]
- exec {*}$args >&@ stdout
- cd $PWD
-}
-
-proc ::practcl::dotclexec args {
- puts [list [info nameofexecutable] {*}$args]
- exec [info nameofexecutable] {*}$args >&@ stdout
-}
-
-proc ::practcl::domake {path args} {
- set PWD [pwd]
- cd $path
- puts [list *** $path ***]
- puts [list make {*}$args]
- exec make {*}$args >&@ stdout
- cd $PWD
-}
-
-proc ::practcl::domake.tcl {path args} {
- set PWD [pwd]
- cd $path
- puts [list *** $path ***]
- puts [list make.tcl {*}$args]
- exec [info nameofexecutable] make.tcl {*}$args >&@ stdout
- cd $PWD
-}
-
-proc ::practcl::fossil {path args} {
- set PWD [pwd]
- cd $path
- puts [list {*}$args]
- exec fossil {*}$args >&@ stdout
- cd $PWD
-}
-
-
-proc ::practcl::fossil_status {dir} {
- if {[info exists ::fosdat($dir)]} {
- return $::fosdat($dir)
- }
- set result {
-tags experimental
-version {}
- }
- set pwd [pwd]
- cd $dir
- set info [exec fossil status]
- cd $pwd
- foreach line [split $info \n] {
- if {[lindex $line 0] eq "checkout:"} {
- set hash [lindex $line end-3]
- set maxdate [lrange $line end-2 end-1]
- dict set result hash $hash
- dict set result maxdate $maxdate
- regsub -all {[^0-9]} $maxdate {} isodate
- dict set result isodate $isodate
- }
- if {[lindex $line 0] eq "tags:"} {
- set tags [lrange $line 1 end]
- dict set result tags $tags
- break
- }
- }
- set ::fosdat($dir) $result
- return $result
-}
-
-proc ::practcl::os {} {
- return [${::practcl::MAIN} define get TEACUP_OS]
-}
-
-if {[::package vcompare $::tcl_version 8.6] < 0} {
- # Approximate ::zipfile::mkzip with exec calls
- proc ::practcl::mkzip {exename barekit vfspath} {
- set path [file dirname [file normalize $exename]]
- set zipfile [file join $path [file rootname $exename].zip]
- file copy -force $barekit $exename
- set pwd [pwd]
- cd $vfspath
- exec zip -r $zipfile .
- cd $pwd
- set fout [open $exename a]
- set fin [open $zipfile r]
- chan configure $fout -translation binary
- chan configure $fin -translation binary
- chan copy $fin $fout
- chan close $fin
- chan close $fout
- exec zip -A $exename
- }
- proc ::practcl::sort_dict list {
- set result {}
- foreach key [lsort -dictionary [dict keys $list]] {
- dict set result $key [dict get $list $key]
- }
- return $result
- }
-} else {
- proc ::practcl::mkzip {exename barekit vfspath} {
- ::practcl::tcllib_require zipfile::mkzip
- ::zipfile::mkzip::mkzip $exename -runtime $barekit -directory $vfspath
- }
- proc ::practcl::sort_dict list {
- return [::lsort -stride 2 -dictionary $list]
- }
-}
-
-proc ::practcl::local_os {} {
- # If we have already run this command, return
- # a cached copy of the data
- if {[info exists ::practcl::LOCAL_INFO]} {
- return $::practcl::LOCAL_INFO
- }
- set result [array get ::practcl::CONFIG]
- dict set result TEACUP_PROFILE unknown
- dict set result TEACUP_OS unknown
- dict set result EXEEXT {}
- set windows 0
- if {$::tcl_platform(platform) eq "windows"} {
- set windows 1
- }
- if {$windows} {
- set system "windows"
- set arch ix86
- dict set result TEACUP_PROFILE win32-ix86
- dict set result TEACUP_OS windows
- dict set result EXEEXT .exe
- } else {
- set system [exec uname -s]-[exec uname -r]
- set arch unknown
- dict set result TEACUP_OS generic
- }
- dict set result TEA_PLATFORM $system
- dict set result TEA_SYSTEM $system
- if {[info exists ::SANDBOX]} {
- dict set result sandbox $::SANDBOX
- }
- switch -glob $system {
- Linux* {
- dict set result TEACUP_OS linux
- set arch [exec uname -m]
- dict set result TEACUP_PROFILE "linux-glibc2.3-$arch"
- }
- GNU* {
- set arch [exec uname -m]
- dict set result TEACUP_OS "gnu"
- }
- NetBSD-Debian {
- set arch [exec uname -m]
- dict set result TEACUP_OS "netbsd-debian"
- }
- OpenBSD-* {
- set arch [exec arch -s]
- dict set result TEACUP_OS "openbsd"
- }
- Darwin* {
- set arch [exec uname -m]
- dict set result TEACUP_OS "macosx"
- if {$arch eq "x86_64"} {
- dict set result TEACUP_PROFILE "macosx10.5-i386-x86_84"
- } else {
- dict set result TEACUP_PROFILE "macosx-universal"
- }
- }
- OpenBSD* {
- set arch [exec arch -s]
- dict set result TEACUP_OS "openbsd"
- }
- }
- if {$arch eq "unknown"} {
- catch {set arch [exec uname -m]}
- }
- switch -glob $arch {
- i*86 {
- set arch "ix86"
- }
- amd64 {
- set arch "x86_64"
- }
- }
- dict set result TEACUP_ARCH $arch
- if {[dict get $result TEACUP_PROFILE] eq "unknown"} {
- dict set result TEACUP_PROFILE [dict get $result TEACUP_OS]-$arch
- }
- set OS [dict get $result TEACUP_OS]
- dict set result os $OS
-
- # Look for a local preference file
- set pathlist {}
- set userhome [file normalize ~/tcl]
- set local_install [file join $userhome lib]
- switch $OS {
- windows {
- set userhome [file join [file normalize $::env(LOCALAPPDATA)] Tcl]
- if {[file exists c:/Tcl/Teapot]} {
- dict set result teapot c:/Tcl/Teapot
- }
- }
- macosx {
- set userhome [file join [file normalize {~/Library/Application Support/}] Tcl]
- if {[file exists {~/Library/Application Support/ActiveState/Teapot/repository/}]} {
- dict set result teapot [file normalize {~/Library/Application Support/ActiveState/Teapot/repository/}]
- }
- dict set result local_install [file normalize ~/Library/Tcl]
- if {![dict exists $result sandbox]} {
- dict set result sandbox [file normalize ~/Library/Tcl/sandbox]
- }
- }
- default {
- }
- }
- dict set result userhome $userhome
- # Load user preferences
- if {[file exists [file join $userhome practcl.rc]]} {
- set dat [::practcl::cat [file join $path practcl.rc]]
- }
- if {![dict exists $result prefix]} {
- dict set result prefix $userhome
- }
-
- # Create a default path for the teapot
- if {![dict exists $result teapot]} {
- dict set result teapot [file join $userhome teapot]
- }
- # Create a default path for the local sandbox
- if {![dict exists $result sandbox]} {
- dict set result sandbox [file join $userhome sandbox]
- }
- # Create a default path for download folder
- if {![dict exists $result download]} {
- dict set result download [file join $userhome download]
- }
- # Path to install local packages
- if {![dict exists $result local_install]} {
- dict set result local_install [file join $userhome lib]
- }
- if {![dict exists result fossil_mirror] && [::info exists ::env(FOSSIL_MIRROR)]} {
- dict set result fossil_mirror $::env(FOSSIL_MIRROR)
- }
-
- set ::practcl::LOCAL_INFO $result
- return $result
-}
-
-
-###
-# Detect local platform
-###
-proc ::practcl::config.tcl {path} {
- dict set result buildpath $path
- set result [local_os]
- set OS [dict get $result TEACUP_OS]
- set windows 0
- dict set result USEMSVC 0
- if {[file exists [file join $path config.tcl]]} {
- # We have a definitive configuration file. Read its content
- # and take it as gospel
- set cresult [read_rc_file [file join $path config.tcl]]
- set cresult [::practcl::de_shell $cresult]
- if {[dict exists $cresult srcdir] && ![dict exists $cresult sandbox]} {
- dict set cresult sandbox [file dirname [dict get $cresult srcdir]]
- }
- set result [dict merge $result [::practcl::de_shell $cresult]]
- }
- if {[file exists [file join $path config.site]]} {
- # No config.tcl file is present but we do seed
- dict set result USEMSVC 0
- foreach {f v} [::practcl::de_shell [::practcl::read_sh_file [file join $path config.site]]] {
- dict set result $f $v
- dict set result XCOMPILE_${f} $v
- }
- dict set result CONFIG_SITE [file join $path config.site]
- if {[dict exist $result XCOMPILE_CC] && [regexp mingw [dict get $result XCOMPILE_CC]]} {
- set windows 1
- }
- } elseif {[info exists ::env(VisualStudioVersion)]} {
- set windows 1
- dict set result USEMSVC 1
- }
- if {$windows && [dict get $result TEACUP_OS] ne "windows"} {
- if {![dict exists exists $result TEACUP_ARCH]} {
- dict set result TEACUP_ARCH ix86
- }
- dict set result TEACUP_PROFILE win32-[dict get $result TEACUP_ARCH]
- dict set result TEACUP_OS windows
- dict set result EXEEXT .exe
- }
- return $result
-}
-
-
-###
-# Convert an MSYS path to a windows native path
-###
-if {$::tcl_platform(platform) eq "windows"} {
-proc ::practcl::msys_to_tclpath msyspath {
- return [exec sh -c "cd $msyspath ; pwd -W"]
-}
-} else {
-proc ::practcl::msys_to_tclpath msyspath {
- return [file normalize $msyspath]
-}
-}
-
-###
-# Bits stolen from fileutil
-###
-proc ::practcl::cat fname {
- set fname [open $fname r]
- set data [read $fname]
- close $fname
- return $data
-}
-
-proc ::practcl::file_lexnormalize {sp} {
- set spx [file split $sp]
-
- # Resolution of embedded relative modifiers (., and ..).
-
- if {
- ([lsearch -exact $spx . ] < 0) &&
- ([lsearch -exact $spx ..] < 0)
- } {
- # Quick path out if there are no relative modifiers
- return $sp
- }
-
- set absolute [expr {![string equal [file pathtype $sp] relative]}]
- # A volumerelative path counts as absolute for our purposes.
-
- set sp $spx
- set np {}
- set noskip 1
-
- while {[llength $sp]} {
- set ele [lindex $sp 0]
- set sp [lrange $sp 1 end]
- set islast [expr {[llength $sp] == 0}]
-
- if {[string equal $ele ".."]} {
- if {
- ($absolute && ([llength $np] > 1)) ||
- (!$absolute && ([llength $np] >= 1))
- } {
- # .. : Remove the previous element added to the
- # new path, if there actually is enough to remove.
- set np [lrange $np 0 end-1]
- }
- } elseif {[string equal $ele "."]} {
- # Ignore .'s, they stay at the current location
- continue
- } else {
- # A regular element.
- lappend np $ele
- }
- }
- if {[llength $np] > 0} {
- return [eval [linsert $np 0 file join]]
- # 8.5: return [file join {*}$np]
- }
- return {}
-}
-
-proc ::practcl::file_relative {base dst} {
- # Ensure that the link to directory 'dst' is properly done relative to
- # the directory 'base'.
-
- if {![string equal [file pathtype $base] [file pathtype $dst]]} {
- return -code error "Unable to compute relation for paths of different pathtypes: [file pathtype $base] vs. [file pathtype $dst], ($base vs. $dst)"
- }
-
- set base [file_lexnormalize [file join [pwd] $base]]
- set dst [file_lexnormalize [file join [pwd] $dst]]
-
- set save $dst
- set base [file split $base]
- set dst [file split $dst]
-
- while {[string equal [lindex $dst 0] [lindex $base 0]]} {
- set dst [lrange $dst 1 end]
- set base [lrange $base 1 end]
- if {![llength $dst]} {break}
- }
-
- set dstlen [llength $dst]
- set baselen [llength $base]
-
- if {($dstlen == 0) && ($baselen == 0)} {
- # Cases:
- # (a) base == dst
-
- set dst .
- } else {
- # Cases:
- # (b) base is: base/sub = sub
- # dst is: base = {}
-
- # (c) base is: base = {}
- # dst is: base/sub = sub
-
- while {$baselen > 0} {
- set dst [linsert $dst 0 ..]
- incr baselen -1
- }
- # 8.5: set dst [file join {*}$dst]
- set dst [eval [linsert $dst 0 file join]]
- }
-
- return $dst
-}
-
-# Try to load a package, and failing that
-# retrieve tcllib
-proc ::practcl::tcllib_require {pkg args} {
- # Try to load the package from the local environment
- if {[catch [list ::package require $pkg {*}$args] err]==0} {
- return $err
- }
- ::practcl::LOCAL tool tcllib load
- uplevel #0 [list ::package require $pkg {*}$args]
-}
-
-namespace eval ::practcl::platform {}
-
-proc ::practcl::platform::tcl_core_options {os} {
- ###
- # Download our required packages
- ###
- set tcl_config_opts {}
- # Auto-guess options for the local operating system
- switch $os {
- windows {
- #lappend tcl_config_opts --disable-stubs
- }
- linux {
- }
- macosx {
- lappend tcl_config_opts --enable-corefoundation=yes --enable-framework=no
- }
- }
- lappend tcl_config_opts --with-tzdata
- return $tcl_config_opts
-}
-
-proc ::practcl::platform::tk_core_options {os} {
- ###
- # Download our required packages
- ###
- set tk_config_opts {}
-
- # Auto-guess options for the local operating system
- switch $os {
- windows {
- }
- linux {
- lappend tk_config_opts --enable-xft=no --enable-xss=no
- }
- macosx {
- lappend tk_config_opts --enable-aqua=yes
- }
- }
- return $tk_config_opts
-}
-
-###
-# Read a stylized key/value list stored in a file
-###
-proc ::practcl::read_rc_file {filename {localdat {}}} {
- set result $localdat
- set fin [open $filename r]
- set bufline {}
- set rawcount 0
- set linecount 0
- while {[gets $fin thisline]>=0} {
- incr rawcount
- append bufline \n $thisline
- if {![info complete $bufline]} continue
- set line [string trimleft $bufline]
- set bufline {}
- if {[string index [string trimleft $line] 0] eq "#"} continue
- append result \n $line
- #incr linecount
- #set key [lindex $line 0]
- #set value [lindex $line 1]
- #dict set result $key $value
- }
- return $result
-}
-
-###
-# topic: e71f3f61c348d56292011eec83e95f0aacc1c618
-# description: Converts a XXX.sh file into a series of Tcl variables
-###
-proc ::practcl::read_sh_subst {line info} {
- regsub -all {\x28} $line \x7B line
- regsub -all {\x29} $line \x7D line
-
- #set line [string map $key [string trim $line]]
- foreach {field value} $info {
- catch {set $field $value}
- }
- if [catch {subst $line} result] {
- return {}
- }
- set result [string trim $result]
- return [string trim $result ']
-}
-
-###
-# topic: 03567140cca33c814664c7439570f669b9ab88e6
-###
-proc ::practcl::read_sh_file {filename {localdat {}}} {
- set fin [open $filename r]
- set result {}
- if {$localdat eq {}} {
- set top 1
- set local [array get ::env]
- dict set local EXE {}
- } else {
- set top 0
- set local $localdat
- }
- while {[gets $fin line] >= 0} {
- set line [string trim $line]
- if {[string index $line 0] eq "#"} continue
- if {$line eq {}} continue
- catch {
- if {[string range $line 0 6] eq "export "} {
- set eq [string first "=" $line]
- set field [string trim [string range $line 6 [expr {$eq - 1}]]]
- set value [read_sh_subst [string range $line [expr {$eq+1}] end] $local]
- dict set result $field [read_sh_subst $value $local]
- dict set local $field $value
- } elseif {[string range $line 0 7] eq "include "} {
- set subfile [read_sh_subst [string range $line 7 end] $local]
- foreach {field value} [read_sh_file $subfile $local] {
- dict set result $field $value
- }
- } else {
- set eq [string first "=" $line]
- if {$eq > 0} {
- set field [read_sh_subst [string range $line 0 [expr {$eq - 1}]] $local]
- set value [string trim [string range $line [expr {$eq+1}] end] ']
- #set value [read_sh_subst [string range $line [expr {$eq+1}] end] $local]
- dict set local $field $value
- dict set result $field $value
- }
- }
- } err opts
- if {[dict get $opts -code] != 0} {
- #puts $opts
- puts "Error reading line:\n$line\nerr: $err\n***"
- return $err {*}$opts
- }
- }
- return $result
-}
-
-###
-# A simpler form of read_sh_file tailored
-# to pulling data from (tcl|tk)Config.sh
-###
-proc ::practcl::read_Config.sh filename {
- set fin [open $filename r]
- set result {}
- set linecount 0
- while {[gets $fin line] >= 0} {
- set line [string trim $line]
- if {[string index $line 0] eq "#"} continue
- if {$line eq {}} continue
- catch {
- set eq [string first "=" $line]
- if {$eq > 0} {
- set field [string range $line 0 [expr {$eq - 1}]]
- set value [string trim [string range $line [expr {$eq+1}] end] ']
- #set value [read_sh_subst [string range $line [expr {$eq+1}] end] $local]
- dict set result $field $value
- incr $linecount
- }
- } err opts
- if {[dict get $opts -code] != 0} {
- #puts $opts
- puts "Error reading line:\n$line\nerr: $err\n***"
- return $err {*}$opts
- }
- }
- return $result
-}
-
-###
-# A simpler form of read_sh_file tailored
-# to pulling data from a Makefile
-###
-proc ::practcl::read_Makefile filename {
- set fin [open $filename r]
- set result {}
- while {[gets $fin line] >= 0} {
- set line [string trim $line]
- if {[string index $line 0] eq "#"} continue
- if {$line eq {}} continue
- catch {
- set eq [string first "=" $line]
- if {$eq > 0} {
- set field [string trim [string range $line 0 [expr {$eq - 1}]]]
- set value [string trim [string trim [string range $line [expr {$eq+1}] end] ']]
- switch $field {
- PKG_LIB_FILE {
- dict set result libfile $value
- }
- srcdir {
- if {$value eq "."} {
- dict set result srcdir [file dirname $filename]
- } else {
- dict set result srcdir $value
- }
- }
- PACKAGE_NAME {
- dict set result name $value
- }
- PACKAGE_VERSION {
- dict set result version $value
- }
- LIBS {
- dict set result PRACTCL_LIBS $value
- }
- PKG_LIB_FILE {
- dict set result libfile $value
- }
- }
- }
- } err opts
- if {[dict get $opts -code] != 0} {
- #puts $opts
- puts "Error reading line:\n$line\nerr: $err\n***"
- return $err {*}$opts
- }
- # the Compile field is about where most TEA files start getting silly
- if {$field eq "compile"} {
- break
- }
- }
- return $result
-}
-
-## Append arguments to a buffer
-# The command works like puts in that each call will also insert
-# a line feed. Unlike puts, blank links in the interstitial are
-# suppressed
-proc ::practcl::cputs {varname args} {
- upvar 1 $varname buffer
- if {[llength $args]==1 && [string length [string trim [lindex $args 0]]] == 0} {
-
- }
- if {[info exist buffer]} {
- if {[string index $buffer end] ne "\n"} {
- append buffer \n
- }
- } else {
- set buffer \n
- }
- # Trim leading \n's
- append buffer [string trimleft [lindex $args 0] \n] {*}[lrange $args 1 end]
-}
-
-
-proc ::practcl::tcl_to_c {body} {
- set result {}
- foreach rawline [split $body \n] {
- set line [string map [list \" \\\" \\ \\\\] $rawline]
- cputs result "\n \"$line\\n\" \\"
- }
- return [string trimright $result \\]
-}
-
-
-proc ::practcl::_tagblock {text {style tcl} {note {}}} {
- if {[string length [string trim $text]]==0} {
- return {}
- }
- set output {}
- switch $style {
- tcl {
- ::practcl::cputs output "# BEGIN $note"
- }
- c {
- ::practcl::cputs output "/* BEGIN $note */"
- }
- default {
- ::practcl::cputs output "# BEGIN $note"
- }
- }
- ::practcl::cputs output $text
- switch $style {
- tcl {
- ::practcl::cputs output "# END $note"
- }
- c {
- ::practcl::cputs output "/* END $note */"
- }
- default {
- ::practcl::cputs output "# END $note"
- }
- }
- return $output
-}
-
-proc ::practcl::_isdirectory name {
- return [file isdirectory $name]
-}
-
-###
-# Return true if the pkgindex file contains
-# any statement other than "package ifneeded"
-# and/or if any package ifneeded loads a DLL
-###
-proc ::practcl::_pkgindex_directory {path} {
- set buffer {}
- set pkgidxfile [file join $path pkgIndex.tcl]
- if {![file exists $pkgidxfile]} {
- # No pkgIndex file, read the source
- foreach file [glob -nocomplain $path/*.tm] {
- set file [file normalize $file]
- set fname [file rootname [file tail $file]]
- ###
- # We used to be able to ... Assume the package is correct in the filename
- # No hunt for a "package provides"
- ###
- set package [lindex [split $fname -] 0]
- set version [lindex [split $fname -] 1]
- ###
- # Read the file, and override assumptions as needed
- ###
- set fin [open $file r]
- set dat [read $fin]
- close $fin
- # Look for a teapot style Package statement
- foreach line [split $dat \n] {
- set line [string trim $line]
- if { [string range $line 0 9] != "# Package " } continue
- set package [lindex $line 2]
- set version [lindex $line 3]
- break
- }
- # Look for a package provide statement
- foreach line [split $dat \n] {
- set line [string trim $line]
- if { [string range $line 0 14] != "package provide" } continue
- set package [lindex $line 2]
- set version [lindex $line 3]
- break
- }
- append buffer "package ifneeded $package $version \[list source \[file join \$dir [file tail $file]\]\]" \n
- }
- foreach file [glob -nocomplain $path/*.tcl] {
- if { [file tail $file] == "version_info.tcl" } continue
- set fin [open $file r]
- set dat [read $fin]
- close $fin
- if {![regexp "package provide" $dat]} continue
- set fname [file rootname [file tail $file]]
- # Look for a package provide statement
- foreach line [split $dat \n] {
- set line [string trim $line]
- if { [string range $line 0 14] != "package provide" } continue
- set package [lindex $line 2]
- set version [lindex $line 3]
- if {[string index $package 0] in "\$ \["} continue
- if {[string index $version 0] in "\$ \["} continue
- append buffer "package ifneeded $package $version \[list source \[file join \$dir [file tail $file]\]\]" \n
- break
- }
- }
- return $buffer
- }
- set fin [open $pkgidxfile r]
- set dat [read $fin]
- close $fin
- set trace 0
- #if {[file tail $path] eq "tool"} {
- # set trace 1
- #}
- set thisline {}
- foreach line [split $dat \n] {
- append thisline $line \n
- if {![info complete $thisline]} continue
- set line [string trim $line]
- if {[string length $line]==0} {
- set thisline {} ; continue
- }
- if {[string index $line 0] eq "#"} {
- set thisline {} ; continue
- }
- if {[regexp "if.*catch.*package.*Tcl.*return" $thisline]} {
- if {$trace} {puts "[file dirname $pkgidxfile] Ignoring $thisline"}
- set thisline {} ; continue
- }
- if {[regexp "if.*package.*vsatisfies.*package.*provide.*return" $thisline]} {
- if {$trace} { puts "[file dirname $pkgidxfile] Ignoring $thisline" }
- set thisline {} ; continue
- }
- if {![regexp "package.*ifneeded" $thisline]} {
- # This package index contains arbitrary code
- # source instead of trying to add it to the master
- # package index
- if {$trace} { puts "[file dirname $pkgidxfile] Arbitrary code $thisline" }
- return {source [file join $dir pkgIndex.tcl]}
- }
- append buffer $thisline \n
- set thisline {}
- }
- if {$trace} {puts [list [file dirname $pkgidxfile] $buffer]}
- return $buffer
-}
-
-
-proc ::practcl::_pkgindex_path_subdir {path} {
- set result {}
- foreach subpath [glob -nocomplain [file join $path *]] {
- if {[file isdirectory $subpath]} {
- lappend result $subpath {*}[_pkgindex_path_subdir $subpath]
- }
- }
- return $result
-}
-###
-# Index all paths given as though they will end up in the same
-# virtual file system
-###
-proc ::practcl::pkgindex_path args {
- set stack {}
- set buffer {
-lappend ::PATHSTACK $dir
- }
- foreach base $args {
- set base [file normalize $base]
- set paths [::practcl::_pkgindex_path_subdir $base]
- set i [string length $base]
- # Build a list of all of the paths
- foreach path $paths {
- if {$path eq $base} continue
- set path_indexed($path) 0
- }
- set path_indexed($base) 1
- set path_indexed([file join $base boot tcl]) 1
- #set path_index([file join $base boot tk]) 1
-
- foreach path $paths {
- if {$path_indexed($path)} continue
- set thisdir [file_relative $base $path]
- #set thisdir [string range $path $i+1 end]
- #append buffer "# DIR $thisdir" \n
- set idxbuf [::practcl::_pkgindex_directory $path]
- if {[string length $idxbuf]} {
- incr path_indexed($path)
- append buffer "set dir \[set PKGDIR \[file join \[lindex \$::PATHSTACK end\] $thisdir\]\]" \n
- append buffer [string map {$dir $PKGDIR} [string trimright $idxbuf]] \n
- }
- }
- }
- append buffer {
-set dir [lindex $::PATHSTACK end]
-set ::PATHSTACK [lrange $::PATHSTACK 0 end-1]
-}
- return $buffer
-}
-
-###
-# topic: 64319f4600fb63c82b2258d908f9d066
-# description: Script to build the VFS file system
-###
-proc ::practcl::installDir {d1 d2} {
-
- puts [format {%*sCreating %s} [expr {4 * [info level]}] {} [file tail $d2]]
- file delete -force -- $d2
- file mkdir $d2
-
- foreach ftail [glob -directory $d1 -nocomplain -tails *] {
- set f [file join $d1 $ftail]
- if {[file isdirectory $f] && [string compare CVS $ftail]} {
- installDir $f [file join $d2 $ftail]
- } elseif {[file isfile $f]} {
- file copy -force $f [file join $d2 $ftail]
- if {$::tcl_platform(platform) eq {unix}} {
- file attributes [file join $d2 $ftail] -permissions 0644
- } else {
- file attributes [file join $d2 $ftail] -readonly 1
- }
- }
- }
-
- if {$::tcl_platform(platform) eq {unix}} {
- file attributes $d2 -permissions 0755
- } else {
- file attributes $d2 -readonly 1
- }
-}
-
-proc ::practcl::copyDir {d1 d2 {toplevel 1}} {
- if {$toplevel} {
- puts [list ::practcl::copyDir $d1 -> $d2]
- }
- #file delete -force -- $d2
- file mkdir $d2
-
- foreach ftail [glob -directory $d1 -nocomplain -tails *] {
- set f [file join $d1 $ftail]
- if {[file isdirectory $f] && [string compare CVS $ftail]} {
- copyDir $f [file join $d2 $ftail] 0
- } elseif {[file isfile $f]} {
- file copy -force $f [file join $d2 $ftail]
- }
- }
-}
-
-::oo::class create ::practcl::metaclass {
- superclass ::oo::object
-
- method script script {
- eval $script
- }
-
- method source filename {
- source $filename
- }
-
- method initialize {} {}
-
- method define {submethod args} {
- my variable define
- switch $submethod {
- dump {
- return [array get define]
- }
- add {
- set field [lindex $args 0]
- if {![info exists define($field)]} {
- set define($field) {}
- }
- foreach arg [lrange $args 1 end] {
- if {$arg ni $define($field)} {
- lappend define($field) $arg
- }
- }
- return $define($field)
- }
- remove {
- set field [lindex $args 0]
- if {![info exists define($field)]} {
- return
- }
- set rlist [lrange $args 1 end]
- set olist $define($field)
- set nlist {}
- foreach arg $olist {
- if {$arg in $rlist} continue
- lappend nlist $arg
- }
- set define($field) $nlist
- return $nlist
- }
- exists {
- set field [lindex $args 0]
- return [info exists define($field)]
- }
- getnull -
- get -
- cget {
- set field [lindex $args 0]
- if {[info exists define($field)]} {
- return $define($field)
- }
- return [lindex $args 1]
- }
- set {
- if {[llength $args]==1} {
- set arglist [lindex $args 0]
- } else {
- set arglist $args
- }
- array set define $arglist
- if {[dict exists $arglist class]} {
- my select
- }
- }
- default {
- array $submethod define {*}$args
- }
- }
- }
-
- method graft args {
- my variable organs
- if {[llength $args] == 1} {
- error "Need two arguments"
- }
- set object {}
- foreach {stub object} $args {
- dict set organs $stub $object
- oo::objdefine [self] forward <${stub}> $object
- oo::objdefine [self] export <${stub}>
- }
- return $object
- }
-
- method organ {{stub all}} {
- my variable organs
- if {![info exists organs]} {
- return {}
- }
- if { $stub eq "all" } {
- return $organs
- }
- if {[dict exists $organs $stub]} {
- return [dict get $organs $stub]
- }
- }
-
- method link {command args} {
- my variable links
- switch $command {
- object {
- foreach obj $args {
- foreach linktype [$obj linktype] {
- my link add $linktype $obj
- }
- }
- }
- add {
- ###
- # Add a link to an object that was externally created
- ###
- if {[llength $args] ne 2} { error "Usage: link add LINKTYPE OBJECT"}
- lassign $args linktype object
- if {[info exists links($linktype)] && $object in $links($linktype)} {
- return
- }
- lappend links($linktype) $object
- }
- remove {
- set object [lindex $args 0]
- if {[llength $args]==1} {
- set ltype *
- } else {
- set ltype [lindex $args 1]
- }
- foreach {linktype elements} [array get links $ltype] {
- if {$object in $elements} {
- set nlist {}
- foreach e $elements {
- if { $object ne $e } { lappend nlist $e }
- }
- set links($linktype) $nlist
- }
- }
- }
- list {
- if {[llength $args]==0} {
- return [array get links]
- }
- if {[llength $args] != 1} { error "Usage: link list LINKTYPE"}
- set linktype [lindex $args 0]
- if {![info exists links($linktype)]} {
- return {}
- }
- return $links($linktype)
- }
- dump {
- return [array get links]
- }
- }
- }
-
- method select {} {
- my variable define
- set class {}
- if {[info exists define(class)]} {
- if {[info command $define(class)] ne {}} {
- set class $define(class)
- } elseif {[info command ::practcl::$define(class)] ne {}} {
- set class ::practcl::$define(class)
- } else {
- switch $define(class) {
- default {
- set class ::practcl::object
- }
- }
- }
- }
- if {$class ne {}} {
- ::oo::objdefine [self] class $class
- }
- if {[::info exists define(oodefine)]} {
- ::oo::objdefine [self] $define(oodefine)
- unset define(oodefine)
- }
- }
-}
-
-proc ::practcl::trigger {args} {
- foreach name $args {
- if {[dict exists $::make_objects $name]} {
- [dict get $::make_objects $name] triggers
- }
- }
-}
-
-proc ::practcl::depends {args} {
- foreach name $args {
- if {[dict exists $::make_objects $name]} {
- [dict get $::make_objects $name] check
- }
- }
-}
-
-proc ::practcl::target {name info} {
- set obj [::practcl::target_obj new $name $info]
- dict set ::make_objects $name $obj
- if {[dict exists $info aliases]} {
- foreach item [dict get $info aliases] {
- if {![dict exists $::make_objects $item]} {
- dict set ::make_objects $item $obj
- }
- }
- }
- set ::make($name) 0
- set ::trigger($name) 0
- set filename [$obj define get filename]
- if {$filename ne {}} {
- set ::target($name) $filename
- }
-}
-
-### Batch Tasks
-
-proc ::practcl::de_shell {data} {
- set values {}
- foreach flag {DEFS TCL_DEFS TK_DEFS} {
- if {[dict exists $data $flag]} {
- #set value {}
- #foreach item [dict get $data $flag] {
- # append value " " [string map {{ } {\ }} $item]
- #}
- dict set values $flag [dict get $data $flag]
- }
- }
- set map {}
- lappend map {${PKG_OBJECTS}} %LIBRARY_OBJECTS%
- lappend map {$(PKG_OBJECTS)} %LIBRARY_OBJECTS%
- lappend map {${PKG_STUB_OBJECTS}} %LIBRARY_STUB_OBJECTS%
- lappend map {$(PKG_STUB_OBJECTS)} %LIBRARY_STUB_OBJECTS%
-
- if {[dict exists $data name]} {
- lappend map %LIBRARY_NAME% [dict get $data name]
- lappend map %LIBRARY_VERSION% [dict get $data version]
- lappend map %LIBRARY_VERSION_NODOTS% [string map {. {}} [dict get $data version]]
- if {[dict exists $data libprefix]} {
- lappend map %LIBRARY_PREFIX% [dict get $data libprefix]
- } else {
- lappend map %LIBRARY_PREFIX% [dict get $data prefix]
- }
- }
- foreach flag [dict keys $data] {
- if {$flag in {TCL_DEFS TK_DEFS DEFS}} continue
- set value [string trim [dict get $data $flag] \"]
- dict set map "\$\{${flag}\}" $value
- dict set map "\$\(${flag}\)" $value
- #dict set map "\$${flag}" $value
- dict set map "%${flag}%" $value
- dict set values $flag [dict get $data $flag]
- #dict set map "\$\{${flag}\}" $proj($flag)
- }
- set changed 1
- while {$changed} {
- set changed 0
- foreach {field value} $values {
- if {$field in {TCL_DEFS TK_DEFS DEFS}} continue
- dict with values {}
- set newval [string map $map $value]
- if {$newval eq $value} continue
- set changed 1
- dict set values $field $newval
- }
- }
- return $values
-}
-
-###
-# Ancestor-less class intended to be a mixin
-# which defines a family of build related behaviors
-# that are modified when targetting either gcc or msvc
-###
-::oo::class create ::practcl::build {
- ## method DEFS
- # This method populates 4 variables:
- # name - The name of the package
- # version - The version of the package
- # defs - C flags passed to the compiler
- # includedir - A list of paths to feed to the compiler for finding headers
- #
- method build-cflags {PROJECT DEFS namevar versionvar defsvar} {
- upvar 1 $namevar name $versionvar version NAME NAME $defsvar defs
- set name [string tolower [${PROJECT} define get name [${PROJECT} define get pkg_name]]]
- set NAME [string toupper $name]
- set version [${PROJECT} define get version [${PROJECT} define get pkg_vers]]
- if {$version eq {}} {
- set version 0.1a
- }
- set defs $DEFS
- foreach flag {
- -DPACKAGE_NAME
- -DPACKAGE_VERSION
- -DPACKAGE_TARNAME
- -DPACKAGE_STRING
- } {
- if {[set i [string first $flag $defs]] >= 0} {
- set j [string first -D $flag [expr {$i+[string length $flag]}]]
- set predef [string range $defs 0 [expr {$i-1}]]
- set postdef [string range $defs $j end]
- set defs "$predef $postdef"
- }
- }
- append defs " -DPACKAGE_NAME=\"${name}\" -DPACKAGE_VERSION=\"${version}\""
- append defs " -DPACKAGE_TARNAME=\"${name}\" -DPACKAGE_STRING=\"${name}\x5c\x20${version}\""
- return $defs
- }
-
- method build-tclkit_main {PROJECT PKG_OBJS} {
- ###
- # Build static package list
- ###
- set statpkglist {}
- foreach cobj [list {*}${PKG_OBJS} $PROJECT] {
- foreach {pkg info} [$cobj static-packages] {
- dict set statpkglist $pkg $info
- }
- }
- foreach {ofile info} [${PROJECT} compile-products] {
- if {![dict exists $info object]} continue
- set cobj [dict get $info object]
- foreach {pkg info} [$cobj static-packages] {
- dict set statpkglist $pkg $info
- }
- }
-
- set result {}
- $PROJECT include {<tcl.h>}
- $PROJECT include {"tclInt.h"}
- $PROJECT include {"tclFileSystem.h"}
- $PROJECT include {<assert.h>}
- $PROJECT include {<stdio.h>}
- $PROJECT include {<stdlib.h>}
- $PROJECT include {<string.h>}
- $PROJECT include {<math.h>}
-
- $PROJECT code header {
-#ifndef MODULE_SCOPE
-# define MODULE_SCOPE extern
-#endif
-
-/*
-** Provide a dummy Tcl_InitStubs if we are using this as a static
-** library.
-*/
-#ifndef USE_TCL_STUBS
-# undef Tcl_InitStubs
-# define Tcl_InitStubs(a,b,c) TCL_VERSION
-#endif
-#define STATIC_BUILD 1
-#undef USE_TCL_STUBS
-
-/* Make sure the stubbed variants of those are never used. */
-#undef Tcl_ObjSetVar2
-#undef Tcl_NewStringObj
-#undef Tk_Init
-#undef Tk_MainEx
-#undef Tk_SafeInit
-}
-
- # Build an area of the file for #define directives and
- # function declarations
- set define {}
- set mainhook [$PROJECT define get TCL_LOCAL_MAIN_HOOK Tclkit_MainHook]
- set mainfunc [$PROJECT define get TCL_LOCAL_APPINIT Tclkit_AppInit]
- set mainscript [$PROJECT define get main.tcl main.tcl]
- set vfsroot [$PROJECT define get vfsroot [file join [$PROJECT define get ZIPFS_VOLUME] app]]
- set vfs_main "${vfsroot}/${mainscript}"
- set vfs_tcl_library "${vfsroot}/boot/tcl"
- set vfs_tk_library "${vfsroot}/boot/tk"
-
- set map {}
- foreach var {
- vfsroot mainhook mainfunc vfs_main vfs_tcl_library vfs_tk_library
- } {
- dict set map %${var}% [set $var]
- }
- set preinitscript {
-set ::odie(boot_vfs) {%vfsroot%}
-set ::SRCDIR {%vfsroot%}
-if {[file exists {%vfs_tcl_library%}]} {
- set ::tcl_library {%vfs_tcl_library%}
- set ::auto_path {}
-}
-if {[file exists {%vfs_tk_library%}]} {
- set ::tk_library {%vfs_tk_library%}
-}
-} ; # Preinitscript
-
- set zvfsboot {
-/*
- * %mainhook% --
- * Performs the argument munging for the shell
- */
- }
- ::practcl::cputs zvfsboot {
- CONST char *archive;
- Tcl_FindExecutable(*argv[0]);
- archive=Tcl_GetNameOfExecutable();
- }
- # We have to initialize the virtual filesystem before calling
- # Tcl_Init(). Otherwise, Tcl_Init() will not be able to find
- # its startup script files.
- if {[$PROJECT define get tip_430 0]} {
- ::practcl::cputs zvfsboot " if(!TclZipfsMount(NULL, archive, \"%vfsroot%\", NULL)) \x7B "
- } else {
- $PROJECT include {"tclZipfs.h"}
- ::practcl::cputs zvfsboot { Tclzipfs_Init(NULL);}
- ::practcl::cputs zvfsboot " if(!Tclzipfs_Mount(NULL, archive, \"%vfsroot%\", NULL)) \x7B "
- }
- ::practcl::cputs zvfsboot {
- Tcl_Obj *vfsinitscript;
- vfsinitscript=Tcl_NewStringObj("%vfs_main%",-1);
- Tcl_IncrRefCount(vfsinitscript);
- if(Tcl_FSAccess(vfsinitscript,F_OK)==0) {
- /* Startup script should be set before calling Tcl_AppInit */
- Tcl_SetStartupScript(vfsinitscript,NULL);
- }
- }
- ::practcl::cputs zvfsboot " TclSetPreInitScript([::practcl::tcl_to_c $preinitscript])\;"
- ::practcl::cputs zvfsboot " \x7D else \x7B"
- ::practcl::cputs zvfsboot " TclSetPreInitScript([::practcl::tcl_to_c {
-foreach path {
- ../tcl
-} {
- set p [file join $path library init.tcl]
- if {[file exists [file join $path library init.tcl]]} {
- set ::tcl_library [file normalize [file join $path library]]
- break
- }
-}
-foreach path {
- ../tk
-} {
- if {[file exists [file join $path library tk.tcl]]} {
- set ::tk_library [file normalize [file join $path library]]
- break
- }
-}
-}])\;"
-
- ::practcl::cputs zvfsboot " \x7D"
- ::practcl::cputs zvfsboot " return TCL_OK;"
-
- if {[$PROJECT define get TEACUP_OS] eq "windows"} {
- set header {int %mainhook%(int *argc, TCHAR ***argv)}
- } else {
- set header {int %mainhook%(int *argc, char ***argv)}
- }
- $PROJECT c_function [string map $map $header] [string map $map $zvfsboot]
-
- practcl::cputs appinit "int %mainfunc%(Tcl_Interp *interp) \x7B"
-
- # Build AppInit()
- set appinit {}
- practcl::cputs appinit {
- if ((Tcl_Init)(interp) == TCL_ERROR) {
- return TCL_ERROR;
- }
-}
- set main_init_script {}
-
- foreach {statpkg info} $statpkglist {
- set initfunc {}
- if {[dict exists $info initfunc]} {
- set initfunc [dict get $info initfunc]
- }
- if {$initfunc eq {}} {
- set initfunc [string totitle ${statpkg}]_Init
- }
- if {![dict exists $info version]} {
- error "$statpkg HAS NO VERSION"
- }
- # We employ a NULL to prevent the package system from thinking the
- # package is actually loaded into the interpreter
- $PROJECT code header "extern Tcl_PackageInitProc $initfunc\;\n"
- set script [list package ifneeded $statpkg [dict get $info version] [list ::load {} $statpkg]]
- append main_init_script \n [list set ::kitpkg(${statpkg}) $script]
- if {[dict get $info autoload]} {
- ::practcl::cputs appinit " if(${initfunc}(interp)) return TCL_ERROR\;"
- ::practcl::cputs appinit " Tcl_StaticPackage(interp,\"$statpkg\",$initfunc,NULL)\;"
- } else {
- ::practcl::cputs appinit "\n Tcl_StaticPackage(NULL,\"$statpkg\",$initfunc,NULL)\;"
- append main_init_script \n $script
- }
- }
- append main_init_script \n {
-if {[file exists [file join $::SRCDIR packages.tcl]]} {
- #In a wrapped exe, we don't go out to the environment
- set dir $::SRCDIR
- source [file join $::SRCDIR packages.tcl]
-}
-# Specify a user-specific startup file to invoke if the application
-# is run interactively. Typically the startup file is "~/.apprc"
-# where "app" is the name of the application. If this line is deleted
-# then no user-specific startup file will be run under any conditions.
- }
- append main_init_script \n [list set tcl_rcFileName [$PROJECT define get tcl_rcFileName ~/.tclshrc]]
- practcl::cputs appinit " Tcl_Eval(interp,[::practcl::tcl_to_c $main_init_script]);"
- practcl::cputs appinit { return TCL_OK;}
- $PROJECT c_function [string map $map "int %mainfunc%(Tcl_Interp *interp)"] [string map $map $appinit]
-}
-
-}
-
-
-::oo::class create ::practcl::build.gcc {
- superclass ::practcl::build
-
- method build-compile-sources {PROJECT COMPILE {CPPCOMPILE {}}} {
- set EXTERN_OBJS {}
- set OBJECTS {}
- set result {}
- set builddir [$PROJECT define get builddir]
- file mkdir [file join $builddir objs]
- set debug [$PROJECT define get debug 0]
- if {$CPPCOMPILE eq {}} {
- set CPPCOMPILE $COMPILE
- }
- set task [${PROJECT} compile-products]
- ###
- # Compile the C sources
- ###
- foreach {ofile info} $task {
- dict set task $ofile done 0
- if {[dict exists $info external] && [dict get $info external]==1} {
- dict set task $ofile external 1
- } else {
- dict set task $ofile external 0
- }
- if {[dict exists $info library]} {
- dict set task $ofile done 1
- continue
- }
- # Products with no cfile aren't compiled
- if {![dict exists $info cfile] || [set cfile [dict get $info cfile]] eq {}} {
- dict set task $ofile done 1
- continue
- }
- set cfile [dict get $info cfile]
- set ofilename [file join $builddir objs [file tail $ofile]]
- if {$debug} {
- set ofilename [file join $builddir objs [file rootname [file tail $ofile]].debug.o]
- }
- dict set task $ofile filename $ofilename
- if {[file exists $ofilename] && [file mtime $ofilename]>[file mtime $cfile]} {
- lappend result $ofilename
- dict set task $ofile done 1
- continue
- }
- if {![dict exist $info command]} {
- if {[file extension $cfile] in {.c++ .cpp}} {
- set cmd $CPPCOMPILE
- } else {
- set cmd $COMPILE
- }
- if {[dict exists $info extra]} {
- append cmd " [dict get $info extra]"
- }
- append cmd " -c $cfile"
- append cmd " -o $ofilename"
- dict set task $ofile command $cmd
- }
- }
- set completed 0
- while {$completed==0} {
- set completed 1
- foreach {ofile info} $task {
- set waiting {}
- if {[dict exists $info done] && [dict get $info done]} continue
- if {[dict exists $info depend]} {
- foreach file [dict get $info depend] {
- if {[dict exists $task $file command] && [dict exists $task $file done] && [dict get $task $file done] != 1} {
- set waiting $file
- break
- }
- }
- }
- if {$waiting ne {}} {
- set completed 0
- puts "$ofile waiting for $waiting"
- continue
- }
- if {[dict exists $info command]} {
- set cmd [dict get $info command]
- puts "$cmd"
- exec {*}$cmd >&@ stdout
- }
- lappend result [dict get $info filename]
- dict set task $ofile done 1
- }
- }
- return $result
-}
-
-method build-Makefile {path PROJECT} {
- array set proj [$PROJECT define dump]
- set path $proj(builddir)
- cd $path
- set includedir .
- #lappend includedir [::practcl::file_relative $path $proj(TCL_INCLUDES)]
- lappend includedir [::practcl::file_relative $path [file normalize [file join $proj(TCL_SRC_DIR) generic]]]
- lappend includedir [::practcl::file_relative $path [file normalize [file join $proj(srcdir) generic]]]
- foreach include [$PROJECT generate-include-directory] {
- set cpath [::practcl::file_relative $path [file normalize $include]]
- if {$cpath ni $includedir} {
- lappend includedir $cpath
- }
- }
- set INCLUDES "-I[join $includedir " -I"]"
- set NAME [string toupper $proj(name)]
- set result {}
- set products {}
- set libraries {}
- set thisline {}
- ::practcl::cputs result "${NAME}_DEFS = $proj(DEFS)\n"
- ::practcl::cputs result "${NAME}_INCLUDES = -I\"[join $includedir "\" -I\""]\"\n"
- ::practcl::cputs result "${NAME}_COMPILE = \$(CC) \$(CFLAGS) \$(PKG_CFLAGS) \$(${NAME}_DEFS) \$(${NAME}_INCLUDES) \$(INCLUDES) \$(AM_CPPFLAGS) \$(CPPFLAGS) \$(AM_CFLAGS)"
- ::practcl::cputs result "${NAME}_CPPCOMPILE = \$(CXX) \$(CFLAGS) \$(PKG_CFLAGS) \$(${NAME}_DEFS) \$(${NAME}_INCLUDES) \$(INCLUDES) \$(AM_CPPFLAGS) \$(CPPFLAGS) \$(AM_CFLAGS)"
-
- foreach {ofile info} [$PROJECT compile-products] {
- dict set products $ofile $info
- if {[dict exists $info library]} {
-lappend libraries $ofile
-continue
- }
- if {[dict exists $info depend]} {
- ::practcl::cputs result "\n${ofile}: [dict get $info depend]"
- } else {
- ::practcl::cputs result "\n${ofile}:"
- }
- set cfile [dict get $info cfile]
- if {[file extension $cfile] in {.c++ .cpp}} {
- set cmd "\t\$\(${NAME}_CPPCOMPILE\)"
- } else {
- set cmd "\t\$\(${NAME}_COMPILE\)"
- }
- if {[dict exists $info extra]} {
- append cmd " [dict get $info extra]"
- }
- append cmd " -c [dict get $info cfile] -o \$@\n\t"
- ::practcl::cputs result $cmd
- }
-
- set map {}
- lappend map %LIBRARY_NAME% $proj(name)
- lappend map %LIBRARY_VERSION% $proj(version)
- lappend map %LIBRARY_VERSION_NODOTS% [string map {. {}} $proj(version)]
- lappend map %LIBRARY_PREFIX% [$PROJECT define getnull libprefix]
-
- if {[string is true [$PROJECT define get SHARED_BUILD]]} {
- set outfile [$PROJECT define get libfile]
- } else {
- set outfile [$PROJECT shared_library]
- }
- $PROJECT define set shared_library $outfile
- ::practcl::cputs result "
-${NAME}_SHLIB = $outfile
-${NAME}_OBJS = [dict keys $products]
-"
-
- #lappend map %OUTFILE% {\[$]@}
- lappend map %OUTFILE% $outfile
- lappend map %LIBRARY_OBJECTS% "\$(${NAME}_OBJS)"
- ::practcl::cputs result "$outfile: \$(${NAME}_OBJS)"
- ::practcl::cputs result "\t[string map $map [$PROJECT define get PRACTCL_SHARED_LIB]]"
- if {[$PROJECT define get PRACTCL_VC_MANIFEST_EMBED_DLL] ni {: {}}} {
- ::practcl::cputs result "\t[string map $map [$PROJECT define get PRACTCL_VC_MANIFEST_EMBED_DLL]]"
- }
- ::practcl::cputs result {}
- if {[string is true [$PROJECT define get SHARED_BUILD]]} {
- #set outfile [$PROJECT static_library]
- set outfile $proj(name).a
- } else {
- set outfile [$PROJECT define get libfile]
- }
- $PROJECT define set static_library $outfile
- dict set map %OUTFILE% $outfile
- ::practcl::cputs result "$outfile: \$(${NAME}_OBJS)"
- ::practcl::cputs result "\t[string map $map [$PROJECT define get PRACTCL_STATIC_LIB]]"
- ::practcl::cputs result {}
- return $result
-}
-
-###
-# Produce a static or dynamic library
-###
-method build-library {outfile PROJECT} {
- array set proj [$PROJECT define dump]
- set path $proj(builddir)
- cd $path
- set includedir .
- #lappend includedir [::practcl::file_relative $path $proj(TCL_INCLUDES)]
- lappend includedir [::practcl::file_relative $path [file normalize [file join $proj(TCL_SRC_DIR) generic]]]
- lappend includedir [::practcl::file_relative $path [file normalize [file join $proj(srcdir) generic]]]
- if {[$PROJECT define get tk 0]} {
- lappend includedir [::practcl::file_relative $path [file normalize [file join $proj(TK_SRC_DIR) generic]]]
- lappend includedir [::practcl::file_relative $path [file normalize [file join $proj(TK_SRC_DIR) ttk]]]
- lappend includedir [::practcl::file_relative $path [file normalize [file join $proj(TK_SRC_DIR) xlib]]]
- lappend includedir [::practcl::file_relative $path [file normalize $proj(TK_BIN_DIR)]]
- }
- foreach include [$PROJECT generate-include-directory] {
- set cpath [::practcl::file_relative $path [file normalize $include]]
- if {$cpath ni $includedir} {
- lappend includedir $cpath
- }
- }
- my build-cflags $PROJECT $proj(DEFS) name version defs
- set NAME [string toupper $name]
- set debug [$PROJECT define get debug 0]
- set os [$PROJECT define get TEACUP_OS]
-
- set INCLUDES "-I[join $includedir " -I"]"
- if {$debug} {
- set COMPILE "$proj(CC) $proj(CFLAGS_DEBUG) -ggdb \
-$proj(CFLAGS_WARNING) $INCLUDES $defs"
-
- if {[info exists proc(CXX)]} {
- set COMPILECPP "$proj(CXX) $defs $INCLUDES $proj(CFLAGS_DEBUG) -ggdb \
- $defs $proj(CFLAGS_WARNING)"
- } else {
- set COMPILECPP $COMPILE
- }
- } else {
- set COMPILE "$proj(CC) $proj(CFLAGS) $defs $INCLUDES "
-
- if {[info exists proc(CXX)]} {
- set COMPILECPP "$proj(CXX) $defs $INCLUDES $proj(CFLAGS) $defs"
- } else {
- set COMPILECPP $COMPILE
- }
- }
-
- set products [my build-compile-sources $PROJECT $COMPILE $COMPILECPP]
-
- set map {}
- lappend map %LIBRARY_NAME% $proj(name)
- lappend map %LIBRARY_VERSION% $proj(version)
- lappend map %LIBRARY_VERSION_NODOTS% [string map {. {}} $proj(version)]
- lappend map %OUTFILE% $outfile
- lappend map %LIBRARY_OBJECTS% $products
- lappend map {${CFLAGS}} "$proj(CFLAGS_DEFAULT) $proj(CFLAGS_WARNING)"
-
- if {[string is true [$PROJECT define get SHARED_BUILD 1]]} {
- set cmd [$PROJECT define get PRACTCL_SHARED_LIB]
- append cmd " [$PROJECT define get PRACTCL_LIBS]"
- set cmd [string map $map $cmd]
- puts $cmd
- exec {*}$cmd >&@ stdout
- if {[$PROJECT define get PRACTCL_VC_MANIFEST_EMBED_DLL] ni {: {}}} {
- set cmd [string map $map [$PROJECT define get PRACTCL_VC_MANIFEST_EMBED_DLL]]
- puts $cmd
- exec {*}$cmd >&@ stdout
- }
- } else {
- set cmd [string map $map [$PROJECT define get PRACTCL_STATIC_LIB]]
- puts $cmd
- exec {*}$cmd >&@ stdout
- }
- set ranlib [$PROJECT define get RANLIB]
- if {$ranlib ni {{} :}} {
- catch {exec $ranlib $outfile}
- }
-}
-
-###
-# Produce a static executable
-###
-method build-tclsh {outfile PROJECT} {
- puts " BUILDING STATIC TCLSH "
- set TCLOBJ [$PROJECT project TCLCORE]
- set PKG_OBJS {}
- foreach item [$PROJECT link list core.library] {
- if {[string is true [$item define get static]]} {
- lappend PKG_OBJS $item
- }
- }
- foreach item [$PROJECT link list package] {
- if {[string is true [$item define get static]]} {
- lappend PKG_OBJS $item
- }
- }
- array set TCL [$TCLOBJ config.sh]
-
- set TKOBJ [$PROJECT project tk]
- if {[info command $TKOBJ] eq {}} {
- set TKOBJ ::noop
- $PROJECT define set static_tk 0
- } else {
- array set TK [$TKOBJ config.sh]
- $PROJECT define set static_tk [$TKOBJ define get static]
- set TKSRCDIR [$TKOBJ define get srcdir]
- }
- set path [file dirname $outfile]
- cd $path
- ###
- # For a static Tcl shell, we need to build all local sources
- # with the same DEFS flags as the tcl core was compiled with.
- # The DEFS produced by a TEA extension aren't intended to operate
- # with the internals of a staticly linked Tcl
- ###
- my build-cflags $PROJECT $TCL(defs) name version defs
- set debug [$PROJECT define get debug 0]
- set NAME [string toupper $name]
- set result {}
- set libraries {}
- set thisline {}
- set OBJECTS {}
- set EXTERN_OBJS {}
- foreach obj $PKG_OBJS {
- $obj compile
- set config($obj) [$obj config.sh]
- }
- set os [$PROJECT define get TEACUP_OS]
- set TCLSRCDIR [$TCLOBJ define get srcdir]
-
- set includedir .
- foreach include [$TCLOBJ generate-include-directory] {
- set cpath [::practcl::file_relative $path [file normalize $include]]
- if {$cpath ni $includedir} {
- lappend includedir $cpath
- }
- }
- lappend includedir [::practcl::file_relative $path [file normalize ../tcl/compat/zlib]]
- foreach include [$PROJECT generate-include-directory] {
- set cpath [::practcl::file_relative $path [file normalize $include]]
- if {$cpath ni $includedir} {
- lappend includedir $cpath
- }
- }
-
- set INCLUDES "-I[join $includedir " -I"]"
- if {$debug} {
- set COMPILE "$TCL(cc) $TCL(shlib_cflags) $TCL(cflags_debug) -ggdb \
-$TCL(cflags_warning) $TCL(extra_cflags) $INCLUDES"
- } else {
- set COMPILE "$TCL(cc) $TCL(shlib_cflags) $TCL(cflags_optimize) \
-$TCL(cflags_warning) $TCL(extra_cflags) $INCLUDES"
- }
- append COMPILE " " $defs
- lappend OBJECTS {*}[my build-compile-sources $PROJECT $COMPILE $COMPILE]
-
- set TCLSRC [file normalize $TCLSRCDIR]
-
- if {[${PROJECT} define get TEACUP_OS] eq "windows"} {
- set windres [$PROJECT define get RC windres]
- set RSOBJ [file join $path build tclkit.res.o]
- set RCSRC [${PROJECT} define get kit_resource_file]
- set cmd [list $windres -o $RSOBJ -DSTATIC_BUILD --include [::practcl::file_relative $path [file join $TCLSRC generic]]]
- if {[$PROJECT define get static_tk]} {
- if {$RCSRC eq {} || ![file exists $RCSRC]} {
- set RCSRC [file join $TKSRCDIR win rc wish.rc]
- }
- set TKSRC [file normalize $TKSRCDIR]
- lappend cmd --include [::practcl::file_relative $path [file join $TKSRC generic]] \
- --include [::practcl::file_relative $path [file join $TKSRC win]] \
- --include [::practcl::file_relative $path [file join $TKSRC win rc]]
- } else {
- if {$RCSRC eq {} || ![file exists $RCSRC]} {
- set RCSRC [file join $TCLSRCDIR tclsh.rc]
- }
- }
- foreach item [${PROJECT} define get resource_include] {
- lappend cmd --include [::practcl::file_relative $path [file normalize $item]]
- }
- lappend cmd $RCSRC
- ::practcl::doexec {*}$cmd
- lappend OBJECTS $RSOBJ
- set LDFLAGS_CONSOLE {-mconsole -pipe -static-libgcc}
- set LDFLAGS_WINDOW {-mwindows -pipe -static-libgcc}
- } else {
- set LDFLAGS_CONSOLE {}
- set LDFLAGS_WINDOW {}
- }
- puts "***"
- if {$debug} {
- set cmd "$TCL(cc) $TCL(shlib_cflags) $TCL(cflags_debug) \
-$TCL(cflags_warning) $TCL(extra_cflags) $INCLUDES"
- } else {
- set cmd "$TCL(cc) $TCL(shlib_cflags) $TCL(cflags_optimize) \
-$TCL(cflags_warning) $TCL(extra_cflags) $INCLUDES"
- }
- append cmd " $OBJECTS"
- append cmd " $EXTERN_OBJS "
- # On OSX it is impossibly to generate a completely static
- # executable
- if {[$PROJECT define get TEACUP_OS] ne "macosx"} {
- append cmd " -static "
- }
- if {$debug} {
- if {$os eq "windows"} {
- append cmd " -L${TCL(src_dir)}/win -ltcl86g"
- if {[$PROJECT define get static_tk]} {
- append cmd " -L${TK(src_dir)}/win -ltk86g"
- }
- } else {
- append cmd " -L${TCL(src_dir)}/unix -ltcl86g"
- if {[$PROJECT define get static_tk]} {
- append cmd " -L${TK(src_dir)}/unix -ltk86g"
- }
- }
- } else {
- append cmd " $TCL(build_lib_spec)"
- if {[$PROJECT define get static_tk]} {
- append cmd " $TK(build_lib_spec)"
- }
- }
- foreach obj $PKG_OBJS {
- append cmd " [$obj linker-products $config($obj)]"
- }
- append cmd " $TCL(libs) "
- if {[$PROJECT define get static_tk]} {
- append cmd " $TK(libs)"
- }
- foreach obj $PKG_OBJS {
- append cmd " [$obj linker-external $config($obj)]"
- }
- if {$debug} {
- if {$os eq "windows"} {
- append cmd " -L${TCL(src_dir)}/win ${TCL(stub_lib_flag)}"
- if {[$PROJECT define get static_tk]} {
- append cmd " -L${TK(src_dir)}/win ${TK(stub_lib_flag)}"
- }
- } else {
- append cmd " -L${TCL(src_dir)}/unix ${TCL(stub_lib_flag)}"
- if {[$PROJECT define get static_tk]} {
- append cmd " -L${TK(src_dir)}/unix ${TK(stub_lib_flag)}"
- }
- }
- } else {
- append cmd " $TCL(build_stub_lib_spec)"
- if {[$PROJECT define get static_tk]} {
- append cmd " $TK(build_stub_lib_spec)"
- }
- }
- append cmd " -o $outfile $LDFLAGS_CONSOLE"
- puts "LINK: $cmd"
- exec {*}$cmd >&@ stdout
-}
-}
-
-
-::oo::class create ::practcl::build.msvc {
- superclass ::practcl::build
-
-}
-
-::oo::class create ::practcl::target_obj {
- superclass ::practcl::metaclass
-
- constructor {name info} {
- my variable define triggered domake
- set triggered 0
- set domake 0
- set define(name) $name
- set data [uplevel 2 [list subst $info]]
- array set define $data
- my select
- my initialize
- }
-
- method do {} {
- my variable domake
- return $domake
- }
-
- method check {} {
- my variable needs_make domake
- if {$domake} {
- return 1
- }
- if {[info exists needs_make]} {
- return $needs_make
- }
- set needs_make 0
- foreach item [my define get depends] {
- if {![dict exists $::make_objects $item]} continue
- set depobj [dict get $::make_objects $item]
- if {$depobj eq [self]} {
- puts "WARNING [self] depends on itself"
- continue
- }
- if {[$depobj check]} {
- set needs_make 1
- }
- }
- if {!$needs_make} {
- set filename [my define get filename]
- if {$filename ne {} && ![file exists $filename]} {
- set needs_make 1
- }
- }
- return $needs_make
- }
-
- method triggers {} {
- my variable triggered domake define
- if {$triggered} {
- return $domake
- }
- set triggered 1
- foreach item [my define get depends] {
- if {![dict exists $::make_objects $item]} continue
- set depobj [dict get $::make_objects $item]
- if {$depobj eq [self]} {
- puts "WARNING [self] triggers itself"
- continue
- } else {
- set r [$depobj check]
- if {$r} {
- $depobj triggers
- }
- }
- }
- if {[info exists ::make($define(name))] && $::make($define(name))} {
- return
- }
- set ::make($define(name)) 1
- ::practcl::trigger {*}[my define get triggers]
- }
-}
-
-
-###
-# Define the metaclass
-###
-::oo::class create ::practcl::object {
- superclass ::practcl::metaclass
-
- constructor {parent args} {
- my variable links define
- set organs [$parent child organs]
- my graft {*}$organs
- array set define $organs
- array set define [$parent child define]
- array set links {}
- if {[llength $args]==1 && [file exists [lindex $args 0]]} {
- my InitializeSourceFile [lindex $args 0]
- } elseif {[llength $args] == 1} {
- set data [uplevel 1 [list subst [lindex $args 0]]]
- array set define $data
- my select
- my initialize
- } else {
- array set define [uplevel 1 [list subst $args]]
- my select
- my initialize
- }
- }
-
-
- method include_dir args {
- my define add include_dir {*}$args
- }
-
- method include_directory args {
- my define add include_dir {*}$args
- }
-
- method Collate_Source CWD {}
-
-
- method child {method} {
- return {}
- }
-
- method InitializeSourceFile filename {
- my define set filename $filename
- set class {}
- switch [file extension $filename] {
- .tcl {
- set class ::practcl::dynamic
- }
- .h {
- set class ::practcl::cheader
- }
- .c {
- set class ::practcl::csource
- }
- .ini {
- switch [file tail $filename] {
- module.ini {
- set class ::practcl::module
- }
- library.ini {
- set class ::practcl::subproject
- }
- }
- }
- .so -
- .dll -
- .dylib -
- .a {
- set class ::practcl::clibrary
- }
- }
- if {$class ne {}} {
- oo::objdefine [self] class $class
- my initialize
- }
- }
-
- method add args {
- my variable links
- set object [::practcl::object new [self] {*}$args]
- foreach linktype [$object linktype] {
- lappend links($linktype) $object
- }
- return $object
- }
-
- method go {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable links
- foreach {linktype objs} [array get links] {
- foreach obj $objs {
- $obj go
- }
- }
- ::practcl::debug [list /[self] [self method] [self class]]
- }
-
- method code {section body} {
- my variable code
- ::practcl::cputs code($section) $body
- }
-
- method Ofile filename {
- set lpath [my <module> define get localpath]
- if {$lpath eq {}} {
- set lpath [my <module> define get name]
- }
- return ${lpath}_[file rootname [file tail $filename]].o
- }
-
- method compile-products {} {
- set filename [my define get filename]
- set result {}
- if {$filename ne {}} {
- if {[my define exists ofile]} {
- set ofile [my define get ofile]
- } else {
- set ofile [my Ofile $filename]
- my define set ofile $ofile
- }
- lappend result $ofile [list cfile $filename extra [my define get extra] external [string is true -strict [my define get external]] object [self]]
- }
- foreach item [my link list subordinate] {
- lappend result {*}[$item compile-products]
- }
- return $result
- }
-
- method generate-include-directory {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- set result [my define get include_dir]
- foreach obj [my link list product] {
- foreach path [$obj generate-include-directory] {
- lappend result $path
- }
- }
- return $result
- }
-
- method generate-debug {{spaces {}}} {
- set result {}
- ::practcl::cputs result "$spaces[list [self] [list class [info object class [self]] filename [my define get filename]] links [my link list]]"
- foreach item [my link list subordinate] {
- practcl::cputs result [$item generate-debug "$spaces "]
- }
- return $result
- }
-
- # Empty template methods
- method generate-cheader {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable code cfunct cstruct methods tcltype tclprocs
- set result {}
- if {[info exists code(header)]} {
- ::practcl::cputs result $code(header)
- }
- foreach obj [my link list product] {
- # Exclude products that will generate their own C files
- if {[$obj define get output_c] ne {}} continue
- set dat [$obj generate-cheader]
- if {[string length [string trim $dat]]} {
- ::practcl::cputs result "/* BEGIN [$obj define get filename] generate-cheader */"
- ::practcl::cputs result $dat
- ::practcl::cputs result "/* END [$obj define get filename] generate-cheader */"
- }
- }
- ::practcl::debug [list cfunct [info exists cfunct]]
- if {[info exists cfunct]} {
- foreach {funcname info} $cfunct {
- if {[dict get $info public]} continue
- ::practcl::cputs result "[dict get $info header]\;"
- }
- }
- ::practcl::debug [list tclprocs [info exists tclprocs]]
- if {[info exists tclprocs]} {
- foreach {name info} $tclprocs {
- if {[dict exists $info header]} {
- ::practcl::cputs result "[dict get $info header]\;"
- }
- }
- }
- ::practcl::debug [list methods [info exists methods] [my define get cclass]]
-
- if {[info exists methods]} {
- set thisclass [my define get cclass]
- foreach {name info} $methods {
- if {[dict exists $info header]} {
- ::practcl::cputs result "[dict get $info header]\;"
- }
- }
- # Add the initializer wrapper for the class
- ::practcl::cputs result "static int ${thisclass}_OO_Init(Tcl_Interp *interp)\;"
- }
- return $result
- }
-
- method generate-public-define {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable code
- set result {}
- if {[info exists code(public-define)]} {
- ::practcl::cputs result $code(public-define)
- }
- set result [::practcl::_tagblock $result c [my define get filename]]
- foreach mod [my link list product] {
- ::practcl::cputs result [$mod generate-public-define]
- }
- return $result
- }
-
- method generate-public-macro {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable code
- set result {}
- if {[info exists code(public-macro)]} {
- ::practcl::cputs result $code(public-macro)
- }
- set result [::practcl::_tagblock $result c [my define get filename]]
- foreach mod [my link list product] {
- ::practcl::cputs result [$mod generate-public-macro]
- }
- return $result
- }
-
- method generate-public-typedef {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable code cstruct
- set result {}
- if {[info exists code(public-typedef)]} {
- ::practcl::cputs result $code(public-typedef)
- }
- if {[info exists cstruct]} {
- # Add defintion for native c data structures
- foreach {name info} $cstruct {
- if {[dict get $info public]==0} continue
- ::practcl::cputs result "typedef struct $name ${name}\;"
- if {[dict exists $info aliases]} {
- foreach n [dict get $info aliases] {
- ::practcl::cputs result "typedef struct $name ${n}\;"
- }
- }
- }
- }
- set result [::practcl::_tagblock $result c [my define get filename]]
- foreach mod [my link list product] {
- ::practcl::cputs result [$mod generate-public-typedef]
- }
- return $result
- }
-
- method generate-private-typedef {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable code cstruct
- set result {}
- if {[info exists code(private-typedef)]} {
- ::practcl::cputs result $code(private-typedef)
- }
- if {[info exists cstruct]} {
- # Add defintion for native c data structures
- foreach {name info} $cstruct {
- if {[dict get $info public]==1} continue
- ::practcl::cputs result "typedef struct $name ${name}\;"
- if {[dict exists $info aliases]} {
- foreach n [dict get $info aliases] {
- ::practcl::cputs result "typedef struct $name ${n}\;"
- }
- }
- }
- }
- set result [::practcl::_tagblock $result c [my define get filename]]
- foreach mod [my link list product] {
- ::practcl::cputs result [$mod generate-private-typedef]
- }
- return $result
- }
-
- method generate-public-structure {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable code cstruct
- set result {}
- if {[info exists code(public-structure)]} {
- ::practcl::cputs result $code(public-structure)
- }
- if {[info exists cstruct]} {
- foreach {name info} $cstruct {
- if {[dict get $info public]==0} continue
- if {[dict exists $info comment]} {
- ::practcl::cputs result [dict get $info comment]
- }
- ::practcl::cputs result "struct $name \{[dict get $info body]\}\;"
- }
- }
- set result [::practcl::_tagblock $result c [my define get filename]]
- foreach mod [my link list product] {
- ::practcl::cputs result [$mod generate-public-structure]
- }
- return $result
- }
-
-
- method generate-private-structure {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable code cstruct
- set result {}
- if {[info exists code(private-structure)]} {
- ::practcl::cputs result $code(private-structure)
- }
- if {[info exists cstruct]} {
- foreach {name info} $cstruct {
- if {[dict get $info public]==1} continue
- if {[dict exists $info comment]} {
- ::practcl::cputs result [dict get $info comment]
- }
- ::practcl::cputs result "struct $name \{[dict get $info body]\}\;"
- }
- }
- set result [::practcl::_tagblock $result c [my define get filename]]
- foreach mod [my link list product] {
- ::practcl::cputs result [$mod generate-private-structure]
- }
- return $result
- }
-
- method generate-public-headers {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable code tcltype
- set result {}
- if {[info exists code(public-header)]} {
- ::practcl::cputs result $code(public-header)
- }
- if {[info exists tcltype]} {
- foreach {type info} $tcltype {
- if {![dict exists $info cname]} {
- set cname [string tolower ${type}]_tclobjtype
- dict set tcltype $type cname $cname
- } else {
- set cname [dict get $info cname]
- }
- ::practcl::cputs result "extern const Tcl_ObjType $cname\;"
- }
- }
- if {[info exists code(public)]} {
- ::practcl::cputs result $code(public)
- }
- set result [::practcl::_tagblock $result c [my define get filename]]
- foreach mod [my link list product] {
- ::practcl::cputs result [$mod generate-public-headers]
- }
- return $result
- }
-
- method generate-stub-function {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable code cfunct tcltype
- set result {}
- foreach mod [my link list product] {
- foreach {funct def} [$mod generate-stub-function] {
- dict set result $funct $def
- }
- }
- if {[info exists cfunct]} {
- foreach {funcname info} $cfunct {
- if {![dict get $info export]} continue
- dict set result $funcname [dict get $info header]
- }
- }
- return $result
- }
-
- method generate-public-function {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable code cfunct tcltype
- set result {}
-
- if {[my define get initfunc] ne {}} {
- ::practcl::cputs result "int [my define get initfunc](Tcl_Interp *interp);"
- }
- if {[info exists cfunct]} {
- foreach {funcname info} $cfunct {
- if {![dict get $info public]} continue
- ::practcl::cputs result "[dict get $info header]\;"
- }
- }
- set result [::practcl::_tagblock $result c [my define get filename]]
- foreach mod [my link list product] {
- ::practcl::cputs result [$mod generate-public-function]
- }
- return $result
- }
-
- method generate-public-includes {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- set includes {}
- foreach item [my define get public-include] {
- if {$item ni $includes} {
- lappend includes $item
- }
- }
- foreach mod [my link list product] {
- foreach item [$mod generate-public-includes] {
- if {$item ni $includes} {
- lappend includes $item
- }
- }
- }
- return $includes
- }
- method generate-public-verbatim {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- set includes {}
- foreach item [my define get public-verbatim] {
- if {$item ni $includes} {
- lappend includes $item
- }
- }
- foreach mod [my link list subordinate] {
- foreach item [$mod generate-public-verbatim] {
- if {$item ni $includes} {
- lappend includes $item
- }
- }
- }
- return $includes
- }
- ###
- # This methods generates the contents of an amalgamated .h file
- # which describes the public API of this module
- ###
- method generate-h {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- set result {}
- set includes [my generate-public-includes]
- foreach inc $includes {
- if {[string index $inc 0] ni {< \"}} {
- ::practcl::cputs result "#include \"$inc\""
- } else {
- ::practcl::cputs result "#include $inc"
- }
- }
-
- foreach method {
- generate-public-define
- generate-public-macro
- generate-public-typedef
- generate-public-structure
- } {
- ::practcl::cputs result "/* BEGIN SECTION $method */"
- ::practcl::cputs result [my $method]
- ::practcl::cputs result "/* END SECTION $method */"
- }
-
- foreach file [my generate-public-verbatim] {
- ::practcl::cputs result "/* BEGIN $file */"
- ::practcl::cputs result [::practcl::cat $file]
- ::practcl::cputs result "/* END $file */"
- }
-
- foreach method {
- generate-public-headers
- generate-public-function
- } {
- ::practcl::cputs result "/* BEGIN SECTION $method */"
- ::practcl::cputs result [my $method]
- ::practcl::cputs result "/* END SECTION $method */"
- }
- return $result
- }
-
- method IncludeAdd {headervar args} {
- upvar 1 $headervar headers
- foreach inc $args {
- if {[string index $inc 0] ni {< \"}} {
- set inc "\"$inc\""
- }
- if {$inc ni $headers} {
- lappend headers $inc
- }
- }
- }
-
- ###
- # This methods generates the contents of an amalgamated .c file
- # which implements the loader for a batch of tools
- ###
- method generate-c {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- set result {
-/* This file was generated by practcl */
- }
- set includes {}
-
- foreach mod [my link list product] {
- # Signal modules to formulate final implementation
- $mod go
- }
- set headers {}
-
- my IncludeAdd headers <tcl.h> <tclOO.h>
- if {[my define get tk 0]} {
- my IncludeAdd headers <tk.h>
- }
- if {[my define get output_h] ne {}} {
- my IncludeAdd headers [my define get output_h]
- }
- my IncludeAdd headers {*}[my define get include]
-
- foreach mod [my link list dynamic] {
- my IncludeAdd headers {*}[$mod define get include]
- }
- foreach inc $headers {
- ::practcl::cputs result "#include $inc"
- }
- foreach {method} {
- generate-cheader
- generate-private-typedef
- generate-private-structure
- generate-cstruct
- generate-constant
- generate-cfunct
- generate-cmethod
- } {
- set dat [my $method]
- if {[string length [string trim $dat]]} {
- ::practcl::cputs result "/* BEGIN $method [my define get filename] */"
- ::practcl::cputs result $dat
- ::practcl::cputs result "/* END $method [my define get filename] */"
- }
- }
- ::practcl::debug [list /[self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- return $result
- }
-
-
- method generate-loader {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- set result {}
- if {[my define get initfunc] eq {}} return
- ::practcl::cputs result "
-extern int DLLEXPORT [my define get initfunc]( Tcl_Interp *interp ) \{"
- ::practcl::cputs result {
- /* Initialise the stubs tables. */
- #ifdef USE_TCL_STUBS
- if (Tcl_InitStubs(interp, "8.6", 0)==NULL) return TCL_ERROR;
- if (TclOOInitializeStubs(interp, "1.0") == NULL) return TCL_ERROR;
-}
- if {[my define get tk 0]} {
- ::practcl::cputs result { if (Tk_InitStubs(interp, "8.6", 0)==NULL) return TCL_ERROR;}
- }
- ::practcl::cputs result { #endif}
- set TCLINIT [my generate-tcl-pre]
- if {[string length $TCLINIT]} {
- ::practcl::cputs result " if(Tcl_Eval(interp,[::practcl::tcl_to_c $TCLINIT])) return TCL_ERROR ;"
- }
- foreach item [my link list product] {
- if {[$item define get output_c] ne {}} {
- ::practcl::cputs result [$item generate-cinit-external]
- } else {
- ::practcl::cputs result [$item generate-cinit]
- }
- }
- set TCLINIT [my generate-tcl-post]
- if {[string length $TCLINIT]} {
- ::practcl::cputs result " if(Tcl_Eval(interp,[::practcl::tcl_to_c $TCLINIT])) return TCL_ERROR ;"
- }
- if {[my define exists pkg_name]} {
- ::practcl::cputs result " if (Tcl_PkgProvide(interp, \"[my define get pkg_name [my define get name]]\" , \"[my define get pkg_vers [my define get version]]\" )) return TCL_ERROR\;"
- }
- ::practcl::cputs result " return TCL_OK\;\n\}\n"
- return $result
- }
-
- ###
- # This methods generates any Tcl script file
- # which is required to pre-initialize the C library
- ###
- method generate-tcl-pre {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- set result {}
- my variable code
- if {[info exists code(tcl)]} {
- set result [::practcl::_tagblock $code(tcl) tcl [my define get filename]]
- }
- if {[info exists code(tcl-pre)]} {
- set result [::practcl::_tagblock $code(tcl) tcl [my define get filename]]
- }
- foreach mod [my link list product] {
- ::practcl::cputs result [$mod generate-tcl-pre]
- }
- return $result
- }
-
- method generate-tcl-post {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- set result {}
- my variable code
- if {[info exists code(tcl-post)]} {
- set result [::practcl::_tagblock $code(tcl-post) tcl [my define get filename]]
- }
- foreach mod [my link list product] {
- ::practcl::cputs result [$mod generate-tcl-post]
- }
- return $result
- }
-
- method static-packages {} {
- set result [my define get static_packages]
- set statpkg [my define get static_pkg]
- set initfunc [my define get initfunc]
- if {$initfunc ne {}} {
- set pkg_name [my define get pkg_name]
- if {$pkg_name ne {}} {
- dict set result $pkg_name initfunc $initfunc
- dict set result $pkg_name version [my define get version [my define get pkg_vers]]
- dict set result $pkg_name autoload [my define get autoload 0]
- }
- }
- foreach item [my link list subordinate] {
- foreach {pkg info} [$item static-packages] {
- dict set result $pkg $info
- }
- }
- return $result
- }
-
- method target {method args} {
- switch $method {
- is_unix { return [expr {$::tcl_platform(platform) eq "unix"}] }
- }
- }
-
-}
-
-::oo::class create ::practcl::product {
- superclass ::practcl::object
-
- method linktype {} {
- return {subordinate product}
- }
-
- method include header {
- my define add include $header
- }
-
- method cstructure {name definition {argdat {}}} {
- my variable cstruct
- dict set cstruct $name body $definition
- foreach {f v} $argdat {
- dict set cstruct $name $f $v
- }
- if {![dict exists $cstruct $name public]} {
- dict set cstruct $name public 1
- }
- }
-
- method generate-cinit {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable code
- set result {}
- if {[info exists code(cinit)]} {
- ::practcl::cputs result $code(cinit)
- }
- if {[my define get initfunc] ne {}} {
- ::practcl::cputs result " if([my define get initfunc](interp)!=TCL_OK) return TCL_ERROR\;"
- }
- set result [::practcl::_tagblock $result c [my define get filename]]
- foreach obj [my link list product] {
- ::practcl::cputs result [$obj generate-cinit]
- }
- return $result
- }
-}
-
-###
-# Dynamic blocks do not generate their own .c files,
-# instead the contribute to the amalgamation
-# of the main library file
-###
-::oo::class create ::practcl::dynamic {
- superclass ::practcl::product
-
- # Retrieve any additional source files required
-
- method compile-products {} {
- set filename [my define get output_c]
- set result {}
- if {$filename ne {}} {
- if {[my define exists ofile]} {
- set ofile [my define get ofile]
- } else {
- set ofile [my Ofile $filename]
- my define set ofile $ofile
- }
- lappend result $ofile [list cfile $filename extra [my define get extra] external [string is true -strict [my define get external]]]
- } else {
- set filename [my define get cfile]
- if {$filename ne {}} {
- if {[my define exists ofile]} {
- set ofile [my define get ofile]
- } else {
- set ofile [my Ofile $filename]
- my define set ofile $ofile
- }
- lappend result $ofile [list cfile $filename extra [my define get extra] external [string is true -strict [my define get external]]]
- }
- }
- foreach item [my link list subordinate] {
- lappend result {*}[$item compile-products]
- }
- return $result
- }
-
- method implement path {
- my go
- my Collate_Source $path
- if {[my define get output_c] eq {}} return
- set filename [file join $path [my define get output_c]]
- my define set cfile $filename
- set fout [open $filename w]
- puts $fout [my generate-c]
- if {[my define get initfunc] ne {}} {
- puts $fout "extern int DLLEXPORT [my define get initfunc]( Tcl_Interp *interp ) \x7B"
- puts $fout [my generate-cinit]
- if {[my define get pkg_name] ne {}} {
- puts $fout " Tcl_PkgProvide(interp, \"[my define get pkg_name]\", \"[my define get pkg_vers]\");"
- }
- puts $fout " return TCL_OK\;"
- puts $fout "\x7D"
- }
- close $fout
- }
-
- method initialize {} {
- set filename [my define get filename]
- if {$filename eq {}} {
- return
- }
- if {[my define get name] eq {}} {
- my define set name [file tail [file rootname $filename]]
- }
- if {[my define get localpath] eq {}} {
- my define set localpath [my <module> define get localpath]_[my define get name]
- }
- ::source $filename
- }
-
- method linktype {} {
- return {subordinate product dynamic}
- }
-
- ###
- # Populate const static data structures
- ###
- method generate-cstruct {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable code cstruct methods tcltype
- set result {}
- if {[info exists code(struct)]} {
- ::practcl::cputs result $code(struct)
- }
- foreach obj [my link list dynamic] {
- # Exclude products that will generate their own C files
- if {[$obj define get output_c] ne {}} continue
- ::practcl::cputs result [$obj generate-cstruct]
- }
- return $result
- }
-
- method generate-constant {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- set result {}
- my variable code cstruct methods tcltype
- if {[info exists code(constant)]} {
- ::practcl::cputs result "/* [my define get filename] CONSTANT */"
- ::practcl::cputs result $code(constant)
- }
- if {[info exists cstruct]} {
- foreach {name info} $cstruct {
- set map {}
- lappend map @NAME@ $name
- lappend map @MACRO@ GET[string toupper $name]
-
- if {[dict exists $info deleteproc]} {
- lappend map @DELETEPROC@ [dict get $info deleteproc]
- } else {
- lappend map @DELETEPROC@ NULL
- }
- if {[dict exists $info cloneproc]} {
- lappend map @CLONEPROC@ [dict get $info cloneproc]
- } else {
- lappend map @CLONEPROC@ NULL
- }
- ::practcl::cputs result [string map $map {
-const static Tcl_ObjectMetadataType @NAME@DataType = {
- TCL_OO_METADATA_VERSION_CURRENT,
- "@NAME@",
- @DELETEPROC@,
- @CLONEPROC@
-};
-#define @MACRO@(OBJCONTEXT) (@NAME@ *) Tcl_ObjectGetMetadata(OBJCONTEXT,&@NAME@DataType)
-}]
- }
- }
- if {[info exists tcltype]} {
- foreach {type info} $tcltype {
- dict with info {}
- ::practcl::cputs result "const Tcl_ObjType $cname = \{\n .freeIntRepProc = &${freeproc},\n .dupIntRepProc = &${dupproc},\n .updateStringProc = &${updatestringproc},\n .setFromAnyProc = &${setfromanyproc}\n\}\;"
- }
- }
-
- if {[info exists methods]} {
- set mtypes {}
- foreach {name info} $methods {
- set callproc [dict get $info callproc]
- set methodtype [dict get $info methodtype]
- if {$methodtype in $mtypes} continue
- lappend mtypes $methodtype
- ###
- # Build the data struct for this method
- ###
- ::practcl::cputs result "const static Tcl_MethodType $methodtype = \{"
- ::practcl::cputs result " .version = TCL_OO_METADATA_VERSION_CURRENT,\n .name = \"$name\",\n .callProc = $callproc,"
- if {[dict exists $info deleteproc]} {
- set deleteproc [dict get $info deleteproc]
- } else {
- set deleteproc NULL
- }
- if {$deleteproc ni { {} NULL }} {
- ::practcl::cputs result " .deleteProc = $deleteproc,"
- } else {
- ::practcl::cputs result " .deleteProc = NULL,"
- }
- if {[dict exists $info cloneproc]} {
- set cloneproc [dict get $info cloneproc]
- } else {
- set cloneproc NULL
- }
- if {$cloneproc ni { {} NULL }} {
- ::practcl::cputs result " .cloneProc = $cloneproc\n\}\;"
- } else {
- ::practcl::cputs result " .cloneProc = NULL\n\}\;"
- }
- dict set methods $name methodtype $methodtype
- }
- }
- foreach obj [my link list dynamic] {
- # Exclude products that will generate their own C files
- if {[$obj define get output_c] ne {}} continue
- ::practcl::cputs result [$obj generate-constant]
- }
- return $result
- }
-
- ###
- # Generate code that provides subroutines called by
- # Tcl API methods
- ###
- method generate-cfunct {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable code cfunct
- set result {}
- if {[info exists code(funct)]} {
- ::practcl::cputs result $code(funct)
- }
- if {[info exists cfunct]} {
- foreach {funcname info} $cfunct {
- ::practcl::cputs result "/* $funcname */"
- ::practcl::cputs result "\n[dict get $info header]\{[dict get $info body]\}"
- }
- }
- foreach obj [my link list dynamic] {
- # Exclude products that will generate their own C files
- if {[$obj define get output_c] ne {}} {
- continue
- }
- ::practcl::cputs result [$obj generate-cfunct]
- }
- return $result
- }
-
- ###
- # Generate code that provides implements Tcl API
- # calls
- ###
- method generate-cmethod {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- my variable code methods tclprocs
- set result {}
- if {[info exists code(method)]} {
- ::practcl::cputs result $code(method)
- }
-
- if {[info exists tclprocs]} {
- foreach {name info} $tclprocs {
- if {![dict exists $info body]} continue
- set callproc [dict get $info callproc]
- set header [dict get $info header]
- set body [dict get $info body]
- ::practcl::cputs result "/* Tcl Proc $name */"
- ::practcl::cputs result "${header} \{${body}\}"
- }
- }
-
-
- if {[info exists methods]} {
- set thisclass [my define get cclass]
- foreach {name info} $methods {
- if {![dict exists $info body]} continue
- set callproc [dict get $info callproc]
- set header [dict get $info header]
- set body [dict get $info body]
- ::practcl::cputs result "/* OO Method $thisclass $name */"
- ::practcl::cputs result "${header} \{${body}\}"
- }
- # Build the OO_Init function
- ::practcl::cputs result "/* Loader for $thisclass */"
- ::practcl::cputs result "static int ${thisclass}_OO_Init(Tcl_Interp *interp) \{"
- ::practcl::cputs result [string map [list @CCLASS@ $thisclass @TCLCLASS@ [my define get class]] {
- /*
- ** Build the "@TCLCLASS@" class
- */
- Tcl_Obj* nameObj; /* Name of a class or method being looked up */
- Tcl_Object curClassObject; /* Tcl_Object representing the current class */
- Tcl_Class curClass; /* Tcl_Class representing the current class */
-
- /*
- * Find the "@TCLCLASS@" class, and attach an 'init' method to it.
- */
-
- nameObj = Tcl_NewStringObj("@TCLCLASS@", -1);
- Tcl_IncrRefCount(nameObj);
- if ((curClassObject = Tcl_GetObjectFromObj(interp, nameObj)) == NULL) {
- Tcl_DecrRefCount(nameObj);
- return TCL_ERROR;
- }
- Tcl_DecrRefCount(nameObj);
- curClass = Tcl_GetObjectAsClass(curClassObject);
-}]
- if {[dict exists $methods constructor]} {
- set mtype [dict get $methods constructor methodtype]
- ::practcl::cputs result [string map [list @MTYPE@ $mtype] {
- /* Attach the constructor to the class */
- Tcl_ClassSetConstructor(interp, curClass, Tcl_NewMethod(interp, curClass, NULL, 1, &@MTYPE@, NULL));
- }]
- }
- foreach {name info} $methods {
- dict with info {}
- if {$name in {constructor destructor}} continue
- ::practcl::cputs result [string map [list @NAME@ $name @MTYPE@ $methodtype] {
- nameObj=Tcl_NewStringObj("@NAME@",-1);
- Tcl_NewMethod(interp, curClass, nameObj, 1, &@MTYPE@, (ClientData) NULL);
- Tcl_DecrRefCount(nameObj);
-}]
- if {[dict exists $info aliases]} {
- foreach alias [dict get $info aliases] {
- if {[dict exists $methods $alias]} continue
- ::practcl::cputs result [string map [list @NAME@ $alias @MTYPE@ $methodtype] {
- nameObj=Tcl_NewStringObj("@NAME@",-1);
- Tcl_NewMethod(interp, curClass, nameObj, 1, &@MTYPE@, (ClientData) NULL);
- Tcl_DecrRefCount(nameObj);
-}]
- }
- }
- }
- ::practcl::cputs result " return TCL_OK\;\n\}\n"
- }
- foreach obj [my link list dynamic] {
- # Exclude products that will generate their own C files
- if {[$obj define get output_c] ne {}} continue
- ::practcl::cputs result [$obj generate-cmethod]
- }
- return $result
- }
-
- method generate-cinit-external {} {
- if {[my define get initfunc] eq {}} {
- return "/* [my define get filename] declared not initfunc */"
- }
- return " if([my define get initfunc](interp)) return TCL_ERROR\;"
- }
-
- ###
- # Generate code that runs when the package/module is
- # initialized into the interpreter
- ###
- method generate-cinit {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- set result {}
- my variable code methods tclprocs
- if {[info exists code(nspace)]} {
- ::practcl::cputs result " \{\n Tcl_Namespace *modPtr;"
- foreach nspace $code(nspace) {
- ::practcl::cputs result [string map [list @NSPACE@ $nspace] {
- modPtr=Tcl_FindNamespace(interp,"@NSPACE@",NULL,TCL_NAMESPACE_ONLY);
- if(!modPtr) {
- modPtr = Tcl_CreateNamespace(interp, "@NSPACE@", NULL, NULL);
- }
-}]
- }
- ::practcl::cputs result " \}"
- }
- if {[info exists code(tclinit)]} {
- ::practcl::cputs result $code(tclinit)
- }
- if {[info exists code(cinit)]} {
- ::practcl::cputs result $code(cinit)
- }
- if {[info exists code(initfuncts)]} {
- foreach func $code(initfuncts) {
- ::practcl::cputs result " if (${func}(interp) != TCL_OK) return TCL_ERROR\;"
- }
- }
- if {[info exists tclprocs]} {
- foreach {name info} $tclprocs {
- set map [list @NAME@ $name @CALLPROC@ [dict get $info callproc]]
- ::practcl::cputs result [string map $map { Tcl_CreateObjCommand(interp,"@NAME@",(Tcl_ObjCmdProc *)@CALLPROC@,NULL,NULL);}]
- if {[dict exists $info aliases]} {
- foreach alias [dict get $info aliases] {
- set map [list @NAME@ $alias @CALLPROC@ [dict get $info callproc]]
- ::practcl::cputs result [string map $map { Tcl_CreateObjCommand(interp,"@NAME@",(Tcl_ObjCmdProc *)@CALLPROC@,NULL,NULL);}]
- }
- }
- }
- }
-
- if {[info exists code(nspace)]} {
- ::practcl::cputs result " \{\n Tcl_Namespace *modPtr;"
- foreach nspace $code(nspace) {
- ::practcl::cputs result [string map [list @NSPACE@ $nspace] {
- modPtr=Tcl_FindNamespace(interp,"@NSPACE@",NULL,TCL_NAMESPACE_ONLY);
- Tcl_CreateEnsemble(interp, modPtr->fullName, modPtr, TCL_ENSEMBLE_PREFIX);
- Tcl_Export(interp, modPtr, "[a-z]*", 1);
-}]
- }
- ::practcl::cputs result " \}"
- }
- set result [::practcl::_tagblock $result c [my define get filename]]
- foreach obj [my link list product] {
- # Exclude products that will generate their own C files
- if {[$obj define get output_c] ne {}} {
- ::practcl::cputs result [$obj generate-cinit-external]
- } else {
- ::practcl::cputs result [$obj generate-cinit]
- }
- }
- return $result
- }
-
- method c_header body {
- my variable code
- ::practcl::cputs code(header) $body
- }
-
- method c_code body {
- my variable code
- ::practcl::cputs code(funct) $body
- }
- method c_function {header body {info {}}} {
- set header [string map "\t \ \n \ \ \ \ " $header]
- my variable code cfunct
- foreach regexp {
- {(.*) ([a-zA-Z_][a-zA-Z0-9_]*) *\((.*)\)}
- {(.*) (\x2a[a-zA-Z_][a-zA-Z0-9_]*) *\((.*)\)}
- } {
- if {[regexp $regexp $header all keywords funcname arglist]} {
- dict set cfunct $funcname header $header
- dict set cfunct $funcname body $body
- dict set cfunct $funcname keywords $keywords
- dict set cfunct $funcname arglist $arglist
- dict set cfunct $funcname inline [expr {"inline" ni $keywords}]
- dict set cfunct $funcname public [expr {"static" ni $keywords}]
- dict set cfunct $funcname export [expr {"STUB_EXPORT" in $keywords}]
- foreach {f v} $info {
- dict set cfunct $f $v
- }
- return
- }
- }
- foreach {f v} $info {
- dict set cfunct $f $v
- }
- ::practcl::cputs code(header) "$header\;"
- # Could not parse that block as a function
- # append it verbatim to our c_implementation
- ::practcl::cputs code(funct) "$header [list $body]"
- }
-
-
- method cmethod {name body {arginfo {}}} {
- my variable methods code
- foreach {f v} $arginfo {
- dict set methods $name $f $v
- }
- dict set methods $name body "Tcl_Object thisObject = Tcl_ObjectContextObject(objectContext); /* The current connection object */
-$body"
- }
-
- method c_tclproc_nspace nspace {
- my variable code
- if {![info exists code(nspace)]} {
- set code(nspace) {}
- }
- if {$nspace ni $code(nspace)} {
- lappend code(nspace) $nspace
- }
- }
-
- method c_tclproc_raw {name body {arginfo {}}} {
- my variable tclprocs code
-
- foreach {f v} $arginfo {
- dict set tclprocs $name $f $v
- }
- dict set tclprocs $name body $body
- }
-
- method go {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- next
- my variable methods code cstruct tclprocs
- if {[info exists methods]} {
- ::practcl::debug [self] methods [my define get cclass]
- set thisclass [my define get cclass]
- foreach {name info} $methods {
- # Provide a callproc
- if {![dict exists $info callproc]} {
- set callproc [string map {____ _ ___ _ __ _} [string map {{ } _ : _} OOMethod_${thisclass}_${name}]]
- dict set methods $name callproc $callproc
- } else {
- set callproc [dict get $info callproc]
- }
- if {[dict exists $info body] && ![dict exists $info header]} {
- dict set methods $name header "static int ${callproc}(ClientData clientData, Tcl_Interp *interp, Tcl_ObjectContext objectContext ,int objc ,Tcl_Obj *const *objv)"
- }
- if {![dict exists $info methodtype]} {
- set methodtype [string map {{ } _ : _} OOMethodType_${thisclass}_${name}]
- dict set methods $name methodtype $methodtype
- }
- }
- if {![info exists code(initfuncts)] || "${thisclass}_OO_Init" ni $code(initfuncts)} {
- lappend code(initfuncts) "${thisclass}_OO_Init"
- }
- }
- set thisnspace [my define get nspace]
-
- if {[info exists tclprocs]} {
- ::practcl::debug [self] tclprocs [dict keys $tclprocs]
- foreach {name info} $tclprocs {
- if {![dict exists $info callproc]} {
- set callproc [string map {____ _ ___ _ __ _} [string map {{ } _ : _} TclCmd_${thisnspace}_${name}]]
- dict set tclprocs $name callproc $callproc
- } else {
- set callproc [dict get $info callproc]
- }
- if {[dict exists $info body] && ![dict exists $info header]} {
- dict set tclprocs $name header "static int ${callproc}(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv\[\])"
- }
- }
- }
- ::practcl::debug [list /[self] [self method] [self class]]
- }
-
- # Once an object marks itself as some
- # flavor of dynamic, stop trying to morph
- # it into something else
- method select {} {}
-
-
- method tcltype {name argdat} {
- my variable tcltype
- foreach {f v} $argdat {
- dict set tcltype $name $f $v
- }
- if {![dict exists tcltype $name cname]} {
- dict set tcltype $name cname [string tolower $name]_tclobjtype
- }
- lappend map @NAME@ $name
- set info [dict get $tcltype $name]
- foreach {f v} $info {
- lappend map @[string toupper $f]@ $v
- }
- foreach {func fpat template} {
- freeproc {@Name@Obj_freeIntRepProc} {void @FNAME@(Tcl_Obj *objPtr)}
- dupproc {@Name@Obj_dupIntRepProc} {void @FNAME@(Tcl_Obj *srcPtr,Tcl_Obj *dupPtr)}
- updatestringproc {@Name@Obj_updateStringRepProc} {void @FNAME@(Tcl_Obj *objPtr)}
- setfromanyproc {@Name@Obj_setFromAnyProc} {int @FNAME@(Tcl_Interp *interp,Tcl_Obj *objPtr)}
- } {
- if {![dict exists $info $func]} {
- error "$name does not define $func"
- }
- set body [dict get $info $func]
- # We were given a function name to call
- if {[llength $body] eq 1} continue
- set fname [string map [list @Name@ [string totitle $name]] $fpat]
- my c_function [string map [list @FNAME@ $fname] $template] [string map $map $body]
- dict set tcltype $name $func $fname
- }
- }
-}
-
-::oo::class create ::practcl::cheader {
- superclass ::practcl::product
-
- method compile-products {} {}
- method generate-cinit {} {}
-}
-
-::oo::class create ::practcl::csource {
- superclass ::practcl::product
-}
-
-::oo::class create ::practcl::clibrary {
- superclass ::practcl::product
-
- method linker-products {configdict} {
- return [my define get filename]
- }
-
-}
-
-###
-# In the end, all C code must be loaded into a module
-# This will either be a dynamically loaded library implementing
-# a tcl extension, or a compiled in segment of a custom shell/app
-###
-::oo::class create ::practcl::module {
- superclass ::practcl::dynamic
-
- method child which {
- switch $which {
- organs {
- return [list project [my define get project] module [self]]
- }
- }
- }
-
- method initialize {} {
- set filename [my define get filename]
- if {$filename eq {}} {
- return
- }
- if {[my define get name] eq {}} {
- my define set name [file tail [file dirname $filename]]
- }
- if {[my define get localpath] eq {}} {
- my define set localpath [my <project> define get name]_[my define get name]
- }
- ::practcl::debug [self] SOURCE $filename
- my source $filename
- }
-
- method implement path {
- my go
- my Collate_Source $path
- foreach item [my link list dynamic] {
- if {[catch {$item implement $path} err]} {
- puts "Skipped $item: $err"
- }
- }
- foreach item [my link list module] {
- if {[catch {$item implement $path} err]} {
- puts "Skipped $item: $err"
- }
- }
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- set filename [my define get output_c]
- if {$filename eq {}} {
- ::practcl::debug [list /[self] [self method] [self class]]
- return
- }
- set cout [open [file join $path [file rootname $filename].c] w]
- puts $cout [subst {/*
-** This file is generated by the [info script] script
-** any changes will be overwritten the next time it is run
-*/}]
- puts $cout [my generate-c]
- puts $cout [my generate-loader]
- close $cout
- ::practcl::debug [list /[self] [self method] [self class]]
- }
-
- method linktype {} {
- return {subordinate product dynamic module}
- }
-}
-
-::oo::class create ::practcl::autoconf {
-
- ###
- # find or fake a key/value list describing this project
- ###
- method config.sh {} {
- my variable conf_result
- if {[info exists conf_result]} {
- return $conf_result
- }
- set result {}
- set name [my define get name]
- set PWD $::CWD
- set builddir [my define get builddir]
- my unpack
- set srcdir [my define get srcdir]
- if {![file exists $builddir]} {
- my Configure
- }
- set filename [file join $builddir config.tcl]
- # Project uses the practcl template. Use the leavings from autoconf
- if {[file exists $filename]} {
- set dat [::practcl::config.tcl $builddir]
- foreach {item value} [::practcl::sort_dict $dat] {
- dict set result $item $value
- }
- set conf_result $result
- return $result
- }
- set filename [file join $builddir ${name}Config.sh]
- if {[file exists $filename]} {
- set l [expr {[string length $name]+1}]
- foreach {field dat} [::practcl::read_Config.sh $filename] {
- set field [string tolower $field]
- if {[string match ${name}_* $field]} {
- set field [string range $field $l end]
- }
- dict set result $field $dat
- }
- set conf_result $result
- return $result
- }
- ###
- # Oh man... we have to guess
- ###
- set filename [file join $builddir Makefile]
- if {![file exists $filename]} {
- error "Could not locate any configuration data in $srcdir"
- }
- foreach {field dat} [::practcl::read_Makefile $filename] {
- dict set result $field $dat
- }
- set conf_result $result
- cd $PWD
- return $result
- }
-}
-
-
-::oo::class create ::practcl::project {
- superclass ::practcl::module ::practcl::autoconf
-
- constructor args {
- my variable define
- if {[llength $args] == 1} {
- set rawcontents [lindex $args 0]
- } else {
- set rawcontents $args
- }
- if {[catch {uplevel 1 [list subst $rawcontents]} contents]} {
- set contents $rawcontents
- }
- ###
- # The first instance of ::practcl::project (or its descendents)
- # registers itself as the ::practcl::MAIN. If a project other
- # than ::practcl::LOCAL is created, odds are that was the one
- # the developer intended to be the main project
- ###
- if {$::practcl::MAIN eq "::practcl::LOCAL"} {
- set ::practcl::MAIN [self]
- }
- # DEFS fields need to be passed unchanged and unsubstituted
- # as we need to preserve their escape characters
- foreach field {TCL_DEFS DEFS TK_DEFS} {
- if {[dict exists $rawcontents $field]} {
- dict set contents $field [dict get $rawcontents $field]
- }
- }
- array set define $contents
- my select
- my initialize
- }
-
- method add_project {pkg info {oodefine {}}} {
- set os [my define get TEACUP_OS]
- if {$os eq {}} {
- set os [::practcl::os]
- my define set os $os
- }
- set fossilinfo [list download [my define get download] tag trunk sandbox [my define get sandbox]]
- if {[dict exists $info os] && ($os ni [dict get $info os])} return
- # Select which tag to use here.
- # For production builds: tag-release
- set profile [my define get profile release]:
- if {[dict exists $info profile $profile]} {
- dict set info tag [dict get $info profile $profile]
- }
- if {[my define get USEMSVC 0]} {
- dict set info USEMSVC 1
- }
- set obj [namespace current]::PROJECT.$pkg
- if {[info command $obj] eq {}} {
- set obj [::practcl::subproject create $obj [self] [dict merge $fossilinfo [list name $pkg pkg_name $pkg static 0 class subproject.binary] $info]]
- }
- my link object $obj
- oo::objdefine $obj $oodefine
- $obj define set masterpath $::CWD
- $obj go
- return $obj
- }
-
- method add_tool {pkg info {oodefine {}}} {
- set info [dict merge [::practcl::local_os] $info]
- set os [dict get $info TEACUP_OS]
- set fossilinfo [list download [my define get download] tag trunk sandbox [my define get sandbox]]
- if {[dict exists $info os] && ($os ni [dict get $info os])} return
- # Select which tag to use here.
- # For production builds: tag-release
- set profile [my define get profile release]:
- if {[dict exists $info profile $profile]} {
- dict set info tag [dict get $info profile $profile]
- }
- set obj [namespace current]::TOOL.$pkg
- if {[info command $obj] eq {}} {
- set obj [::practcl::tool create $obj [self] [dict merge $fossilinfo [list name $pkg pkg_name $pkg static 0] $info]]
- }
- my link object $obj
- oo::objdefine $obj $oodefine
- $obj define set masterpath $::CWD
- $obj go
- return $obj
- }
-
- method child which {
- switch $which {
- organs {
- # A library can be a project, it can be a module. Any
- # subordinate modules will indicate their existance
- return [list project [self] module [self]]
- }
- }
- }
-
- method linktype {} {
- return project
- }
-
- # Exercise the methods of a sub-object
- method project {pkg args} {
- set obj [namespace current]::PROJECT.$pkg
- if {[llength $args]==0} {
- return $obj
- }
- ${obj} {*}$args
- }
-
- method select {} {
- next
- ###
- # Select the toolset to use for this project
- ###
- my variable define
- set class {}
- if {[info exists define(toolset)]} {
- if {[info command $define(toolset)] ne {}} {
- set class $define(toolset)
- } elseif {[info command ::practcl::$define(toolset)] ne {}} {
- set class ::practcl::$define(toolset)
- } else {
- switch $define(toolset) {
- default {
- set class ::practcl::build.gcc
- }
- }
- }
- } else {
- if {[info exists ::env(VisualStudioVersion)]} {
- set class ::practcl::build.msvc
- } else {
- set class ::practcl::build.gcc
- }
- }
- ::oo::objdefine [self] mixin $class
- }
-
- method tool {pkg args} {
- set obj [namespace current]::TOOL.$pkg
- if {[llength $args]==0} {
- return $obj
- }
- ${obj} {*}$args
- }
-}
-
-::oo::class create ::practcl::library {
- superclass ::practcl::project
-
- method compile-products {} {
- set result {}
- foreach item [my link list subordinate] {
- lappend result {*}[$item compile-products]
- }
- set filename [my define get output_c]
- if {$filename ne {}} {
- set ofile [file rootname [file tail $filename]]_main.o
- lappend result $ofile [list cfile $filename extra [my define get extra] external [string is true -strict [my define get external]]]
- }
- return $result
- }
-
- method generate-tcl-loader {} {
- set result {}
- set PKGINIT [my define get pkginit]
- set PKG_NAME [my define get name [my define get pkg_name]]
- set PKG_VERSION [my define get pkg_vers [my define get version]]
- if {[string is true [my define get SHARED_BUILD 0]]} {
- set LIBFILE [my define get libfile]
- ::practcl::cputs result [string map \
- [list @LIBFILE@ $LIBFILE @PKGINIT@ $PKGINIT @PKG_NAME@ $PKG_NAME @PKG_VERSION@ $PKG_VERSION] {
-# Shared Library Style
-load [file join [file dirname [file join [pwd] [info script]]] @LIBFILE@] @PKGINIT@
-package provide @PKG_NAME@ @PKG_VERSION@
-}]
- } else {
- ::practcl::cputs result [string map \
- [list @PKGINIT@ $PKGINIT @PKG_NAME@ $PKG_NAME @PKG_VERSION@ $PKG_VERSION] {
-# Tclkit Style
-load {} @PKGINIT@
-package provide @PKG_NAME@ @PKG_VERSION@
-}]
- }
- return $result
- }
-
- method go {} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- set name [my define getnull name]
- if {$name eq {}} {
- set name generic
- my define name generic
- }
- if {[my define get tk] eq {@TEA_TK_EXTENSION@}} {
- my define set tk 0
- }
- set output_c [my define getnull output_c]
- if {$output_c eq {}} {
- set output_c [file rootname $name].c
- my define set output_c $output_c
- }
- set output_h [my define getnull output_h]
- if {$output_h eq {}} {
- set output_h [file rootname $output_c].h
- my define set output_h $output_h
- }
- set output_tcl [my define getnull output_tcl]
- #if {$output_tcl eq {}} {
- # set output_tcl [file rootname $output_c].tcl
- # my define set output_tcl $output_tcl
- #}
- #set output_mk [my define getnull output_mk]
- #if {$output_mk eq {}} {
- # set output_mk [file rootname $output_c].mk
- # my define set output_mk $output_mk
- #}
- set initfunc [my define getnull initfunc]
- if {$initfunc eq {}} {
- set initfunc [string totitle $name]_Init
- my define set initfunc $initfunc
- }
- set output_decls [my define getnull output_decls]
- if {$output_decls eq {}} {
- set output_decls [file rootname $output_c].decls
- my define set output_decls $output_decls
- }
- my variable links
- foreach {linktype objs} [array get links] {
- foreach obj $objs {
- $obj go
- }
- }
- ::practcl::debug [list /[self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- }
-
- method implement path {
- my go
- my Collate_Source $path
- foreach item [my link list dynamic] {
- if {[catch {$item implement $path} err]} {
- puts "Skipped $item: $err"
- }
- }
- foreach item [my link list module] {
- if {[catch {$item implement $path} err]} {
- puts "Skipped $item: $err"
- }
- }
- set cout [open [file join $path [my define get output_c]] w]
- puts $cout [subst {/*
-** This file is generated by the [info script] script
-** any changes will be overwritten the next time it is run
-*/}]
- puts $cout [my generate-c]
- puts $cout [my generate-loader]
- close $cout
-
- set macro HAVE_[string toupper [file rootname [my define get output_h]]]_H
- set hout [open [file join $path [my define get output_h]] w]
- puts $hout [subst {/*
-** This file is generated by the [info script] script
-** any changes will be overwritten the next time it is run
-*/}]
- puts $hout "#ifndef ${macro}"
- puts $hout "#define ${macro}"
- puts $hout [my generate-h]
- puts $hout "#endif"
- close $hout
-
- set output_tcl [my define get output_tcl]
- if {$output_tcl ne {}} {
- set tclout [open [file join $path [my define get output_tcl]] w]
- puts $tclout "###
-# This file is generated by the [info script] script
-# any changes will be overwritten the next time it is run
-###"
- puts $tclout [my generate-tcl-pre]
- puts $tclout [my generate-tcl-loader]
- puts $tclout [my generate-tcl-post]
- close $tclout
- }
- }
-
- method generate-decls {pkgname path} {
- ::practcl::debug [list [self] [self method] [self class] -- [my define get filename] [info object class [self]]]
- set outfile [file join $path/$pkgname.decls]
-
- ###
- # Build the decls file
- ###
- set fout [open $outfile w]
- puts $fout [subst {###
- # $outfile
- #
- # This file was generated by [info script]
- ###
-
- library $pkgname
- interface $pkgname
- }]
-
- ###
- # Generate list of functions
- ###
- set stubfuncts [my generate-stub-function]
- set thisline {}
- set functcount 0
- foreach {func header} $stubfuncts {
- puts $fout [list declare [incr functcount] $header]
- }
- puts $fout [list export "int [my define get initfunc](Tcl_Inter *interp)"]
- puts $fout [list export "char *[string totitle [my define get name]]_InitStubs(Tcl_Inter *interp, char *version, int exact)"]
-
- close $fout
-
- ###
- # Build [package]Decls.h
- ###
- set hout [open [file join $path ${pkgname}Decls.h] w]
-
- close $hout
-
- set cout [open [file join $path ${pkgname}StubInit.c] w]
-puts $cout [string map [list %pkgname% $pkgname %PkgName% [string totitle $pkgname]] {
-#ifndef USE_TCL_STUBS
-#define USE_TCL_STUBS
-#endif
-#undef USE_TCL_STUB_PROCS
-
-#include "tcl.h"
-#include "%pkgname%.h"
-
- /*
- ** Ensure that Tdom_InitStubs is built as an exported symbol. The other stub
- ** functions should be built as non-exported symbols.
- */
-
-#undef TCL_STORAGE_CLASS
-#define TCL_STORAGE_CLASS DLLEXPORT
-
-%PkgName%Stubs *%pkgname%StubsPtr;
-
- /*
- **----------------------------------------------------------------------
- **
- ** %PkgName%_InitStubs --
- **
- ** Checks that the correct version of %PkgName% is loaded and that it
- ** supports stubs. It then initialises the stub table pointers.
- **
- ** Results:
- ** The actual version of %PkgName% that satisfies the request, or
- ** NULL to indicate that an error occurred.
- **
- ** Side effects:
- ** Sets the stub table pointers.
- **
- **----------------------------------------------------------------------
- */
-
-char *
-%PkgName%_InitStubs (Tcl_Interp *interp, char *version, int exact)
-{
- char *actualVersion;
- actualVersion = Tcl_PkgRequireEx(interp, "%pkgname%", version, exact,(ClientData *) &%pkgname%StubsPtr);
- if (!actualVersion) {
- return NULL;
- }
- if (!%pkgname%StubsPtr) {
- Tcl_SetResult(interp,"This implementation of %PkgName% does not support stubs",TCL_STATIC);
- return NULL;
- }
- return actualVersion;
-}
-}]
- close $cout
- }
-
- # Backward compadible call
- method generate-make path {
- my build-Makefile $path [self]
- }
-
- method install-headers {} {
- set result {}
- return $result
- }
-
- method linktype {} {
- return library
- }
-
- # Create a "package ifneeded"
- # Args are a list of aliases for which this package will answer to
- method package-ifneeded {args} {
- set result {}
- set name [my define get pkg_name [my define get name]]
- set version [my define get pkg_vers [my define get version]]
- if {$version eq {}} {
- set version 0.1a
- }
- set output_tcl [my define get output_tcl]
- if {$output_tcl ne {}} {
- set script "\[list source \[file join \$dir $output_tcl\]\]"
- } elseif {[string is true -strict [my define get SHARED_BUILD]]} {
- set script "\[list load \[file join \$dir [my define get libfile]\] $name\]"
- } else {
- # Provide a null passthrough
- set script "\[list package provide $name $version\]"
- }
- set result "package ifneeded [list $name] [list $version] $script"
- foreach alias $args {
- set script "package require $name $version \; package provide $alias $version"
- append result \n\n [list package ifneeded $alias $version $script]
- }
- return $result
- }
-
-
- method shared_library {} {
- set name [string tolower [my define get name [my define get pkg_name]]]
- set NAME [string toupper $name]
- set version [my define get version [my define get pkg_vers]]
- set map {}
- lappend map %LIBRARY_NAME% $name
- lappend map %LIBRARY_VERSION% $version
- lappend map %LIBRARY_VERSION_NODOTS% [string map {. {}} $version]
- lappend map %LIBRARY_PREFIX% [my define getnull libprefix]
- set outfile [string map $map [my define get PRACTCL_NAME_LIBRARY]][my define get SHLIB_SUFFIX]
- return $outfile
- }
-}
-
-::oo::class create ::practcl::tclkit {
- superclass ::practcl::library
-
- method Collate_Source CWD {
- set name [my define get name]
- # Assume a static shell
- if {[my define exists SHARED_BUILD]} {
- my define exists SHARED_BUILD 0
- }
- if {![my define exists TCL_LOCAL_APPINIT]} {
- my define set TCL_LOCAL_APPINIT Tclkit_AppInit
- }
- if {![my define exists TCL_LOCAL_MAIN_HOOK]} {
- my define set TCL_LOCAL_MAIN_HOOK Tclkit_MainHook
- }
- set PROJECT [self]
- set os [$PROJECT define get TEACUP_OS]
- if {[my define get SHARED_BUILD]} {
- puts [list BUILDING TCLSH FOR OS $os]
- } else {
- puts [list BUILDING KIT FOR OS $os]
- }
- set TCLOBJ [$PROJECT project TCLCORE]
- set TCLSRCDIR [$TCLOBJ define get srcdir]
- set PKG_OBJS {}
- foreach item [$PROJECT link list core.library] {
- if {[string is true [$item define get static]]} {
- lappend PKG_OBJS $item
- }
- }
- foreach item [$PROJECT link list package] {
- if {[string is true [$item define get static]]} {
- lappend PKG_OBJS $item
- }
- }
- # Arrange to build an main.c that utilizes TCL_LOCAL_APPINIT and TCL_LOCAL_MAIN_HOOK
- if {$os eq "windows"} {
- set PLATFORM_SRC_DIR win
- if {[my define get SHARED_BUILD]} {
- my add class csource filename [file join $TCLSRCDIR win tclWinReg.c] initfunc Registry_Init pkg_name registry pkg_vers 1.3.1 autoload 1
- my add class csource filename [file join $TCLSRCDIR win tclWinDde.c] initfunc Dde_Init pkg_name dde pkg_vers 1.4.0 autoload 1
- }
- my add class csource ofile [my define get name]_appinit.o filename [file join $TCLSRCDIR win tclAppInit.c] extra [list -DTCL_LOCAL_MAIN_HOOK=[my define get TCL_LOCAL_MAIN_HOOK Tclkit_MainHook] -DTCL_LOCAL_APPINIT=[my define get TCL_LOCAL_APPINIT Tclkit_AppInit]]
- } else {
- set PLATFORM_SRC_DIR unix
- my add class csource ofile [my define get name]_appinit.o filename [file join $TCLSRCDIR unix tclAppInit.c] extra [list -DTCL_LOCAL_MAIN_HOOK=[my define get TCL_LOCAL_MAIN_HOOK Tclkit_MainHook] -DTCL_LOCAL_APPINIT=[my define get TCL_LOCAL_APPINIT Tclkit_AppInit]]
- }
-
- if {[my define get SHARED_BUILD]} {
- ###
- # Add local static Zlib implementation
- ###
- set cdir [file join $TCLSRCDIR compat zlib]
- foreach file {
- adler32.c compress.c crc32.c
- deflate.c infback.c inffast.c
- inflate.c inftrees.c trees.c
- uncompr.c zutil.c
- } {
- my add [file join $cdir $file]
- }
- }
- ###
- # Pre 8.7, Tcl doesn't include a Zipfs implementation
- # in the core. Grab the one from odielib
- ###
- set zipfs [file join $TCLSRCDIR generic tclZipfs.c]
- if {![$PROJECT define exists ZIPFS_VOLUME]} {
- $PROJECT define set ZIPFS_VOLUME "//zipfs:/"
- }
- $PROJECT code header "#define ZIPFS_VOLUME \"[$PROJECT define get ZIPFS_VOLUME]\""
- if {[file exists $zipfs]} {
- $TCLOBJ define set tip_430 1
- my define set tip_430 1
- } else {
- # The Tclconfig project maintains a mirror of the version
- # released with the Tcl core
- my define set tip_430 0
- ::practcl::LOCAL tool odie load
- set COMPATSRCROOT [::practcl::LOCAL tool odie define get srcdir]
- set cdir [file join $COMPATSRCROOT compat zipfs]
- my define add include_dir $cdir
- set zipfs [file join $cdir tclZipfs.c]
- my add class csource filename $zipfs initfunc Tclzipfs_Init pkg_name zipfs pkg_vers 1.1 autoload 1 extra "-DZIPFS_VOLUME=\"[$PROJECT define get ZIPFS_VOLUME]\""
- }
-
- my define add include_dir [file join $TCLSRCDIR generic]
- my define add include_dir [file join $TCLSRCDIR $PLATFORM_SRC_DIR]
- # This file will implement TCL_LOCAL_APPINIT and TCL_LOCAL_MAIN_HOOK
- my build-tclkit_main $PROJECT $PKG_OBJS
- }
-
- ## Wrap an executable
- #
- method wrap {PWD exename vfspath args} {
- cd $PWD
- if {![file exists $vfspath]} {
- file mkdir $vfspath
- }
- foreach item [my link list core.library] {
- set name [$item define get name]
- set libsrcdir [$item define get srcdir]
- if {[file exists [file join $libsrcdir library]]} {
- ::practcl::copyDir [file join $libsrcdir library] [file join $vfspath boot $name]
- }
- }
- # Assume the user will populate the VFS path
- #if {[my define get installdir] ne {}} {
- # ::practcl::copyDir [file join [my define get installdir] [string trimleft [my define get prefix] /] lib] [file join $vfspath lib]
- #}
- foreach arg $args {
- ::practcl::copyDir $arg $vfspath
- }
-
- set fout [open [file join $vfspath packages.tcl] w]
- puts $fout {
- set ::PKGIDXFILE [info script]
- set dir [file dirname $::PKGIDXFILE]
- }
- #set BASEVFS [my define get BASEVFS]
- set EXEEXT [my define get EXEEXT]
-
- set tclkit_bare [my define get tclkit_bare]
-
- set buffer [::practcl::pkgindex_path $vfspath]
- puts $fout $buffer
- puts $fout {
- # Advertise statically linked packages
- foreach {pkg script} [array get ::kitpkg] {
- eval $script
- }
- }
- close $fout
- ::practcl::mkzip ${exename}${EXEEXT} $tclkit_bare $vfspath
- if { [my define get TEACUP_OS] ne "windows" } {
- file attributes ${exename}${EXEEXT} -permissions a+x
- }
- }
-}
-
-###
-# Standalone class to manage code distribution
-# This class is intended to be mixed into another class
-# (Thus the lack of ancestors)
-###
-oo::class create ::practcl::distribution {
-
- method DistroMixIn {} {
- my define set scm none
- }
-
- method Sandbox {} {
- if {[my define exists sandbox]} {
- return [my define get sandbox]
- }
- if {[my organ project] ni {::noop {}}} {
- set sandbox [my <project> define get sandbox]
- if {$sandbox ne {}} {
- my define set sandbox $sandbox
- return $sandbox
- }
- }
- set sandbox [file normalize [file join $::CWD .. $pkg]]
- my define set sandbox $sandbox
- return $sandbox
- }
-
- method SrcDir {} {
- set pkg [my define get name]
- if {[my define exists srcdir]} {
- return [my define get srcdir]
- }
- set sandbox [my Sandbox]
- set srcdir [file join [my Sandbox] $pkg]
- my define set srcdir $srcdir
- return $srcdir
- }
-
- method ScmSelect {} {
- if {[my define exists scm]} {
- return [my define get scm]
- }
- set srcdir [my SrcDir]
- set classprefix ::practcl::distribution.
- if {[file exists $srcdir]} {
- foreach class [::info commands ${classprefix}*] {
- if {[$class claim_path $srcdir]} {
- oo::objdefine [self] mixin $class
- my define set scm [string range $class [string length ::practcl::distribution.] end]
- }
- }
- }
- foreach class [::info commands ${classprefix}*] {
- if {[$class claim_object [self]]} {
- oo::objdefine [self] mixin $class
- my define set scm [string range $class [string length ::practcl::distribution.] end]
- }
- }
- if {[my define get scm] eq {} && [my define exists file_url]} {
- set class
- }
-
- if {[my define get scm] eq {}} {
- error "No SCM selected"
- }
- return [my define get scm]
- }
-
- method ScmTag {} {}
- method ScmClone {} {}
- method ScmUnpack {} {}
- method ScmUpdate {} {}
-
- method unpack {} {
- my ScmSelect
- set srcdir [my SrcDir]
- if {[file exists $srcdir]} {
- return
- }
- set pkg [my define get name]
- if {[my define exists download]} {
- # Utilize a staged download
- set download [my define get download]
- if {[file exists [file join $download $pkg.zip]]} {
- ::practcl::tcllib_require zipfile::decode
- ::zipfile::decode::unzipfile [file join $download $pkg.zip] $srcdir
- return
- }
- }
- my ScmUnpack
- }
-
- method update {} {
- my ScmSelect
- my ScmUpdate
- }
-}
-
-oo::objdefine ::practcl::distribution {
- method claim_path path {
- return false
- }
- method claim_object object {
- return false
- }
-}
-
-oo::class create ::practcl::distribution.snapshot {
- superclass ::practcl::distribution
- method ScmUnpack {} {
- set srcdir [my SrcDir]
- if {[file exists [file join $srcdir .download]]} {
- return 0
- }
- set dpath [::practcl::LOCAL define get download]
- set url [my define get file_url]
- set fname [file tail $url]
- set archive [file join $dpath $fname]
- if {![file exists $archive]} {
- ::http::wget $url $archive
- }
- set CWD [pwd]
- switch [file extension $fname] {
- .zip {
- # Zipfile
-
- }
- .tar {
- ::practcl::tcllib_require tar
- }
- .tgz -
- .gz {
- # Tarball
- ::practcl::tcllib_require tcl::transform::zlib
- ::practcl::tcllib_require tar
- set fh [::open $archive]
- fconfigure $fh -encoding binary -translation lf -eofchar {}
- ::tcl::transform::zlib $fh
- }
- }
- set fosdb [my ScmClone]
- set tag [my ScmTag]
- file mkdir $srcdir
- ::practcl::fossil $srcdir open $fosdb $tag
- return 1
- }
-}
-
-oo::objdefine ::practcl::distribution.snapshot {
- method claim_path path {
- if {[file exists [file join $path .download]]} {
- return true
- }
- return false
- }
- method claim_object object {
- return false
- }
-}
-
-
-oo::class create ::practcl::distribution.fossil {
- superclass ::practcl::distribution
-
- # Clone the source
- method ScmClone {} {
- set srcdir [my SrcDir]
- if {[file exists [file join $srcdir .fslckout]]} {
- return
- }
- if {[file exists [file join $srcdir _FOSSIL_]]} {
- return
- }
- if {![::info exists ::practcl::fossil_dbs]} {
- # Get a list of local fossil databases
- set ::practcl::fossil_dbs [exec fossil all list]
- }
- set pkg [my define get name]
- # Return an already downloaded fossil repo
- foreach line [split $::practcl::fossil_dbs \n] {
- set line [string trim $line]
- if {[file rootname [file tail $line]] eq $pkg} {
- return $line
- }
- }
- set download [::practcl::LOCAL define get download]
- set fosdb [file join $download $pkg.fos]
- if {[file exists $fosdb]} {
- return $fosdb
- }
-
- file mkdir [file join $download fossil]
- set fosdb [file join $download fossil $pkg.fos]
- if {[file exists $fosdb]} {
- return $fosdb
- }
-
- set cloned 0
- # Attempt to clone from a local network mirror
- if {[::practcl::LOCAL define exists fossil_mirror]} {
- set localmirror [::practcl::LOCAL define get fossil_mirror]
- catch {
- ::practcl::doexec fossil clone $localmirror/$pkg $fosdb
- set cloned 1
- }
- if {$cloned} {
- return $fosdb
- }
- }
- # Attempt to clone from the canonical source
- if {[my define get fossil_url] ne {}} {
- catch {
- ::practcl::doexec fossil clone [my define get fossil_url] $fosdb
- set cloned 1
- }
- if {$cloned} {
- return $fosdb
- }
- }
- # Fall back to the fossil mirror on the island of misfit toys
- ::practcl::doexec fossil clone http://fossil.etoyoc.com/fossil/$pkg $fosdb
- return $fosdb
- }
-
- method ScmTag {} {
- if {[my define exists scm_tag]} {
- return [my define get scm_tag]
- }
- if {[my define exists tag]} {
- set tag [my define get tag]
- } else {
- set tag trunk
- }
- my define set scm_tag $tag
- return $tag
- }
-
- method ScmUnpack {} {
- set srcdir [my SrcDir]
- if {[file exists [file join $srcdir .fslckout]]} {
- return 0
- }
- if {[file exists [file join $srcdir _FOSSIL_]]} {
- return 0
- }
- set CWD [pwd]
- set fosdb [my ScmClone]
- set tag [my ScmTag]
- file mkdir $srcdir
- ::practcl::fossil $srcdir open $fosdb $tag
- return 1
- }
-
- method ScmUpdate {} {
- if {[my ScmUnpack]} {
- return
- }
- set srcdir [my SrcDir]
- set tag [my ScmTag]
- ::practcl::fossil $srcdir update $tag
- }
-}
-
-oo::objdefine ::practcl::distribution.fossil {
-
- # Check for markers in the source root
- method claim_path path {
- if {[file exists [file join $path .fslckout]]} {
- return true
- }
- if {[file exists [file join $path _FOSSIL_]]} {
- return true
- }
- return false
- }
-
- # Check for markers in the metadata
- method claim_object obj {
- set path [$obj define get srcdir]
- if {[my claim_path $path]} {
- return true
- }
- if {[$obj define get fossil_url] ne {}} {
- return true
- }
- return false
- }
-}
-
-oo::class create ::practcl::distribution.git {
-
- method ScmTag {} {
- if {[my define exists scm_tag]} {
- return [my define get scm_tag]
- }
- if {[my define exists tag]} {
- set tag [my define get tag]
- } else {
- set tag master
- }
- my define set scm_tag $tag
- return $tag
- }
-
- method ScmUnpack {} {
- set srcdir [my SrcDir]
- if {[file exists [file join $srcdir .git]]} {
- return 0
- }
- set CWD [pwd]
- set tag [my ScmTag]
- set pkg [my define get name]
- if {[my define exists git_url]} {
- ::practcl::doexec git clone --branch $tag [my define get git_url] $srcdir
- } else {
- ::practcl::doexec git clone --branch $tag https://github.com/eviltwinskippy/$pkg $srcdir
- }
- return 1
- }
-
- method ScmUpdate {} {
- if {[my ScmUnpack]} {
- return
- }
- set srcdir [my SrcDir]
- set tag [my ScmTag]
- ::practcl::doexec_in $srcdir git pull $tag
- cd $CWD
- }
-
-}
-oo::objdefine ::practcl::distribution.git {
- method claim_path path {
- if {[file exists [file join $path .git]]} {
- return true
- }
- return false
- }
- method claim_object obj {
- set path [$obj define get srcdir]
- if {[my claim_path $path]} {
- return true
- }
- if {[$obj define get git_url] ne {}} {
- return true
- }
- return false
- }
-}
-
-###
-# Meta repository
-# The default is an inert source code block
-###
-oo::class create ::practcl::subproject {
- superclass ::practcl::object ::practcl::distribution
-
- method compile {} {}
-
- method critcl args {
- if {![info exists critcl]} {
- ::pratcl::LOCAL tool critcl load
- set critcl [file join [::pratcl::LOCAL tool critcl define get srcdir] main.tcl
- }
- set srcdir [my SourceRoot]
- set PWD [pwd]
- cd $srcdir
- ::pratcl::dotclexec $critcl {*}$args
- cd $PWD
- }
-
- method go {} {
- set name [my define get name]
- set srcdir [my SrcDir]
- my define set localsrcdir $srcdir
- my define add include_dir [file join $srcdir generic]
- my sources
- }
-
- # Install project into the local build system
- method install args {}
-
- method linktype {} {
- return {subordinate package}
- }
-
- method linker-products {configdict} {}
-
- method linker-external {configdict} {
- if {[dict exists $configdict PRACTCL_PKG_LIBS]} {
- return [dict get $configdict PRACTCL_PKG_LIBS]
- }
- }
-
- method sources {} {}
-}
-
-###
-# A project which the kit compiles and integrates
-# the source for itself
-###
-oo::class create ::practcl::subproject.source {
- superclass ::practcl::subproject ::practcl::library
-
- method linktype {} {
- return {subordinate package source}
- }
-
-}
-
-# a copy from the teapot
-oo::class create ::practcl::subproject.teapot {
- superclass ::practcl::subproject
-
- method install-local {} {
- my install-vfs
- }
-
- method install DEST {
- set pkg [my define get pkg_name [my define get name]]
- set download [my <project> define get download]
- my unpack
- set prefix [string trimleft [my <project> define get prefix] /]
- ::practcl::tcllib_require zipfile::decode
- ::zipfile::decode::unzipfile [file join $download $pkg.zip] [file join $DEST $prefix lib $pkg]
- }
-}
-
-oo::class create ::practcl::subproject.kettle {
- superclass ::practcl::subproject
-
- method install-local {} {
- my install-vfs
- }
-
- method kettle {path args} {
- my variable kettle
- if {![info exists kettle]} {
- ::pratcl::LOCAL tool kettle load
- set kettle [file join [::pratcl::LOCAL tool kettle define get srcdir] kettle]
- }
- set srcdir [my SourceRoot]
- ::pratcl::dotclexec $kettle -f [file join $srcdir build.tcl] {*}$args
- }
-
- method install DEST {
- my kettle reinstall --prefix $DEST
- }
-}
-
-oo::class create ::practcl::subproject.critcl {
- superclass ::practcl::subproject
-
- method install-local {} {
- my install-vfs
- }
-
- method install DEST {
- my critcl -pkg [my define get name]
- set srcdir [my SourceRoot]
- ::pratcl::copyDir [file join $srcdir [my define get name]] [file join $DEST lib [my define get name]]
- }
-}
-
-
-oo::class create ::practcl::subproject.sak {
- superclass ::practcl::subproject
-
- method install-local {} {
- my install-vfs
- }
-
- method install DEST {
- ###
- # Handle teapot installs
- ###
- set pkg [my define get pkg_name [my define get name]]
- my unpack
- set prefix [string trimleft [my <project> define get prefix] /]
- set srcdir [my define get srcdir]
- ::practcl::dotclexec [file join $srcdir installer.tcl] \
- -pkg-path [file join $DEST $prefix lib $pkg] \
- -no-examples -no-html -no-nroff \
- -no-wait -no-gui -no-apps
- }
-}
-
-###
-# A binary package
-###
-oo::class create ::practcl::subproject.binary {
- superclass ::practcl::subproject ::practcl::autoconf
-
- method compile-products {} {}
-
- method ConfigureOpts {} {
- set opts {}
- set builddir [my define get builddir]
- if {[my define get broken_destroot 0]} {
- set PREFIX [my <project> define get prefix_broken_destdir]
- } else {
- set PREFIX [my <project> define get prefix]
- }
- if {[my <project> define get CONFIG_SITE] != {}} {
- lappend opts --host=[my <project> define get HOST]
- lappend opts --with-tclsh=[info nameofexecutable]
- }
- if {[my <project> define exists tclsrcdir]} {
- ###
- # On Windows we are probably running under MSYS, which doesn't deal with
- # spaces in filename well
- ###
- set TCLSRCDIR [::practcl::file_relative [file normalize $builddir] [file normalize [file join $::CWD [my <project> define get tclsrcdir]]]]
- set TCLGENERIC [::practcl::file_relative [file normalize $builddir] [file normalize [file join $::CWD [my <project> define get tclsrcdir] .. generic]]]
- lappend opts --with-tcl=$TCLSRCDIR --with-tclinclude=$TCLGENERIC
- }
- if {[my <project> define exists tksrcdir]} {
- set TKSRCDIR [::practcl::file_relative [file normalize $builddir] [file normalize [file join $::CWD [my <project> define get tksrcdir]]]]
- set TKGENERIC [::practcl::file_relative [file normalize $builddir] [file normalize [file join $::CWD [my <project> define get tksrcdir] .. generic]]]
- lappend opts --with-tk=$TKSRCDIR --with-tkinclude=$TKGENERIC
- }
- lappend opts {*}[my define get config_opts]
- if {![regexp -- "--prefix" $opts]} {
- lappend opts --prefix=$PREFIX
- }
- #--exec_prefix=$PREFIX
- #if {$::tcl_platform(platform) eq "windows"} {
- # lappend opts --disable-64bit
- #}
- if {[my define get static 1]} {
- lappend opts --disable-shared --disable-stubs
- #
- } else {
- lappend opts --enable-shared
- }
- return $opts
- }
-
- method ComputeInstall {} {
- if {[my define exists install]} {
- switch [my define get install] {
- static {
- my define set static 1
- my define set autoload 0
- }
- static-autoload {
- my define set static 1
- my define set autoload 1
- }
- vfs {
- my define set static 0
- my define set autoload 0
- my define set vfsinstall 1
- }
- null {
- my define set static 0
- my define set autoload 0
- my define set vfsinstall 0
- }
- default {
-
- }
- }
- }
- }
-
- method go {} {
- next
- my ComputeInstall
- my define set builddir [my BuildDir [my define get masterpath]]
- }
-
- method linker-products {configdict} {
- if {![my define get static 0]} {
- return {}
- }
- set srcdir [my define get builddir]
- if {[dict exists $configdict libfile]} {
- return " [file join $srcdir [dict get $configdict libfile]]"
- }
- }
-
- method static-packages {} {
- if {![my define get static 0]} {
- return {}
- }
- set result [my define get static_packages]
- set statpkg [my define get static_pkg]
- set initfunc [my define get initfunc]
- if {$initfunc ne {}} {
- set pkg_name [my define get pkg_name]
- if {$pkg_name ne {}} {
- dict set result $pkg_name initfunc $initfunc
- set version [my define get version]
- if {$version eq {}} {
- set info [my config.sh]
- set version [dict get $info version]
- set pl {}
- if {[dict exists $info patch_level]} {
- set pl [dict get $info patch_level]
- append version $pl
- }
- my define set version $version
- }
- dict set result $pkg_name version $version
- dict set result $pkg_name autoload [my define get autoload 0]
- }
- }
- foreach item [my link list subordinate] {
- foreach {pkg info} [$item static-packages] {
- dict set result $pkg $info
- }
- }
- return $result
- }
-
- method BuildDir {PWD} {
- set name [my define get name]
- return [my define get builddir [file join $PWD pkg.$name]]
- }
-
- method compile {} {
- set name [my define get name]
- set PWD $::CWD
- cd $PWD
- my unpack
- set srcdir [file normalize [my SrcDir]]
- my Collate_Source $PWD
-
- ###
- # Build a starter VFS for both Tcl and wish
- ###
- set srcdir [my define get srcdir]
- if {[my define get static 1]} {
- puts "BUILDING Static $name $srcdir"
- } else {
- puts "BUILDING Dynamic $name $srcdir"
- }
- if {[my define get USEMSVC 0]} {
- cd $srcdir
- ::practcl::doexec nmake -f makefile.vc INSTALLDIR=[my <project> define get installdir] release
- } else {
- cd $::CWD
- set builddir [file normalize [my define get builddir]]
- file mkdir $builddir
- if {![file exists [file join $builddir Makefile]]} {
- my Configure
- }
- if {[file exists [file join $builddir make.tcl]]} {
- ::practcl::domake.tcl $builddir library
- } else {
- ::practcl::domake $builddir all
- }
- }
- cd $PWD
- }
-
- method Configure {} {
- cd $::CWD
- my unpack
- set srcdir [file normalize [my define get srcdir]]
- set builddir [file normalize [my define get builddir]]
- file mkdir $builddir
- if {[my define get USEMSVC 0]} {
- return
- }
- if {[file exists [file join $builddir practcl.log]]} {
- file delete [file join $builddir practcl.log]
- }
- if {![file exists [file join $srcdir configure]]} {
- if {[file exists [file join $srcdir autogen.sh]]} {
- cd $srcdir
- catch {exec sh autogen.sh >>& [file join $builddir practcl.log]}
- cd $::CWD
- }
- }
- if {![file exists [file join $srcdir tclconfig install-sh]]} {
- # ensure we have tclconfig with all of the trimmings
- set teapath {}
- if {[file exists [file join $srcdir .. tclconfig install-sh]]} {
- set teapath [file join $srcdir .. tclconfig]
- } else {
- set tclConfigObj [::practcl::LOCAL tool tclconfig]
- $tclConfigObj load
- set teapath [$tclConfigObj define get srcdir]
- }
- set teapath [file normalize $teapath]
- #file mkdir [file join $srcdir tclconfig]
- if {[catch {file link -symbolic [file join $srcdir tclconfig] $teapath}]} {
- ::practcl::copyDir [file join $teapath] [file join $srcdir tclconfig]
- }
- }
-
- set opts [my ConfigureOpts]
- puts [list PKG [my define get name] CONFIGURE {*}$opts]
- cd $builddir
- if {[my <project> define get CONFIG_SITE] ne {}} {
- set ::env(CONFIG_SITE) [my <project> define get CONFIG_SITE]
- }
- catch {exec sh [file join $srcdir configure] {*}$opts >>& [file join $builddir practcl.log]}
- cd $::CWD
- }
-
- method install DEST {
- set PWD [pwd]
- set PREFIX [my <project> define get prefix]
- ###
- # Handle teapot installs
- ###
- set pkg [my define get pkg_name [my define get name]]
- if {[my <project> define get teapot] ne {}} {
- set TEAPOT [my <project> define get teapot]
- set found 0
- foreach ver [my define get pkg_vers [my define get version]] {
- set teapath [file join $TEAPOT $pkg$ver]
- if {[file exists $teapath]} {
- set dest [file join $DEST [string trimleft $PREFIX /] lib [file tail $teapath]]
- ::practcl::copyDir $teapath $dest
- return
- }
- }
- }
- my compile
- if {[my define get USEMSVC 0]} {
- set srcdir [my define get srcdir]
- cd $srcdir
- puts "[self] VFS INSTALL $DEST"
- ::practcl::doexec nmake -f makefile.vc INSTALLDIR=$DEST install
- } else {
- set builddir [my define get builddir]
- if {[file exists [file join $builddir make.tcl]]} {
- # Practcl builds can inject right to where we need them
- puts "[self] VFS INSTALL $DEST (Practcl)"
- ::practcl::domake.tcl $builddir install-package $DEST
- } elseif {[my define get broken_destroot 0] == 0} {
- # Most modern TEA projects understand DESTROOT in the makefile
- puts "[self] VFS INSTALL $DEST (TEA)"
- ::practcl::domake $builddir install DESTDIR=$DEST
- } else {
- # But some require us to do an install into a fictitious filesystem
- # and then extract the gooey parts within.
- # (*cough*) TkImg
- set PREFIX [my <project> define get prefix]
- set BROKENROOT [::practcl::msys_to_tclpath [my <project> define get prefix_broken_destdir]]
- file delete -force $BROKENROOT
- file mkdir $BROKENROOT
- ::practcl::domake $builddir $install
- ::practcl::copyDir $BROKENROOT [file join $DEST [string trimleft $PREFIX /]]
- file delete -force $BROKENROOT
- }
- }
- cd $PWD
- }
-
- method Autoconf {} {
- ###
- # Re-run autoconf for this project
- # Not a good idea in practice... but in the right hands it can be useful
- ###
- set pwd [pwd]
- set srcdir [file normalize [my define get srcdir]]
- cd $srcdir
- foreach template {configure.ac configure.in} {
- set input [file join $srcdir $template]
- if {[file exists $input]} {
- puts "autoconf -f $input > [file join $srcdir configure]"
- exec autoconf -f $input > [file join $srcdir configure]
- }
- }
- cd $pwd
- }
-}
-
-# An external library
-oo::class create ::practcl::subproject.external {
- superclass ::practcl::subproject.binary
- method install DEST {
- my compile
- }
-}
-
-oo::class create ::practcl::subproject.core {
- superclass ::practcl::subproject.binary
-
- # On the windows platform MinGW must build
- # from the platform directory in the source repo
- method BuildDir {PWD} {
- return [my define get localsrcdir]
- }
-
- method Configure {} {
- if {[my define get USEMSVC 0]} {
- return
- }
- set opts [my ConfigureOpts]
- set builddir [file normalize [my define get builddir]]
- set localsrcdir [file normalize [my define get localsrcdir]]
- puts [list PKG [my define get name] CONFIGURE {*}$opts]
- cd $localsrcdir
- if {[my <project> define get CONFIG_SITE] ne {}} {
- set ::env(CONFIG_SITE) [my <project> define get CONFIG_SITE]
- }
- catch {exec sh [file join $localsrcdir configure] {*}$opts >& [file join $builddir practcl.log]}
- }
-
- method ConfigureOpts {} {
- set opts {}
- set builddir [file normalize [my define get builddir]]
- set PREFIX [my <project> define get prefix]
- if {[my <project> define get CONFIG_SITE] != {}} {
- lappend opts --host=[my <project> define get HOST]
- lappend opts --with-tclsh=[info nameofexecutable]
- }
- lappend opts {*}[my define get config_opts]
- if {![regexp -- "--prefix" $opts]} {
- lappend opts --prefix=$PREFIX
- }
- #--exec_prefix=$PREFIX
- lappend opts --disable-shared
- return $opts
- }
-
- method go {} {
- set name [my define get name]
- set os [my <project> define get TEACUP_OS]
- my ComputeInstall
- set srcdir [my SrcDir]
- my define add include_dir [file join $srcdir generic]
- switch $os {
- windows {
- my define set localsrcdir [file join $srcdir win]
- my define add include_dir [file join $srcdir win]
- }
- default {
- my define set localsrcdir [file join $srcdir unix]
- my define add include_dir [file join $srcdir $name unix]
- }
- }
- my define set builddir [my BuildDir [my define get masterpath]]
- }
-
- method linktype {} {
- return {subordinate core.library}
- }
-}
-
-
-###
-# Classes to manage tools that needed in the local environment
-# to compile and/or installed other packages
-###
-oo::class create ::practcl::tool {
- superclass ::practcl::object ::practcl::distribution
-
- method critcl args {
- if {![info exists critcl]} {
- ::pratcl::LOCAL tool critcl load
- set critcl [file join [::pratcl::LOCAL tool critcl define get srcdir] main.tcl
- }
- set srcdir [my SourceRoot]
- set PWD [pwd]
- cd $srcdir
- ::pratcl::dotclexec $critcl {*}$args
- cd $PWD
- }
-
- method SourceRoot {} {
- set info [my define dump]
- set result $info
- if {![my define exists srcdir]} {
- if {[dict exists $info srcdir]} {
- set srcdir [dict get $info srcdir]
- } elseif {[dict exists $info sandbox]} {
- set srcdir [file join [dict get $info sandbox] $pkg]
- } else {
- set srcdir [file join $::CWD .. $pkg]
- }
- dict set result srcdir $srcdir
- my define set srcdir $srcdir
- }
- return [my define get srcdir]
- }
-
- method linktype {} {
- return tool
- }
-
- # Return boolean if present
- method present {} {
- return 1
- }
-
- # Procedure to install in the local environment
- method install {} {
- my unpack
- }
-
- # Procedure to load into the local interpreter
- method load {} {
- my variable loaded
- if {[info exists loaded]} {
- return 0
- }
- if {![my present]} {
- my install
- }
- my LocalLoad
- set loaded 1
- }
-
- method LocalLoad {} {}
-}
-
-oo::class create ::practcl::tool.source {
- superclass ::practcl::tool
-
- method present {} {
- return [file exists [my define get srcdir]]
- }
-
- method toplevel_script {} {
- my load
- return [file join [my SourceRoot] [my define get toplevel_script]]
- }
-
- method LocalLoad {} {
- set LibraryRoot [file join [my define get srcdir] [my define get module_root modules]]
- if {[file exists $LibraryRoot] && $LibraryRoot ni $::auto_path} {
- set ::auto_path [linsert $::auto_path 0 $LibraryRoot]
- }
- }
-}
-
-###
-# Create an object to represent the local environment
-###
-set ::practcl::MAIN ::practcl::LOCAL
-# Defer the creation of the ::pratcl::LOCAL object until it is called
-# in order to allow packages to
-set ::auto_index(::practcl::LOCAL) {
- puts "Building LOCAL"
- ::practcl::project create ::practcl::LOCAL
- ::practcl::LOCAL define set [::practcl::local_os]
- # Until something better comes along, use ::practcl::LOCAL
- # as our main project
- # Add tclconfig as a project of record
- ::practcl::LOCAL add_tool tclconfig {
- tag trunk class tool.source fossil_url http://core.tcl.tk/tclconfig
- }
- # Add tcllib as a project of record
- ::practcl::LOCAL add_tool tcllib {
- tag trunk class tool.source fossil_url http://core.tcl.tk/tcllib
- }
- ::practcl::LOCAL add_tool kettle {
- tag trunk class tool.source fossil_url http://fossil.etoyoc.com/fossil/kettle
- }
- ::practcl::LOCAL add_tool critcl {
- tag trunk class tool.source
- git_url http://github.com/andreas-kupries/critcl
- }
- ::practcl::LOCAL add_tool odie {
- tag trunk class tool.source
- fossil_url http://fossil.etoyoc.com/fossil/odie
- }
-}
-package provide practcl 0.8a1
diff --git a/ds9/tclconfig/tcl.m4 b/ds9/tclconfig/tcl.m4
deleted file mode 100644
index b07ec54..0000000
--- a/ds9/tclconfig/tcl.m4
+++ /dev/null
@@ -1,4456 +0,0 @@
-# tcl.m4 --
-#
-# This file provides a set of autoconf macros to help TEA-enable
-# a Tcl extension.
-#
-# Copyright (c) 1999-2000 Ajuba Solutions.
-# Copyright (c) 2002-2005 ActiveState Corporation.
-#
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-
-AC_PREREQ(2.57)
-
-dnl TEA extensions pass us the version of TEA they think they
-dnl are compatible with (must be set in TEA_INIT below)
-dnl TEA_VERSION="3.10"
-
-# Possible values for key variables defined:
-#
-# TEA_WINDOWINGSYSTEM - win32 aqua x11 (mirrors 'tk windowingsystem')
-# PRACTCL_WINDOWINGSYSTEM - windows cocoa hitheme x11 sdl
-# TEA_PLATFORM - windows unix
-# TEA_TK_EXTENSION - True if this is a Tk extension
-# TEACUP_OS - windows macosx linux generic
-# TEACUP_TOOLSET - Toolset in use (gcc,mingw,msvc,llvm)
-# TEACUP_PROFILE - win32
-#
-
-#------------------------------------------------------------------------
-# TEA_PATH_TCLCONFIG --
-#
-# Locate the tclConfig.sh file and perform a sanity check on
-# the Tcl compile flags
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Adds the following arguments to configure:
-# --with-tcl=...
-#
-# Defines the following vars:
-# TCL_BIN_DIR Full path to the directory containing
-# the tclConfig.sh file
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PATH_TCLCONFIG], [
- dnl TEA specific: Make sure we are initialized
- AC_REQUIRE([TEA_INIT])
- #
- # Ok, lets find the tcl configuration
- # First, look for one uninstalled.
- # the alternative search directory is invoked by --with-tcl
- #
-
- if test x"${no_tcl}" = x ; then
- # we reset no_tcl in case something fails here
- no_tcl=true
- AC_ARG_WITH(tcl,
- AC_HELP_STRING([--with-tcl],
- [directory containing tcl configuration (tclConfig.sh)]),
- with_tclconfig="${withval}")
- AC_MSG_CHECKING([for Tcl configuration])
- AC_CACHE_VAL(ac_cv_c_tclconfig,[
-
- # First check to see if --with-tcl was specified.
- if test x"${with_tclconfig}" != x ; then
- case "${with_tclconfig}" in
- */tclConfig.sh )
- if test -f "${with_tclconfig}"; then
- AC_MSG_WARN([--with-tcl argument should refer to directory containing tclConfig.sh, not to tclConfig.sh itself])
- with_tclconfig="`echo "${with_tclconfig}" | sed 's!/tclConfig\.sh$!!'`"
- fi ;;
- esac
- if test -f "${with_tclconfig}/tclConfig.sh" ; then
- ac_cv_c_tclconfig="`(cd "${with_tclconfig}"; pwd)`"
- else
- AC_MSG_ERROR([${with_tclconfig} directory doesn't contain tclConfig.sh])
- fi
- fi
-
- # then check for a private Tcl installation
- if test x"${ac_cv_c_tclconfig}" = x ; then
- for i in \
- ../tcl \
- `ls -dr ../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
- `ls -dr ../tcl[[8-9]].[[0-9]] 2>/dev/null` \
- `ls -dr ../tcl[[8-9]].[[0-9]]* 2>/dev/null` \
- ../../tcl \
- `ls -dr ../../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
- `ls -dr ../../tcl[[8-9]].[[0-9]] 2>/dev/null` \
- `ls -dr ../../tcl[[8-9]].[[0-9]]* 2>/dev/null` \
- ../../../tcl \
- `ls -dr ../../../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
- `ls -dr ../../../tcl[[8-9]].[[0-9]] 2>/dev/null` \
- `ls -dr ../../../tcl[[8-9]].[[0-9]]* 2>/dev/null` ; do
- if test "${TEA_PLATFORM}" = "windows" \
- -a -f "$i/win/tclConfig.sh" ; then
- ac_cv_c_tclconfig="`(cd $i/win; pwd)`"
- break
- fi
- if test -f "$i/unix/tclConfig.sh" ; then
- ac_cv_c_tclconfig="`(cd $i/unix; pwd)`"
- break
- fi
- done
- fi
-
- # on Darwin, check in Framework installation locations
- if test "`uname -s`" = "Darwin" -a x"${ac_cv_c_tclconfig}" = x ; then
- for i in `ls -d ~/Library/Frameworks 2>/dev/null` \
- `ls -d /Library/Frameworks 2>/dev/null` \
- `ls -d /Network/Library/Frameworks 2>/dev/null` \
- `ls -d /System/Library/Frameworks 2>/dev/null` \
- ; do
- if test -f "$i/Tcl.framework/tclConfig.sh" ; then
- ac_cv_c_tclconfig="`(cd $i/Tcl.framework; pwd)`"
- break
- fi
- done
- fi
-
- # TEA specific: on Windows, check in common installation locations
- if test "${TEA_PLATFORM}" = "windows" \
- -a x"${ac_cv_c_tclconfig}" = x ; then
- for i in `ls -d C:/Tcl/lib 2>/dev/null` \
- `ls -d C:/Progra~1/Tcl/lib 2>/dev/null` \
- ; do
- if test -f "$i/tclConfig.sh" ; then
- ac_cv_c_tclconfig="`(cd $i; pwd)`"
- break
- fi
- done
- fi
-
- # check in a few common install locations
- if test x"${ac_cv_c_tclconfig}" = x ; then
- for i in `ls -d ${libdir} 2>/dev/null` \
- `ls -d ${exec_prefix}/lib 2>/dev/null` \
- `ls -d ${prefix}/lib 2>/dev/null` \
- `ls -d /usr/contrib/lib 2>/dev/null` \
- `ls -d /usr/local/lib 2>/dev/null` \
- `ls -d /usr/pkg/lib 2>/dev/null` \
- `ls -d /usr/lib 2>/dev/null` \
- `ls -d /usr/lib64 2>/dev/null` \
- `ls -d /usr/lib/tcl8.6 2>/dev/null` \
- `ls -d /usr/lib/tcl8.5 2>/dev/null` \
- ; do
- if test -f "$i/tclConfig.sh" ; then
- ac_cv_c_tclconfig="`(cd $i; pwd)`"
- break
- fi
- done
- fi
-
- # check in a few other private locations
- if test x"${ac_cv_c_tclconfig}" = x ; then
- for i in \
- ${srcdir}/../tcl \
- `ls -dr ${srcdir}/../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
- `ls -dr ${srcdir}/../tcl[[8-9]].[[0-9]] 2>/dev/null` \
- `ls -dr ${srcdir}/../tcl[[8-9]].[[0-9]]* 2>/dev/null` ; do
- if test "${TEA_PLATFORM}" = "windows" \
- -a -f "$i/win/tclConfig.sh" ; then
- ac_cv_c_tclconfig="`(cd $i/win; pwd)`"
- break
- fi
- if test -f "$i/unix/tclConfig.sh" ; then
- ac_cv_c_tclconfig="`(cd $i/unix; pwd)`"
- break
- fi
- done
- fi
- ])
-
- if test x"${ac_cv_c_tclconfig}" = x ; then
- TCL_BIN_DIR="# no Tcl configs found"
- AC_MSG_ERROR([Can't find Tcl configuration definitions. Use --with-tcl to specify a directory containing tclConfig.sh])
- else
- no_tcl=
- TCL_BIN_DIR="${ac_cv_c_tclconfig}"
- AC_MSG_RESULT([found ${TCL_BIN_DIR}/tclConfig.sh])
- fi
- fi
-])
-
-#------------------------------------------------------------------------
-# TEA_PATH_TKCONFIG --
-#
-# Locate the tkConfig.sh file
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Adds the following arguments to configure:
-# --with-tk=...
-#
-# Defines the following vars:
-# TK_BIN_DIR Full path to the directory containing
-# the tkConfig.sh file
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PATH_TKCONFIG], [
- #
- # Ok, lets find the tk configuration
- # First, look for one uninstalled.
- # the alternative search directory is invoked by --with-tk
- #
-
- if test x"${no_tk}" = x ; then
- # we reset no_tk in case something fails here
- no_tk=true
- TEA_TK_EXTENSION=0
- AC_ARG_WITH(tk,
- AC_HELP_STRING([--with-tk],
- [directory containing tk configuration (tkConfig.sh)]),
- with_tkconfig="${withval}")
- AC_MSG_CHECKING([for Tk configuration])
- AC_CACHE_VAL(ac_cv_c_tkconfig,[
-
- # First check to see if --with-tkconfig was specified.
- if test x"${with_tkconfig}" != x ; then
- case "${with_tkconfig}" in
- */tkConfig.sh )
- if test -f "${with_tkconfig}"; then
- AC_MSG_WARN([--with-tk argument should refer to directory containing tkConfig.sh, not to tkConfig.sh itself])
- with_tkconfig="`echo "${with_tkconfig}" | sed 's!/tkConfig\.sh$!!'`"
- fi ;;
- esac
- if test -f "${with_tkconfig}/tkConfig.sh" ; then
- ac_cv_c_tkconfig="`(cd "${with_tkconfig}"; pwd)`"
- else
- AC_MSG_ERROR([${with_tkconfig} directory doesn't contain tkConfig.sh])
- fi
- fi
-
- # then check for a private Tk library
- if test x"${ac_cv_c_tkconfig}" = x ; then
- for i in \
- ../tk \
- `ls -dr ../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
- `ls -dr ../tk[[8-9]].[[0-9]] 2>/dev/null` \
- `ls -dr ../tk[[8-9]].[[0-9]]* 2>/dev/null` \
- ../../tk \
- `ls -dr ../../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
- `ls -dr ../../tk[[8-9]].[[0-9]] 2>/dev/null` \
- `ls -dr ../../tk[[8-9]].[[0-9]]* 2>/dev/null` \
- ../../../tk \
- `ls -dr ../../../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
- `ls -dr ../../../tk[[8-9]].[[0-9]] 2>/dev/null` \
- `ls -dr ../../../tk[[8-9]].[[0-9]]* 2>/dev/null` ; do
- if test "${TEA_PLATFORM}" = "windows" \
- -a -f "$i/win/tkConfig.sh" ; then
- ac_cv_c_tkconfig="`(cd $i/win; pwd)`"
- break
- fi
- if test -f "$i/unix/tkConfig.sh" ; then
- ac_cv_c_tkconfig="`(cd $i/unix; pwd)`"
- break
- fi
- done
- fi
-
- # on Darwin, check in Framework installation locations
- if test "`uname -s`" = "Darwin" -a x"${ac_cv_c_tkconfig}" = x ; then
- for i in `ls -d ~/Library/Frameworks 2>/dev/null` \
- `ls -d /Library/Frameworks 2>/dev/null` \
- `ls -d /Network/Library/Frameworks 2>/dev/null` \
- `ls -d /System/Library/Frameworks 2>/dev/null` \
- ; do
- if test -f "$i/Tk.framework/tkConfig.sh" ; then
- ac_cv_c_tkconfig="`(cd $i/Tk.framework; pwd)`"
- break
- fi
- done
- fi
-
- # check in a few common install locations
- if test x"${ac_cv_c_tkconfig}" = x ; then
- for i in `ls -d ${libdir} 2>/dev/null` \
- `ls -d ${exec_prefix}/lib 2>/dev/null` \
- `ls -d ${prefix}/lib 2>/dev/null` \
- `ls -d /usr/local/lib 2>/dev/null` \
- `ls -d /usr/contrib/lib 2>/dev/null` \
- `ls -d /usr/lib 2>/dev/null` \
- `ls -d /usr/lib64 2>/dev/null` \
- ; do
- if test -f "$i/tkConfig.sh" ; then
- ac_cv_c_tkconfig="`(cd $i; pwd)`"
- break
- fi
- done
- fi
-
- # TEA specific: on Windows, check in common installation locations
- if test "${TEA_PLATFORM}" = "windows" \
- -a x"${ac_cv_c_tkconfig}" = x ; then
- for i in `ls -d C:/Tcl/lib 2>/dev/null` \
- `ls -d C:/Progra~1/Tcl/lib 2>/dev/null` \
- ; do
- if test -f "$i/tkConfig.sh" ; then
- ac_cv_c_tkconfig="`(cd $i; pwd)`"
- break
- fi
- done
- fi
-
- # check in a few other private locations
- if test x"${ac_cv_c_tkconfig}" = x ; then
- for i in \
- ${srcdir}/../tk \
- `ls -dr ${srcdir}/../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
- `ls -dr ${srcdir}/../tk[[8-9]].[[0-9]] 2>/dev/null` \
- `ls -dr ${srcdir}/../tk[[8-9]].[[0-9]]* 2>/dev/null` ; do
- if test "${TEA_PLATFORM}" = "windows" \
- -a -f "$i/win/tkConfig.sh" ; then
- ac_cv_c_tkconfig="`(cd $i/win; pwd)`"
- break
- fi
- if test -f "$i/unix/tkConfig.sh" ; then
- ac_cv_c_tkconfig="`(cd $i/unix; pwd)`"
- break
- fi
- done
- fi
- ])
-
- if test x"${ac_cv_c_tkconfig}" = x ; then
- TK_BIN_DIR="# no Tk configs found"
- AC_MSG_ERROR([Can't find Tk configuration definitions. Use --with-tk to specify a directory containing tkConfig.sh])
- else
- no_tk=
- TEA_TK_EXTENSION=1
- TK_BIN_DIR="${ac_cv_c_tkconfig}"
- AC_MSG_RESULT([found ${TK_BIN_DIR}/tkConfig.sh])
- fi
- fi
-])
-
-#------------------------------------------------------------------------
-# TEA_LOAD_TCLCONFIG --
-#
-# Load the tclConfig.sh file
-#
-# Arguments:
-#
-# Requires the following vars to be set:
-# TCL_BIN_DIR
-#
-# Results:
-#
-# Substitutes the following vars:
-# TCL_BIN_DIR
-# TCL_SRC_DIR
-# TCL_LIB_FILE
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_LOAD_TCLCONFIG], [
- AC_MSG_CHECKING([for existence of ${TCL_BIN_DIR}/tclConfig.sh])
-
- if test -f "${TCL_BIN_DIR}/tclConfig.sh" ; then
- AC_MSG_RESULT([loading])
- . "${TCL_BIN_DIR}/tclConfig.sh"
- else
- AC_MSG_RESULT([could not find ${TCL_BIN_DIR}/tclConfig.sh])
- fi
-
- # eval is required to do the TCL_DBGX substitution
- eval "TCL_LIB_FILE=\"${TCL_LIB_FILE}\""
- eval "TCL_STUB_LIB_FILE=\"${TCL_STUB_LIB_FILE}\""
-
- # If the TCL_BIN_DIR is the build directory (not the install directory),
- # then set the common variable name to the value of the build variables.
- # For example, the variable TCL_LIB_SPEC will be set to the value
- # of TCL_BUILD_LIB_SPEC. An extension should make use of TCL_LIB_SPEC
- # instead of TCL_BUILD_LIB_SPEC since it will work with both an
- # installed and uninstalled version of Tcl.
- if test -f "${TCL_BIN_DIR}/Makefile" ; then
- TCL_LIB_SPEC="${TCL_BUILD_LIB_SPEC}"
- TCL_STUB_LIB_SPEC="${TCL_BUILD_STUB_LIB_SPEC}"
- TCL_STUB_LIB_PATH="${TCL_BUILD_STUB_LIB_PATH}"
- elif test "`uname -s`" = "Darwin"; then
- # If Tcl was built as a framework, attempt to use the libraries
- # from the framework at the given location so that linking works
- # against Tcl.framework installed in an arbitrary location.
- case ${TCL_DEFS} in
- *TCL_FRAMEWORK*)
- if test -f "${TCL_BIN_DIR}/${TCL_LIB_FILE}"; then
- for i in "`cd "${TCL_BIN_DIR}"; pwd`" \
- "`cd "${TCL_BIN_DIR}"/../..; pwd`"; do
- if test "`basename "$i"`" = "${TCL_LIB_FILE}.framework"; then
- TCL_LIB_SPEC="-F`dirname "$i" | sed -e 's/ /\\\\ /g'` -framework ${TCL_LIB_FILE}"
- break
- fi
- done
- fi
- if test -f "${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}"; then
- TCL_STUB_LIB_SPEC="-L`echo "${TCL_BIN_DIR}" | sed -e 's/ /\\\\ /g'` ${TCL_STUB_LIB_FLAG}"
- TCL_STUB_LIB_PATH="${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}"
- fi
- ;;
- esac
- fi
-
- # eval is required to do the TCL_DBGX substitution
- eval "TCL_LIB_FLAG=\"${TCL_LIB_FLAG}\""
- eval "TCL_LIB_SPEC=\"${TCL_LIB_SPEC}\""
- eval "TCL_STUB_LIB_FLAG=\"${TCL_STUB_LIB_FLAG}\""
- eval "TCL_STUB_LIB_SPEC=\"${TCL_STUB_LIB_SPEC}\""
-
- AC_SUBST(TCL_VERSION)
- AC_SUBST(TCL_PATCH_LEVEL)
- AC_SUBST(TCL_BIN_DIR)
- AC_SUBST(TCL_SRC_DIR)
-
- AC_SUBST(TCL_LIB_FILE)
- AC_SUBST(TCL_LIB_FLAG)
- AC_SUBST(TCL_LIB_SPEC)
-
- AC_SUBST(TCL_STUB_LIB_FILE)
- AC_SUBST(TCL_STUB_LIB_FLAG)
- AC_SUBST(TCL_STUB_LIB_SPEC)
-
- AC_MSG_CHECKING([platform])
- hold_cc=$CC; CC="$TCL_CC"
- AC_TRY_COMPILE(,[
- #ifdef _WIN32
- #error win32
- #endif
- ], [
- TEA_PLATFORM="unix"
- CYGPATH=echo
- ], [
- TEA_PLATFORM="windows"
- AC_CHECK_PROG(CYGPATH, cygpath, cygpath -m, echo) ]
- )
- CC=$hold_cc
- AC_MSG_RESULT($TEA_PLATFORM)
-
- # The BUILD_$pkg is to define the correct extern storage class
- # handling when making this package
- AC_DEFINE_UNQUOTED(BUILD_${PACKAGE_NAME}, [],
- [Building extension source?])
- # Do this here as we have fully defined TEA_PLATFORM now
- if test "${TEA_PLATFORM}" = "windows" ; then
- EXEEXT=".exe"
- CLEANFILES="$CLEANFILES *.lib *.dll *.pdb *.exp"
- fi
-
- # TEA specific:
- AC_SUBST(CLEANFILES)
- AC_SUBST(TCL_LIBS)
- AC_SUBST(TCL_DEFS)
- AC_SUBST(TCL_EXTRA_CFLAGS)
- AC_SUBST(TCL_LD_FLAGS)
- AC_SUBST(TCL_SHLIB_LD_LIBS)
-])
-
-#------------------------------------------------------------------------
-# TEA_LOAD_TKCONFIG --
-#
-# Load the tkConfig.sh file
-#
-# Arguments:
-#
-# Requires the following vars to be set:
-# TK_BIN_DIR
-#
-# Results:
-#
-# Sets the following vars that should be in tkConfig.sh:
-# TK_BIN_DIR
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_LOAD_TKCONFIG], [
- AC_MSG_CHECKING([for existence of ${TK_BIN_DIR}/tkConfig.sh])
-
- if test -f "${TK_BIN_DIR}/tkConfig.sh" ; then
- AC_MSG_RESULT([loading])
- . "${TK_BIN_DIR}/tkConfig.sh"
- else
- AC_MSG_RESULT([could not find ${TK_BIN_DIR}/tkConfig.sh])
- fi
-
- # eval is required to do the TK_DBGX substitution
- eval "TK_LIB_FILE=\"${TK_LIB_FILE}\""
- eval "TK_STUB_LIB_FILE=\"${TK_STUB_LIB_FILE}\""
-
- # If the TK_BIN_DIR is the build directory (not the install directory),
- # then set the common variable name to the value of the build variables.
- # For example, the variable TK_LIB_SPEC will be set to the value
- # of TK_BUILD_LIB_SPEC. An extension should make use of TK_LIB_SPEC
- # instead of TK_BUILD_LIB_SPEC since it will work with both an
- # installed and uninstalled version of Tcl.
- if test -f "${TK_BIN_DIR}/Makefile" ; then
- TK_LIB_SPEC="${TK_BUILD_LIB_SPEC}"
- TK_STUB_LIB_SPEC="${TK_BUILD_STUB_LIB_SPEC}"
- TK_STUB_LIB_PATH="${TK_BUILD_STUB_LIB_PATH}"
- elif test "`uname -s`" = "Darwin"; then
- # If Tk was built as a framework, attempt to use the libraries
- # from the framework at the given location so that linking works
- # against Tk.framework installed in an arbitrary location.
- case ${TK_DEFS} in
- *TK_FRAMEWORK*)
- if test -f "${TK_BIN_DIR}/${TK_LIB_FILE}"; then
- for i in "`cd "${TK_BIN_DIR}"; pwd`" \
- "`cd "${TK_BIN_DIR}"/../..; pwd`"; do
- if test "`basename "$i"`" = "${TK_LIB_FILE}.framework"; then
- TK_LIB_SPEC="-F`dirname "$i" | sed -e 's/ /\\\\ /g'` -framework ${TK_LIB_FILE}"
- break
- fi
- done
- fi
- if test -f "${TK_BIN_DIR}/${TK_STUB_LIB_FILE}"; then
- TK_STUB_LIB_SPEC="-L` echo "${TK_BIN_DIR}" | sed -e 's/ /\\\\ /g'` ${TK_STUB_LIB_FLAG}"
- TK_STUB_LIB_PATH="${TK_BIN_DIR}/${TK_STUB_LIB_FILE}"
- fi
- ;;
- esac
- fi
-
- # eval is required to do the TK_DBGX substitution
- eval "TK_LIB_FLAG=\"${TK_LIB_FLAG}\""
- eval "TK_LIB_SPEC=\"${TK_LIB_SPEC}\""
- eval "TK_STUB_LIB_FLAG=\"${TK_STUB_LIB_FLAG}\""
- eval "TK_STUB_LIB_SPEC=\"${TK_STUB_LIB_SPEC}\""
-
- # TEA specific: Ensure windowingsystem is defined
- case ${TK_DEFS} in
- *PLATFORM_SDL*)
- TEA_WINDOWINGSYSTEM="x11"
- PRACTCL_WINDOWINGSYSTEM="sdl"
- TEA_USE_SDL=yes
- ;;
- esac
- if test "${TEA_USE_SDL}" = "yes" ; then
- true
- elif test "${TEA_PLATFORM}" = "unix" ; then
- case ${TK_DEFS} in
- *MAC_OSX_TK*)
- AC_DEFINE(MAC_OSX_TK, 1, [Are we building against Mac OS X Cocoa?])
- TEA_WINDOWINGSYSTEM="aqua"
- PRACTCL_WINDOWINGSYSTEM="cocoa"
- TEA_USE_HITHEME=no;
- if test "${TK_VERSION}" = "8.5" ; then
- if test "${TK_PATCH_LEVEL}" > ".17" ; then
- TEA_USE_HITHEME=yes;
- fi
- elif test "${TK_VERSION}" = "8.6" ; then
- if test "${TK_PATCH_LEVEL}" > ".3" ; then
- TEA_USE_HITHEME=yes;
- fi
- elif test "${TK_VERSION}" > "8.6" ; then
- TEA_USE_HITHEME=yes;
- fi
- ;;
- *)
- TEA_WINDOWINGSYSTEM="x11"
- PRACTCL_WINDOWINGSYSTEM="x11"
- ;;
- esac
- elif test "${TEA_PLATFORM}" = "windows" ; then
- TEA_WINDOWINGSYSTEM="win32"
- PRACTCL_WINDOWINGSYSTEM="windows"
- fi
-
- AC_SUBST(TK_VERSION)
- AC_SUBST(TK_BIN_DIR)
- AC_SUBST(TK_SRC_DIR)
-
- AC_SUBST(TK_LIB_FILE)
- AC_SUBST(TK_LIB_FLAG)
- AC_SUBST(TK_LIB_SPEC)
-
- AC_SUBST(TK_STUB_LIB_FILE)
- AC_SUBST(TK_STUB_LIB_FLAG)
- AC_SUBST(TK_STUB_LIB_SPEC)
-
- # TEA specific:
- AC_SUBST(TK_LIBS)
- AC_SUBST(TK_XINCLUDES)
- # Practcl
- AC_SUBST(PRACTCL_WINDOWINGSYSTEM)
-])
-
-#------------------------------------------------------------------------
-# TEA_PROG_TCLSH
-# Determine the fully qualified path name of the tclsh executable
-# in the Tcl build directory or the tclsh installed in a bin
-# directory. This macro will correctly determine the name
-# of the tclsh executable even if tclsh has not yet been
-# built in the build directory. The tclsh found is always
-# associated with a tclConfig.sh file. This tclsh should be used
-# only for running extension test cases. It should never be
-# or generation of files (like pkgIndex.tcl) at build time.
-#
-# Arguments:
-# none
-#
-# Results:
-# Substitutes the following vars:
-# TCLSH_PROG
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PROG_TCLSH], [
- AC_MSG_CHECKING([for tclsh])
-
- AC_ARG_WITH(tclsh, [ --with-tclsh Specify a local tcl shell to use for dynamic code], with_tclsh=${withval})
- # Use the value from --with-tclsh, if it was given
- TCLSH_PROG=0
- if test x"${with_tclsh}" != x ; then
- if test -f "${with_tclsh}" ; then
- TCLSH_PROG=${with_tclsh}
- else
- if test -f "${with_tclsh}/tcl8.6" ; then
- TCLSH_PROG="${with_tclsh}/tcl8.6"
- else
- if test -f "${with_tclsh}/tclsh86.exe" ; then
- TCLSH_PROG="${with_tclsh}/tclsh86.exe"
- else
- AC_MSG_ERROR([${with_tclsh} does not point to a valid Tcl executable])
- fi
- fi
- fi
- else
- if test -f "${TCL_BIN_DIR}/Makefile" ; then
- # tclConfig.sh is in Tcl build directory
- if test "${TEA_PLATFORM}" = "windows"; then
- if test -f "${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}${EXEEXT}" ; then
- TCLSH_PROG="${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}${EXEEXT}"
- elif test -f "${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}s${EXEEXT}" ; then
- TCLSH_PROG="${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}s${EXEEXT}"
- elif test -f "${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}t${EXEEXT}" ; then
- TCLSH_PROG="${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}t${EXEEXT}"
- elif test -f "${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}st${EXEEXT}" ; then
- TCLSH_PROG="${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}st${EXEEXT}"
- fi
- else
- TCLSH_PROG="${TCL_BIN_DIR}/tclsh"
- fi
- else
- # tclConfig.sh is in install location
- if test "${TEA_PLATFORM}" = "windows"; then
- TCLSH_PROG="tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}${EXEEXT}"
- else
- TCLSH_PROG="tclsh${TCL_MAJOR_VERSION}.${TCL_MINOR_VERSION}${TCL_DBGX}"
- fi
- list="`ls -d ${TCL_BIN_DIR}/../bin 2>/dev/null` \
- `ls -d ${TCL_BIN_DIR}/.. 2>/dev/null` \
- `ls -d ${TCL_PREFIX}/bin 2>/dev/null`"
- for i in $list ; do
- if test -f "$i/${TCLSH_PROG}" ; then
- REAL_TCL_BIN_DIR="`cd "$i"; pwd`/"
- break
- fi
- done
- TCLSH_PROG="${REAL_TCL_BIN_DIR}${TCLSH_PROG}"
- fi
- fi
- AC_MSG_RESULT([${TCLSH_PROG}])
- AC_SUBST(TCLSH_PROG)
-])
-
-#------------------------------------------------------------------------
-# TEA_PROG_WISH
-# Determine the fully qualified path name of the wish executable
-# in the Tk build directory or the wish installed in a bin
-# directory. This macro will correctly determine the name
-# of the wish executable even if wish has not yet been
-# built in the build directory. The wish found is always
-# associated with a tkConfig.sh file. This wish should be used
-# only for running extension test cases. It should never be
-# or generation of files (like pkgIndex.tcl) at build time.
-#
-# Arguments:
-# none
-#
-# Results:
-# Substitutes the following vars:
-# WISH_PROG
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PROG_WISH], [
- AC_MSG_CHECKING([for wish])
- if test -f "${TK_BIN_DIR}/Makefile" ; then
- # tkConfig.sh is in Tk build directory
- if test "${TEA_PLATFORM}" = "windows"; then
- if test -f "${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}${EXEEXT}" ; then
- WISH_PROG="${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}${EXEEXT}"
- elif test -f "${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}s${EXEEXT}" ; then
- WISH_PROG="${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}$s{EXEEXT}"
- elif test -f "${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}t${EXEEXT}" ; then
- WISH_PROG="${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}t${EXEEXT}"
- elif test -f "${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}st${EXEEXT}" ; then
- WISH_PROG="${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}st${EXEEXT}"
- fi
- else
- WISH_PROG="${TK_BIN_DIR}/wish"
- fi
- else
- # tkConfig.sh is in install location
- if test "${TEA_PLATFORM}" = "windows"; then
- WISH_PROG="wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}${EXEEXT}"
- else
- WISH_PROG="wish${TK_MAJOR_VERSION}.${TK_MINOR_VERSION}${TK_DBGX}"
- fi
- list="`ls -d ${TK_BIN_DIR}/../bin 2>/dev/null` \
- `ls -d ${TK_BIN_DIR}/.. 2>/dev/null` \
- `ls -d ${TK_PREFIX}/bin 2>/dev/null`"
- for i in $list ; do
- if test -f "$i/${WISH_PROG}" ; then
- REAL_TK_BIN_DIR="`cd "$i"; pwd`/"
- break
- fi
- done
- WISH_PROG="${REAL_TK_BIN_DIR}${WISH_PROG}"
- fi
- AC_MSG_RESULT([${WISH_PROG}])
- AC_SUBST(WISH_PROG)
-])
-
-#------------------------------------------------------------------------
-# TEA_ENABLE_SHARED --
-#
-# Allows the building of shared libraries
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Adds the following arguments to configure:
-# --enable-shared=yes|no
-# --enable-stubs=yes|no
-#
-# Defines the following vars:
-# STATIC_BUILD Used for building import/export libraries
-# on Windows.
-#
-# Sets the following vars:
-# SHARED_BUILD Value of 1 or 0
-# STUBS_BUILD Value if 1 or 0
-# USE_TCL_STUBS Value true: if SHARED_BUILD or --enable-stubs
-# USE_TCLOO_STUBS Value true: if SHARED_BUILD or --enable-stubs
-# USE_TK_STUBS Value true: if SHARED_BUILD or --enable-stubs
-# AND TEA_WINDOWING_SYSTEM != ""
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ENABLE_SHARED], [
- AC_MSG_CHECKING([how to build libraries])
- AC_ARG_ENABLE(shared,
- AC_HELP_STRING([--enable-shared],
- [build and link with shared libraries (default: on)]),
- [shared_ok=$enableval], [shared_ok=yes])
-
- if test "${enable_shared+set}" = set; then
- enableval="$enable_shared"
- shared_ok=$enableval
- else
- shared_ok=yes
- fi
-
- AC_ARG_ENABLE(stubs,
- AC_HELP_STRING([--enable-stubs],
- [build and link with stub libraries. Always true for shared builds (default: on)]),
- [stubs_ok=$enableval], [stubs_ok=yes])
-
- if test "${enable_stubs+set}" = set; then
- enableval="$enable_stubs"
- stubs_ok=$enableval
- else
- stubs_ok=yes
- fi
-
- # Stubs are always enabled for shared builds
- if test "$shared_ok" = "yes" ; then
- AC_MSG_RESULT([shared])
- SHARED_BUILD=1
- STUBS_BUILD=1
- else
- AC_MSG_RESULT([static])
- SHARED_BUILD=0
- AC_DEFINE(STATIC_BUILD, 1, [This a static build])
- if test "$stubs_ok" = "yes" ; then
- STUBS_BUILD=1
- else
- STUBS_BUILD=0
- fi
- fi
- if test "${STUBS_BUILD}" = "1" ; then
- AC_DEFINE(USE_TCL_STUBS, 1, [Use Tcl stubs])
- AC_DEFINE(USE_TCLOO_STUBS, 1, [Use TclOO stubs])
- if test "${TEA_WINDOWINGSYSTEM}" != ""; then
- AC_DEFINE(USE_TK_STUBS, 1, [Use Tk stubs])
- fi
- fi
-
- AC_SUBST(SHARED_BUILD)
- AC_SUBST(STUBS_BUILD)
-])
-
-#------------------------------------------------------------------------
-# TEA_ENABLE_THREADS --
-#
-# Specify if thread support should be enabled. If "yes" is specified
-# as an arg (optional), threads are enabled by default, "no" means
-# threads are disabled. "yes" is the default.
-#
-# TCL_THREADS is checked so that if you are compiling an extension
-# against a threaded core, your extension must be compiled threaded
-# as well.
-#
-# Note that it is legal to have a thread enabled extension run in a
-# threaded or non-threaded Tcl core, but a non-threaded extension may
-# only run in a non-threaded Tcl core.
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Adds the following arguments to configure:
-# --enable-threads
-#
-# Sets the following vars:
-# THREADS_LIBS Thread library(s)
-#
-# Defines the following vars:
-# TCL_THREADS
-# _REENTRANT
-# _THREAD_SAFE
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_ENABLE_THREADS], [
- AC_ARG_ENABLE(threads,
- AC_HELP_STRING([--enable-threads],
- [build with threads]),
- [tcl_ok=$enableval], [tcl_ok=yes])
-
- if test "${enable_threads+set}" = set; then
- enableval="$enable_threads"
- tcl_ok=$enableval
- else
- tcl_ok=yes
- fi
-
- if test "$tcl_ok" = "yes" -o "${TCL_THREADS}" = 1; then
- TCL_THREADS=1
-
- if test "${TEA_PLATFORM}" != "windows" ; then
- # We are always OK on Windows, so check what this platform wants:
-
- # USE_THREAD_ALLOC tells us to try the special thread-based
- # allocator that significantly reduces lock contention
- AC_DEFINE(USE_THREAD_ALLOC, 1,
- [Do we want to use the threaded memory allocator?])
- AC_DEFINE(_REENTRANT, 1, [Do we want the reentrant OS API?])
- if test "`uname -s`" = "SunOS" ; then
- AC_DEFINE(_POSIX_PTHREAD_SEMANTICS, 1,
- [Do we really want to follow the standard? Yes we do!])
- fi
- AC_DEFINE(_THREAD_SAFE, 1, [Do we want the thread-safe OS API?])
- AC_CHECK_LIB(pthread,pthread_mutex_init,tcl_ok=yes,tcl_ok=no)
- if test "$tcl_ok" = "no"; then
- # Check a little harder for __pthread_mutex_init in the same
- # library, as some systems hide it there until pthread.h is
- # defined. We could alternatively do an AC_TRY_COMPILE with
- # pthread.h, but that will work with libpthread really doesn't
- # exist, like AIX 4.2. [Bug: 4359]
- AC_CHECK_LIB(pthread, __pthread_mutex_init,
- tcl_ok=yes, tcl_ok=no)
- fi
-
- if test "$tcl_ok" = "yes"; then
- # The space is needed
- THREADS_LIBS=" -lpthread"
- else
- AC_CHECK_LIB(pthreads, pthread_mutex_init,
- tcl_ok=yes, tcl_ok=no)
- if test "$tcl_ok" = "yes"; then
- # The space is needed
- THREADS_LIBS=" -lpthreads"
- else
- AC_CHECK_LIB(c, pthread_mutex_init,
- tcl_ok=yes, tcl_ok=no)
- if test "$tcl_ok" = "no"; then
- AC_CHECK_LIB(c_r, pthread_mutex_init,
- tcl_ok=yes, tcl_ok=no)
- if test "$tcl_ok" = "yes"; then
- # The space is needed
- THREADS_LIBS=" -pthread"
- else
- TCL_THREADS=0
- AC_MSG_WARN([Do not know how to find pthread lib on your system - thread support disabled])
- fi
- fi
- fi
- fi
- fi
- else
- TCL_THREADS=0
- fi
- # Do checking message here to not mess up interleaved configure output
- AC_MSG_CHECKING([for building with threads])
- if test "${TCL_THREADS}" = 1; then
- AC_DEFINE(TCL_THREADS, 1, [Are we building with threads enabled?])
- AC_MSG_RESULT([yes (default)])
- else
- AC_MSG_RESULT([no])
- fi
- # TCL_THREADS sanity checking. See if our request for building with
- # threads is the same as the way Tcl was built. If not, warn the user.
- case ${TCL_DEFS} in
- *THREADS=1*)
- if test "${TCL_THREADS}" = "0"; then
- AC_MSG_WARN([
- Building ${PACKAGE_NAME} without threads enabled, but building against Tcl
- that IS thread-enabled. It is recommended to use --enable-threads.])
- fi
- ;;
- *)
- if test "${TCL_THREADS}" = "1"; then
- AC_MSG_WARN([
- --enable-threads requested, but building against a Tcl that is NOT
- thread-enabled. This is an OK configuration that will also run in
- a thread-enabled core.])
- fi
- ;;
- esac
- AC_SUBST(TCL_THREADS)
-])
-
-#------------------------------------------------------------------------
-# TEA_ENABLE_SYMBOLS --
-#
-# Specify if debugging symbols should be used.
-# Memory (TCL_MEM_DEBUG) debugging can also be enabled.
-#
-# Arguments:
-# none
-#
-# TEA varies from core Tcl in that C|LDFLAGS_DEFAULT receives
-# the value of C|LDFLAGS_OPTIMIZE|DEBUG already substituted.
-# Requires the following vars to be set in the Makefile:
-# CFLAGS_DEFAULT
-# LDFLAGS_DEFAULT
-#
-# Results:
-#
-# Adds the following arguments to configure:
-# --enable-symbols
-#
-# Defines the following vars:
-# CFLAGS_DEFAULT Sets to $(CFLAGS_DEBUG) if true
-# Sets to "$(CFLAGS_OPTIMIZE) -DNDEBUG" if false
-# LDFLAGS_DEFAULT Sets to $(LDFLAGS_DEBUG) if true
-# Sets to $(LDFLAGS_OPTIMIZE) if false
-# DBGX Formerly used as debug library extension;
-# always blank now.
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_ENABLE_SYMBOLS], [
- dnl TEA specific: Make sure we are initialized
- AC_REQUIRE([TEA_CONFIG_CFLAGS])
- AC_MSG_CHECKING([for build with symbols])
- AC_ARG_ENABLE(symbols,
- AC_HELP_STRING([--enable-symbols],
- [build with debugging symbols (default: off)]),
- [tcl_ok=$enableval], [tcl_ok=no])
- DBGX=""
- if test "$tcl_ok" = "no"; then
- CFLAGS_DEFAULT="${CFLAGS_OPTIMIZE} -DNDEBUG"
- LDFLAGS_DEFAULT="${LDFLAGS_OPTIMIZE}"
- AC_MSG_RESULT([no])
- else
- CFLAGS_DEFAULT="${CFLAGS_DEBUG}"
- LDFLAGS_DEFAULT="${LDFLAGS_DEBUG}"
- if test "$tcl_ok" = "yes"; then
- AC_MSG_RESULT([yes (standard debugging)])
- fi
- fi
- # TEA specific:
- if test "${TEA_PLATFORM}" != "windows" ; then
- LDFLAGS_DEFAULT="${LDFLAGS}"
- fi
- AC_SUBST(CFLAGS_DEFAULT)
- AC_SUBST(LDFLAGS_DEFAULT)
- AC_SUBST(TCL_DBGX)
-
- if test "$tcl_ok" = "mem" -o "$tcl_ok" = "all"; then
- AC_DEFINE(TCL_MEM_DEBUG, 1, [Is memory debugging enabled?])
- fi
-
- if test "$tcl_ok" != "yes" -a "$tcl_ok" != "no"; then
- if test "$tcl_ok" = "all"; then
- AC_MSG_RESULT([enabled symbols mem debugging])
- else
- AC_MSG_RESULT([enabled $tcl_ok debugging])
- fi
- fi
-])
-
-#------------------------------------------------------------------------
-# TEA_ENABLE_LANGINFO --
-#
-# Allows use of modern nl_langinfo check for better l10n.
-# This is only relevant for Unix.
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Adds the following arguments to configure:
-# --enable-langinfo=yes|no (default is yes)
-#
-# Defines the following vars:
-# HAVE_LANGINFO Triggers use of nl_langinfo if defined.
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_ENABLE_LANGINFO], [
- AC_ARG_ENABLE(langinfo,
- AC_HELP_STRING([--enable-langinfo],
- [use nl_langinfo if possible to determine encoding at startup, otherwise use old heuristic (default: on)]),
- [langinfo_ok=$enableval], [langinfo_ok=yes])
-
- HAVE_LANGINFO=0
- if test "$langinfo_ok" = "yes"; then
- AC_CHECK_HEADER(langinfo.h,[langinfo_ok=yes],[langinfo_ok=no])
- fi
- AC_MSG_CHECKING([whether to use nl_langinfo])
- if test "$langinfo_ok" = "yes"; then
- AC_CACHE_VAL(tcl_cv_langinfo_h, [
- AC_TRY_COMPILE([#include <langinfo.h>], [nl_langinfo(CODESET);],
- [tcl_cv_langinfo_h=yes],[tcl_cv_langinfo_h=no])])
- AC_MSG_RESULT([$tcl_cv_langinfo_h])
- if test $tcl_cv_langinfo_h = yes; then
- AC_DEFINE(HAVE_LANGINFO, 1, [Do we have nl_langinfo()?])
- fi
- else
- AC_MSG_RESULT([$langinfo_ok])
- fi
-])
-
-#--------------------------------------------------------------------
-# TEA_CONFIG_SYSTEM
-#
-# Determine what the system is (some things cannot be easily checked
-# on a feature-driven basis, alas). This can usually be done via the
-# "uname" command.
-#
-# Arguments:
-# none
-#
-# Results:
-# Defines the following var:
-#
-# system - System/platform/version identification code.
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_CONFIG_SYSTEM], [
- AC_CACHE_CHECK([system version], tcl_cv_sys_version, [
- # TEA specific:
- if test "${TEA_PLATFORM}" = "windows" ; then
- tcl_cv_sys_version=windows
- else
- tcl_cv_sys_version=`uname -s`-`uname -r`
- if test "$?" -ne 0 ; then
- AC_MSG_WARN([can't find uname command])
- tcl_cv_sys_version=unknown
- else
- if test "`uname -s`" = "AIX" ; then
- tcl_cv_sys_version=AIX-`uname -v`.`uname -r`
- fi
- fi
- fi
- ])
- system=$tcl_cv_sys_version
-])
-
-#--------------------------------------------------------------------
-# TEA_CONFIG_CFLAGS
-#
-# Try to determine the proper flags to pass to the compiler
-# for building shared libraries and other such nonsense.
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Defines and substitutes the following vars:
-#
-# DL_OBJS, DL_LIBS - removed for TEA, only needed by core.
-# LDFLAGS - Flags to pass to the compiler when linking object
-# files into an executable application binary such
-# as tclsh.
-# LD_SEARCH_FLAGS-Flags to pass to ld, such as "-R /usr/local/tcl/lib",
-# that tell the run-time dynamic linker where to look
-# for shared libraries such as libtcl.so. Depends on
-# the variable LIB_RUNTIME_DIR in the Makefile. Could
-# be the same as CC_SEARCH_FLAGS if ${CC} is used to link.
-# CC_SEARCH_FLAGS-Flags to pass to ${CC}, such as "-Wl,-rpath,/usr/local/tcl/lib",
-# that tell the run-time dynamic linker where to look
-# for shared libraries such as libtcl.so. Depends on
-# the variable LIB_RUNTIME_DIR in the Makefile.
-# SHLIB_CFLAGS - Flags to pass to cc when compiling the components
-# of a shared library (may request position-independent
-# code, among other things).
-# SHLIB_LD - Base command to use for combining object files
-# into a shared library.
-# SHLIB_LD_LIBS - Dependent libraries for the linker to scan when
-# creating shared libraries. This symbol typically
-# goes at the end of the "ld" commands that build
-# shared libraries. The value of the symbol defaults to
-# "${LIBS}" if all of the dependent libraries should
-# be specified when creating a shared library. If
-# dependent libraries should not be specified (as on
-# SunOS 4.x, where they cause the link to fail, or in
-# general if Tcl and Tk aren't themselves shared
-# libraries), then this symbol has an empty string
-# as its value.
-# SHLIB_SUFFIX - Suffix to use for the names of dynamically loadable
-# extensions. An empty string means we don't know how
-# to use shared libraries on this platform.
-# LIB_SUFFIX - Specifies everything that comes after the "libfoo"
-# in a static or shared library name, using the $PACKAGE_VERSION variable
-# to put the version in the right place. This is used
-# by platforms that need non-standard library names.
-# Examples: ${PACKAGE_VERSION}.so.1.1 on NetBSD, since it needs
-# to have a version after the .so, and ${PACKAGE_VERSION}.a
-# on AIX, since a shared library needs to have
-# a .a extension whereas shared objects for loadable
-# extensions have a .so extension. Defaults to
-# ${PACKAGE_VERSION}${SHLIB_SUFFIX}.
-# CFLAGS_DEBUG -
-# Flags used when running the compiler in debug mode
-# CFLAGS_OPTIMIZE -
-# Flags used when running the compiler in optimize mode
-# CFLAGS - Additional CFLAGS added as necessary (usually 64-bit)
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_CONFIG_CFLAGS], [
- dnl TEA specific: Make sure we are initialized
- AC_REQUIRE([TEA_INIT])
-
- # Step 0.a: Enable 64 bit support?
-
- AC_MSG_CHECKING([if 64bit support is requested])
- AC_ARG_ENABLE(64bit,
- AC_HELP_STRING([--enable-64bit],
- [enable 64bit support (default: off)]),
- [do64bit=$enableval], [do64bit=no])
- AC_MSG_RESULT([$do64bit])
-
- # Step 0.b: Enable Solaris 64 bit VIS support?
-
- AC_MSG_CHECKING([if 64bit Sparc VIS support is requested])
- AC_ARG_ENABLE(64bit-vis,
- AC_HELP_STRING([--enable-64bit-vis],
- [enable 64bit Sparc VIS support (default: off)]),
- [do64bitVIS=$enableval], [do64bitVIS=no])
- AC_MSG_RESULT([$do64bitVIS])
- # Force 64bit on with VIS
- AS_IF([test "$do64bitVIS" = "yes"], [do64bit=yes])
-
- # Step 0.c: Check if visibility support is available. Do this here so
- # that platform specific alternatives can be used below if this fails.
-
- AC_CACHE_CHECK([if compiler supports visibility "hidden"],
- tcl_cv_cc_visibility_hidden, [
- hold_cflags=$CFLAGS; CFLAGS="$CFLAGS -Werror"
- AC_TRY_LINK([
- extern __attribute__((__visibility__("hidden"))) void f(void);
- void f(void) {}], [f();], tcl_cv_cc_visibility_hidden=yes,
- tcl_cv_cc_visibility_hidden=no)
- CFLAGS=$hold_cflags])
- AS_IF([test $tcl_cv_cc_visibility_hidden = yes], [
- AC_DEFINE(MODULE_SCOPE,
- [extern __attribute__((__visibility__("hidden")))],
- [Compiler support for module scope symbols])
- AC_DEFINE(HAVE_HIDDEN, [1], [Compiler support for module scope symbols])
- ])
-
- # Step 0.d: Disable -rpath support?
-
- AC_MSG_CHECKING([if rpath support is requested])
- AC_ARG_ENABLE(rpath,
- AC_HELP_STRING([--disable-rpath],
- [disable rpath support (default: on)]),
- [doRpath=$enableval], [doRpath=yes])
- AC_MSG_RESULT([$doRpath])
-
- # TEA specific: Cross-compiling options for Windows/CE builds?
-
- AS_IF([test "${TEA_PLATFORM}" = windows], [
- AC_MSG_CHECKING([if Windows/CE build is requested])
- AC_ARG_ENABLE(wince,
- AC_HELP_STRING([--enable-wince],
- [enable Win/CE support (where applicable)]),
- [doWince=$enableval], [doWince=no])
- AC_MSG_RESULT([$doWince])
- ])
-
- # Set the variable "system" to hold the name and version number
- # for the system.
-
- TEA_CONFIG_SYSTEM
-
- # Require ranlib early so we can override it in special cases below.
-
- AC_REQUIRE([AC_PROG_RANLIB])
-
- # Set configuration options based on system name and version.
- # This is similar to Tcl's unix/tcl.m4 except that we've added a
- # "windows" case and removed some core-only vars.
-
- do64bit_ok=no
- # default to '{$LIBS}' and set to "" on per-platform necessary basis
- SHLIB_LD_LIBS='${LIBS}'
- # When ld needs options to work in 64-bit mode, put them in
- # LDFLAGS_ARCH so they eventually end up in LDFLAGS even if [load]
- # is disabled by the user. [Bug 1016796]
- LDFLAGS_ARCH=""
- UNSHARED_LIB_SUFFIX=""
- # TEA specific: use PACKAGE_VERSION instead of VERSION
- TCL_TRIM_DOTS='`echo ${PACKAGE_VERSION} | tr -d .`'
- ECHO_VERSION='`echo ${PACKAGE_VERSION}`'
- TCL_LIB_VERSIONS_OK=ok
- CFLAGS_DEBUG=-g
- AS_IF([test "$GCC" = yes], [
- CFLAGS_OPTIMIZE=-O2
- CFLAGS_WARNING="-Wall"
- ], [
- CFLAGS_OPTIMIZE=-O
- CFLAGS_WARNING=""
- ])
- AC_CHECK_TOOL(AR, ar)
- STLIB_LD='${AR} cr'
- LD_LIBRARY_PATH_VAR="LD_LIBRARY_PATH"
- AS_IF([test "x$SHLIB_VERSION" = x],[SHLIB_VERSION=""],[SHLIB_VERSION=".$SHLIB_VERSION"])
- case $system in
- # TEA specific:
- windows)
- # This is a 2-stage check to make sure we have the 64-bit SDK
- # We have to know where the SDK is installed.
- # This magic is based on MS Platform SDK for Win2003 SP1 - hobbs
- # MACHINE is IX86 for LINK, but this is used by the manifest,
- # which requires x86|amd64|ia64.
- MACHINE="X86"
- if test "$do64bit" != "no" ; then
- if test "x${MSSDK}x" = "xx" ; then
- MSSDK="C:/Progra~1/Microsoft Platform SDK"
- fi
- MSSDK=`echo "$MSSDK" | sed -e 's!\\\!/!g'`
- PATH64=""
- case "$do64bit" in
- amd64|x64|yes)
- MACHINE="AMD64" ; # default to AMD64 64-bit build
- PATH64="${MSSDK}/Bin/Win64/x86/AMD64"
- ;;
- ia64)
- MACHINE="IA64"
- PATH64="${MSSDK}/Bin/Win64"
- ;;
- esac
- if test "$GCC" != "yes" -a ! -d "${PATH64}" ; then
- AC_MSG_WARN([Could not find 64-bit $MACHINE SDK to enable 64bit mode])
- AC_MSG_WARN([Ensure latest Platform SDK is installed])
- do64bit="no"
- else
- AC_MSG_RESULT([ Using 64-bit $MACHINE mode])
- do64bit_ok="yes"
- fi
- fi
-
- if test "$doWince" != "no" ; then
- if test "$do64bit" != "no" ; then
- AC_MSG_ERROR([Windows/CE and 64-bit builds incompatible])
- fi
- if test "$GCC" = "yes" ; then
- AC_MSG_ERROR([Windows/CE and GCC builds incompatible])
- fi
- TEA_PATH_CELIB
- # Set defaults for common evc4/PPC2003 setup
- # Currently Tcl requires 300+, possibly 420+ for sockets
- CEVERSION=420; # could be 211 300 301 400 420 ...
- TARGETCPU=ARMV4; # could be ARMV4 ARM MIPS SH3 X86 ...
- ARCH=ARM; # could be ARM MIPS X86EM ...
- PLATFORM="Pocket PC 2003"; # or "Pocket PC 2002"
- if test "$doWince" != "yes"; then
- # If !yes then the user specified something
- # Reset ARCH to allow user to skip specifying it
- ARCH=
- eval `echo $doWince | awk -F, '{ \
- if (length([$]1)) { printf "CEVERSION=\"%s\"\n", [$]1; \
- if ([$]1 < 400) { printf "PLATFORM=\"Pocket PC 2002\"\n" } }; \
- if (length([$]2)) { printf "TARGETCPU=\"%s\"\n", toupper([$]2) }; \
- if (length([$]3)) { printf "ARCH=\"%s\"\n", toupper([$]3) }; \
- if (length([$]4)) { printf "PLATFORM=\"%s\"\n", [$]4 }; \
- }'`
- if test "x${ARCH}" = "x" ; then
- ARCH=$TARGETCPU;
- fi
- fi
- OSVERSION=WCE$CEVERSION;
- if test "x${WCEROOT}" = "x" ; then
- WCEROOT="C:/Program Files/Microsoft eMbedded C++ 4.0"
- if test ! -d "${WCEROOT}" ; then
- WCEROOT="C:/Program Files/Microsoft eMbedded Tools"
- fi
- fi
- if test "x${SDKROOT}" = "x" ; then
- SDKROOT="C:/Program Files/Windows CE Tools"
- if test ! -d "${SDKROOT}" ; then
- SDKROOT="C:/Windows CE Tools"
- fi
- fi
- WCEROOT=`echo "$WCEROOT" | sed -e 's!\\\!/!g'`
- SDKROOT=`echo "$SDKROOT" | sed -e 's!\\\!/!g'`
- if test ! -d "${SDKROOT}/${OSVERSION}/${PLATFORM}/Lib/${TARGETCPU}" \
- -o ! -d "${WCEROOT}/EVC/${OSVERSION}/bin"; then
- AC_MSG_ERROR([could not find PocketPC SDK or target compiler to enable WinCE mode [$CEVERSION,$TARGETCPU,$ARCH,$PLATFORM]])
- doWince="no"
- else
- # We could PATH_NOSPACE these, but that's not important,
- # as long as we quote them when used.
- CEINCLUDE="${SDKROOT}/${OSVERSION}/${PLATFORM}/include"
- if test -d "${CEINCLUDE}/${TARGETCPU}" ; then
- CEINCLUDE="${CEINCLUDE}/${TARGETCPU}"
- fi
- CELIBPATH="${SDKROOT}/${OSVERSION}/${PLATFORM}/Lib/${TARGETCPU}"
- fi
- fi
-
- if test "$GCC" != "yes" ; then
- if test "${SHARED_BUILD}" = "0" ; then
- runtime=-MT
- else
- runtime=-MD
- fi
- case "x`echo \${VisualStudioVersion}`" in
- x1[[4-9]]*)
- lflags="${lflags} -nodefaultlib:libucrt.lib"
- TEA_ADD_LIBS([ucrt.lib])
- ;;
- *)
- ;;
- esac
-
- if test "$do64bit" != "no" ; then
- # All this magic is necessary for the Win64 SDK RC1 - hobbs
- CC="\"${PATH64}/cl.exe\""
- CFLAGS="${CFLAGS} -I\"${MSSDK}/Include\" -I\"${MSSDK}/Include/crt\" -I\"${MSSDK}/Include/crt/sys\""
- RC="\"${MSSDK}/bin/rc.exe\""
- lflags="${lflags} -nologo -MACHINE:${MACHINE} -LIBPATH:\"${MSSDK}/Lib/${MACHINE}\""
- LINKBIN="\"${PATH64}/link.exe\""
- CFLAGS_DEBUG="-nologo -Zi -Od -W3 ${runtime}d"
- CFLAGS_OPTIMIZE="-nologo -O2 -W2 ${runtime}"
- # Avoid 'unresolved external symbol __security_cookie'
- # errors, c.f. http://support.microsoft.com/?id=894573
- TEA_ADD_LIBS([bufferoverflowU.lib])
- elif test "$doWince" != "no" ; then
- CEBINROOT="${WCEROOT}/EVC/${OSVERSION}/bin"
- if test "${TARGETCPU}" = "X86"; then
- CC="\"${CEBINROOT}/cl.exe\""
- else
- CC="\"${CEBINROOT}/cl${ARCH}.exe\""
- fi
- CFLAGS="$CFLAGS -I\"${CELIB_DIR}/inc\" -I\"${CEINCLUDE}\""
- RC="\"${WCEROOT}/Common/EVC/bin/rc.exe\""
- arch=`echo ${ARCH} | awk '{print tolower([$]0)}'`
- defs="${ARCH} _${ARCH}_ ${arch} PALM_SIZE _MT _WINDOWS"
- if test "${SHARED_BUILD}" = "1" ; then
- # Static CE builds require static celib as well
- defs="${defs} _DLL"
- fi
- for i in $defs ; do
- AC_DEFINE_UNQUOTED($i, 1, [WinCE def ]$i)
- done
- AC_DEFINE_UNQUOTED(_WIN32_WCE, $CEVERSION, [_WIN32_WCE version])
- AC_DEFINE_UNQUOTED(UNDER_CE, $CEVERSION, [UNDER_CE version])
- CFLAGS_DEBUG="-nologo -Zi -Od"
- CFLAGS_OPTIMIZE="-nologo -Ox"
- lversion=`echo ${CEVERSION} | sed -e 's/\(.\)\(..\)/\1\.\2/'`
- lflags="${lflags} -MACHINE:${ARCH} -LIBPATH:\"${CELIBPATH}\" -subsystem:windowsce,${lversion} -nologo"
- LINKBIN="\"${CEBINROOT}/link.exe\""
- AC_SUBST(CELIB_DIR)
- else
- RC="rc"
- lflags="${lflags} -nologo"
- LINKBIN="link"
- CFLAGS_DEBUG="-nologo -Z7 -Od -W3 -WX ${runtime}d"
- CFLAGS_OPTIMIZE="-nologo -O2 -W2 ${runtime}"
- fi
- fi
-
- if test "$GCC" = "yes"; then
- # mingw gcc mode
- AC_CHECK_TOOL(RC, windres)
- CFLAGS_DEBUG="-g"
- CFLAGS_OPTIMIZE="-O2 -fomit-frame-pointer"
- SHLIB_LD='${CC} -shared'
- UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a'
- PRACTCL_UNSHARED_LIB_SUFFIX='.a'
-
- LDFLAGS_CONSOLE="-wl,--subsystem,console ${lflags}"
- LDFLAGS_WINDOW="-wl,--subsystem,windows ${lflags}"
-
- AC_CACHE_CHECK(for cross-compile version of gcc,
- ac_cv_cross,
- AC_TRY_COMPILE([
- #ifdef _WIN32
- #error cross-compiler
- #endif
- ], [],
- ac_cv_cross=yes,
- ac_cv_cross=no)
- )
- if test "$ac_cv_cross" = "yes"; then
- case "$do64bit" in
- amd64|x64|yes)
- CC="x86_64-w64-mingw32-gcc"
- LD="x86_64-w64-mingw32-ld"
- AR="x86_64-w64-mingw32-ar"
- RANLIB="x86_64-w64-mingw32-ranlib"
- RC="x86_64-w64-mingw32-windres"
- ;;
- *)
- CC="i686-w64-mingw32-gcc"
- LD="i686-w64-mingw32-ld"
- AR="i686-w64-mingw32-ar"
- RANLIB="i686-w64-mingw32-ranlib"
- RC="i686-w64-mingw32-windres"
- ;;
- esac
- fi
-
- else
- SHLIB_LD="${LINKBIN} -dll ${lflags}"
- # link -lib only works when -lib is the first arg
- STLIB_LD="${LINKBIN} -lib ${lflags}"
- UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.lib'
- PATHTYPE=-w
- # For information on what debugtype is most useful, see:
- # http://msdn.microsoft.com/library/en-us/dnvc60/html/gendepdebug.asp
- # and also
- # http://msdn2.microsoft.com/en-us/library/y0zzbyt4%28VS.80%29.aspx
- # This essentially turns it all on.
- LDFLAGS_DEBUG="-debug -debugtype:cv"
- LDFLAGS_OPTIMIZE="-release"
- if test "$doWince" != "no" ; then
- LDFLAGS_CONSOLE="-link ${lflags}"
- LDFLAGS_WINDOW=${LDFLAGS_CONSOLE}
- else
- LDFLAGS_CONSOLE="-link -subsystem:console ${lflags}"
- LDFLAGS_WINDOW="-link -subsystem:windows ${lflags}"
- fi
- fi
-
- SHLIB_SUFFIX=".dll"
- SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.dll'
-
- TCL_LIB_VERSIONS_OK=nodots
- ;;
- AIX-*)
- AS_IF([test "${TCL_THREADS}" = "1" -a "$GCC" != "yes"], [
- # AIX requires the _r compiler when gcc isn't being used
- case "${CC}" in
- *_r|*_r\ *)
- # ok ...
- ;;
- *)
- # Make sure only first arg gets _r
- CC=`echo "$CC" | sed -e 's/^\([[^ ]]*\)/\1_r/'`
- ;;
- esac
- AC_MSG_RESULT([Using $CC for compiling with threads])
- ])
- LIBS="$LIBS -lc"
- SHLIB_CFLAGS=""
- SHLIB_SUFFIX=".so"
-
- LD_LIBRARY_PATH_VAR="LIBPATH"
-
- # Check to enable 64-bit flags for compiler/linker
- AS_IF([test "$do64bit" = yes], [
- AS_IF([test "$GCC" = yes], [
- AC_MSG_WARN([64bit mode not supported with GCC on $system])
- ], [
- do64bit_ok=yes
- CFLAGS="$CFLAGS -q64"
- LDFLAGS_ARCH="-q64"
- RANLIB="${RANLIB} -X64"
- AR="${AR} -X64"
- SHLIB_LD_FLAGS="-b64"
- ])
- ])
-
- AS_IF([test "`uname -m`" = ia64], [
- # AIX-5 uses ELF style dynamic libraries on IA-64, but not PPC
- SHLIB_LD="/usr/ccs/bin/ld -G -z text"
- AS_IF([test "$GCC" = yes], [
- CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}'
- ], [
- CC_SEARCH_FLAGS='-R${LIB_RUNTIME_DIR}'
- ])
- LD_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}'
- ], [
- AS_IF([test "$GCC" = yes], [
- SHLIB_LD='${CC} -shared -Wl,-bexpall'
- ], [
- SHLIB_LD="/bin/ld -bhalt:4 -bM:SRE -bexpall -H512 -T512 -bnoentry"
- LDFLAGS="$LDFLAGS -brtl"
- ])
- SHLIB_LD="${SHLIB_LD} ${SHLIB_LD_FLAGS}"
- CC_SEARCH_FLAGS='-L${LIB_RUNTIME_DIR}'
- LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
- ])
- ;;
- BeOS*)
- SHLIB_CFLAGS="-fPIC"
- SHLIB_LD='${CC} -nostart'
- SHLIB_SUFFIX=".so"
-
- #-----------------------------------------------------------
- # Check for inet_ntoa in -lbind, for BeOS (which also needs
- # -lsocket, even if the network functions are in -lnet which
- # is always linked to, for compatibility.
- #-----------------------------------------------------------
- AC_CHECK_LIB(bind, inet_ntoa, [LIBS="$LIBS -lbind -lsocket"])
- ;;
- BSD/OS-4.*)
- SHLIB_CFLAGS="-export-dynamic -fPIC"
- SHLIB_LD='${CC} -shared'
- SHLIB_SUFFIX=".so"
- LDFLAGS="$LDFLAGS -export-dynamic"
- CC_SEARCH_FLAGS=""
- LD_SEARCH_FLAGS=""
- ;;
- CYGWIN_*)
- SHLIB_CFLAGS=""
- SHLIB_LD='${CC} -shared'
- SHLIB_LD_LIBS="${SHLIB_LD_LIBS} -Wl,--out-implib,\$[@].a"
- SHLIB_SUFFIX=".dll"
- EXEEXT=".exe"
- do64bit_ok=yes
- CC_SEARCH_FLAGS=""
- LD_SEARCH_FLAGS=""
- ;;
- Haiku*)
- LDFLAGS="$LDFLAGS -Wl,--export-dynamic"
- SHLIB_CFLAGS="-fPIC"
- SHLIB_SUFFIX=".so"
- SHLIB_LD='${CC} -shared ${CFLAGS} ${LDFLAGS}'
- AC_CHECK_LIB(network, inet_ntoa, [LIBS="$LIBS -lnetwork"])
- ;;
- HP-UX-*.11.*)
- # Use updated header definitions where possible
- AC_DEFINE(_XOPEN_SOURCE_EXTENDED, 1, [Do we want to use the XOPEN network library?])
- # TEA specific: Needed by Tcl, but not most extensions
- #AC_DEFINE(_XOPEN_SOURCE, 1, [Do we want to use the XOPEN network library?])
- #LIBS="$LIBS -lxnet" # Use the XOPEN network library
-
- AS_IF([test "`uname -m`" = ia64], [
- SHLIB_SUFFIX=".so"
- # Use newer C++ library for C++ extensions
- #if test "$GCC" != "yes" ; then
- # CPPFLAGS="-AA"
- #fi
- ], [
- SHLIB_SUFFIX=".sl"
- ])
- AC_CHECK_LIB(dld, shl_load, tcl_ok=yes, tcl_ok=no)
- AS_IF([test "$tcl_ok" = yes], [
- LDFLAGS="$LDFLAGS -Wl,-E"
- CC_SEARCH_FLAGS='-Wl,+s,+b,${LIB_RUNTIME_DIR}:.'
- LD_SEARCH_FLAGS='+s +b ${LIB_RUNTIME_DIR}:.'
- LD_LIBRARY_PATH_VAR="SHLIB_PATH"
- ])
- AS_IF([test "$GCC" = yes], [
- SHLIB_LD='${CC} -shared'
- LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
- ], [
- CFLAGS="$CFLAGS -z"
- # Users may want PA-RISC 1.1/2.0 portable code - needs HP cc
- #CFLAGS="$CFLAGS +DAportable"
- SHLIB_CFLAGS="+z"
- SHLIB_LD="ld -b"
- ])
-
- # Check to enable 64-bit flags for compiler/linker
- AS_IF([test "$do64bit" = "yes"], [
- AS_IF([test "$GCC" = yes], [
- case `${CC} -dumpmachine` in
- hppa64*)
- # 64-bit gcc in use. Fix flags for GNU ld.
- do64bit_ok=yes
- SHLIB_LD='${CC} -shared'
- AS_IF([test $doRpath = yes], [
- CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'])
- LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
- ;;
- *)
- AC_MSG_WARN([64bit mode not supported with GCC on $system])
- ;;
- esac
- ], [
- do64bit_ok=yes
- CFLAGS="$CFLAGS +DD64"
- LDFLAGS_ARCH="+DD64"
- ])
- ]) ;;
- IRIX-6.*)
- SHLIB_CFLAGS=""
- SHLIB_LD="ld -n32 -shared -rdata_shared"
- SHLIB_SUFFIX=".so"
- AS_IF([test $doRpath = yes], [
- CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'
- LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}'])
- AS_IF([test "$GCC" = yes], [
- CFLAGS="$CFLAGS -mabi=n32"
- LDFLAGS="$LDFLAGS -mabi=n32"
- ], [
- case $system in
- IRIX-6.3)
- # Use to build 6.2 compatible binaries on 6.3.
- CFLAGS="$CFLAGS -n32 -D_OLD_TERMIOS"
- ;;
- *)
- CFLAGS="$CFLAGS -n32"
- ;;
- esac
- LDFLAGS="$LDFLAGS -n32"
- ])
- ;;
- IRIX64-6.*)
- SHLIB_CFLAGS=""
- SHLIB_LD="ld -n32 -shared -rdata_shared"
- SHLIB_SUFFIX=".so"
- AS_IF([test $doRpath = yes], [
- CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'
- LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}'])
-
- # Check to enable 64-bit flags for compiler/linker
-
- AS_IF([test "$do64bit" = yes], [
- AS_IF([test "$GCC" = yes], [
- AC_MSG_WARN([64bit mode not supported by gcc])
- ], [
- do64bit_ok=yes
- SHLIB_LD="ld -64 -shared -rdata_shared"
- CFLAGS="$CFLAGS -64"
- LDFLAGS_ARCH="-64"
- ])
- ])
- ;;
- Linux*|GNU*|NetBSD-Debian)
- SHLIB_CFLAGS="-fPIC"
- SHLIB_SUFFIX=".so"
-
- # TEA specific:
- CFLAGS_OPTIMIZE="-O2 -fomit-frame-pointer"
-
- # TEA specific: use LDFLAGS_DEFAULT instead of LDFLAGS
- SHLIB_LD='${CC} -shared ${CFLAGS} ${LDFLAGS_DEFAULT}'
- LDFLAGS="$LDFLAGS -Wl,--export-dynamic"
- AS_IF([test $doRpath = yes], [
- CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'])
- LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
- AS_IF([test "`uname -m`" = "alpha"], [CFLAGS="$CFLAGS -mieee"])
- AS_IF([test $do64bit = yes], [
- AC_CACHE_CHECK([if compiler accepts -m64 flag], tcl_cv_cc_m64, [
- hold_cflags=$CFLAGS
- CFLAGS="$CFLAGS -m64"
- AC_TRY_LINK(,, tcl_cv_cc_m64=yes, tcl_cv_cc_m64=no)
- CFLAGS=$hold_cflags])
- AS_IF([test $tcl_cv_cc_m64 = yes], [
- CFLAGS="$CFLAGS -m64"
- do64bit_ok=yes
- ])
- ])
-
- # The combo of gcc + glibc has a bug related to inlining of
- # functions like strtod(). The -fno-builtin flag should address
- # this problem but it does not work. The -fno-inline flag is kind
- # of overkill but it works. Disable inlining only when one of the
- # files in compat/*.c is being linked in.
-
- AS_IF([test x"${USE_COMPAT}" != x],[CFLAGS="$CFLAGS -fno-inline"])
- ;;
- Lynx*)
- SHLIB_CFLAGS="-fPIC"
- SHLIB_SUFFIX=".so"
- CFLAGS_OPTIMIZE=-02
- SHLIB_LD='${CC} -shared'
- LD_FLAGS="-Wl,--export-dynamic"
- AS_IF([test $doRpath = yes], [
- CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'
- LD_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'])
- ;;
- OpenBSD-*)
- arch=`arch -s`
- case "$arch" in
- vax)
- SHLIB_SUFFIX=""
- SHARED_LIB_SUFFIX=""
- LDFLAGS=""
- ;;
- *)
- case "$arch" in
- alpha|sparc64)
- SHLIB_CFLAGS="-fPIC"
- ;;
- *)
- SHLIB_CFLAGS="-fpic"
- ;;
- esac
- SHLIB_LD='${CC} -shared ${SHLIB_CFLAGS}'
- SHLIB_SUFFIX=".so"
- AS_IF([test $doRpath = yes], [
- CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'])
- LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
- SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.so${SHLIB_VERSION}'
- LDFLAGS="-Wl,-export-dynamic"
- ;;
- esac
- case "$arch" in
- vax)
- CFLAGS_OPTIMIZE="-O1"
- ;;
- *)
- CFLAGS_OPTIMIZE="-O2"
- ;;
- esac
- AS_IF([test "${TCL_THREADS}" = "1"], [
- # On OpenBSD: Compile with -pthread
- # Don't link with -lpthread
- LIBS=`echo $LIBS | sed s/-lpthread//`
- CFLAGS="$CFLAGS -pthread"
- ])
- # OpenBSD doesn't do version numbers with dots.
- UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a'
- TCL_LIB_VERSIONS_OK=nodots
- ;;
- NetBSD-*)
- # NetBSD has ELF and can use 'cc -shared' to build shared libs
- SHLIB_CFLAGS="-fPIC"
- SHLIB_LD='${CC} -shared ${SHLIB_CFLAGS}'
- SHLIB_SUFFIX=".so"
- LDFLAGS="$LDFLAGS -export-dynamic"
- AS_IF([test $doRpath = yes], [
- CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'])
- LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
- AS_IF([test "${TCL_THREADS}" = "1"], [
- # The -pthread needs to go in the CFLAGS, not LIBS
- LIBS=`echo $LIBS | sed s/-pthread//`
- CFLAGS="$CFLAGS -pthread"
- LDFLAGS="$LDFLAGS -pthread"
- ])
- ;;
- FreeBSD-*)
- # This configuration from FreeBSD Ports.
- SHLIB_CFLAGS="-fPIC"
- SHLIB_LD="${CC} -shared"
- SHLIB_LD_LIBS="${SHLIB_LD_LIBS} -Wl,-soname,\$[@]"
- SHLIB_SUFFIX=".so"
- LDFLAGS=""
- AS_IF([test $doRpath = yes], [
- CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'
- LD_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'])
- AS_IF([test "${TCL_THREADS}" = "1"], [
- # The -pthread needs to go in the LDFLAGS, not LIBS
- LIBS=`echo $LIBS | sed s/-pthread//`
- CFLAGS="$CFLAGS $PTHREAD_CFLAGS"
- LDFLAGS="$LDFLAGS $PTHREAD_LIBS"])
- case $system in
- FreeBSD-3.*)
- # Version numbers are dot-stripped by system policy.
- TCL_TRIM_DOTS=`echo ${PACKAGE_VERSION} | tr -d .`
- UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a'
- SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}\$\{DBGX\}.so.1'
- TCL_LIB_VERSIONS_OK=nodots
- ;;
- esac
- ;;
- Darwin-*)
- CFLAGS_OPTIMIZE="-Os"
- SHLIB_CFLAGS="-fno-common"
- # To avoid discrepancies between what headers configure sees during
- # preprocessing tests and compiling tests, move any -isysroot and
- # -mmacosx-version-min flags from CFLAGS to CPPFLAGS:
- CPPFLAGS="${CPPFLAGS} `echo " ${CFLAGS}" | \
- awk 'BEGIN {FS=" +-";ORS=" "}; {for (i=2;i<=NF;i++) \
- if ([$]i~/^(isysroot|mmacosx-version-min)/) print "-"[$]i}'`"
- CFLAGS="`echo " ${CFLAGS}" | \
- awk 'BEGIN {FS=" +-";ORS=" "}; {for (i=2;i<=NF;i++) \
- if (!([$]i~/^(isysroot|mmacosx-version-min)/)) print "-"[$]i}'`"
- AS_IF([test $do64bit = yes], [
- case `arch` in
- ppc)
- AC_CACHE_CHECK([if compiler accepts -arch ppc64 flag],
- tcl_cv_cc_arch_ppc64, [
- hold_cflags=$CFLAGS
- CFLAGS="$CFLAGS -arch ppc64 -mpowerpc64 -mcpu=G5"
- AC_TRY_LINK(,, tcl_cv_cc_arch_ppc64=yes,
- tcl_cv_cc_arch_ppc64=no)
- CFLAGS=$hold_cflags])
- AS_IF([test $tcl_cv_cc_arch_ppc64 = yes], [
- CFLAGS="$CFLAGS -arch ppc64 -mpowerpc64 -mcpu=G5"
- do64bit_ok=yes
- ]);;
- i386)
- AC_CACHE_CHECK([if compiler accepts -arch x86_64 flag],
- tcl_cv_cc_arch_x86_64, [
- hold_cflags=$CFLAGS
- CFLAGS="$CFLAGS -arch x86_64"
- AC_TRY_LINK(,, tcl_cv_cc_arch_x86_64=yes,
- tcl_cv_cc_arch_x86_64=no)
- CFLAGS=$hold_cflags])
- AS_IF([test $tcl_cv_cc_arch_x86_64 = yes], [
- CFLAGS="$CFLAGS -arch x86_64"
- do64bit_ok=yes
- ]);;
- *)
- AC_MSG_WARN([Don't know how enable 64-bit on architecture `arch`]);;
- esac
- ], [
- # Check for combined 32-bit and 64-bit fat build
- AS_IF([echo "$CFLAGS " |grep -E -q -- '-arch (ppc64|x86_64) ' \
- && echo "$CFLAGS " |grep -E -q -- '-arch (ppc|i386) '], [
- fat_32_64=yes])
- ])
- # TEA specific: use LDFLAGS_DEFAULT instead of LDFLAGS
- SHLIB_LD='${CC} -dynamiclib ${CFLAGS} ${LDFLAGS_DEFAULT}'
- AC_CACHE_CHECK([if ld accepts -single_module flag], tcl_cv_ld_single_module, [
- hold_ldflags=$LDFLAGS
- LDFLAGS="$LDFLAGS -dynamiclib -Wl,-single_module"
- AC_TRY_LINK(, [int i;], tcl_cv_ld_single_module=yes, tcl_cv_ld_single_module=no)
- LDFLAGS=$hold_ldflags])
- AS_IF([test $tcl_cv_ld_single_module = yes], [
- SHLIB_LD="${SHLIB_LD} -Wl,-single_module"
- ])
- # TEA specific: link shlib with current and compatibility version flags
- vers=`echo ${PACKAGE_VERSION} | sed -e 's/^\([[0-9]]\{1,5\}\)\(\(\.[[0-9]]\{1,3\}\)\{0,2\}\).*$/\1\2/p' -e d`
- SHLIB_LD="${SHLIB_LD} -current_version ${vers:-0} -compatibility_version ${vers:-0}"
- SHLIB_SUFFIX=".dylib"
- # Don't use -prebind when building for Mac OS X 10.4 or later only:
- AS_IF([test "`echo "${MACOSX_DEPLOYMENT_TARGET}" | awk -F '10\\.' '{print int([$]2)}'`" -lt 4 -a \
- "`echo "${CPPFLAGS}" | awk -F '-mmacosx-version-min=10\\.' '{print int([$]2)}'`" -lt 4], [
- LDFLAGS="$LDFLAGS -prebind"])
- LDFLAGS="$LDFLAGS -headerpad_max_install_names"
- AC_CACHE_CHECK([if ld accepts -search_paths_first flag],
- tcl_cv_ld_search_paths_first, [
- hold_ldflags=$LDFLAGS
- LDFLAGS="$LDFLAGS -Wl,-search_paths_first"
- AC_TRY_LINK(, [int i;], tcl_cv_ld_search_paths_first=yes,
- tcl_cv_ld_search_paths_first=no)
- LDFLAGS=$hold_ldflags])
- AS_IF([test $tcl_cv_ld_search_paths_first = yes], [
- LDFLAGS="$LDFLAGS -Wl,-search_paths_first"
- ])
- AS_IF([test "$tcl_cv_cc_visibility_hidden" != yes], [
- AC_DEFINE(MODULE_SCOPE, [__private_extern__],
- [Compiler support for module scope symbols])
- tcl_cv_cc_visibility_hidden=yes
- ])
- CC_SEARCH_FLAGS=""
- LD_SEARCH_FLAGS=""
- LD_LIBRARY_PATH_VAR="DYLD_LIBRARY_PATH"
- # TEA specific: for combined 32 & 64 bit fat builds of Tk
- # extensions, verify that 64-bit build is possible.
- AS_IF([test "$fat_32_64" = yes && test -n "${TK_BIN_DIR}"], [
- AS_IF([test "${TEA_WINDOWINGSYSTEM}" = x11], [
- AC_CACHE_CHECK([for 64-bit X11], tcl_cv_lib_x11_64, [
- for v in CFLAGS CPPFLAGS LDFLAGS; do
- eval 'hold_'$v'="$'$v'";'$v'="`echo "$'$v' "|sed -e "s/-arch ppc / /g" -e "s/-arch i386 / /g"`"'
- done
- CPPFLAGS="$CPPFLAGS -I/usr/X11R6/include"
- LDFLAGS="$LDFLAGS -L/usr/X11R6/lib -lX11"
- AC_TRY_LINK([#include <X11/Xlib.h>], [XrmInitialize();],
- tcl_cv_lib_x11_64=yes, tcl_cv_lib_x11_64=no)
- for v in CFLAGS CPPFLAGS LDFLAGS; do
- eval $v'="$hold_'$v'"'
- done])
- ])
- AS_IF([test "${TEA_WINDOWINGSYSTEM}" = aqua], [
- AC_CACHE_CHECK([for 64-bit Tk], tcl_cv_lib_tk_64, [
- for v in CFLAGS CPPFLAGS LDFLAGS; do
- eval 'hold_'$v'="$'$v'";'$v'="`echo "$'$v' "|sed -e "s/-arch ppc / /g" -e "s/-arch i386 / /g"`"'
- done
- CPPFLAGS="$CPPFLAGS -DUSE_TCL_STUBS=1 -DUSE_TK_STUBS=1 ${TCL_INCLUDES} ${TK_INCLUDES}"
- LDFLAGS="$LDFLAGS ${TCL_STUB_LIB_SPEC} ${TK_STUB_LIB_SPEC}"
- AC_TRY_LINK([#include <tk.h>], [Tk_InitStubs(NULL, "", 0);],
- tcl_cv_lib_tk_64=yes, tcl_cv_lib_tk_64=no)
- for v in CFLAGS CPPFLAGS LDFLAGS; do
- eval $v'="$hold_'$v'"'
- done])
- ])
- # remove 64-bit arch flags from CFLAGS et al. if configuration
- # does not support 64-bit.
- AS_IF([test "$tcl_cv_lib_tk_64" = no -o "$tcl_cv_lib_x11_64" = no], [
- AC_MSG_NOTICE([Removing 64-bit architectures from compiler & linker flags])
- for v in CFLAGS CPPFLAGS LDFLAGS; do
- eval $v'="`echo "$'$v' "|sed -e "s/-arch ppc64 / /g" -e "s/-arch x86_64 / /g"`"'
- done])
- ])
- ;;
- OS/390-*)
- CFLAGS_OPTIMIZE="" # Optimizer is buggy
- AC_DEFINE(_OE_SOCKETS, 1, # needed in sys/socket.h
- [Should OS/390 do the right thing with sockets?])
- ;;
- OSF1-V*)
- # Digital OSF/1
- SHLIB_CFLAGS=""
- AS_IF([test "$SHARED_BUILD" = 1], [
- SHLIB_LD='ld -shared -expect_unresolved "*"'
- ], [
- SHLIB_LD='ld -non_shared -expect_unresolved "*"'
- ])
- SHLIB_SUFFIX=".so"
- AS_IF([test $doRpath = yes], [
- CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'
- LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}'])
- AS_IF([test "$GCC" = yes], [CFLAGS="$CFLAGS -mieee"], [
- CFLAGS="$CFLAGS -DHAVE_TZSET -std1 -ieee"])
- # see pthread_intro(3) for pthread support on osf1, k.furukawa
- AS_IF([test "${TCL_THREADS}" = 1], [
- CFLAGS="$CFLAGS -DHAVE_PTHREAD_ATTR_SETSTACKSIZE"
- CFLAGS="$CFLAGS -DTCL_THREAD_STACK_MIN=PTHREAD_STACK_MIN*64"
- LIBS=`echo $LIBS | sed s/-lpthreads//`
- AS_IF([test "$GCC" = yes], [
- LIBS="$LIBS -lpthread -lmach -lexc"
- ], [
- CFLAGS="$CFLAGS -pthread"
- LDFLAGS="$LDFLAGS -pthread"
- ])
- ])
- ;;
- QNX-6*)
- # QNX RTP
- # This may work for all QNX, but it was only reported for v6.
- SHLIB_CFLAGS="-fPIC"
- SHLIB_LD="ld -Bshareable -x"
- SHLIB_LD_LIBS=""
- SHLIB_SUFFIX=".so"
- CC_SEARCH_FLAGS=""
- LD_SEARCH_FLAGS=""
- ;;
- SCO_SV-3.2*)
- AS_IF([test "$GCC" = yes], [
- SHLIB_CFLAGS="-fPIC -melf"
- LDFLAGS="$LDFLAGS -melf -Wl,-Bexport"
- ], [
- SHLIB_CFLAGS="-Kpic -belf"
- LDFLAGS="$LDFLAGS -belf -Wl,-Bexport"
- ])
- SHLIB_LD="ld -G"
- SHLIB_LD_LIBS=""
- SHLIB_SUFFIX=".so"
- CC_SEARCH_FLAGS=""
- LD_SEARCH_FLAGS=""
- ;;
- SunOS-5.[[0-6]])
- # Careful to not let 5.10+ fall into this case
-
- # Note: If _REENTRANT isn't defined, then Solaris
- # won't define thread-safe library routines.
-
- AC_DEFINE(_REENTRANT, 1, [Do we want the reentrant OS API?])
- AC_DEFINE(_POSIX_PTHREAD_SEMANTICS, 1,
- [Do we really want to follow the standard? Yes we do!])
-
- SHLIB_CFLAGS="-KPIC"
- SHLIB_SUFFIX=".so"
- AS_IF([test "$GCC" = yes], [
- SHLIB_LD='${CC} -shared'
- CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}'
- LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
- ], [
- SHLIB_LD="/usr/ccs/bin/ld -G -z text"
- CC_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}'
- LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
- ])
- ;;
- SunOS-5*)
- # Note: If _REENTRANT isn't defined, then Solaris
- # won't define thread-safe library routines.
-
- AC_DEFINE(_REENTRANT, 1, [Do we want the reentrant OS API?])
- AC_DEFINE(_POSIX_PTHREAD_SEMANTICS, 1,
- [Do we really want to follow the standard? Yes we do!])
-
- SHLIB_CFLAGS="-KPIC"
-
- # Check to enable 64-bit flags for compiler/linker
- AS_IF([test "$do64bit" = yes], [
- arch=`isainfo`
- AS_IF([test "$arch" = "sparcv9 sparc"], [
- AS_IF([test "$GCC" = yes], [
- AS_IF([test "`${CC} -dumpversion | awk -F. '{print [$]1}'`" -lt 3], [
- AC_MSG_WARN([64bit mode not supported with GCC < 3.2 on $system])
- ], [
- do64bit_ok=yes
- CFLAGS="$CFLAGS -m64 -mcpu=v9"
- LDFLAGS="$LDFLAGS -m64 -mcpu=v9"
- SHLIB_CFLAGS="-fPIC"
- ])
- ], [
- do64bit_ok=yes
- AS_IF([test "$do64bitVIS" = yes], [
- CFLAGS="$CFLAGS -xarch=v9a"
- LDFLAGS_ARCH="-xarch=v9a"
- ], [
- CFLAGS="$CFLAGS -xarch=v9"
- LDFLAGS_ARCH="-xarch=v9"
- ])
- # Solaris 64 uses this as well
- #LD_LIBRARY_PATH_VAR="LD_LIBRARY_PATH_64"
- ])
- ], [AS_IF([test "$arch" = "amd64 i386"], [
- AS_IF([test "$GCC" = yes], [
- case $system in
- SunOS-5.1[[1-9]]*|SunOS-5.[[2-9]][[0-9]]*)
- do64bit_ok=yes
- CFLAGS="$CFLAGS -m64"
- LDFLAGS="$LDFLAGS -m64";;
- *)
- AC_MSG_WARN([64bit mode not supported with GCC on $system]);;
- esac
- ], [
- do64bit_ok=yes
- case $system in
- SunOS-5.1[[1-9]]*|SunOS-5.[[2-9]][[0-9]]*)
- CFLAGS="$CFLAGS -m64"
- LDFLAGS="$LDFLAGS -m64";;
- *)
- CFLAGS="$CFLAGS -xarch=amd64"
- LDFLAGS="$LDFLAGS -xarch=amd64";;
- esac
- ])
- ], [AC_MSG_WARN([64bit mode not supported for $arch])])])
- ])
-
- SHLIB_SUFFIX=".so"
- AS_IF([test "$GCC" = yes], [
- SHLIB_LD='${CC} -shared'
- CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}'
- LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
- AS_IF([test "$do64bit_ok" = yes], [
- AS_IF([test "$arch" = "sparcv9 sparc"], [
- # We need to specify -static-libgcc or we need to
- # add the path to the sparv9 libgcc.
- # JH: static-libgcc is necessary for core Tcl, but may
- # not be necessary for extensions.
- SHLIB_LD="$SHLIB_LD -m64 -mcpu=v9 -static-libgcc"
- # for finding sparcv9 libgcc, get the regular libgcc
- # path, remove so name and append 'sparcv9'
- #v9gcclibdir="`gcc -print-file-name=libgcc_s.so` | ..."
- #CC_SEARCH_FLAGS="${CC_SEARCH_FLAGS},-R,$v9gcclibdir"
- ], [AS_IF([test "$arch" = "amd64 i386"], [
- # JH: static-libgcc is necessary for core Tcl, but may
- # not be necessary for extensions.
- SHLIB_LD="$SHLIB_LD -m64 -static-libgcc"
- ])])
- ])
- ], [
- case $system in
- SunOS-5.[[1-9]][[0-9]]*)
- # TEA specific: use LDFLAGS_DEFAULT instead of LDFLAGS
- SHLIB_LD='${CC} -G -z text ${LDFLAGS_DEFAULT}';;
- *)
- SHLIB_LD='/usr/ccs/bin/ld -G -z text';;
- esac
- CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}'
- LD_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}'
- ])
- ;;
- UNIX_SV* | UnixWare-5*)
- SHLIB_CFLAGS="-KPIC"
- SHLIB_LD='${CC} -G'
- SHLIB_LD_LIBS=""
- SHLIB_SUFFIX=".so"
- # Some UNIX_SV* systems (unixware 1.1.2 for example) have linkers
- # that don't grok the -Bexport option. Test that it does.
- AC_CACHE_CHECK([for ld accepts -Bexport flag], tcl_cv_ld_Bexport, [
- hold_ldflags=$LDFLAGS
- LDFLAGS="$LDFLAGS -Wl,-Bexport"
- AC_TRY_LINK(, [int i;], tcl_cv_ld_Bexport=yes, tcl_cv_ld_Bexport=no)
- LDFLAGS=$hold_ldflags])
- AS_IF([test $tcl_cv_ld_Bexport = yes], [
- LDFLAGS="$LDFLAGS -Wl,-Bexport"
- ])
- CC_SEARCH_FLAGS=""
- LD_SEARCH_FLAGS=""
- ;;
- esac
-
- AS_IF([test "$do64bit" = yes -a "$do64bit_ok" = no], [
- AC_MSG_WARN([64bit support being disabled -- don't know magic for this platform])
- ])
-
-dnl # Add any CPPFLAGS set in the environment to our CFLAGS, but delay doing so
-dnl # until the end of configure, as configure's compile and link tests use
-dnl # both CPPFLAGS and CFLAGS (unlike our compile and link) but configure's
-dnl # preprocessing tests use only CPPFLAGS.
- AC_CONFIG_COMMANDS_PRE([CFLAGS="${CFLAGS} ${CPPFLAGS}"; CPPFLAGS=""])
-
- # Add in the arch flags late to ensure it wasn't removed.
- # Not necessary in TEA, but this is aligned with core
- LDFLAGS="$LDFLAGS $LDFLAGS_ARCH"
-
- # If we're running gcc, then change the C flags for compiling shared
- # libraries to the right flags for gcc, instead of those for the
- # standard manufacturer compiler.
-
- AS_IF([test "$GCC" = yes], [
- case $system in
- AIX-*) ;;
- BSD/OS*) ;;
- CYGWIN_*|MINGW32_*) ;;
- IRIX*) ;;
- NetBSD-*|FreeBSD-*|OpenBSD-*) ;;
- Darwin-*) ;;
- SCO_SV-3.2*) ;;
- windows) ;;
- *) SHLIB_CFLAGS="-fPIC" ;;
- esac])
-
- AS_IF([test "$tcl_cv_cc_visibility_hidden" != yes], [
- AC_DEFINE(MODULE_SCOPE, [extern],
- [No Compiler support for module scope symbols])
- ])
-
- AS_IF([test "$SHARED_LIB_SUFFIX" = ""], [
- # TEA specific: use PACKAGE_VERSION instead of VERSION
- SHARED_LIB_SUFFIX='${PACKAGE_VERSION}${SHLIB_SUFFIX}'
- ])
- AS_IF([test "$UNSHARED_LIB_SUFFIX" = ""], [
- # TEA specific: use PACKAGE_VERSION instead of VERSION
- UNSHARED_LIB_SUFFIX='${PACKAGE_VERSION}.a'
- ])
-
- if test "${GCC}" = "yes" -a ${SHLIB_SUFFIX} = ".dll"; then
- AC_CACHE_CHECK(for SEH support in compiler,
- tcl_cv_seh,
- AC_TRY_RUN([
-#define WIN32_LEAN_AND_MEAN
-#include <windows.h>
-#undef WIN32_LEAN_AND_MEAN
-
- int main(int argc, char** argv) {
- int a, b = 0;
- __try {
- a = 666 / b;
- }
- __except (EXCEPTION_EXECUTE_HANDLER) {
- return 0;
- }
- return 1;
- }
- ],
- tcl_cv_seh=yes,
- tcl_cv_seh=no,
- tcl_cv_seh=no)
- )
- if test "$tcl_cv_seh" = "no" ; then
- AC_DEFINE(HAVE_NO_SEH, 1,
- [Defined when mingw does not support SEH])
- fi
-
- #
- # Check to see if the excpt.h include file provided contains the
- # definition for EXCEPTION_DISPOSITION; if not, which is the case
- # with Cygwin's version as of 2002-04-10, define it to be int,
- # sufficient for getting the current code to work.
- #
- AC_CACHE_CHECK(for EXCEPTION_DISPOSITION support in include files,
- tcl_cv_eh_disposition,
- AC_TRY_COMPILE([
-# define WIN32_LEAN_AND_MEAN
-# include <windows.h>
-# undef WIN32_LEAN_AND_MEAN
- ],[
- EXCEPTION_DISPOSITION x;
- ],
- tcl_cv_eh_disposition=yes,
- tcl_cv_eh_disposition=no)
- )
- if test "$tcl_cv_eh_disposition" = "no" ; then
- AC_DEFINE(EXCEPTION_DISPOSITION, int,
- [Defined when cygwin/mingw does not support EXCEPTION DISPOSITION])
- fi
-
- # Check to see if winnt.h defines CHAR, SHORT, and LONG
- # even if VOID has already been #defined. The win32api
- # used by mingw and cygwin is known to do this.
-
- AC_CACHE_CHECK(for winnt.h that ignores VOID define,
- tcl_cv_winnt_ignore_void,
- AC_TRY_COMPILE([
-#define VOID void
-#define WIN32_LEAN_AND_MEAN
-#include <windows.h>
-#undef WIN32_LEAN_AND_MEAN
- ], [
- CHAR c;
- SHORT s;
- LONG l;
- ],
- tcl_cv_winnt_ignore_void=yes,
- tcl_cv_winnt_ignore_void=no)
- )
- if test "$tcl_cv_winnt_ignore_void" = "yes" ; then
- AC_DEFINE(HAVE_WINNT_IGNORE_VOID, 1,
- [Defined when cygwin/mingw ignores VOID define in winnt.h])
- fi
- fi
-
- # See if the compiler supports casting to a union type.
- # This is used to stop gcc from printing a compiler
- # warning when initializing a union member.
-
- AC_CACHE_CHECK(for cast to union support,
- tcl_cv_cast_to_union,
- AC_TRY_COMPILE([],
- [
- union foo { int i; double d; };
- union foo f = (union foo) (int) 0;
- ],
- tcl_cv_cast_to_union=yes,
- tcl_cv_cast_to_union=no)
- )
- if test "$tcl_cv_cast_to_union" = "yes"; then
- AC_DEFINE(HAVE_CAST_TO_UNION, 1,
- [Defined when compiler supports casting to union type.])
- fi
-
- AC_SUBST(CFLAGS_DEBUG)
- AC_SUBST(CFLAGS_OPTIMIZE)
- AC_SUBST(CFLAGS_WARNING)
-
- AC_SUBST(STLIB_LD)
- AC_SUBST(SHLIB_LD)
- AC_SUBST(SHLIB_SUFFIX)
-
- AC_SUBST(SHLIB_LD_LIBS)
- AC_SUBST(SHLIB_CFLAGS)
-
- AC_SUBST(LD_LIBRARY_PATH_VAR)
-
- # These must be called after we do the basic CFLAGS checks and
- # verify any possible 64-bit or similar switches are necessary
- TEA_TCL_EARLY_FLAGS
- TEA_TCL_64BIT_FLAGS
-])
-
-#--------------------------------------------------------------------
-# TEA_SERIAL_PORT
-#
-# Determine which interface to use to talk to the serial port.
-# Note that #include lines must begin in leftmost column for
-# some compilers to recognize them as preprocessor directives,
-# and some build environments have stdin not pointing at a
-# pseudo-terminal (usually /dev/null instead.)
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Defines only one of the following vars:
-# HAVE_SYS_MODEM_H
-# USE_TERMIOS
-# USE_TERMIO
-# USE_SGTTY
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_SERIAL_PORT], [
- AC_CHECK_HEADERS(sys/modem.h)
- AC_CACHE_CHECK([termios vs. termio vs. sgtty], tcl_cv_api_serial, [
- AC_TRY_RUN([
-#include <termios.h>
-
-int main() {
- struct termios t;
- if (tcgetattr(0, &t) == 0) {
- cfsetospeed(&t, 0);
- t.c_cflag |= PARENB | PARODD | CSIZE | CSTOPB;
- return 0;
- }
- return 1;
-}], tcl_cv_api_serial=termios, tcl_cv_api_serial=no, tcl_cv_api_serial=no)
- if test $tcl_cv_api_serial = no ; then
- AC_TRY_RUN([
-#include <termio.h>
-
-int main() {
- struct termio t;
- if (ioctl(0, TCGETA, &t) == 0) {
- t.c_cflag |= CBAUD | PARENB | PARODD | CSIZE | CSTOPB;
- return 0;
- }
- return 1;
-}], tcl_cv_api_serial=termio, tcl_cv_api_serial=no, tcl_cv_api_serial=no)
- fi
- if test $tcl_cv_api_serial = no ; then
- AC_TRY_RUN([
-#include <sgtty.h>
-
-int main() {
- struct sgttyb t;
- if (ioctl(0, TIOCGETP, &t) == 0) {
- t.sg_ospeed = 0;
- t.sg_flags |= ODDP | EVENP | RAW;
- return 0;
- }
- return 1;
-}], tcl_cv_api_serial=sgtty, tcl_cv_api_serial=no, tcl_cv_api_serial=no)
- fi
- if test $tcl_cv_api_serial = no ; then
- AC_TRY_RUN([
-#include <termios.h>
-#include <errno.h>
-
-int main() {
- struct termios t;
- if (tcgetattr(0, &t) == 0
- || errno == ENOTTY || errno == ENXIO || errno == EINVAL) {
- cfsetospeed(&t, 0);
- t.c_cflag |= PARENB | PARODD | CSIZE | CSTOPB;
- return 0;
- }
- return 1;
-}], tcl_cv_api_serial=termios, tcl_cv_api_serial=no, tcl_cv_api_serial=no)
- fi
- if test $tcl_cv_api_serial = no; then
- AC_TRY_RUN([
-#include <termio.h>
-#include <errno.h>
-
-int main() {
- struct termio t;
- if (ioctl(0, TCGETA, &t) == 0
- || errno == ENOTTY || errno == ENXIO || errno == EINVAL) {
- t.c_cflag |= CBAUD | PARENB | PARODD | CSIZE | CSTOPB;
- return 0;
- }
- return 1;
- }], tcl_cv_api_serial=termio, tcl_cv_api_serial=no, tcl_cv_api_serial=no)
- fi
- if test $tcl_cv_api_serial = no; then
- AC_TRY_RUN([
-#include <sgtty.h>
-#include <errno.h>
-
-int main() {
- struct sgttyb t;
- if (ioctl(0, TIOCGETP, &t) == 0
- || errno == ENOTTY || errno == ENXIO || errno == EINVAL) {
- t.sg_ospeed = 0;
- t.sg_flags |= ODDP | EVENP | RAW;
- return 0;
- }
- return 1;
-}], tcl_cv_api_serial=sgtty, tcl_cv_api_serial=none, tcl_cv_api_serial=none)
- fi])
- case $tcl_cv_api_serial in
- termios) AC_DEFINE(USE_TERMIOS, 1, [Use the termios API for serial lines]);;
- termio) AC_DEFINE(USE_TERMIO, 1, [Use the termio API for serial lines]);;
- sgtty) AC_DEFINE(USE_SGTTY, 1, [Use the sgtty API for serial lines]);;
- esac
-])
-
-#--------------------------------------------------------------------
-# TEA_MISSING_POSIX_HEADERS
-#
-# Supply substitutes for missing POSIX header files. Special
-# notes:
-# - stdlib.h doesn't define strtol, strtoul, or
-# strtod in some versions of SunOS
-# - some versions of string.h don't declare procedures such
-# as strstr
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Defines some of the following vars:
-# NO_DIRENT_H
-# NO_ERRNO_H
-# NO_VALUES_H
-# HAVE_LIMITS_H or NO_LIMITS_H
-# NO_STDLIB_H
-# NO_STRING_H
-# NO_SYS_WAIT_H
-# NO_DLFCN_H
-# HAVE_SYS_PARAM_H
-#
-# HAVE_STRING_H ?
-#
-# tkUnixPort.h checks for HAVE_LIMITS_H, so do both HAVE and
-# CHECK on limits.h
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_MISSING_POSIX_HEADERS], [
- AC_CACHE_CHECK([dirent.h], tcl_cv_dirent_h, [
- AC_TRY_LINK([#include <sys/types.h>
-#include <dirent.h>], [
-#ifndef _POSIX_SOURCE
-# ifdef __Lynx__
- /*
- * Generate compilation error to make the test fail: Lynx headers
- * are only valid if really in the POSIX environment.
- */
-
- missing_procedure();
-# endif
-#endif
-DIR *d;
-struct dirent *entryPtr;
-char *p;
-d = opendir("foobar");
-entryPtr = readdir(d);
-p = entryPtr->d_name;
-closedir(d);
-], tcl_cv_dirent_h=yes, tcl_cv_dirent_h=no)])
-
- if test $tcl_cv_dirent_h = no; then
- AC_DEFINE(NO_DIRENT_H, 1, [Do we have <dirent.h>?])
- fi
-
- # TEA specific:
- AC_CHECK_HEADER(errno.h, , [AC_DEFINE(NO_ERRNO_H, 1, [Do we have <errno.h>?])])
- AC_CHECK_HEADER(float.h, , [AC_DEFINE(NO_FLOAT_H, 1, [Do we have <float.h>?])])
- AC_CHECK_HEADER(values.h, , [AC_DEFINE(NO_VALUES_H, 1, [Do we have <values.h>?])])
- AC_CHECK_HEADER(limits.h,
- [AC_DEFINE(HAVE_LIMITS_H, 1, [Do we have <limits.h>?])],
- [AC_DEFINE(NO_LIMITS_H, 1, [Do we have <limits.h>?])])
- AC_CHECK_HEADER(stdlib.h, tcl_ok=1, tcl_ok=0)
- AC_EGREP_HEADER(strtol, stdlib.h, , tcl_ok=0)
- AC_EGREP_HEADER(strtoul, stdlib.h, , tcl_ok=0)
- AC_EGREP_HEADER(strtod, stdlib.h, , tcl_ok=0)
- if test $tcl_ok = 0; then
- AC_DEFINE(NO_STDLIB_H, 1, [Do we have <stdlib.h>?])
- fi
- AC_CHECK_HEADER(string.h, tcl_ok=1, tcl_ok=0)
- AC_EGREP_HEADER(strstr, string.h, , tcl_ok=0)
- AC_EGREP_HEADER(strerror, string.h, , tcl_ok=0)
-
- # See also memmove check below for a place where NO_STRING_H can be
- # set and why.
-
- if test $tcl_ok = 0; then
- AC_DEFINE(NO_STRING_H, 1, [Do we have <string.h>?])
- fi
-
- AC_CHECK_HEADER(sys/wait.h, , [AC_DEFINE(NO_SYS_WAIT_H, 1, [Do we have <sys/wait.h>?])])
- AC_CHECK_HEADER(dlfcn.h, , [AC_DEFINE(NO_DLFCN_H, 1, [Do we have <dlfcn.h>?])])
-
- # OS/390 lacks sys/param.h (and doesn't need it, by chance).
- AC_HAVE_HEADERS(sys/param.h)
-])
-
-#--------------------------------------------------------------------
-# TEA_PATH_X
-#
-# Locate the X11 header files and the X11 library archive. Try
-# the ac_path_x macro first, but if it doesn't find the X stuff
-# (e.g. because there's no xmkmf program) then check through
-# a list of possible directories. Under some conditions the
-# autoconf macro will return an include directory that contains
-# no include files, so double-check its result just to be safe.
-#
-# This should be called after TEA_CONFIG_CFLAGS as setting the
-# LIBS line can confuse some configure macro magic.
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Sets the following vars:
-# XINCLUDES
-# XLIBSW
-# PKG_LIBS (appends to)
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_PATH_X], [
- if test "${PRACTCL_WINDOWINGSYSTEM}" = "x11" ; then
- TEA_PATH_UNIX_X
- fi
-])
-
-AC_DEFUN([TEA_PATH_UNIX_X], [
- AC_PATH_X
- not_really_there=""
- if test "$no_x" = ""; then
- if test "$x_includes" = ""; then
- AC_TRY_CPP([#include <X11/Xlib.h>], , not_really_there="yes")
- else
- if test ! -r $x_includes/X11/Xlib.h; then
- not_really_there="yes"
- fi
- fi
- fi
- if test "$no_x" = "yes" -o "$not_really_there" = "yes"; then
- AC_MSG_CHECKING([for X11 header files])
- found_xincludes="no"
- AC_TRY_CPP([#include <X11/Xlib.h>], found_xincludes="yes", found_xincludes="no")
- if test "$found_xincludes" = "no"; then
- dirs="/usr/unsupported/include /usr/local/include /usr/X386/include /usr/X11R6/include /usr/X11R5/include /usr/include/X11R5 /usr/include/X11R4 /usr/openwin/include /usr/X11/include /usr/sww/include"
- for i in $dirs ; do
- if test -r $i/X11/Xlib.h; then
- AC_MSG_RESULT([$i])
- XINCLUDES=" -I$i"
- found_xincludes="yes"
- break
- fi
- done
- fi
- else
- if test "$x_includes" != ""; then
- XINCLUDES="-I$x_includes"
- found_xincludes="yes"
- fi
- fi
- if test "$found_xincludes" = "no"; then
- AC_MSG_RESULT([couldn't find any!])
- fi
-
- if test "$no_x" = yes; then
- AC_MSG_CHECKING([for X11 libraries])
- XLIBSW=nope
- dirs="/usr/unsupported/lib /usr/local/lib /usr/X386/lib /usr/X11R6/lib /usr/X11R5/lib /usr/lib/X11R5 /usr/lib/X11R4 /usr/openwin/lib /usr/X11/lib /usr/sww/X11/lib"
- for i in $dirs ; do
- if test -r $i/libX11.a -o -r $i/libX11.so -o -r $i/libX11.sl -o -r $i/libX11.dylib; then
- AC_MSG_RESULT([$i])
- XLIBSW="-L$i -lX11"
- x_libraries="$i"
- break
- fi
- done
- else
- if test "$x_libraries" = ""; then
- XLIBSW=-lX11
- else
- XLIBSW="-L$x_libraries -lX11"
- fi
- fi
- if test "$XLIBSW" = nope ; then
- AC_CHECK_LIB(Xwindow, XCreateWindow, XLIBSW=-lXwindow)
- fi
- if test "$XLIBSW" = nope ; then
- AC_MSG_RESULT([could not find any! Using -lX11.])
- XLIBSW=-lX11
- fi
- # TEA specific:
- if test x"${XLIBSW}" != x ; then
- PKG_LIBS="${PKG_LIBS} ${XLIBSW}"
- fi
-])
-
-#--------------------------------------------------------------------
-# TEA_BLOCKING_STYLE
-#
-# The statements below check for systems where POSIX-style
-# non-blocking I/O (O_NONBLOCK) doesn't work or is unimplemented.
-# On these systems (mostly older ones), use the old BSD-style
-# FIONBIO approach instead.
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Defines some of the following vars:
-# HAVE_SYS_IOCTL_H
-# HAVE_SYS_FILIO_H
-# USE_FIONBIO
-# O_NONBLOCK
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_BLOCKING_STYLE], [
- AC_CHECK_HEADERS(sys/ioctl.h)
- AC_CHECK_HEADERS(sys/filio.h)
- TEA_CONFIG_SYSTEM
- AC_MSG_CHECKING([FIONBIO vs. O_NONBLOCK for nonblocking I/O])
- case $system in
- OSF*)
- AC_DEFINE(USE_FIONBIO, 1, [Should we use FIONBIO?])
- AC_MSG_RESULT([FIONBIO])
- ;;
- *)
- AC_MSG_RESULT([O_NONBLOCK])
- ;;
- esac
-])
-
-#--------------------------------------------------------------------
-# TEA_TIME_HANDLER
-#
-# Checks how the system deals with time.h, what time structures
-# are used on the system, and what fields the structures have.
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Defines some of the following vars:
-# USE_DELTA_FOR_TZ
-# HAVE_TM_GMTOFF
-# HAVE_TM_TZADJ
-# HAVE_TIMEZONE_VAR
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_TIME_HANDLER], [
- AC_CHECK_HEADERS(sys/time.h)
- AC_HEADER_TIME
- AC_STRUCT_TIMEZONE
-
- AC_CHECK_FUNCS(gmtime_r localtime_r)
-
- AC_CACHE_CHECK([tm_tzadj in struct tm], tcl_cv_member_tm_tzadj, [
- AC_TRY_COMPILE([#include <time.h>], [struct tm tm; tm.tm_tzadj;],
- tcl_cv_member_tm_tzadj=yes, tcl_cv_member_tm_tzadj=no)])
- if test $tcl_cv_member_tm_tzadj = yes ; then
- AC_DEFINE(HAVE_TM_TZADJ, 1, [Should we use the tm_tzadj field of struct tm?])
- fi
-
- AC_CACHE_CHECK([tm_gmtoff in struct tm], tcl_cv_member_tm_gmtoff, [
- AC_TRY_COMPILE([#include <time.h>], [struct tm tm; tm.tm_gmtoff;],
- tcl_cv_member_tm_gmtoff=yes, tcl_cv_member_tm_gmtoff=no)])
- if test $tcl_cv_member_tm_gmtoff = yes ; then
- AC_DEFINE(HAVE_TM_GMTOFF, 1, [Should we use the tm_gmtoff field of struct tm?])
- fi
-
- #
- # Its important to include time.h in this check, as some systems
- # (like convex) have timezone functions, etc.
- #
- AC_CACHE_CHECK([long timezone variable], tcl_cv_timezone_long, [
- AC_TRY_COMPILE([#include <time.h>],
- [extern long timezone;
- timezone += 1;
- exit (0);],
- tcl_cv_timezone_long=yes, tcl_cv_timezone_long=no)])
- if test $tcl_cv_timezone_long = yes ; then
- AC_DEFINE(HAVE_TIMEZONE_VAR, 1, [Should we use the global timezone variable?])
- else
- #
- # On some systems (eg IRIX 6.2), timezone is a time_t and not a long.
- #
- AC_CACHE_CHECK([time_t timezone variable], tcl_cv_timezone_time, [
- AC_TRY_COMPILE([#include <time.h>],
- [extern time_t timezone;
- timezone += 1;
- exit (0);],
- tcl_cv_timezone_time=yes, tcl_cv_timezone_time=no)])
- if test $tcl_cv_timezone_time = yes ; then
- AC_DEFINE(HAVE_TIMEZONE_VAR, 1, [Should we use the global timezone variable?])
- fi
- fi
-])
-
-#--------------------------------------------------------------------
-# TEA_BUGGY_STRTOD
-#
-# Under Solaris 2.4, strtod returns the wrong value for the
-# terminating character under some conditions. Check for this
-# and if the problem exists use a substitute procedure
-# "fixstrtod" (provided by Tcl) that corrects the error.
-# Also, on Compaq's Tru64 Unix 5.0,
-# strtod(" ") returns 0.0 instead of a failure to convert.
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Might defines some of the following vars:
-# strtod (=fixstrtod)
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_BUGGY_STRTOD], [
- AC_CHECK_FUNC(strtod, tcl_strtod=1, tcl_strtod=0)
- if test "$tcl_strtod" = 1; then
- AC_CACHE_CHECK([for Solaris2.4/Tru64 strtod bugs], tcl_cv_strtod_buggy,[
- AC_TRY_RUN([
- extern double strtod();
- int main() {
- char *infString="Inf", *nanString="NaN", *spaceString=" ";
- char *term;
- double value;
- value = strtod(infString, &term);
- if ((term != infString) && (term[-1] == 0)) {
- exit(1);
- }
- value = strtod(nanString, &term);
- if ((term != nanString) && (term[-1] == 0)) {
- exit(1);
- }
- value = strtod(spaceString, &term);
- if (term == (spaceString+1)) {
- exit(1);
- }
- exit(0);
- }], tcl_cv_strtod_buggy=ok, tcl_cv_strtod_buggy=buggy,
- tcl_cv_strtod_buggy=buggy)])
- if test "$tcl_cv_strtod_buggy" = buggy; then
- AC_LIBOBJ([fixstrtod])
- USE_COMPAT=1
- AC_DEFINE(strtod, fixstrtod, [Do we want to use the strtod() in compat?])
- fi
- fi
-])
-
-#--------------------------------------------------------------------
-# TEA_TCL_LINK_LIBS
-#
-# Search for the libraries needed to link the Tcl shell.
-# Things like the math library (-lm) and socket stuff (-lsocket vs.
-# -lnsl) are dealt with here.
-#
-# Arguments:
-# Requires the following vars to be set in the Makefile:
-# DL_LIBS (not in TEA, only needed in core)
-# LIBS
-# MATH_LIBS
-#
-# Results:
-#
-# Substitutes the following vars:
-# TCL_LIBS
-# MATH_LIBS
-#
-# Might append to the following vars:
-# LIBS
-#
-# Might define the following vars:
-# HAVE_NET_ERRNO_H
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_TCL_LINK_LIBS], [
- #--------------------------------------------------------------------
- # On a few very rare systems, all of the libm.a stuff is
- # already in libc.a. Set compiler flags accordingly.
- # Also, Linux requires the "ieee" library for math to work
- # right (and it must appear before "-lm").
- #--------------------------------------------------------------------
-
- AC_CHECK_FUNC(sin, MATH_LIBS="", MATH_LIBS="-lm")
- AC_CHECK_LIB(ieee, main, [MATH_LIBS="-lieee $MATH_LIBS"])
-
- #--------------------------------------------------------------------
- # Interactive UNIX requires -linet instead of -lsocket, plus it
- # needs net/errno.h to define the socket-related error codes.
- #--------------------------------------------------------------------
-
- AC_CHECK_LIB(inet, main, [LIBS="$LIBS -linet"])
- AC_CHECK_HEADER(net/errno.h, [
- AC_DEFINE(HAVE_NET_ERRNO_H, 1, [Do we have <net/errno.h>?])])
-
- #--------------------------------------------------------------------
- # Check for the existence of the -lsocket and -lnsl libraries.
- # The order here is important, so that they end up in the right
- # order in the command line generated by make. Here are some
- # special considerations:
- # 1. Use "connect" and "accept" to check for -lsocket, and
- # "gethostbyname" to check for -lnsl.
- # 2. Use each function name only once: can't redo a check because
- # autoconf caches the results of the last check and won't redo it.
- # 3. Use -lnsl and -lsocket only if they supply procedures that
- # aren't already present in the normal libraries. This is because
- # IRIX 5.2 has libraries, but they aren't needed and they're
- # bogus: they goof up name resolution if used.
- # 4. On some SVR4 systems, can't use -lsocket without -lnsl too.
- # To get around this problem, check for both libraries together
- # if -lsocket doesn't work by itself.
- #--------------------------------------------------------------------
-
- tcl_checkBoth=0
- AC_CHECK_FUNC(connect, tcl_checkSocket=0, tcl_checkSocket=1)
- if test "$tcl_checkSocket" = 1; then
- AC_CHECK_FUNC(setsockopt, , [AC_CHECK_LIB(socket, setsockopt,
- LIBS="$LIBS -lsocket", tcl_checkBoth=1)])
- fi
- if test "$tcl_checkBoth" = 1; then
- tk_oldLibs=$LIBS
- LIBS="$LIBS -lsocket -lnsl"
- AC_CHECK_FUNC(accept, tcl_checkNsl=0, [LIBS=$tk_oldLibs])
- fi
- AC_CHECK_FUNC(gethostbyname, , [AC_CHECK_LIB(nsl, gethostbyname,
- [LIBS="$LIBS -lnsl"])])
-
- # TEA specific: Don't perform the eval of the libraries here because
- # DL_LIBS won't be set until we call TEA_CONFIG_CFLAGS
-
- TCL_LIBS='${DL_LIBS} ${LIBS} ${MATH_LIBS}'
- AC_SUBST(TCL_LIBS)
- AC_SUBST(MATH_LIBS)
-])
-
-#--------------------------------------------------------------------
-# TEA_TCL_EARLY_FLAGS
-#
-# Check for what flags are needed to be passed so the correct OS
-# features are available.
-#
-# Arguments:
-# None
-#
-# Results:
-#
-# Might define the following vars:
-# _ISOC99_SOURCE
-# _LARGEFILE64_SOURCE
-# _LARGEFILE_SOURCE64
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_TCL_EARLY_FLAG],[
- AC_CACHE_VAL([tcl_cv_flag_]translit($1,[A-Z],[a-z]),
- AC_TRY_COMPILE([$2], $3, [tcl_cv_flag_]translit($1,[A-Z],[a-z])=no,
- AC_TRY_COMPILE([[#define ]$1[ 1
-]$2], $3,
- [tcl_cv_flag_]translit($1,[A-Z],[a-z])=yes,
- [tcl_cv_flag_]translit($1,[A-Z],[a-z])=no)))
- if test ["x${tcl_cv_flag_]translit($1,[A-Z],[a-z])[}" = "xyes"] ; then
- AC_DEFINE($1, 1, [Add the ]$1[ flag when building])
- tcl_flags="$tcl_flags $1"
- fi
-])
-
-AC_DEFUN([TEA_TCL_EARLY_FLAGS],[
- AC_MSG_CHECKING([for required early compiler flags])
- tcl_flags=""
- TEA_TCL_EARLY_FLAG(_ISOC99_SOURCE,[#include <stdlib.h>],
- [char *p = (char *)strtoll; char *q = (char *)strtoull;])
- TEA_TCL_EARLY_FLAG(_LARGEFILE64_SOURCE,[#include <sys/stat.h>],
- [struct stat64 buf; int i = stat64("/", &buf);])
- TEA_TCL_EARLY_FLAG(_LARGEFILE_SOURCE64,[#include <sys/stat.h>],
- [char *p = (char *)open64;])
- if test "x${tcl_flags}" = "x" ; then
- AC_MSG_RESULT([none])
- else
- AC_MSG_RESULT([${tcl_flags}])
- fi
-])
-
-#--------------------------------------------------------------------
-# TEA_TCL_64BIT_FLAGS
-#
-# Check for what is defined in the way of 64-bit features.
-#
-# Arguments:
-# None
-#
-# Results:
-#
-# Might define the following vars:
-# TCL_WIDE_INT_IS_LONG
-# TCL_WIDE_INT_TYPE
-# HAVE_STRUCT_DIRENT64
-# HAVE_STRUCT_STAT64
-# HAVE_TYPE_OFF64_T
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_TCL_64BIT_FLAGS], [
- AC_MSG_CHECKING([for 64-bit integer type])
- AC_CACHE_VAL(tcl_cv_type_64bit,[
- tcl_cv_type_64bit=none
- # See if the compiler knows natively about __int64
- AC_TRY_COMPILE(,[__int64 value = (__int64) 0;],
- tcl_type_64bit=__int64, tcl_type_64bit="long long")
- # See if we should use long anyway Note that we substitute in the
- # type that is our current guess for a 64-bit type inside this check
- # program, so it should be modified only carefully...
- AC_TRY_COMPILE(,[switch (0) {
- case 1: case (sizeof(]${tcl_type_64bit}[)==sizeof(long)): ;
- }],tcl_cv_type_64bit=${tcl_type_64bit})])
- if test "${tcl_cv_type_64bit}" = none ; then
- AC_DEFINE(TCL_WIDE_INT_IS_LONG, 1, [Are wide integers to be implemented with C 'long's?])
- AC_MSG_RESULT([using long])
- elif test "${tcl_cv_type_64bit}" = "__int64" \
- -a "${TEA_PLATFORM}" = "windows" ; then
- # TEA specific: We actually want to use the default tcl.h checks in
- # this case to handle both TCL_WIDE_INT_TYPE and TCL_LL_MODIFIER*
- AC_MSG_RESULT([using Tcl header defaults])
- else
- AC_DEFINE_UNQUOTED(TCL_WIDE_INT_TYPE,${tcl_cv_type_64bit},
- [What type should be used to define wide integers?])
- AC_MSG_RESULT([${tcl_cv_type_64bit}])
-
- # Now check for auxiliary declarations
- AC_CACHE_CHECK([for struct dirent64], tcl_cv_struct_dirent64,[
- AC_TRY_COMPILE([#include <sys/types.h>
-#include <dirent.h>],[struct dirent64 p;],
- tcl_cv_struct_dirent64=yes,tcl_cv_struct_dirent64=no)])
- if test "x${tcl_cv_struct_dirent64}" = "xyes" ; then
- AC_DEFINE(HAVE_STRUCT_DIRENT64, 1, [Is 'struct dirent64' in <sys/types.h>?])
- fi
-
- AC_CACHE_CHECK([for struct stat64], tcl_cv_struct_stat64,[
- AC_TRY_COMPILE([#include <sys/stat.h>],[struct stat64 p;
-],
- tcl_cv_struct_stat64=yes,tcl_cv_struct_stat64=no)])
- if test "x${tcl_cv_struct_stat64}" = "xyes" ; then
- AC_DEFINE(HAVE_STRUCT_STAT64, 1, [Is 'struct stat64' in <sys/stat.h>?])
- fi
-
- AC_CHECK_FUNCS(open64 lseek64)
- AC_MSG_CHECKING([for off64_t])
- AC_CACHE_VAL(tcl_cv_type_off64_t,[
- AC_TRY_COMPILE([#include <sys/types.h>],[off64_t offset;
-],
- tcl_cv_type_off64_t=yes,tcl_cv_type_off64_t=no)])
- dnl Define HAVE_TYPE_OFF64_T only when the off64_t type and the
- dnl functions lseek64 and open64 are defined.
- if test "x${tcl_cv_type_off64_t}" = "xyes" && \
- test "x${ac_cv_func_lseek64}" = "xyes" && \
- test "x${ac_cv_func_open64}" = "xyes" ; then
- AC_DEFINE(HAVE_TYPE_OFF64_T, 1, [Is off64_t in <sys/types.h>?])
- AC_MSG_RESULT([yes])
- else
- AC_MSG_RESULT([no])
- fi
- fi
-])
-
-##
-## Here ends the standard Tcl configuration bits and starts the
-## TEA specific functions
-##
-
-#------------------------------------------------------------------------
-# TEA_INIT --
-#
-# Init various Tcl Extension Architecture (TEA) variables.
-# This should be the first called TEA_* macro.
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Defines and substs the following vars:
-# CYGPATH
-# EXEEXT
-# Defines only:
-# TEA_VERSION
-# TEA_INITED
-# TEA_PLATFORM (windows or unix)
-#
-# "cygpath" is used on windows to generate native path names for include
-# files. These variables should only be used with the compiler and linker
-# since they generate native path names.
-#
-# EXEEXT
-# Select the executable extension based on the host type. This
-# is a lightweight replacement for AC_EXEEXT that doesn't require
-# a compiler.
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_INIT], [
- # TEA extensions pass this us the version of TEA they think they
- # are compatible with.
- TEA_VERSION="3.10"
- AC_MSG_CHECKING([for correct TEA configuration])
- if test x"${PACKAGE_NAME}" = x ; then
- AC_MSG_ERROR([
-The PACKAGE_NAME variable must be defined by your TEA configure.ac])
- fi
- if test x"$1" = x ; then
- AC_MSG_ERROR([
-TEA version not specified.])
- elif test "$1" != "${TEA_VERSION}" ; then
- AC_MSG_RESULT([warning: requested TEA version "$1", have "${TEA_VERSION}"])
- else
- AC_MSG_RESULT([ok (TEA ${TEA_VERSION})])
- fi
-
- # If the user did not set CFLAGS, set it now to keep macros
- # like AC_PROG_CC and AC_TRY_COMPILE from adding "-g -O2".
- if test "${CFLAGS+set}" != "set" ; then
- CFLAGS=""
- fi
- TEA_TK_EXTENSION=0
- AC_SUBST(TEA_TK_EXTENSION)
- case "`uname -s`" in
- *win32*|*WIN32*|*MINGW32_*)
- AC_CHECK_PROG(CYGPATH, cygpath, cygpath -m, echo)
- EXEEXT=".exe"
- TEA_PLATFORM="windows"
- ;;
- *CYGWIN_*)
- EXEEXT=".exe"
- # CYGPATH and TEA_PLATFORM are determined later in LOAD_TCLCONFIG
- ;;
- *)
- CYGPATH=echo
- # Maybe we are cross-compiling....
- case ${host_alias} in
- *mingw32*)
- EXEEXT=".exe"
- TEA_PLATFORM="windows"
- ;;
- *)
- EXEEXT=""
- TEA_PLATFORM="unix"
- ;;
- esac
- ;;
- esac
-
- # Check if exec_prefix is set. If not use fall back to prefix.
- # Note when adjusted, so that TEA_PREFIX can correct for this.
- # This is needed for recursive configures, since autoconf propagates
- # $prefix, but not $exec_prefix (doh!).
- if test x$exec_prefix = xNONE ; then
- exec_prefix_default=yes
- exec_prefix=$prefix
- fi
-
- AC_MSG_NOTICE([configuring ${PACKAGE_NAME} ${PACKAGE_VERSION}])
-
- AC_SUBST(EXEEXT)
- AC_SUBST(CYGPATH)
-
- # This package name must be replaced statically for AC_SUBST to work
- AC_SUBST(PKG_LIB_FILE)
- # Substitute STUB_LIB_FILE in case package creates a stub library too.
- AC_SUBST(PKG_STUB_LIB_FILE)
-
- # We AC_SUBST these here to ensure they are subst'ed,
- # in case the user doesn't call TEA_ADD_...
- AC_SUBST(PKG_STUB_SOURCES)
- AC_SUBST(PKG_STUB_OBJECTS)
- AC_SUBST(PKG_TCL_SOURCES)
- AC_SUBST(PKG_HEADERS)
- AC_SUBST(PKG_INCLUDES)
- AC_SUBST(PKG_LIBS)
- AC_SUBST(PKG_CFLAGS)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_SOURCES --
-#
-# Specify one or more source files. Users should check for
-# the right platform before adding to their list.
-# It is not important to specify the directory, as long as it is
-# in the generic, win or unix subdirectory of $(srcdir).
-#
-# Arguments:
-# one or more file names
-#
-# Results:
-#
-# Defines and substs the following vars:
-# PKG_SOURCES
-# PKG_OBJECTS
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_SOURCES], [
- vars="$@"
- for i in $vars; do
- case $i in
- [\$]*)
- # allow $-var names
- PKG_SOURCES="$PKG_SOURCES $i"
- PKG_OBJECTS="$PKG_OBJECTS $i"
- ;;
- *)
- # check for existence - allows for generic/win/unix VPATH
- # To add more dirs here (like 'src'), you have to update VPATH
- # in Makefile.in as well
- if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \
- -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \
- -a ! -f "${srcdir}/macosx/$i" \
- ; then
- AC_MSG_ERROR([could not find source file '$i'])
- fi
- PKG_SOURCES="$PKG_SOURCES $i"
- # this assumes it is in a VPATH dir
- i=`basename $i`
- # handle user calling this before or after TEA_SETUP_COMPILER
- if test x"${OBJEXT}" != x ; then
- j="`echo $i | sed -e 's/\.[[^.]]*$//'`.${OBJEXT}"
- else
- j="`echo $i | sed -e 's/\.[[^.]]*$//'`.\${OBJEXT}"
- fi
- PKG_OBJECTS="$PKG_OBJECTS $j"
- ;;
- esac
- done
- AC_SUBST(PKG_SOURCES)
- AC_SUBST(PKG_OBJECTS)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_STUB_SOURCES --
-#
-# Specify one or more source files. Users should check for
-# the right platform before adding to their list.
-# It is not important to specify the directory, as long as it is
-# in the generic, win or unix subdirectory of $(srcdir).
-#
-# Arguments:
-# one or more file names
-#
-# Results:
-#
-# Defines and substs the following vars:
-# PKG_STUB_SOURCES
-# PKG_STUB_OBJECTS
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_STUB_SOURCES], [
- vars="$@"
- for i in $vars; do
- # check for existence - allows for generic/win/unix VPATH
- if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \
- -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \
- -a ! -f "${srcdir}/macosx/$i" \
- ; then
- AC_MSG_ERROR([could not find stub source file '$i'])
- fi
- PKG_STUB_SOURCES="$PKG_STUB_SOURCES $i"
- # this assumes it is in a VPATH dir
- i=`basename $i`
- # handle user calling this before or after TEA_SETUP_COMPILER
- if test x"${OBJEXT}" != x ; then
- j="`echo $i | sed -e 's/\.[[^.]]*$//'`.${OBJEXT}"
- else
- j="`echo $i | sed -e 's/\.[[^.]]*$//'`.\${OBJEXT}"
- fi
- PKG_STUB_OBJECTS="$PKG_STUB_OBJECTS $j"
- done
- AC_SUBST(PKG_STUB_SOURCES)
- AC_SUBST(PKG_STUB_OBJECTS)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_TCL_SOURCES --
-#
-# Specify one or more Tcl source files. These should be platform
-# independent runtime files.
-#
-# Arguments:
-# one or more file names
-#
-# Results:
-#
-# Defines and substs the following vars:
-# PKG_TCL_SOURCES
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_TCL_SOURCES], [
- vars="$@"
- for i in $vars; do
- # check for existence, be strict because it is installed
- if test ! -f "${srcdir}/$i" ; then
- AC_MSG_ERROR([could not find tcl source file '${srcdir}/$i'])
- fi
- PKG_TCL_SOURCES="$PKG_TCL_SOURCES $i"
- done
- AC_SUBST(PKG_TCL_SOURCES)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_HEADERS --
-#
-# Specify one or more source headers. Users should check for
-# the right platform before adding to their list.
-#
-# Arguments:
-# one or more file names
-#
-# Results:
-#
-# Defines and substs the following vars:
-# PKG_HEADERS
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_HEADERS], [
- vars="$@"
- for i in $vars; do
- # check for existence, be strict because it is installed
- if test ! -f "${srcdir}/$i" ; then
- AC_MSG_ERROR([could not find header file '${srcdir}/$i'])
- fi
- PKG_HEADERS="$PKG_HEADERS $i"
- done
- AC_SUBST(PKG_HEADERS)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_INCLUDES --
-#
-# Specify one or more include dirs. Users should check for
-# the right platform before adding to their list.
-#
-# Arguments:
-# one or more file names
-#
-# Results:
-#
-# Defines and substs the following vars:
-# PKG_INCLUDES
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_INCLUDES], [
- vars="$@"
- for i in $vars; do
- PKG_INCLUDES="$PKG_INCLUDES $i"
- done
- AC_SUBST(PKG_INCLUDES)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_LIBS --
-#
-# Specify one or more libraries. Users should check for
-# the right platform before adding to their list. For Windows,
-# libraries provided in "foo.lib" format will be converted to
-# "-lfoo" when using GCC (mingw).
-#
-# Arguments:
-# one or more file names
-#
-# Results:
-#
-# Defines and substs the following vars:
-# PKG_LIBS
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_LIBS], [
- vars="$@"
- for i in $vars; do
- if test "${TEA_PLATFORM}" = "windows" -a "$GCC" = "yes" ; then
- case $i in
- *.lib)
- # Convert foo.lib to -lfoo for GCC
- i=-l`echo "$i" | sed -e 's/\.[[^.]]*$//' -e 's/\.lib.*//'`
- ;;
- esac
- fi
- PKG_LIBS="$PKG_LIBS $i"
- done
- AC_SUBST(PKG_LIBS)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_CFLAGS --
-#
-# Specify one or more CFLAGS. Users should check for
-# the right platform before adding to their list.
-#
-# Arguments:
-# one or more file names
-#
-# Results:
-#
-# Defines and substs the following vars:
-# PKG_CFLAGS
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_CFLAGS], [
- PKG_CFLAGS="$PKG_CFLAGS $@"
- AC_SUBST(PKG_CFLAGS)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_CLEANFILES --
-#
-# Specify one or more CLEANFILES.
-#
-# Arguments:
-# one or more file names to clean target
-#
-# Results:
-#
-# Appends to CLEANFILES, already defined for subst in LOAD_TCLCONFIG
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_CLEANFILES], [
- CLEANFILES="$CLEANFILES $@"
-])
-
-#------------------------------------------------------------------------
-# TEA_PREFIX --
-#
-# Handle the --prefix=... option by defaulting to what Tcl gave
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# If --prefix or --exec-prefix was not specified, $prefix and
-# $exec_prefix will be set to the values given to Tcl when it was
-# configured.
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_PREFIX], [
- if test "${prefix}" = "NONE"; then
- prefix_default=yes
- if test x"${TCL_PREFIX}" != x; then
- AC_MSG_NOTICE([--prefix defaulting to TCL_PREFIX ${TCL_PREFIX}])
- prefix=${TCL_PREFIX}
- else
- AC_MSG_NOTICE([--prefix defaulting to /usr/local])
- prefix=/usr/local
- fi
- fi
- if test "${exec_prefix}" = "NONE" -a x"${prefix_default}" = x"yes" \
- -o x"${exec_prefix_default}" = x"yes" ; then
- if test x"${TCL_EXEC_PREFIX}" != x; then
- AC_MSG_NOTICE([--exec-prefix defaulting to TCL_EXEC_PREFIX ${TCL_EXEC_PREFIX}])
- exec_prefix=${TCL_EXEC_PREFIX}
- else
- AC_MSG_NOTICE([--exec-prefix defaulting to ${prefix}])
- exec_prefix=$prefix
- fi
- fi
-])
-
-#------------------------------------------------------------------------
-# TEA_SETUP_COMPILER_CC --
-#
-# Do compiler checks the way we want. This is just a replacement
-# for AC_PROG_CC in TEA configure.ac files to make them cleaner.
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Sets up CC var and other standard bits we need to make executables.
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_SETUP_COMPILER_CC], [
- # Don't put any macros that use the compiler (e.g. AC_TRY_COMPILE)
- # in this macro, they need to go into TEA_SETUP_COMPILER instead.
-
- AC_PROG_CC
- AC_PROG_CPP
-
- INSTALL='$(SHELL) $(srcdir)/tclconfig/install-sh -c'
- INSTALL_DATA_DIR='${INSTALL} -d -m 755'
- INSTALL_DATA='${INSTALL} -m 644'
- INSTALL_PROGRAM='${INSTALL}'
- INSTALL_SCRIPT='${INSTALL}'
- INSTALL_LIBRARY='${INSTALL_DATA}'
-
- AC_SUBST(INSTALL)
- AC_SUBST(INSTALL_DATA_DIR)
- AC_SUBST(INSTALL_DATA)
- AC_SUBST(INSTALL_PROGRAM)
- AC_SUBST(INSTALL_SCRIPT)
- AC_SUBST(INSTALL_LIBRARY)
-
- #--------------------------------------------------------------------
- # Checks to see if the make program sets the $MAKE variable.
- #--------------------------------------------------------------------
-
- AC_PROG_MAKE_SET
-
- #--------------------------------------------------------------------
- # Find ranlib
- #--------------------------------------------------------------------
-
- AC_CHECK_TOOL(RANLIB, ranlib)
-
- #--------------------------------------------------------------------
- # Determines the correct binary file extension (.o, .obj, .exe etc.)
- #--------------------------------------------------------------------
-
- AC_OBJEXT
- AC_EXEEXT
-])
-
-#------------------------------------------------------------------------
-# TEA_SETUP_COMPILER --
-#
-# Do compiler checks that use the compiler. This must go after
-# TEA_SETUP_COMPILER_CC, which does the actual compiler check.
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Sets up CC var and other standard bits we need to make executables.
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_SETUP_COMPILER], [
- # Any macros that use the compiler (e.g. AC_TRY_COMPILE) have to go here.
- AC_REQUIRE([TEA_SETUP_COMPILER_CC])
-
- #------------------------------------------------------------------------
- # If we're using GCC, see if the compiler understands -pipe. If so, use it.
- # It makes compiling go faster. (This is only a performance feature.)
- #------------------------------------------------------------------------
-
- if test -z "$no_pipe" -a -n "$GCC"; then
- AC_CACHE_CHECK([if the compiler understands -pipe],
- tcl_cv_cc_pipe, [
- hold_cflags=$CFLAGS; CFLAGS="$CFLAGS -pipe"
- AC_TRY_COMPILE(,, tcl_cv_cc_pipe=yes, tcl_cv_cc_pipe=no)
- CFLAGS=$hold_cflags])
- if test $tcl_cv_cc_pipe = yes; then
- CFLAGS="$CFLAGS -pipe"
- fi
- fi
-
- #--------------------------------------------------------------------
- # Common compiler flag setup
- #--------------------------------------------------------------------
-
- AC_C_BIGENDIAN
- if test "${TEA_PLATFORM}" = "unix" ; then
- TEA_TCL_LINK_LIBS
- TEA_MISSING_POSIX_HEADERS
- # Let the user call this, because if it triggers, they will
- # need a compat/strtod.c that is correct. Users can also
- # use Tcl_GetDouble(FromObj) instead.
- #TEA_BUGGY_STRTOD
- fi
-])
-
-#------------------------------------------------------------------------
-# TEA_MAKE_LIB --
-#
-# Generate a line that can be used to build a shared/unshared library
-# in a platform independent manner.
-#
-# Arguments:
-# none
-#
-# Requires:
-#
-# Results:
-#
-# Defines the following vars:
-# CFLAGS - Done late here to note disturb other AC macros
-# MAKE_LIB - Command to execute to build the Tcl library;
-# differs depending on whether or not Tcl is being
-# compiled as a shared library.
-# MAKE_SHARED_LIB Makefile rule for building a shared library
-# MAKE_STATIC_LIB Makefile rule for building a static library
-# MAKE_STUB_LIB Makefile rule for building a stub library
-# VC_MANIFEST_EMBED_DLL Makefile rule for embedded VC manifest in DLL
-# VC_MANIFEST_EMBED_EXE Makefile rule for embedded VC manifest in EXE
-#
-# PRACTCL_TOOLSET What toolset is in use (gcc or msvc)
-# PRACTCL_SHARED_LIB Template rule for building a shared library
-# PRACTCL_STATIC_LIB Template rule for building a static library
-# PRACTCL_STUB_LIB Template rule for building a stub library
-# PRACTCL_VC_MANIFEST_EMBED_DLL Template rule for embedded VC manifest in DLL
-# PRACTCL_VC_MANIFEST_EMBED_EXE Template rule for embedded VC manifest in EXE
-# PRACTCL_NAME_LIBRARY Template rule for naming libraries
-#
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_MAKE_LIB], [
- PRACTCL_TOOLSET="gcc"
- PRACTCL_VC_MANIFEST_EMBED_DLL=:
- PRACTCL_VC_MANIFEST_EMBED_EXE=:
- if test "${TEA_PLATFORM}" = "windows" -a "$GCC" != "yes"; then
- PRACTCL_TOOLSET="msvc"
- PRACTCL_STATIC_LIB="%STLIB_LD% -out:%OUTFILE% %LIBRARY_OBJECTS%"
- PRACTCL_SHARED_LIB="%SHLIB_LD% %SHLIB_LD_LIBS% %LDFLAGS_DEFAULT% -out:%OUTFILE% %LIBRARY_OBJECTS%"
- MAKE_STATIC_LIB="\${STLIB_LD} -out:\[$]@ \$(PKG_OBJECTS)"
- MAKE_SHARED_LIB="\${SHLIB_LD} \${SHLIB_LD_LIBS} \${LDFLAGS_DEFAULT} -out:\[$]@ \$(PKG_OBJECTS)"
- AC_EGREP_CPP([manifest needed], [
-#if defined(_MSC_VER) && _MSC_VER >= 1400
-print("manifest needed")
-#endif
- ], [
- # Could do a CHECK_PROG for mt, but should always be with MSVC8+
- PRACTCL_VC_MANIFEST_EMBED_DLL="mt.exe -nologo -manifest %OUTFILE%.manifest -outputresource:%OUTFILE%\;2"
- PRACTCL_VC_MANIFEST_EMBED_EXE="mt.exe -nologo -manifest %OUTFILE%.manifest -outputresource:%OUTFILE%\;1"
- VC_MANIFEST_EMBED_DLL="if test -f \[$]@.manifest ; then mt.exe -nologo -manifest \[$]@.manifest -outputresource:\[$]@\;2 ; fi"
- VC_MANIFEST_EMBED_EXE="if test -f \[$]@.manifest ; then mt.exe -nologo -manifest \[$]@.manifest -outputresource:\[$]@\;1 ; fi"
- MAKE_SHARED_LIB="${MAKE_SHARED_LIB} ; ${VC_MANIFEST_EMBED_DLL}"
- TEA_ADD_CLEANFILES([*.manifest])
- ])
- PRACTCL_STUB_LIB="%STLIB_LD% -nodefaultlib -out:%OUTFILE% %LIBRARY_OBJECTS%"
- MAKE_STUB_LIB="\${STLIB_LD} -nodefaultlib -out:\[$]@ \$(PKG_STUB_OBJECTS)"
- else
- MAKE_STATIC_LIB="\${STLIB_LD} \[$]@ \$(PKG_OBJECTS)"
- MAKE_SHARED_LIB="\${SHLIB_LD} -o \[$]@ \$(PKG_OBJECTS) \${SHLIB_LD_LIBS}"
- MAKE_STUB_LIB="\${STLIB_LD} \[$]@ \$(PKG_STUB_OBJECTS)"
-
- PRACTCL_STATIC_LIB="%STLIB_LD% %OUTFILE% %LIBRARY_OBJECTS%"
- PRACTCL_SHARED_LIB="%SHLIB_LD% -o %OUTFILE% %LIBRARY_OBJECTS% %SHLIB_LD_LIBS%"
- PRACTCL_STUB_LIB="%STLIB_LD% %OUTFILE% %LIBRARY_OBJECTS%"
- fi
-
- if test "${SHARED_BUILD}" = "1" ; then
- MAKE_LIB="${MAKE_SHARED_LIB} "
- else
- MAKE_LIB="${MAKE_STATIC_LIB} "
- fi
-
- #--------------------------------------------------------------------
- # Shared libraries and static libraries have different names.
- # Use the double eval to make sure any variables in the suffix is
- # substituted. (@@@ Might not be necessary anymore)
- #--------------------------------------------------------------------
- if test "${TEA_PLATFORM}" = "windows" ; then
- PRACTCL_NAME_LIBRARY="%LIBRARY_PREFIX%%LIBRARY_NAME%%LIBRARY_VERSION_NODOTS%"
- if test "${SHARED_BUILD}" = "1" ; then
- # We force the unresolved linking of symbols that are really in
- # the private libraries of Tcl and Tk.
- if test x"${TK_BIN_DIR}" != x ; then
- SHLIB_LD_LIBS="${SHLIB_LD_LIBS} \"`${CYGPATH} ${TK_BIN_DIR}/${TK_STUB_LIB_FILE}`\""
- fi
- SHLIB_LD_LIBS="${SHLIB_LD_LIBS} \"`${CYGPATH} ${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}`\""
- if test "$GCC" = "yes"; then
- SHLIB_LD_LIBS="${SHLIB_LD_LIBS} -static-libgcc"
- fi
- eval eval "PKG_LIB_FILE=${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}${SHARED_LIB_SUFFIX}"
- else
- eval eval "PKG_LIB_FILE=${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}${UNSHARED_LIB_SUFFIX}"
- if test "$GCC" = "yes"; then
- PKG_LIB_FILE=lib${PKG_LIB_FILE}
- fi
- fi
- # Some packages build their own stubs libraries
- eval eval "PKG_STUB_LIB_FILE=${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}stub${UNSHARED_LIB_SUFFIX}"
- if test "$GCC" = "yes"; then
- PKG_STUB_LIB_FILE=lib${PKG_STUB_LIB_FILE}
- fi
- # These aren't needed on Windows (either MSVC or gcc)
- RANLIB=:
- RANLIB_STUB=:
- else
- PRACTCL_NAME_LIBRARY="lib%LIBRARY_PREFIX%%LIBRARY_NAME%%LIBRARY_VERSION%"
- RANLIB_STUB="${RANLIB}"
- if test "${SHARED_BUILD}" = "1" ; then
- SHLIB_LD_LIBS="${SHLIB_LD_LIBS} ${TCL_STUB_LIB_SPEC}"
- if test x"${TK_BIN_DIR}" != x ; then
- SHLIB_LD_LIBS="${SHLIB_LD_LIBS} ${TK_STUB_LIB_SPEC}"
- fi
- eval eval "PKG_LIB_FILE=lib${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}${SHARED_LIB_SUFFIX}"
- RANLIB=:
- else
- eval eval "PKG_LIB_FILE=lib${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}${UNSHARED_LIB_SUFFIX}"
- fi
- # Some packages build their own stubs libraries
- eval eval "PKG_STUB_LIB_FILE=lib${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}stub${UNSHARED_LIB_SUFFIX}"
- fi
-
- # Store the raw CFLAGS before we add the trimmings
- PRACTCL_CFLAGS=${CFLAGS}
- # These are escaped so that only CFLAGS is picked up at configure time.
- # The other values will be substituted at make time.
- CFLAGS="${CFLAGS} \${CFLAGS_DEFAULT} \${CFLAGS_WARNING}"
- if test "${SHARED_BUILD}" = "1" ; then
- CFLAGS="${CFLAGS} \${SHLIB_CFLAGS}"
- fi
-
- AC_SUBST(MAKE_LIB)
- AC_SUBST(MAKE_SHARED_LIB)
- AC_SUBST(MAKE_STATIC_LIB)
- AC_SUBST(MAKE_STUB_LIB)
- AC_SUBST(RANLIB_STUB)
- AC_SUBST(VC_MANIFEST_EMBED_DLL)
- AC_SUBST(VC_MANIFEST_EMBED_EXE)
- AC_SUBST(PRACTCL_CFLAGS)
- AC_SUBST(PRACTCL_TOOLSET)
- AC_SUBST(PRACTCL_SHARED_LIB)
- AC_SUBST(PRACTCL_STATIC_LIB)
- AC_SUBST(PRACTCL_STUB_LIB)
- AC_SUBST(PRACTCL_VC_MANIFEST_EMBED_DLL)
- AC_SUBST(PRACTCL_VC_MANIFEST_EMBED_EXE)
- AC_SUBST(PRACTCL_NAME_LIBRARY)
-])
-
-#------------------------------------------------------------------------
-# TEA_LIB_SPEC --
-#
-# Compute the name of an existing object library located in libdir
-# from the given base name and produce the appropriate linker flags.
-#
-# Arguments:
-# basename The base name of the library without version
-# numbers, extensions, or "lib" prefixes.
-# extra_dir Extra directory in which to search for the
-# library. This location is used first, then
-# $prefix/$exec-prefix, then some defaults.
-#
-# Requires:
-# TEA_INIT and TEA_PREFIX must be called first.
-#
-# Results:
-#
-# Defines the following vars:
-# ${basename}_LIB_NAME The computed library name.
-# ${basename}_LIB_SPEC The computed linker flags.
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_LIB_SPEC], [
- AC_MSG_CHECKING([for $1 library])
-
- # Look in exec-prefix for the library (defined by TEA_PREFIX).
-
- tea_lib_name_dir="${exec_prefix}/lib"
-
- # Or in a user-specified location.
-
- if test x"$2" != x ; then
- tea_extra_lib_dir=$2
- else
- tea_extra_lib_dir=NONE
- fi
-
- for i in \
- `ls -dr ${tea_extra_lib_dir}/$1[[0-9]]*.lib 2>/dev/null ` \
- `ls -dr ${tea_extra_lib_dir}/lib$1[[0-9]]* 2>/dev/null ` \
- `ls -dr ${tea_lib_name_dir}/$1[[0-9]]*.lib 2>/dev/null ` \
- `ls -dr ${tea_lib_name_dir}/lib$1[[0-9]]* 2>/dev/null ` \
- `ls -dr /usr/lib/$1[[0-9]]*.lib 2>/dev/null ` \
- `ls -dr /usr/lib/lib$1[[0-9]]* 2>/dev/null ` \
- `ls -dr /usr/lib64/$1[[0-9]]*.lib 2>/dev/null ` \
- `ls -dr /usr/lib64/lib$1[[0-9]]* 2>/dev/null ` \
- `ls -dr /usr/local/lib/$1[[0-9]]*.lib 2>/dev/null ` \
- `ls -dr /usr/local/lib/lib$1[[0-9]]* 2>/dev/null ` ; do
- if test -f "$i" ; then
- tea_lib_name_dir=`dirname $i`
- $1_LIB_NAME=`basename $i`
- $1_LIB_PATH_NAME=$i
- break
- fi
- done
-
- if test "${TEA_PLATFORM}" = "windows"; then
- $1_LIB_SPEC=\"`${CYGPATH} ${$1_LIB_PATH_NAME} 2>/dev/null`\"
- else
- # Strip off the leading "lib" and trailing ".a" or ".so"
-
- tea_lib_name_lib=`echo ${$1_LIB_NAME}|sed -e 's/^lib//' -e 's/\.[[^.]]*$//' -e 's/\.so.*//'`
- $1_LIB_SPEC="-L${tea_lib_name_dir} -l${tea_lib_name_lib}"
- fi
-
- if test "x${$1_LIB_NAME}" = x ; then
- AC_MSG_ERROR([not found])
- else
- AC_MSG_RESULT([${$1_LIB_SPEC}])
- fi
-])
-
-#------------------------------------------------------------------------
-# TEA_PRIVATE_TCL_HEADERS --
-#
-# Locate the private Tcl include files
-#
-# Arguments:
-#
-# Requires:
-# TCL_SRC_DIR Assumes that TEA_LOAD_TCLCONFIG has
-# already been called.
-#
-# Results:
-#
-# Substitutes the following vars:
-# TCL_TOP_DIR_NATIVE
-# TCL_INCLUDES
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PRIVATE_TCL_HEADERS], [
- # Allow for --with-tclinclude to take effect and define ${ac_cv_c_tclh}
- AC_REQUIRE([TEA_PUBLIC_TCL_HEADERS])
- AC_MSG_CHECKING([for Tcl private include files])
-
- TCL_SRC_DIR_NATIVE=`${CYGPATH} ${TCL_SRC_DIR}`
- TCL_TOP_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}\"
-
- # Check to see if tcl<Plat>Port.h isn't already with the public headers
- # Don't look for tclInt.h because that resides with tcl.h in the core
- # sources, but the <plat>Port headers are in a different directory
- if test "${TEA_PLATFORM}" = "windows" -a \
- -f "${ac_cv_c_tclh}/tclWinPort.h"; then
- result="private headers found with public headers"
- elif test "${TEA_PLATFORM}" = "unix" -a \
- -f "${ac_cv_c_tclh}/tclUnixPort.h"; then
- result="private headers found with public headers"
- else
- TCL_GENERIC_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/generic\"
- if test "${TEA_PLATFORM}" = "windows"; then
- TCL_PLATFORM_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/win\"
- else
- TCL_PLATFORM_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/unix\"
- fi
- # Overwrite the previous TCL_INCLUDES as this should capture both
- # public and private headers in the same set.
- # We want to ensure these are substituted so as not to require
- # any *_NATIVE vars be defined in the Makefile
- TCL_INCLUDES="-I${TCL_GENERIC_DIR_NATIVE} -I${TCL_PLATFORM_DIR_NATIVE}"
- if test "`uname -s`" = "Darwin"; then
- # If Tcl was built as a framework, attempt to use
- # the framework's Headers and PrivateHeaders directories
- case ${TCL_DEFS} in
- *TCL_FRAMEWORK*)
- if test -d "${TCL_BIN_DIR}/Headers" -a \
- -d "${TCL_BIN_DIR}/PrivateHeaders"; then
- TCL_INCLUDES="-I\"${TCL_BIN_DIR}/Headers\" -I\"${TCL_BIN_DIR}/PrivateHeaders\" ${TCL_INCLUDES}"
- else
- TCL_INCLUDES="${TCL_INCLUDES} ${TCL_INCLUDE_SPEC} `echo "${TCL_INCLUDE_SPEC}" | sed -e 's/Headers/PrivateHeaders/'`"
- fi
- ;;
- esac
- result="Using ${TCL_INCLUDES}"
- else
- if test ! -f "${TCL_SRC_DIR}/generic/tclInt.h" ; then
- AC_MSG_ERROR([Cannot find private header tclInt.h in ${TCL_SRC_DIR}])
- fi
- result="Using srcdir found in tclConfig.sh: ${TCL_SRC_DIR}"
- fi
- fi
-
- AC_SUBST(TCL_TOP_DIR_NATIVE)
-
- AC_SUBST(TCL_INCLUDES)
- AC_MSG_RESULT([${result}])
-])
-
-#------------------------------------------------------------------------
-# TEA_PUBLIC_TCL_HEADERS --
-#
-# Locate the installed public Tcl header files
-#
-# Arguments:
-# None.
-#
-# Requires:
-# CYGPATH must be set
-#
-# Results:
-#
-# Adds a --with-tclinclude switch to configure.
-# Result is cached.
-#
-# Substitutes the following vars:
-# TCL_INCLUDES
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PUBLIC_TCL_HEADERS], [
- AC_MSG_CHECKING([for Tcl public headers])
-
- AC_ARG_WITH(tclinclude, [ --with-tclinclude directory containing the public Tcl header files], with_tclinclude=${withval})
-
- AC_CACHE_VAL(ac_cv_c_tclh, [
- # Use the value from --with-tclinclude, if it was given
-
- if test x"${with_tclinclude}" != x ; then
- if test -f "${with_tclinclude}/tcl.h" ; then
- ac_cv_c_tclh=${with_tclinclude}
- else
- AC_MSG_ERROR([${with_tclinclude} directory does not contain tcl.h])
- fi
- else
- list=""
- if test "`uname -s`" = "Darwin"; then
- # If Tcl was built as a framework, attempt to use
- # the framework's Headers directory
- case ${TCL_DEFS} in
- *TCL_FRAMEWORK*)
- list="`ls -d ${TCL_BIN_DIR}/Headers 2>/dev/null`"
- ;;
- esac
- fi
-
- # Look in the source dir only if Tcl is not installed,
- # and in that situation, look there before installed locations.
- if test -f "${TCL_BIN_DIR}/Makefile" ; then
- list="$list `ls -d ${TCL_SRC_DIR}/generic 2>/dev/null`"
- fi
-
- # Check order: pkg --prefix location, Tcl's --prefix location,
- # relative to directory of tclConfig.sh.
-
- eval "temp_includedir=${includedir}"
- list="$list \
- `ls -d ${temp_includedir} 2>/dev/null` \
- `ls -d ${TCL_PREFIX}/include 2>/dev/null` \
- `ls -d ${TCL_BIN_DIR}/../include 2>/dev/null`"
- if test "${TEA_PLATFORM}" != "windows" -o "$GCC" = "yes"; then
- list="$list /usr/local/include /usr/include"
- if test x"${TCL_INCLUDE_SPEC}" != x ; then
- d=`echo "${TCL_INCLUDE_SPEC}" | sed -e 's/^-I//'`
- list="$list `ls -d ${d} 2>/dev/null`"
- fi
- fi
- for i in $list ; do
- if test -f "$i/tcl.h" ; then
- ac_cv_c_tclh=$i
- break
- fi
- done
- fi
- ])
-
- # Print a message based on how we determined the include path
-
- if test x"${ac_cv_c_tclh}" = x ; then
- AC_MSG_ERROR([tcl.h not found. Please specify its location with --with-tclinclude])
- else
- AC_MSG_RESULT([${ac_cv_c_tclh}])
- fi
-
- # Convert to a native path and substitute into the output files.
-
- INCLUDE_DIR_NATIVE=`${CYGPATH} ${ac_cv_c_tclh}`
-
- TCL_INCLUDES=-I\"${INCLUDE_DIR_NATIVE}\"
-
- AC_SUBST(TCL_INCLUDES)
-])
-
-#------------------------------------------------------------------------
-# TEA_PRIVATE_TK_HEADERS --
-#
-# Locate the private Tk include files
-#
-# Arguments:
-#
-# Requires:
-# TK_SRC_DIR Assumes that TEA_LOAD_TKCONFIG has
-# already been called.
-#
-# Results:
-#
-# Substitutes the following vars:
-# TK_INCLUDES
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PRIVATE_TK_HEADERS], [
- # Allow for --with-tkinclude to take effect and define ${ac_cv_c_tkh}
- AC_REQUIRE([TEA_PUBLIC_TK_HEADERS])
- AC_MSG_CHECKING([for Tk private include files])
-
- TK_SRC_DIR_NATIVE=`${CYGPATH} ${TK_SRC_DIR}`
- TK_TOP_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}\"
-
- # Check to see if tk<Plat>Port.h isn't already with the public headers
- # Don't look for tkInt.h because that resides with tk.h in the core
- # sources, but the <plat>Port headers are in a different directory
- if test "${TEA_PLATFORM}" = "windows" -a \
- -f "${ac_cv_c_tkh}/tkWinPort.h"; then
- result="private headers found with public headers"
- elif test "${TEA_PLATFORM}" = "unix" -a \
- -f "${ac_cv_c_tkh}/tkUnixPort.h"; then
- result="private headers found with public headers"
- else
- TK_GENERIC_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/generic\"
- TK_XLIB_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/xlib\"
- if test "${TEA_PLATFORM}" = "windows"; then
- TK_PLATFORM_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/win\"
- else
- TK_PLATFORM_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/unix\"
- fi
- # Overwrite the previous TK_INCLUDES as this should capture both
- # public and private headers in the same set.
- # We want to ensure these are substituted so as not to require
- # any *_NATIVE vars be defined in the Makefile
- TK_INCLUDES="-I${TK_GENERIC_DIR_NATIVE} -I${TK_PLATFORM_DIR_NATIVE}"
- # Detect and add ttk subdir
- if test -d "${TK_SRC_DIR}/generic/ttk"; then
- TK_INCLUDES="${TK_INCLUDES} -I\"${TK_SRC_DIR_NATIVE}/generic/ttk\""
- fi
- case ${PRACTCL_WINDOWINGSYSTEM} in
- cocoa)
- TK_INCLUDES="${TK_INCLUDES} -I\"${TK_XLIB_DIR_NATIVE}\""
- TK_INCLUDES="${TK_INCLUDES} -I\"${TK_SRC_DIR_NATIVE}/macosx\""
- ;;
- hitheme)
- TK_INCLUDES="${TK_INCLUDES} -I\"${TK_XLIB_DIR_NATIVE}\""
- TK_INCLUDES="${TK_INCLUDES} -I\"${TK_SRC_DIR_NATIVE}/macosx\""
- ;;
- sdl)
- TK_INCLUDES="${TK_INCLUDES} -I\"${TK_XLIB_DIR_NATIVE}\""
- ;;
- x11)
- ;;
- *)
- TK_INCLUDES="${TK_INCLUDES} -I\"${TK_XLIB_DIR_NATIVE}\""
- ;;
- esac
- if test "`uname -s`" = "Darwin"; then
- # If Tk was built as a framework, attempt to use
- # the framework's Headers and PrivateHeaders directories
- case ${TK_DEFS} in
- *TK_FRAMEWORK*)
- if test -d "${TK_BIN_DIR}/Headers" -a \
- -d "${TK_BIN_DIR}/PrivateHeaders"; then
- TK_INCLUDES="-I\"${TK_BIN_DIR}/Headers\" -I\"${TK_BIN_DIR}/PrivateHeaders\" ${TK_INCLUDES}"
- else
- TK_INCLUDES="${TK_INCLUDES} ${TK_INCLUDE_SPEC} `echo "${TK_INCLUDE_SPEC}" | sed -e 's/Headers/PrivateHeaders/'`"
- fi
- ;;
- esac
- result="Using ${TK_INCLUDES}"
- else
- if test ! -f "${TK_SRC_DIR}/generic/tkInt.h" ; then
- AC_MSG_ERROR([Cannot find private header tkInt.h in ${TK_SRC_DIR}])
- fi
- result="Using srcdir found in tkConfig.sh: ${TK_SRC_DIR}"
- fi
- fi
-
- AC_SUBST(TK_TOP_DIR_NATIVE)
- AC_SUBST(TK_XLIB_DIR_NATIVE)
-
- AC_SUBST(TK_INCLUDES)
- AC_MSG_RESULT([${result}])
-])
-
-#------------------------------------------------------------------------
-# TEA_PUBLIC_TK_HEADERS --
-#
-# Locate the installed public Tk header files
-#
-# Arguments:
-# None.
-#
-# Requires:
-# CYGPATH must be set
-#
-# Results:
-#
-# Adds a --with-tkinclude switch to configure.
-# Result is cached.
-#
-# Substitutes the following vars:
-# TK_INCLUDES
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PUBLIC_TK_HEADERS], [
- AC_MSG_CHECKING([for Tk public headers])
-
- AC_ARG_WITH(tkinclude, [ --with-tkinclude directory containing the public Tk header files], with_tkinclude=${withval})
-
- AC_CACHE_VAL(ac_cv_c_tkh, [
- # Use the value from --with-tkinclude, if it was given
-
- if test x"${with_tkinclude}" != x ; then
- if test -f "${with_tkinclude}/tk.h" ; then
- ac_cv_c_tkh=${with_tkinclude}
- else
- AC_MSG_ERROR([${with_tkinclude} directory does not contain tk.h])
- fi
- else
- list=""
- if test "`uname -s`" = "Darwin"; then
- # If Tk was built as a framework, attempt to use
- # the framework's Headers directory.
- case ${TK_DEFS} in
- *TK_FRAMEWORK*)
- list="`ls -d ${TK_BIN_DIR}/Headers 2>/dev/null`"
- ;;
- esac
- fi
-
- # Look in the source dir only if Tk is not installed,
- # and in that situation, look there before installed locations.
- if test -f "${TK_BIN_DIR}/Makefile" ; then
- list="$list `ls -d ${TK_SRC_DIR}/generic 2>/dev/null`"
- fi
-
- # Check order: pkg --prefix location, Tk's --prefix location,
- # relative to directory of tkConfig.sh, Tcl's --prefix location,
- # relative to directory of tclConfig.sh.
-
- eval "temp_includedir=${includedir}"
- list="$list \
- `ls -d ${temp_includedir} 2>/dev/null` \
- `ls -d ${TK_PREFIX}/include 2>/dev/null` \
- `ls -d ${TK_BIN_DIR}/../include 2>/dev/null` \
- `ls -d ${TCL_PREFIX}/include 2>/dev/null` \
- `ls -d ${TCL_BIN_DIR}/../include 2>/dev/null`"
- if test "${TEA_PLATFORM}" != "windows" -o "$GCC" = "yes"; then
- list="$list /usr/local/include /usr/include"
- if test x"${TK_INCLUDE_SPEC}" != x ; then
- d=`echo "${TK_INCLUDE_SPEC}" | sed -e 's/^-I//'`
- list="$list `ls -d ${d} 2>/dev/null`"
- fi
- fi
- for i in $list ; do
- if test -f "$i/tk.h" ; then
- ac_cv_c_tkh=$i
- break
- fi
- done
- fi
- ])
-
- # Print a message based on how we determined the include path
-
- if test x"${ac_cv_c_tkh}" = x ; then
- AC_MSG_ERROR([tk.h not found. Please specify its location with --with-tkinclude])
- else
- AC_MSG_RESULT([${ac_cv_c_tkh}])
- fi
-
- # Convert to a native path and substitute into the output files.
-
- INCLUDE_DIR_NATIVE=`${CYGPATH} ${ac_cv_c_tkh}`
-
- TK_INCLUDES=-I\"${INCLUDE_DIR_NATIVE}\"
-
- AC_SUBST(TK_INCLUDES)
-
- if test "${PRACTCL_WINDOWINGSYSTEM}" != "x11"; then
- # On Windows and Aqua, we need the X compat headers
- AC_MSG_CHECKING([for X11 header files])
- if test ! -r "${INCLUDE_DIR_NATIVE}/X11/Xlib.h"; then
- INCLUDE_DIR_NATIVE="`${CYGPATH} ${TK_SRC_DIR}/xlib`"
- TK_XINCLUDES=-I\"${INCLUDE_DIR_NATIVE}\"
- AC_SUBST(TK_XINCLUDES)
- fi
- AC_MSG_RESULT([${INCLUDE_DIR_NATIVE}])
- fi
-])
-
-#------------------------------------------------------------------------
-# TEA_PATH_CONFIG --
-#
-# Locate the ${1}Config.sh file and perform a sanity check on
-# the ${1} compile flags. These are used by packages like
-# [incr Tk] that load *Config.sh files from more than Tcl and Tk.
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Adds the following arguments to configure:
-# --with-$1=...
-#
-# Defines the following vars:
-# $1_BIN_DIR Full path to the directory containing
-# the $1Config.sh file
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PATH_CONFIG], [
- #
- # Ok, lets find the $1 configuration
- # First, look for one uninstalled.
- # the alternative search directory is invoked by --with-$1
- #
-
- if test x"${no_$1}" = x ; then
- # we reset no_$1 in case something fails here
- no_$1=true
- AC_ARG_WITH($1, [ --with-$1 directory containing $1 configuration ($1Config.sh)], with_$1config=${withval})
- AC_MSG_CHECKING([for $1 configuration])
- AC_CACHE_VAL(ac_cv_c_$1config,[
-
- # First check to see if --with-$1 was specified.
- if test x"${with_$1config}" != x ; then
- case ${with_$1config} in
- */$1Config.sh )
- if test -f ${with_$1config}; then
- AC_MSG_WARN([--with-$1 argument should refer to directory containing $1Config.sh, not to $1Config.sh itself])
- with_$1config=`echo ${with_$1config} | sed 's!/$1Config\.sh$!!'`
- fi;;
- esac
- if test -f "${with_$1config}/$1Config.sh" ; then
- ac_cv_c_$1config=`(cd ${with_$1config}; pwd)`
- else
- AC_MSG_ERROR([${with_$1config} directory doesn't contain $1Config.sh])
- fi
- fi
-
- # then check for a private $1 installation
- if test x"${ac_cv_c_$1config}" = x ; then
- for i in \
- ../$1 \
- `ls -dr ../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \
- `ls -dr ../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \
- `ls -dr ../$1*[[0-9]].[[0-9]] 2>/dev/null` \
- `ls -dr ../$1*[[0-9]].[[0-9]]* 2>/dev/null` \
- ../../$1 \
- `ls -dr ../../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \
- `ls -dr ../../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \
- `ls -dr ../../$1*[[0-9]].[[0-9]] 2>/dev/null` \
- `ls -dr ../../$1*[[0-9]].[[0-9]]* 2>/dev/null` \
- ../../../$1 \
- `ls -dr ../../../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \
- `ls -dr ../../../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \
- `ls -dr ../../../$1*[[0-9]].[[0-9]] 2>/dev/null` \
- `ls -dr ../../../$1*[[0-9]].[[0-9]]* 2>/dev/null` \
- ${srcdir}/../$1 \
- `ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \
- `ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \
- `ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]] 2>/dev/null` \
- `ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]]* 2>/dev/null` \
- ; do
- if test -f "$i/$1Config.sh" ; then
- ac_cv_c_$1config=`(cd $i; pwd)`
- break
- fi
- if test -f "$i/unix/$1Config.sh" ; then
- ac_cv_c_$1config=`(cd $i/unix; pwd)`
- break
- fi
- done
- fi
-
- # check in a few common install locations
- if test x"${ac_cv_c_$1config}" = x ; then
- for i in `ls -d ${libdir} 2>/dev/null` \
- `ls -d ${exec_prefix}/lib 2>/dev/null` \
- `ls -d ${prefix}/lib 2>/dev/null` \
- `ls -d /usr/local/lib 2>/dev/null` \
- `ls -d /usr/contrib/lib 2>/dev/null` \
- `ls -d /usr/lib 2>/dev/null` \
- `ls -d /usr/lib64 2>/dev/null` \
- ; do
- if test -f "$i/$1Config.sh" ; then
- ac_cv_c_$1config=`(cd $i; pwd)`
- break
- fi
- done
- fi
- ])
-
- if test x"${ac_cv_c_$1config}" = x ; then
- $1_BIN_DIR="# no $1 configs found"
- AC_MSG_WARN([Cannot find $1 configuration definitions])
- exit 0
- else
- no_$1=
- $1_BIN_DIR=${ac_cv_c_$1config}
- AC_MSG_RESULT([found $$1_BIN_DIR/$1Config.sh])
- fi
- fi
-])
-
-#------------------------------------------------------------------------
-# TEA_LOAD_CONFIG --
-#
-# Load the $1Config.sh file
-#
-# Arguments:
-#
-# Requires the following vars to be set:
-# $1_BIN_DIR
-#
-# Results:
-#
-# Substitutes the following vars:
-# $1_SRC_DIR
-# $1_LIB_FILE
-# $1_LIB_SPEC
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_LOAD_CONFIG], [
- AC_MSG_CHECKING([for existence of ${$1_BIN_DIR}/$1Config.sh])
-
- if test -f "${$1_BIN_DIR}/$1Config.sh" ; then
- AC_MSG_RESULT([loading])
- . "${$1_BIN_DIR}/$1Config.sh"
- else
- AC_MSG_RESULT([file not found])
- fi
-
- #
- # If the $1_BIN_DIR is the build directory (not the install directory),
- # then set the common variable name to the value of the build variables.
- # For example, the variable $1_LIB_SPEC will be set to the value
- # of $1_BUILD_LIB_SPEC. An extension should make use of $1_LIB_SPEC
- # instead of $1_BUILD_LIB_SPEC since it will work with both an
- # installed and uninstalled version of Tcl.
- #
-
- if test -f "${$1_BIN_DIR}/Makefile" ; then
- AC_MSG_WARN([Found Makefile - using build library specs for $1])
- $1_LIB_SPEC=${$1_BUILD_LIB_SPEC}
- $1_STUB_LIB_SPEC=${$1_BUILD_STUB_LIB_SPEC}
- $1_STUB_LIB_PATH=${$1_BUILD_STUB_LIB_PATH}
- $1_INCLUDE_SPEC=${$1_BUILD_INCLUDE_SPEC}
- $1_LIBRARY_PATH=${$1_LIBRARY_PATH}
- fi
-
- AC_SUBST($1_VERSION)
- AC_SUBST($1_BIN_DIR)
- AC_SUBST($1_SRC_DIR)
-
- AC_SUBST($1_LIB_FILE)
- AC_SUBST($1_LIB_SPEC)
-
- AC_SUBST($1_STUB_LIB_FILE)
- AC_SUBST($1_STUB_LIB_SPEC)
- AC_SUBST($1_STUB_LIB_PATH)
-
- # Allow the caller to prevent this auto-check by specifying any 2nd arg
- AS_IF([test "x$2" = x], [
- # Check both upper and lower-case variants
- # If a dev wanted non-stubs libs, this function could take an option
- # to not use _STUB in the paths below
- AS_IF([test "x${$1_STUB_LIB_SPEC}" = x],
- [TEA_LOAD_CONFIG_LIB(translit($1,[a-z],[A-Z])_STUB)],
- [TEA_LOAD_CONFIG_LIB($1_STUB)])
- ])
-])
-
-#------------------------------------------------------------------------
-# TEA_LOAD_CONFIG_LIB --
-#
-# Helper function to load correct library from another extension's
-# ${PACKAGE}Config.sh.
-#
-# Results:
-# Adds to LIBS the appropriate extension library
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_LOAD_CONFIG_LIB], [
- AC_MSG_CHECKING([For $1 library for LIBS])
- # This simplifies the use of stub libraries by automatically adding
- # the stub lib to your path. Normally this would add to SHLIB_LD_LIBS,
- # but this is called before CONFIG_CFLAGS. More importantly, this adds
- # to PKG_LIBS, which becomes LIBS, and that is only used by SHLIB_LD.
- if test "x${$1_LIB_SPEC}" != "x" ; then
- if test "${TEA_PLATFORM}" = "windows" -a "$GCC" != "yes" ; then
- TEA_ADD_LIBS([\"`${CYGPATH} ${$1_LIB_PATH}`\"])
- AC_MSG_RESULT([using $1_LIB_PATH ${$1_LIB_PATH}])
- else
- TEA_ADD_LIBS([${$1_LIB_SPEC}])
- AC_MSG_RESULT([using $1_LIB_SPEC ${$1_LIB_SPEC}])
- fi
- else
- AC_MSG_RESULT([file not found])
- fi
-])
-
-#------------------------------------------------------------------------
-# TEA_EXPORT_CONFIG --
-#
-# Define the data to insert into the ${PACKAGE}Config.sh file
-#
-# Arguments:
-#
-# Requires the following vars to be set:
-# $1
-#
-# Results:
-# Substitutes the following vars:
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_EXPORT_CONFIG], [
- #--------------------------------------------------------------------
- # These are for $1Config.sh
- #--------------------------------------------------------------------
-
- # pkglibdir must be a fully qualified path and (not ${exec_prefix}/lib)
- eval pkglibdir="[$]{libdir}/$1${PACKAGE_VERSION}"
- if test "${TCL_LIB_VERSIONS_OK}" = "ok"; then
- eval $1_LIB_FLAG="-l$1${PACKAGE_VERSION}${DBGX}"
- eval $1_STUB_LIB_FLAG="-l$1stub${PACKAGE_VERSION}${DBGX}"
- else
- eval $1_LIB_FLAG="-l$1`echo ${PACKAGE_VERSION} | tr -d .`${DBGX}"
- eval $1_STUB_LIB_FLAG="-l$1stub`echo ${PACKAGE_VERSION} | tr -d .`${DBGX}"
- fi
- $1_BUILD_LIB_SPEC="-L`$CYGPATH $(pwd)` ${$1_LIB_FLAG}"
- $1_LIB_SPEC="-L`$CYGPATH ${pkglibdir}` ${$1_LIB_FLAG}"
- $1_BUILD_STUB_LIB_SPEC="-L`$CYGPATH $(pwd)` [$]{$1_STUB_LIB_FLAG}"
- $1_STUB_LIB_SPEC="-L`$CYGPATH ${pkglibdir}` [$]{$1_STUB_LIB_FLAG}"
- $1_BUILD_STUB_LIB_PATH="`$CYGPATH $(pwd)`/[$]{PKG_STUB_LIB_FILE}"
- $1_STUB_LIB_PATH="`$CYGPATH ${pkglibdir}`/[$]{PKG_STUB_LIB_FILE}"
-
- AC_SUBST($1_BUILD_LIB_SPEC)
- AC_SUBST($1_LIB_SPEC)
- AC_SUBST($1_BUILD_STUB_LIB_SPEC)
- AC_SUBST($1_STUB_LIB_SPEC)
- AC_SUBST($1_BUILD_STUB_LIB_PATH)
- AC_SUBST($1_STUB_LIB_PATH)
-
- AC_SUBST(MAJOR_VERSION)
- AC_SUBST(MINOR_VERSION)
- AC_SUBST(PATCHLEVEL)
-])
-
-
-#------------------------------------------------------------------------
-# TEA_PATH_CELIB --
-#
-# Locate Keuchel's celib emulation layer for targeting Win/CE
-#
-# Arguments:
-# none
-#
-# Results:
-#
-# Adds the following arguments to configure:
-# --with-celib=...
-#
-# Defines the following vars:
-# CELIB_DIR Full path to the directory containing
-# the include and platform lib files
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PATH_CELIB], [
- # First, look for one uninstalled.
- # the alternative search directory is invoked by --with-celib
-
- if test x"${no_celib}" = x ; then
- # we reset no_celib in case something fails here
- no_celib=true
- AC_ARG_WITH(celib,[ --with-celib=DIR use Windows/CE support library from DIR], with_celibconfig=${withval})
- AC_MSG_CHECKING([for Windows/CE celib directory])
- AC_CACHE_VAL(ac_cv_c_celibconfig,[
- # First check to see if --with-celibconfig was specified.
- if test x"${with_celibconfig}" != x ; then
- if test -d "${with_celibconfig}/inc" ; then
- ac_cv_c_celibconfig=`(cd ${with_celibconfig}; pwd)`
- else
- AC_MSG_ERROR([${with_celibconfig} directory doesn't contain inc directory])
- fi
- fi
-
- # then check for a celib library
- if test x"${ac_cv_c_celibconfig}" = x ; then
- for i in \
- ../celib-palm-3.0 \
- ../celib \
- ../../celib-palm-3.0 \
- ../../celib \
- `ls -dr ../celib-*3.[[0-9]]* 2>/dev/null` \
- ${srcdir}/../celib-palm-3.0 \
- ${srcdir}/../celib \
- `ls -dr ${srcdir}/../celib-*3.[[0-9]]* 2>/dev/null` \
- ; do
- if test -d "$i/inc" ; then
- ac_cv_c_celibconfig=`(cd $i; pwd)`
- break
- fi
- done
- fi
- ])
- if test x"${ac_cv_c_celibconfig}" = x ; then
- AC_MSG_ERROR([Cannot find celib support library directory])
- else
- no_celib=
- CELIB_DIR=${ac_cv_c_celibconfig}
- CELIB_DIR=`echo "$CELIB_DIR" | sed -e 's!\\\!/!g'`
- AC_MSG_RESULT([found $CELIB_DIR])
- fi
- fi
-])
-
-#--------------------------------------------------------------------
-# TEA_CONFIG_TEAPOT
-#
-# Try to determine the canonical name for this package's binary
-# target
-#
-# Arguments:
-# none
-AC_DEFUN([TEA_CONFIG_TEAPOT], [
- AC_REQUIRE([TEA_INIT])
- AC_REQUIRE([TEA_CONFIG_SYSTEM])
- TEACUP_OS=$system
- TEACUP_ARCH="unknown"
- TEACUP_TOOLSET="gcc"
- TEACUP_PROFILE="unknown"
- arch="unknown"
- case ${host_alias} in
- *mingw32*)
- arch="ix86"
- TEACUP_PROFILE="win32-ix86"
- ;;
- *mingw64*)
- arch="x86_64"
- TEACUP_PROFILE="win32-x86_64"
- ;;
- esac
- if test "${arch}" = "unknown" ; then
- if test "${TEA_PLATFORM}" = "windows" ; then
- if test "$GCC" = "yes" ; then
- TEACUP_TOOLSET="gcc"
- else
- TEACUP_TOOLSET="msvc"
- fi
- if test "$do64bit" != "no" ; then
- case "$do64bit" in
- amd64|x64|yes)
- arch="x86_64"
- TEACUP_PROFILE="win32-x86_64"
- ;;
- ia64)
- arch="ia64"
- TEACUP_PROFILE="win32-ia64"
- ;;
- esac
- else
- arch="ix86"
- TEACUP_PROFILE="win32-ix86"
- fi
- else
- case $system in
- Linux*)
- TEACUP_OS="linux"
- arch=`uname -m`
- TEACUP_PROFILE="linux-glibc2.3-$arch"
- ;;
- GNU*)
- TEACUP_OS="gnu"
- arch=`uname -m`
- ;;
- NetBSD-Debian)
- TEACUP_OS="netbsd-debian"
- arch=`uname -m`
- ;;
- OpenBSD-*)
- TEACUP_OS="openbsd"
- arch=`arch -s`
- ;;
- Darwin*)
- TEACUP_OS="macosx"
- TEACUP_PROFILE="macosx-universal"
- arch=`uname -m`
- if test $arch = "x86_64"; then
- TEACUP_PROFILE="macosx10.5-i386-x86_84"
- fi
- ;;
- OpenBSD*)
- TEACUP_OS="openbsd"
- arch=`arch -s`
- ;;
- esac
- fi
- fi
- TEACUP_ARCH=$arch
- if test "$TEACUP_PROFILE" = "unknown"; then
- if test $arch = "unknown"; then
- arch=`uname -m`
- fi
- case $arch in
- i*86)
- arch="ix86"
- ;;
- amd64)
- arch="x86_64"
- ;;
- esac
- TEACUP_PROFILE="$TEACUP_OS-$arch"
- fi
- TEA_SYSTEM=$system
- AC_SUBST(TEA_SYSTEM)
- AC_SUBST(TEA_PLATFORM)
- AC_SUBST(TEA_WINDOWINGSYSTEM)
- AC_SUBST(TEACUP_OS)
- AC_SUBST(TEACUP_ARCH)
- AC_SUBST(TEACUP_TOOLSET)
- AC_SUBST(TEACUP_PROFILE)
-])
-
-# Local Variables:
-# mode: autoconf
-# End:
generated by cgit v0.12 at 2024-11-19 07:55:54 (GMT)