Tcl Extension Architecture (TEA) Sample Extension: Changes On Branch autosetup

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Changes In Branch autosetup Excluding Merge-Ins

This is equivalent to a diff from a2f82d04ff to 4e4e6b55d3

2018-10-28
07:10		Branch which utilizes practcl as the make system and autosetup to replace autoconf. Leaf check-in: 4e4e6b55d3 user: seandeelywoods tags: autosetup
07:02		Adding local resident copy of practcl Leaf check-in: a2f82d04ff user: seandeelywoods tags: practcl
06:55		Merge with trunk check-in: 9011a8649b user: seandeelywoods tags: practcl

Changes to ChangeLog.

Changes to Makefile.in.

Deleted aclocal.m4.

Added auto.def.

Added autosetup/LICENSE.

Added autosetup/README.autosetup.

Added autosetup/autosetup.

Added autosetup/autosetup-config.guess.

Added autosetup/autosetup-config.sub.

Added autosetup/autosetup-find-tclsh.

Added autosetup/autosetup-test-tclsh.

Added autosetup/cc-db.tcl.

Added autosetup/cc-lib.tcl.

Added autosetup/cc-shared.tcl.

Added autosetup/cc.tcl.

Added autosetup/default.auto.

Added autosetup/jimsh0.c.

more than 10,000 changes

Added autosetup/local.tcl.

Added autosetup/pkg-config.tcl.

Added autosetup/system.tcl.

Added autosetup/tmake.auto.

Added autosetup/tmake.tcl.

Added config.tcl.in.

Changes to configure.

Deleted configure.ac.





1 2 3 4 5 6 7	1 2 3 4 5 6 7 8 9 10 11	+ + + +	2018-10-28 Sean Woods <[email protected]> * Implemented a Practcl build utilizing autosetup instead of autoconf 2018-01-19 Sean Woods <[email protected]> * Rewrote build system to use practcl 2015-08-28 Jan Nijtmans <[email protected]> * configure: Rfe [00189c4afc]: Allow semi-static UCRT build on
︙


























































































































































1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154	+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +	# Initial auto.def created by 'autosetup --init=make' puts "AUTO.DEF" use cc cc-shared cc-check-tools ar ranlib strip define PACKAGE_NAME sample define PACKAGE_VERSION 0.6 define PACKAGE_DEFS {} define PKG_LIBS {} define PKG_CFLAGS {} define TEA_TK_EXTENSION 0 define TEA_PRIVATE_TCL_HEADERS 0 define TEA_PRIVATE_TK_HEADERS 0 define VERSION [get-define PACKAGE_VERSION] # Add any user options here options { with-tcl:path => {Enable Tcl integration, with Tcl in the specified path} with-tcl-stubs=0 => {Enable Tcl integration via stubs library mechanism} with-tcl-private-stubs=1 => {Use Tcl private stubs} enable-shared=1 => {Perform a shared or static build} } use pkg-config pkg-config TCL # Find tclsh for the test suite and practcl # # We can't use jimsh for this: the test suite uses features of Tcl that # Jim doesn't support, either statically or due to the way it's built by # autosetup. For example, Jim supports `file normalize`, but only if # you build it with HAVE_REALPATH, which won't ever be defined in this # context because autosetup doesn't try to discover platform-specific # details like that before it decides to build jimsh0. Besides which, # autosetup won't build jimsh0 at all if it can find tclsh itself. # Ironically, this means we may right now be running under either jimsh0 # or a version of tclsh that we find unsuitable below! cc-check-progs tclsh set mptd /opt/local set hbtd /usr/local/Cellar/tcl-tk if {[string equal false [get-define TCLSH]]} { msg-result "WARNING: 'make test' will not run here." } else { set v [exec /bin/sh -c "echo 'puts \$tcl_version' \| tclsh"] if {[expr $v >= 8.6]} { msg-result "Found Tclsh version $v in the PATH." define TCLSH tclsh } elseif {[file isdirectory $mptd]} { # This is a macOS system with the Macports version of Tcl/Tk # installed. Select the newest version in /opt/local/bin foreach shver {tclsh8.6 tclsh8.7 tclsh9.0 tclsh8.5} { if {[file exists [file join $mptd bin $shver]]} { msg-result "Using Macports Tcl/Tk version $path." define TCLSH [file join $mptd bin $shver] break } } } elseif {[file isdirectory $hbtd]} { # This is a macOS system with the Homebrew version of Tcl/Tk # installed. Select the newest version. It won't normally be # in the PATH to avoid shadowing /usr/bin/tclsh, and even if it # were in the PATH, it's bad practice to put /usr/local/bin (the # Homebrew default) ahead of /usr/bin, especially given that # it's user-writeable by default with Homebrew. Thus, we can be # pretty sure the only way to call it is with an absolute path. set v [exec ls -tr $hbtd \| tail -1] set path "$hbtd/$v/bin/tclsh" define TCLSH $path msg-result "Using Homebrew Tcl/Tk version $path." } else { msg-result "WARNING: tclsh $v found; need >= 8.6 for 'make test'." define TCLSH false ;# force "make test" failure via /usr/bin/false } } if {[is_mingw]} { define-append EXTRA_CFLAGS -DBROKEN_MINGW_CMDLINE define-append LIBS -lkernel32 -lws2_32 } if {[string match -solaris [get-define host]]} { define-append EXTRA_CFLAGS {-D_XOPEN_SOURCE=500 -D__EXTENSIONS__} } set tclpath [opt-val with-tcl] if {$tclpath eq ""} { # Find Tcl foreach path {pkg/tcl ../tcl ~/tcl ~/.local /opt/local /usr/local /usr} { if {[file exists [file join $path tclConfig.sh]]} { set tclpath $path break } if {[file exists [file join $path unix tclConfig.sh]]} { set tclpath [file join $path unix] break } if {[file exists [file join $path win tclConfig.sh]]} { set tclpath [file join $path win] break } if {[file exists [file join $path lib tclConfig.sh]]} { set tclpath [file join $path lib] break } } } if {$tclpath eq ""} { error "Could not find Tcl" } ### # Deposit the contents of tclconfig where TEA needs it ### tea-generate $tclpath set NAME [get-define PACKAGE_NAME] set VERSION [get-define PACKAGE_VERSION] if {[get-define TEA_PLATFORM] eq "windows"} { define PRACTCL_NAME_LIBRARY "%LIBRARY_PREFIX%%LIBRARY_NAME%%LIBRARY_VERSION_NODOTS%" define RANLIB : define RANLIB_STUB : if {[opt-bool enable-shared]} { define PKG_LIB_FILE [subst "[get-define PACKAGE_LIB_PREFIX][get-define PACKAGE_NAME][get-define SHARED_LIB_SUFFIX]"] } else { define PKG_LIB_FILE [subst "[get-define PACKAGE_LIB_PREFIX][get-define PACKAGE_NAME][get-define UNSHARED_LIB_SUFFIX]"] } define PKG_STUB_LIB_FILE [subst "[get-define PACKAGE_LIB_PREFIX][get-define PACKAGE_NAME]stub[get-define UNSHARED_LIB_SUFFIX]"] } else { define PRACTCL_NAME_LIBRARY "lib%LIBRARY_PREFIX%%LIBRARY_NAME%%LIBRARY_VERSION%" if {[opt-bool enable-shared]} { define PKG_LIB_FILE [subst "lib[get-define PACKAGE_LIB_PREFIX][get-define PACKAGE_NAME][get-define SHARED_LIB_SUFFIX]"] } else { define PKG_LIB_FILE [subst "lib[get-define PACKAGE_LIB_PREFIX][get-define PACKAGE_NAME][get-define UNSHARED_LIB_SUFFIX]"] } define PKG_STUB_LIB_FILE [subst "lib[get-define PACKAGE_LIB_PREFIX][get-define PACKAGE_NAME]stub[get-define UNSHARED_LIB_SUFFIX]"] } # Finally, append -ldl to make sure it's the last in the list. # The library order matters in case of static linking. if {[check-function-in-lib dlopen dl]} { # Some platforms (BSD) have the dl functions already in libc and no libdl. # In such case we can link directly without -ldl. define-append LIBS [get-define lib_dlopen] } make-config-header autoconfig.h -auto {USE_ MIGRATE_*} make-template config.tcl.in config.tcl make-template Makefile.in Makefile puts "/AUTO.DEF"



































1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35	+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +	Unless explicitly stated, all files which form part of autosetup are released under the following license: --------------------------------------------------------------------- autosetup - A build environment "autoconfigurator" Copyright (c) 2010-2011, WorkWare Systems <http://workware.net.au/> Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. THIS SOFTWARE IS PROVIDED BY THE WORKWARE SYSTEMS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL WORKWARE SYSTEMS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. The views and conclusions contained in the software and documentation are those of the authors and should not be interpreted as representing official policies, either expressed or implied, of WorkWare Systems.











1 2 3 4 5 6 7 8 9 10 11	+ + + + + + + + + + +	README.autosetup created by autosetup v0.6.9 This is the autosetup directory for a local install of autosetup. It contains autosetup, support files and loadable modules. .tcl files in this directory are optional modules which can be loaded with the 'use' directive. .auto files in this directory are auto-loaded. For more information, see http://msteveb.github.com/autosetup/

















1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17	+ + + + + + + + + + + + + + + + +	#!/bin/sh # Looks for a suitable tclsh or jimsh in the PATH # If not found, builds a bootstrap jimsh from source # Prefer $autosetup_tclsh if is set in the environment d=`dirname "$0"` { "$d/jimsh0" "$d/autosetup-test-tclsh"; } 2>/dev/null && exit 0 PATH="$PATH:$d"; export PATH for tclsh in $autosetup_tclsh jimsh tclsh tclsh8.5 tclsh8.6; do { $tclsh "$d/autosetup-test-tclsh"; } 2>/dev/null && exit 0 done echo 1>&2 "No installed jimsh or tclsh, building local bootstrap jimsh0" for cc in ${CC_FOR_BUILD:-cc} gcc; do { $cc -o "$d/jimsh0" "$d/jimsh0.c"; } 2>/dev/null \|\| continue "$d/jimsh0" "$d/autosetup-test-tclsh" && exit 0 done echo 1>&2 "No working C compiler found. Tried ${CC_FOR_BUILD:-cc} and gcc." echo false




















1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20	+ + + + + + + + + + + + + + + + + + + +	# A small Tcl script to verify that the chosen # interpreter works. Sometimes we might e.g. pick up # an interpreter for a different arch. # Outputs the full path to the interpreter if {[catch {info version} version] == 0} { # This is Jim Tcl if {$version >= 0.72} { # Ensure that regexp works regexp (a.?) a puts [info nameofexecutable] exit 0 } } elseif {[catch {info tclversion} version] == 0} { if {$version >= 8.5 && ![string match 8.5a [info patchlevel]]} { puts [info nameofexecutable] exit 0 } } exit 1















1 2 3 4 5 6 7 8 9 10 11 12 13 14 15	+ + + + + + + + + + + + + + +	# Copyright (c) 2011 WorkWare Systems http://www.workware.net.au/ # All rights reserved # @synopsis: # # The 'cc-db' module provides a knowledge-base of system idiosyncrasies. # In general, this module can always be included. use cc module-options {} # openbsd needs sys/types.h to detect some system headers cc-include-needs sys/socket.h sys/types.h cc-include-needs netinet/in.h sys/types.h

















































































































1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113	+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +	# Copyright (c) 2010 WorkWare Systems http://www.workware.net.au/ # All rights reserved # @synopsis: # # The 'cc-shared' module provides support for shared libraries and shared objects. # It defines the following variables: # ## SH_CFLAGS Flags to use compiling sources destined for a shared library ## SH_LDFLAGS Flags to use linking (creating) a shared library ## SH_SOPREFIX Prefix to use to set the soname when creating a shared library ## SH_SOFULLPATH Set to 1 if the shared library soname should include the full install path ## SH_SOEXT Extension for shared libs ## SH_SOEXTVER Format for versioned shared libs - %s = version ## SHOBJ_CFLAGS Flags to use compiling sources destined for a shared object ## SHOBJ_LDFLAGS Flags to use linking a shared object, undefined symbols allowed ## SHOBJ_LDFLAGS_R - as above, but all symbols must be resolved ## SH_LINKRPATH Format for setting the rpath when linking an executable, %s = path ## SH_LINKFLAGS Flags to use linking an executable which will load shared objects ## LD_LIBRARY_PATH Environment variable which specifies path to shared libraries ## STRIPLIBFLAGS Arguments to strip a dynamic library module-options {} # Defaults: gcc on unix define SHOBJ_CFLAGS -fPIC define SHOBJ_LDFLAGS -shared define SH_CFLAGS -fPIC define SH_LDFLAGS -shared define SH_LINKFLAGS -rdynamic define SH_LINKRPATH "-Wl,-rpath -Wl,%s" define SH_SOEXT .so define SH_SOEXTVER .so.%s define SH_SOPREFIX -Wl,-soname, define LD_LIBRARY_PATH LD_LIBRARY_PATH define STRIPLIBFLAGS --strip-unneeded # Note: This is a helpful reference for identifying the toolchain # http://sourceforge.net/apps/mediawiki/predef/index.php?title=Compilers switch -glob -- [get-define host] { --darwin* { define SHOBJ_CFLAGS "-dynamic -fno-common" define SHOBJ_LDFLAGS "-bundle -undefined dynamic_lookup" define SHOBJ_LDFLAGS_R -bundle define SH_CFLAGS -dynamic define SH_LDFLAGS -dynamiclib define SH_LINKFLAGS "" define SH_SOEXT .dylib define SH_SOEXTVER .%s.dylib define SH_SOPREFIX -Wl,-install_name, define SH_SOFULLPATH define LD_LIBRARY_PATH DYLD_LIBRARY_PATH define STRIPLIBFLAGS -x } --ming* - --cygwin - --msys { define SHOBJ_CFLAGS "" define SHOBJ_LDFLAGS -shared define SH_CFLAGS "" define SH_LDFLAGS -shared define SH_LINKRPATH "" define SH_LINKFLAGS "" define SH_SOEXT .dll define SH_SOEXTVER .dll define SH_SOPREFIX "" define LD_LIBRARY_PATH PATH } sparc* { if {[msg-quiet cc-check-decls __SUNPRO_C]} { msg-result "Found sun stdio compiler" # sun stdio compiler # XXX: These haven't been fully tested. define SHOBJ_CFLAGS -KPIC define SHOBJ_LDFLAGS "-G" define SH_CFLAGS -KPIC define SH_LINKFLAGS -Wl,-export-dynamic define SH_SOPREFIX -Wl,-h, } } --solaris* { if {[msg-quiet cc-check-decls __SUNPRO_C]} { msg-result "Found sun stdio compiler" # sun stdio compiler # XXX: These haven't been fully tested. define SHOBJ_CFLAGS -KPIC define SHOBJ_LDFLAGS "-G" define SH_CFLAGS -KPIC define SH_LINKFLAGS -Wl,-export-dynamic define SH_SOPREFIX -Wl,-h, } } --hpux { # XXX: These haven't been tested define SHOBJ_CFLAGS "+O3 +z" define SHOBJ_LDFLAGS -b define SH_CFLAGS +z define SH_LINKFLAGS -Wl,+s define LD_LIBRARY_PATH SHLIB_PATH } --haiku { define SHOBJ_CFLAGS "" define SHOBJ_LDFLAGS -shared define SH_CFLAGS "" define SH_LDFLAGS -shared define SH_LINKFLAGS "" define SH_SOPREFIX "" define LD_LIBRARY_PATH LIBRARY_PATH } } if {![is-defined SHOBJ_LDFLAGS_R]} { define SHOBJ_LDFLAGS_R [get-define SHOBJ_LDFLAGS] }

























1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25	+ + + + + + + + + + + + + + + + + + + + + + + + +	# Copyright (c) 2012 WorkWare Systems http://www.workware.net.au/ # All rights reserved # Auto-load module for 'make' build system integration use init autosetup_add_init_type make {Simple "make" build system} { autosetup_check_create auto.def \ {# Initial auto.def created by 'autosetup --init=make' use cc # Add any user options here options { } make-config-header config.h make-template Makefile.in } if {![file exists Makefile.in]} { puts "Note: I don't see Makefile.in. You will probably need to create one." } }













































































































































































































































































































































































































































1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429	+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +	puts "LOCAL.TCL" # For this project, disable the pager for --help and --ref # The user can still enable by using --nopager=0 or --disable-nopager dict set autosetup(optdefault) nopager 1 # This procedure is a customized version of "cc-check-function-in-lib", # that does not modify the LIBS variable. Its use prevents prematurely # pulling in libraries that will be added later anyhow (e.g. "-ldl"). proc check-function-in-lib {function libs {otherlibs {}}} { if {[string length $otherlibs]} { msg-checking "Checking for $function in $libs with $otherlibs..." } else { msg-checking "Checking for $function in $libs..." } set found 0 cc-with [list -libs $otherlibs] { if {[cctest_function $function]} { msg-result "none needed" define lib_$function "" incr found } else { foreach lib $libs { cc-with [list -libs -l$lib] { if {[cctest_function $function]} { msg-result -l$lib define lib_$function -l$lib incr found break } } } } } if {$found} { define [feature-define-name $function] } else { msg-result "no" } return $found } # Searches for a usable Tcl (prefer 8.6, 8.5, 8.4) in the given paths # Returns a dictionary of the contents of the tclConfig.sh file, or # empty if not found proc parse-tclconfig-sh {args} { foreach p $args { # Allow pointing directly to the path containing tclConfig.sh if {[file exists $p/tclConfig.sh]} { return [parse-tclconfig-sh-file $p/tclConfig.sh] } # Some systems allow for multiple versions foreach libpath {lib/tcl8.6 lib/tcl8.5 lib/tcl8.4 lib/tcl tcl lib} { if {[file exists $p/$libpath/tclConfig.sh]} { return [parse-tclconfig-sh-file $p/$libpath/tclConfig.sh] } } } } proc parse-tclconfig-sh-file {filename} { define TCL_BIN_DIR [file normalize [file dirname $filename]] return [read_sh_file $filename] } proc 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 '] } proc 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 } proc is_mingw {} { return [string match mingw [get-define host]] } proc tea-generate {tclpath} { puts "BEGIN TEA-GENERATE" set windows 0 # Until we hear otherwise, assume Unix define TEA_PLATFORM unix define TEA_WINDOWINGSYSTEM x11 define EXTRA_CFLAGS "-Wall" define TEACUP_TOOLSET gcc define PRACTCL_TOOLSET gcc define OBJEXT o define PRACTCL_VC_MANIFEST_EMBED_DLL : define PRACTCL_VC_MANIFEST_EMBED_EXE : set shared [opt-bool enable-shared] define SHARED_BUILD $shared define PRACTCL_DEFS {} define DEFS {} define PACKAGE_LIB_PREFIX {} define LIBRARY_PREFIX {} #set tclprivatestubs [opt-bool with-tcl-private-stubs] set tclprivatestubs 1 # Note parse-tclconfig-sh is in autosetup/local.tcl if {$tclpath eq "1"} { set tcldir [file dirname $autosetup(dir)]/compat/tcl-8.6 if {$tclprivatestubs} { set tclconfig(TCL_INCLUDE_SPEC) -I$tcldir/generic set tclconfig(TCL_VERSION) {Private Stubs} set tclconfig(TCL_PATCH_LEVEL) {} set tclconfig(TCL_PREFIX) $tcldir set tclconfig(TCL_LD_FLAGS) { } } else { # Use the system Tcl. Look in some likely places. array set tclconfig [parse-tclconfig-sh \ $tcldir/unix $tcldir/win \ /usr /usr/local /usr/share /opt/local] set msg "on your system" } } else { array set tclconfig [parse-tclconfig-sh $tclpath] set msg "at $tclpath" } if {![opt-bool enable-shared]} { set tclconfig(TCL_LD_FLAGS) { } } if {![info exists tclconfig(TCL_INCLUDE_SPEC)]} { user-error "Cannot find Tcl $msg" } set tclstubs [opt-bool with-tcl-stubs] if {$tclprivatestubs} { define MIGRATE_ENABLE_TCL_PRIVATE_STUBS define USE_TCL_STUBS } elseif {$tclstubs && $tclconfig(TCL_SUPPORTS_STUBS)} { set libs "$tclconfig(TCL_STUB_LIB_SPEC)" define MIGRATE_ENABLE_TCL_STUBS define USE_TCL_STUBS } else { set libs "$tclconfig(TCL_LIB_SPEC) $tclconfig(TCL_LIBS)" } set cflags $tclconfig(TCL_INCLUDE_SPEC) if {!$tclprivatestubs} { set foundtcl 0; # Did we find a working Tcl library? cc-with [list -cflags $cflags -libs $libs] { if {$tclstubs} { if {[cc-check-functions Tcl_InitStubs]} { set foundtcl 1 } } else { if {[cc-check-functions Tcl_CreateInterp]} { set foundtcl 1 } } } if {!$foundtcl && [string match -lieee $libs]} { # On some systems, using "-lieee" from TCL_LIB_SPEC appears # to cause issues. msg-result "Removing \"-lieee\" and retrying for Tcl..." set libs [string map [list -lieee ""] $libs] cc-with [list -cflags $cflags -libs $libs] { if {$tclstubs} { if {[cc-check-functions Tcl_InitStubs]} { set foundtcl 1 } } else { if {[cc-check-functions Tcl_CreateInterp]} { set foundtcl 1 } } } } if {!$foundtcl && ![string match -lpthread $libs]} { # On some systems, TCL_LIB_SPEC appears to be missing # "-lpthread". Try adding it. msg-result "Adding \"-lpthread\" and retrying for Tcl..." set libs "$libs -lpthread" cc-with [list -cflags $cflags -libs $libs] { if {$tclstubs} { if {[cc-check-functions Tcl_InitStubs]} { set foundtcl 1 } } else { if {[cc-check-functions Tcl_CreateInterp]} { set foundtcl 1 } } } } if {!$foundtcl} { if {$tclstubs} { user-error "Cannot find a usable Tcl stubs library $msg" } else { user-error "Cannot find a usable Tcl library $msg" } } } set version $tclconfig(TCL_VERSION)$tclconfig(TCL_PATCH_LEVEL) msg-result "Found Tcl $version at $tclconfig(TCL_PREFIX)" define-append LIBS " $tclconfig(TCL_BUILD_LIB_SPEC)" if {!$tclprivatestubs} { define-append LIBS $libs } define-append EXTRA_CFLAGS $cflags if {[info exists zlibpath] && $zlibpath eq "tree"} { # # NOTE: When using zlib in the source tree, prevent Tcl from # pulling in the system one. # set tclconfig(TCL_LD_FLAGS) [string map [list -lz ""] \ $tclconfig(TCL_LD_FLAGS)] } # # NOTE: Remove "-ldl" from the TCL_LD_FLAGS because it will be # be checked for near the bottom of this file. # set tclconfig(TCL_LD_FLAGS) [string map [list -ldl ""] \ $tclconfig(TCL_LD_FLAGS)] define-append EXTRA_LDFLAGS $tclconfig(TCL_LD_FLAGS) if {!$shared} { # XXX: This will not work on all systems. define-append EXTRA_LDFLAGS -static msg-result "Trying to link statically" } else { } foreach {f v} [array get tclconfig] { switch $f { TCL_LD_FLAGS { define LDFLAGS $v define LDFLAGS_DEFAULT $v } TCL_LIBS - TCL_BUILD_LIB_SPEC - TCL_BUILD_STUB_LIB_SPEC - TCL_SHLIB_LD - TCL_STLIB_LD - TCL_DEFS - TCL_VERSION - TCL_MAJOR_VERSION - TCL_MINOR_VERSION - TCL_PATCH_LEVEL - TCL_SHARED_BUILD - TCL_BIN_DIR - TCL_SRC_DIR - TCL_ZIP_FILE - TCL_STUB_LIB_SPEC - TCL_LIB_FILE { define $f $v } default { #puts [list [string range $f 4 end] $f $v] define [string range $f 4 end] $v } } } define CFLAGS_DEFAULT [get-define CFLAGS] define CFLAGS_WARNING {-Wall} define CFLAGS {-pipe ${CFLAGS_DEFAULT} ${CFLAGS_WARNING} } #define SHLIB_LD "[get-define CC] [get-define SHOBJ_CFLAGS] [get-define CFLAGS] [get-define TCL_LD_FLAGS] " define MAKE_STATIC_LIB "\${STLIB_LD} \[$]@ \$(PKG_OBJECTS)" define MAKE_SHARED_LIB "\${SHLIB_LD} -o \[\$\]@ \$(PKG_OBJECTS) \${SHLIB_LD_LIBS}" define MAKE_STUB_LIB "\${STLIB_LD} \[$]@ \$(PKG_STUB_OBJECTS)" define PRACTCL_STATIC_LIB "%STLIB_LD% %OUTFILE% %LIBRARY_OBJECTS%" define PRACTCL_SHARED_LIB "%SHLIB_LD% -o %OUTFILE% %LIBRARY_OBJECTS% %SHLIB_LD_LIBS%" define PRACTCL_STUB_LIB "%STLIB_LD% %OUTFILE% %LIBRARY_OBJECTS%" define PRACTCL_NAME_LIBRARY "lib%LIBRARY_PREFIX%%LIBRARY_NAME%%LIBRARY_VERSION%" define RANLIB_STUB [get-define RANLIB] define SHLIB_LD_LIBS [get-define LIBS] set HOST [get-define host] define TEA_SYSTEM $HOST switch -glob -- [string tolower $HOST] { --darwin* { define TEA_PLATFORM unix define TEA_WINDOWINGSYSTEM aqua define TEACUP_OS macosx define TEACUP_PROFILE macosx-universal set arch [lindex [split $HOST -] 0] if {$arch eq "x86_64"} { define TEACUP_PROFILE macosx10.5-i386-x86_84 } define TEACUP_ARCH $arch } --ming* - --cygwin - --msys { set windows 1 define TEACUP_OS windows if {[string match "mingw32" $HOST]} { set arch ix86 define TEACUP_PROFILE win32-ix86 } if {[string match "mingw64" $HOST]} { set arch x86_64 define TEACUP_PROFILE win32-x86_64 } define TEACUP_ARCH $arch define TEA_PLATFORM windows define TEA_WINDOWINGSYSTEM win32 if {![is_mingw]} { # Assume msvc define PRACTCL_TOOLSET msvc define PRACTCL_STATIC_LIB "%STLIB_LD% -out:%OUTFILE% %LIBRARY_OBJECTS%" define PRACTCL_SHARED_LIB "%SHLIB_LD% %SHLIB_LD_LIBS% %LDFLAGS_DEFAULT% -out:%OUTFILE% %LIBRARY_OBJECTS%" define MAKE_STATIC_LIB "\${STLIB_LD} -out:\[$]@ \$(PKG_OBJECTS)" define MAKE_SHARED_LIB "\${SHLIB_LD} \${SHLIB_LD_LIBS} \${LDFLAGS_DEFAULT} -out:\[$]@ \$(PKG_OBJECTS)" define PRACTCL_STUB_LIB "%STLIB_LD% -nodefaultlib -out:%OUTFILE% %LIBRARY_OBJECTS%" define MAKE_STUB_LIB "\${STLIB_LD} -nodefaultlib -out:\[$]@ \$(PKG_STUB_OBJECTS)" define OBJEXT obj if 0 { { #if defined(_MSC_VER) && _MSC_VER >= 1400 print("manifest needed") #endif } # Could do a CHECK_PROG for mt, but should always be with MSVC8+ define PRACTCL_VC_MANIFEST_EMBED_DLL "mt.exe -nologo -manifest %OUTFILE%.manifest -outputresource:%OUTFILE%\;2" define PRACTCL_VC_MANIFEST_EMBED_EXE "mt.exe -nologo -manifest %OUTFILE%.manifest -outputresource:%OUTFILE%\;1" define VC_MANIFEST_EMBED_DLL "if test -f \[$]@.manifest ; then mt.exe -nologo -manifest \[$]@.manifest -outputresource:\[$]@\;2 ; fi" define VC_MANIFEST_EMBED_EXE "if test -f \[$]@.manifest ; then mt.exe -nologo -manifest \[$]@.manifest -outputresource:\[$]@\;1 ; fi" define MAKE_SHARED_LIB "${MAKE_SHARED_LIB} ; ${VC_MANIFEST_EMBED_DLL}" define-append TEA_ADD_CLEANFILES .manifest } } } --linux { define TEACUP_OS linux } --gnu* { define TEACUP_OS gnu } --netbsddebian { define TEACUP_OS netbsd-debian } --netbsd* { define TEACUP_OS netbsd } openbsd { define TEACUP_OS openbsd } default { set os [lindex [split $HOST -] 2] define TEACUP_OS $os } } if {$arch eq "unknown"} { set arch [lindex [split $HOST -] 0] define TEACUP_ARCH $arch define TEACUP_PROFILE "[get-define TEACUP_OS]-$arch" } switch -glob -- $HOST { sparc* { if {[msg-quiet cc-check-decls __SUNPRO_C]} { } } --solaris* { if {[msg-quiet cc-check-decls __SUNPRO_C]} { } } --hpux { } --haiku { } } if {[get-define SHARED_BUILD]} { define MAKE_LIB [get-define MAKE_SHARED_LIB] } else { define MAKE_LIB [get-define MAKE_STATIC_LIB] } define SHLIB_LD [get-define TCL_SHLIB_LD] define DEFS "[get-define PACKAGE_DEFS] [get-define TCL_DEFS]" ### # autosetup -> TEA mappings ### puts "END TEA-GENERATE" }







































































































































1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135	+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +	# Copyright (c) 2016 WorkWare Systems http://www.workware.net.au/ # All rights reserved # @synopsis: # # The 'pkg-config' module allows package information to be found via 'pkg-config'. # # If not cross-compiling, the package path should be determined automatically # by 'pkg-config'. # If cross-compiling, the default package path is the compiler sysroot. # If the C compiler doesn't support '-print-sysroot', the path can be supplied # by the '--sysroot' option or by defining 'SYSROOT'. # # 'PKG_CONFIG' may be set to use an alternative to 'pkg-config'. use cc module-options { sysroot:dir => "Override compiler sysroot for pkg-config search path" } # @pkg-config-init ?required? # # Initialises the 'pkg-config' system. Unless '$required' is set to 0, # it is a fatal error if a usable 'pkg-config' is not found . # # This command will normally be called automatically as required, # but it may be invoked explicitly if lack of 'pkg-config' is acceptable. # # Returns 1 if ok, or 0 if 'pkg-config' not found/usable (only if '$required' is 0). # proc pkg-config-init {{required 1}} { if {[is-defined HAVE_PKG_CONFIG]} { return [get-define HAVE_PKG_CONFIG] } set found 0 define PKG_CONFIG [get-env PKG_CONFIG pkg-config] msg-checking "Checking for pkg-config..." if {[catch {exec [get-define PKG_CONFIG] --version} version]} { msg-result "[get-define PKG_CONFIG] (not found)" if {$required} { user-error "No usable pkg-config" } } else { msg-result $version define PKG_CONFIG_VERSION $version set found 1 if {[opt-str sysroot o]} { define SYSROOT [file-normalize $o] msg-result "Using specified sysroot [get-define SYSROOT]" } elseif {[get-define build] ne [get-define host]} { if {[catch {exec-with-stderr [get-define CC] -print-sysroot} result errinfo] == 0} { # Use the compiler sysroot, if there is one define SYSROOT $result msg-result "Found compiler sysroot $result" } else { set msg "pkg-config: Cross compiling, but no compiler sysroot and no --sysroot supplied" if {$required} { user-error $msg } else { msg-result $msg } set found 0 } } if {[is-defined SYSROOT]} { set sysroot [get-define SYSROOT] # XXX: It's possible that these should be set only when invoking pkg-config global env set env(PKG_CONFIG_DIR) "" # Do we need to try /usr/local as well or instead? set env(PKG_CONFIG_LIBDIR) $sysroot/usr/lib/pkgconfig:$sysroot/usr/share/pkgconfig set env(PKG_CONFIG_SYSROOT_DIR) $sysroot } } define HAVE_PKG_CONFIG $found return $found } # @pkg-config module ?requirements? # # Use 'pkg-config' to find the given module meeting the given requirements. # e.g. # ## pkg-config pango >= 1.37.0 # # If found, returns 1 and sets 'HAVE_PKG_PANGO' to 1 along with: # ## PKG_PANGO_VERSION to the found version ## PKG_PANGO_LIBS to the required libs (--libs-only-l) ## PKG_PANGO_LDFLAGS to the required linker flags (--libs-only-L) ## PKG_PANGO_CFLAGS to the required compiler flags (--cflags) # # If not found, returns 0. # proc pkg-config {module args} { set ok [pkg-config-init] msg-checking "Checking for $module $args..." if {!$ok} { msg-result "no pkg-config" return 0 } if {[catch {exec [get-define PKG_CONFIG] --modversion "$module $args"} version]} { msg-result "not found" configlog "pkg-config --modversion $module $args: $version" return 0 } msg-result $version set prefix [feature-define-name $module PKG_] define HAVE_${prefix} define ${prefix}_VERSION $version define ${prefix}_LIBS [exec pkg-config --libs-only-l $module] define ${prefix}_LDFLAGS [exec pkg-config --libs-only-L $module] define ${prefix}_CFLAGS [exec pkg-config --cflags $module] return 1 } # @pkg-config-get module setting # # Convenience access to the results of 'pkg-config'. # # For example, '[pkg-config-get pango CFLAGS]' returns # the value of 'PKG_PANGO_CFLAGS', or '""' if not defined. proc pkg-config-get {module name} { set prefix [feature-define-name $module PKG_] get-define ${prefix}_${name} "" }
























































































1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88	+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +	### # 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@} TCLSH {@TCLSH@} 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@} TK_VERSION {@TK_VERSION@} TK_PATCH_LEVEL {@TK_PATCH_LEVEL@} TK_BIN_DIR {@TK_BIN_DIR@} TK_SRC_DIR {@TK_SRC_DIR@} TEA_TK_EXTENSION {@TEA_TK_EXTENSION@} TEA_PRIVATE_TCL_HEADERS {@TEA_PRIVATE_TCL_HEADERS@} TEA_PRIVATE_TK_HEADERS {@TEA_PRIVATE_TK_HEADERS@} 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@} TEACUP_ZIPFILE {@PACKAGE_NAME@-@PACKAGE_VERSION@-@[email protected]} 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@}