/home/mrjunejune/zenbu: third_party/sqlite3/autosetup/teaish/core.tcl annotate

annotate third_party/sqlite3/autosetup/teaish/core.tcl @ 188:32ce881452fa hg-web

Fixing few stuff.

author	MrJuneJune <me@mrjunejune.com>
date	Fri, 23 Jan 2026 22:50:28 -0800
parents	589bab390fb4
children

rev	line source
167 589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1 ########################################################################
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2 # 2025 April 5
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	3 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	4 # The author disclaims copyright to this source code. In place of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	5 # a legal notice, here is a blessing:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	6 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	7 # * May you do good and not evil.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	8 # * May you find forgiveness for yourself and forgive others.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	9 # * May you share freely, never taking more than you give.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	10 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	11 ########################################################################
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	12 # ----- @module teaish.tcl -----
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	13 # @section TEA-ish ((TCL Extension Architecture)-ish)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	14 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	15 # Functions in this file with a prefix of teaish__ are
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	16 # private/internal APIs. Those with a prefix of teaish- are
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	17 # public APIs.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	18 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	19 # Teaish has a hard dependency on proj.tcl, and any public API members
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	20 # of that module are considered legal for use by teaish extensions.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	21 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	22 # Project home page: https://fossil.wanderinghorse.net/r/teaish
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	23
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	24 use proj
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	25
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	26 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	27 # API-internal settings and shared state.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	28 array set teaish__Config [proj-strip-hash-comments {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	29 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	30 # Teaish's version number, not to be confused with
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	31 # teaish__PkgInfo(-version).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	32 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	33 version 0.1-beta
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	34
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	35 # set to 1 to enable some internal debugging output
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	36 debug-enabled 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	37
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	38 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	39 # 0 = don't yet have extension's pkgindex
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	40 # 0x01 = found TEAISH_EXT_DIR/pkgIndex.tcl.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	41 # 0x02 = found srcdir/pkgIndex.tcl.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	42 # 0x10 = found TEAISH_EXT_DIR/pkgIndex.tcl (static file)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	43 # 0x20 = static-pkgIndex.tcl pragma: behave as if 0x10
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	44 # 0x100 = disabled by -tm.tcl.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	45 # 0x200 = disabled by -tm.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	46 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	47 # Reminder: it's significant that the bottom 4 bits be
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	48 # cases where teaish manages ./pkgIndex.tcl.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	49 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	50 pkgindex-policy 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	51
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	52 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	53 # The pkginit counterpart of pkgindex-policy:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	54 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	55 # 0 = no pkginit
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	56 # 0x01 = found default X.in: generate X from X.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	57 # 0x10 = found static pkginit file X
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	58 # 0x02 = user-provided X.in generates ./X.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	59 # 0x20 = user-provided static pkginit file X
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	60 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	61 # The 0x0f bits indicate that teaish is responsible for cleaning up
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	62 # the (generated) pkginit file.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	63 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	64 pkginit-policy 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	65 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	66 # 0 = no tm.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	67 # 0x01 = tm.tcl.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	68 # 0x10 = static tm.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	69 tm-policy 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	70
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	71 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	72 # If 1+ then teaish__verbose will emit messages.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	73 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	74 verbose 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	75
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	76 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	77 # Mapping of pkginfo -flags to their TEAISH_xxx define (if any).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	78 # This must not be modified after initialization.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	79 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	80 pkginfo-f2d {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	81 -name TEAISH_NAME
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	82 -name.dist TEAISH_DIST_NAME
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	83 -name.pkg TEAISH_PKGNAME
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	84 -version TEAISH_VERSION
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	85 -libDir TEAISH_LIBDIR_NAME
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	86 -loadPrefix TEAISH_LOAD_PREFIX
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	87 -vsatisfies TEAISH_VSATISFIES
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	88 -pkgInit.tcl TEAISH_PKGINIT_TCL
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	89 -pkgInit.tcl.in TEAISH_PKGINIT_TCL_IN
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	90 -url TEAISH_URL
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	91 -tm.tcl TEAISH_TM_TCL
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	92 -tm.tcl.in TEAISH_TM_TCL_IN
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	93 -options {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	94 -pragmas {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	95 -src {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	96 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	97
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	98 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	99 # Queues for use with teaish-checks-queue and teaish-checks-run.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	100 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	101 queued-checks-pre {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	102 queued-checks-post {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	103
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	104 # Whether or not "make dist" parts are enabled. They get enabled
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	105 # when building from an extension's dir, disabled when building
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	106 # elsewhere.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	107 dist-enabled 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	108 # Whether or not "make install" parts are enabled. By default
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	109 # they are, but we have a single use case where they're
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	110 # both unnecessary and unhelpful, so...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	111 install-enabled 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	112
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	113 # By default we enable compilation of a native extension but if the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	114 # extension has no native code or the user wants to take that over
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	115 # via teaish.make.in or provide a script-only extension, we will
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	116 # elide the default compilation rules if this is 0.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	117 dll-enabled 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	118
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	119 # Files to include in the "make dist" bundle.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	120 dist-files {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	121
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	122 # List of source files for the extension.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	123 extension-src {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	124
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	125 # Path to the teaish.tcl file.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	126 teaish.tcl {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	127
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	128 # Dir where teaish.tcl is found.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	129 extension-dir {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	130
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	131 # Whether the generates TEASH_VSATISFIES_CODE should error out on a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	132 # satisfies error. If 0, it uses return instead of error.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	133 vsatisfies-error 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	134
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	135 # Whether or not to allow a "full dist" - a "make dist" build which
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	136 # includes both the extension and teaish. By default this is only on
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	137 # if the extension dir is teaish's dir.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	138 dist-full-enabled 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	139 }]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	140 set teaish__Config(core-dir) $::autosetup(libdir)/teaish
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	141
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	142 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	143 # Array of info managed by teaish-pkginfo-get and friends. Has the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	144 # same set of keys as $teaish__Config(pkginfo-f2d).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	145 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	146 array set teaish__PkgInfo {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	147
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	148 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	149 # Runs {*}$args if $lvl is <= the current verbosity level, else it has
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	150 # no side effects.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	151 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	152 proc teaish__verbose {lvl args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	153 if {$lvl <= $::teaish__Config(verbose)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	154 {*}$args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	155 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	156 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	157
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	158 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	159 # @teaish-argv-has flags...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	160 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	161 # Returns true if any arg in $::argv matches any of the given globs,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	162 # else returns false.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	163 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	164 proc teaish-argv-has {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	165 foreach glob $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	166 foreach arg $::argv {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	167 if {[string match $glob $arg]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	168 return 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	169 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	170 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	171 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	172 return 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	173 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	174
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	175 if {[teaish-argv-has --teaish-verbose --t-v]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	176 # Check this early so that we can use verbose-only messages in the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	177 # pre-options-parsing steps.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	178 set ::teaish__Config(verbose) 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	179 #teaish__verbose 1 msg-result "--teaish-verbose activated"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	180 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	181
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	182 msg-quiet use system ; # Outputs "Host System" and "Build System" lines
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	183 if {"--help" ni $::argv} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	184 teaish__verbose 1 msg-result "TEA(ish) Version = $::teaish__Config(version)"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	185 teaish__verbose 1 msg-result "Source dir = $::autosetup(srcdir)"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	186 teaish__verbose 1 msg-result "Build dir = $::autosetup(builddir)"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	187 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	188
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	189 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	190 # @teaish-configure-core
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	191 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	192 # Main entry point for the TEA-ish configure process. auto.def's primary
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	193 # (ideally only) job should be to call this.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	194 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	195 proc teaish-configure-core {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	196 proj-tweak-default-env-dirs
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	197
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	198 set ::teaish__Config(install-mode) [teaish-argv-has --teaish-install*]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	199 set ::teaish__Config(create-ext-mode) \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	200 [teaish-argv-has --teaish-create-extension=* --t-c-e=*]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	201 set gotExt 0; # True if an extension config is found
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	202 if {!$::teaish__Config(create-ext-mode)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	203 && !$::teaish__Config(install-mode)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	204 # Don't look for an extension if we're in --t-c-e or --t-i mode
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	205 set gotExt [teaish__find_extension]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	206 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	207
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	208 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	209 # Set up the core --flags. This needs to come before teaish.tcl is
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	210 # sourced so that that file can use teaish-pkginfo-set to append
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	211 # options.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	212 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	213 options-add [proj-strip-hash-comments {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	214 with-tcl:DIR
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	215 => {Directory containing tclConfig.sh or a directory one level up from
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	216 that, from which we can derive a directory containing tclConfig.sh.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	217 Defaults to the $TCL_HOME environment variable.}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	218
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	219 with-tclsh:PATH
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	220 => {Full pathname of tclsh to use. It is used for trying to find
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	221 tclConfig.sh. Warning: if its containing dir has multiple tclsh
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	222 versions, it may select the wrong tclConfig.sh!
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	223 Defaults to the $TCLSH environment variable.}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	224
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	225 tcl-stubs=0 => {Enable use of Tcl stubs library.}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	226
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	227 # TEA has --with-tclinclude but it appears to only be useful for
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	228 # building an extension against an uninstalled copy of TCL's own
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	229 # source tree. The policy here is that either we get that info
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	230 # from tclConfig.sh or we give up.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	231 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	232 # with-tclinclude:DIR
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	233 # => {Specify the directory which contains the tcl.h. This should not
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	234 # normally be required, as that information comes from tclConfig.sh.}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	235
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	236 # We _generally_ want to reduce the possibility of flag collisions with
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	237 # extensions, and thus use a teaish-... prefix on most flags. However,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	238 # --teaish-extension-dir is frequently needed, so...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	239 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	240 # As of this spontaneous moment, we'll settle on using --t-A-X to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	241 # abbreviate --teaish-A...-X... flags when doing so is
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	242 # unambiguous...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	243 ted: t-e-d:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	244 teaish-extension-dir:DIR
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	245 => {Looks for an extension in the given directory instead of the current
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	246 dir.}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	247
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	248 t-c-e:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	249 teaish-create-extension:TARGET_DIRECTORY
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	250 => {Writes stub files for creating an extension. Will refuse to overwrite
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	251 existing files without --teaish-force.}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	252
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	253 t-f
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	254 teaish-force
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	255 => {Has a context-dependent meaning (autosetup defines --force for its
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	256 own use).}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	257
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	258 t-d-d
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	259 teaish-dump-defines
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	260 => {Dump all configure-defined vars to config.defines.txt}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	261
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	262 t-v:=0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	263 teaish-verbose:=0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	264 => {Enable more (often extraneous) messages from the teaish core.}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	265
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	266 t-d
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	267 teaish-debug=0 => {Enable teaish-specific debug output}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	268
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	269 t-i
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	270 teaish-install:=auto
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	271 => {Installs a copy of teaish, including autosetup, to the target dir.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	272 When used with --teaish-create-extension=DIR, a value of "auto"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	273 (no no value) will inherit that directory.}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	274
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	275 #TODO: --teaish-install-extension:=dir as short for
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	276 # --t-c-e=dir --t-i
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	277
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	278 t-e-p:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	279 teaish-extension-pkginfo:pkginfo
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	280 => {For use with --teaish-create-extension. If used, it must be a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	281 list of arguments for use with teaish-pkginfo-set, e.g.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	282 --teaish-extension-pkginfo="-name Foo -version 2.3"}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	283
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	284 t-v-c
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	285 teaish-vsatisfies-check=1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	286 => {Disable the configure-time "vsatisfies" check on the target tclsh.}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	287
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	288 }]; # main options.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	289
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	290 if {$gotExt} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	291 # We found an extension. Source it...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	292 set ttcl $::teaish__Config(teaish.tcl)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	293 proj-assert {"" ne [teaish-pkginfo-get -name]}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	294 proj-assert {[file exists $ttcl]} \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	295 "Expecting to have found teaish.(tcl\|config) by now"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	296 if {[string match *.tcl $ttcl]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	297 uplevel 1 {source $::teaish__Config(teaish.tcl)}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	298 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	299 teaish-pkginfo-set {*}[proj-file-content -trim $ttcl]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	300 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	301 unset ttcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	302 # Set up some default values if the extension did not set them.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	303 # This must happen _after_ it's sourced but before
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	304 # teaish-configure is called.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	305 array set f2d $::teaish__Config(pkginfo-f2d)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	306 foreach {pflag key type val} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	307 - TEAISH_CFLAGS -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	308 - TEAISH_LDFLAGS -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	309 - TEAISH_MAKEFILE -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	310 - TEAISH_MAKEFILE_CODE -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	311 - TEAISH_MAKEFILE_IN -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	312 - TEAISH_PKGINDEX_TCL -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	313 - TEAISH_PKGINDEX_TCL_IN -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	314 - TEAISH_PKGINIT_TCL -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	315 - TEAISH_PKGINIT_TCL_IN -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	316 - TEAISH_PKGINIT_TCL_TAIL -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	317 - TEAISH_TEST_TCL -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	318 - TEAISH_TEST_TCL_IN -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	319
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	320 -version - -v 0.0.0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	321 -name.pkg - -e {set ::teaish__PkgInfo(-name)}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	322 -name.dist - -e {set ::teaish__PkgInfo(-name)}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	323 -libDir - -e {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	324 join [list \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	325 $::teaish__PkgInfo(-name.pkg) \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	326 $::teaish__PkgInfo(-version)] ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	327 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	328 -loadPrefix - -e {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	329 string totitle $::teaish__PkgInfo(-name.pkg)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	330 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	331 -vsatisfies - -v {{Tcl 8.5-}}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	332 -pkgInit.tcl - -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	333 -pkgInit.tcl.in - -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	334 -url - -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	335 -tm.tcl - -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	336 -tm.tcl.in - -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	337 -src - -v ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	338 } {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	339 #proj-assert 0 {Just testing}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	340 set isPIFlag [expr {"-" ne $pflag}]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	341 if {$isPIFlag} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	342 if {[info exists ::teaish__PkgInfo($pflag)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	343 # Was already set - skip it.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	344 continue;
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	345 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	346 proj-assert {{-} eq $key};# "Unexpected pflag=$pflag key=$key type=$type val=$val"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	347 set key $f2d($pflag)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	348 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	349 if {"" ne $key} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	350 if {"<nope>" ne [get-define $key "<nope>"]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	351 # Was already set - skip it.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	352 continue
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	353 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	354 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	355 switch -exact -- $type {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	356 -v {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	357 -e { set val [eval $val] }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	358 default { proj-error "Invalid type flag: $type" }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	359 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	360 #puts "***** defining default $pflag $key {$val} isPIFlag=$isPIFlag"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	361 if {$key ne ""} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	362 define $key $val
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	363 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	364 if {$isPIFlag} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	365 set ::teaish__PkgInfo($pflag) $val
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	366 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	367 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	368 unset isPIFlag pflag key type val
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	369 array unset f2d
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	370 }; # sourcing extension's teaish.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	371
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	372 if {[llength [info proc teaish-options]] > 0} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	373 # Add options defined by teaish-options, which is assumed to be
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	374 # imported via [teaish-get -teaish-tcl].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	375 set o [teaish-options]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	376 if {"" ne $o} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	377 options-add $o
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	378 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	379 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	380 #set opts [proj-options-combine]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	381 #lappend opts teaish-debug => {x}; #testing dupe entry handling
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	382 if {[catch {options {}} msg xopts]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	383 # Workaround for <https://github.com/msteveb/autosetup/issues/73>
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	384 # where [options] behaves oddly on _some_ TCL builds when it's
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	385 # called from deeper than the global scope.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	386 dict incr xopts -level
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	387 return {*}$xopts $msg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	388 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	389
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	390 proj-xfer-options-aliases {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	391 t-c-e => teaish-create-extension
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	392 t-d => teaish-debug
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	393 t-d-d => teaish-dump-defines
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	394 ted => teaish-extension-dir
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	395 t-e-d => teaish-extension-dir
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	396 t-e-p => teaish-extension-pkginfo
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	397 t-f => teaish-force
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	398 t-i => teaish-install
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	399 t-v => teaish-verbose
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	400 t-v-c => teaish-vsatisfies-check
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	401 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	402
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	403 scan [opt-val teaish-verbose 0] %d ::teaish__Config(verbose)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	404 set ::teaish__Config(debug-enabled) [opt-bool teaish-debug]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	405
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	406 set exitEarly 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	407 if {[proj-opt-was-provided teaish-create-extension]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	408 teaish__create_extension [opt-val teaish-create-extension]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	409 incr exitEarly
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	410 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	411 if {$::teaish__Config(install-mode)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	412 teaish__install
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	413 incr exitEarly
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	414 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	415
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	416 if {$exitEarly} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	417 file delete -force config.log
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	418 return
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	419 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	420 proj-assert {1==$gotExt} "Else we cannot have gotten this far"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	421
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	422 teaish__configure_phase1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	423 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	424
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	425
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	426 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	427 # Internal config-time debugging output routine. It is not legal to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	428 # call this from the global scope.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	429 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	430 proc teaish-debug {msg} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	431 if {$::teaish__Config(debug-enabled)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	432 puts stderr [proj-bold "** DEBUG: \[[proj-scope 1]\]: $msg"]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	433 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	434 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	435
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	436 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	437 # Runs "phase 1" of the configuration, immediately after processing
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	438 # --flags. This is what will import the client-defined teaish.tcl.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	439 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	440 proc teaish__configure_phase1 {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	441 msg-result \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	442 [join [list "Configuring build of Tcl extension" \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	443 [proj-bold [teaish-pkginfo-get -name] \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	444 [teaish-pkginfo-get -version]] "..."]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	445
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	446 uplevel 1 {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	447 use cc cc-db cc-shared cc-lib; # pkg-config
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	448 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	449 teaish__check_tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	450 apply {{} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	451 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	452 # If --prefix or --exec-prefix are _not_ provided, use their
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	453 # TCL_... counterpart from tclConfig.sh. Caveat: by the time we can
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	454 # reach this point, autosetup's system.tcl will have already done
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	455 # some non-trivial amount of work with these to create various
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	456 # derived values from them, so we temporarily end up with a mishmash
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	457 # of autotools-compatibility var values. That will be straightened
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	458 # out in the final stage of the configure script via
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	459 # [proj-remap-autoconf-dir-vars].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	460 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	461 foreach {flag uflag tclVar} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	462 prefix prefix TCL_PREFIX
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	463 exec-prefix exec_prefix TCL_EXEC_PREFIX
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	464 } {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	465 if {![proj-opt-was-provided $flag]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	466 if {"exec-prefix" eq $flag} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	467 # If --exec-prefix was not used, ensure that --exec-prefix
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	468 # derives from the --prefix we may have just redefined.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	469 set v {${prefix}}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	470 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	471 set v [get-define $tclVar "???"]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	472 teaish__verbose 1 msg-result "Using \$$tclVar for --$flag=$v"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	473 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	474 proj-assert {"???" ne $v} "Expecting teaish__check_tcl to have defined $tclVar"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	475 #puts "*** $flag $uflag $tclVar = $v"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	476 proj-opt-set $flag $v
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	477 define $uflag $v
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	478
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	479 # ^^^ As of here, all autotools-compatibility vars which derive
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	480 # from --$flag, e.g. --libdir, still derive from the default
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	481 # --$flag value which was active when system.tcl was
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	482 # included. So long as those flags are not explicitly passed to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	483 # the configure script, those will be straightened out via
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	484 # [proj-remap-autoconf-dir-vars].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	485 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	486 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	487 }}; # --[exec-]prefix defaults
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	488 teaish__check_common_bins
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	489 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	490 # Set up library file names
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	491 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	492 proj-file-extensions
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	493 teaish__define_pkginfo_derived *
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	494
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	495 teaish-checks-run -pre
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	496 if {[llength [info proc teaish-configure]] > 0} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	497 # teaish-configure is assumed to be imported via
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	498 # teaish.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	499 teaish-configure
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	500 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	501 teaish-checks-run -post
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	502
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	503 define TEAISH_USE_STUBS [opt-bool tcl-stubs]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	504
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	505 apply {{} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	506 # Set up "vsatisfies" code for pkgIndex.tcl.in,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	507 # _teaish.tester.tcl.in, and for a configure-time check. We would
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	508 # like to put this before [teaish-checks-run -pre] but it's
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	509 # marginally conceivable that a client may need to dynamically
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	510 # calculate the vsatisfies and set it via [teaish-configure].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	511 set vs [get-define TEAISH_VSATISFIES ""]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	512 if {"" eq $vs} return
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	513 set code {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	514 set n 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	515 # Treat $vs as a list-of-lists {{Tcl 8.5-} {Foo 1.0- -3.0} ...}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	516 # and generate Tcl which will run package vsatisfies tests with
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	517 # that info.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	518 foreach pv $vs {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	519 set n [llength $pv]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	520 if {$n < 2} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	521 proj-error "-vsatisfies: {$pv} appears malformed. Whole list is: $vs"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	522 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	523 set pkg [lindex $pv 0]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	524 set vcheck {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	525 for {set i 1} {$i < $n} {incr i} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	526 lappend vcheck [lindex $pv $i]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	527 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	528 if {[opt-bool teaish-vsatisfies-check]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	529 set tclsh [get-define TCLSH_CMD]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	530 set vsat "package vsatisfies \[ package provide $pkg \] $vcheck"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	531 set vputs "puts \[ $vsat \]"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	532 #puts "*** vputs = $vputs"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	533 scan [exec echo $vputs \| $tclsh] %d vvcheck
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	534 if {![info exists vvcheck] \|\| 0 == $vvcheck} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	535 proj-fatal -up $tclsh "check failed:" $vsat
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	536 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	537 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	538 if {$::teaish__Config(vsatisfies-error)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	539 set vunsat \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	540 [list error [list Package \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	541 $::teaish__PkgInfo(-name) $::teaish__PkgInfo(-version) \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	542 requires $pv]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	543 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	544 set vunsat return
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	545 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	546 lappend code \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	547 [string trim [subst -nocommands \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	548 {if { ![package vsatisfies [package provide $pkg] $vcheck] } {\n $vunsat\n}}]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	549 }; # foreach pv
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	550 define TEAISH_VSATISFIES_CODE [join $code "\n"]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	551 }}; # vsatisfies
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	552
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	553 if {[proj-looks-like-windows]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	554 # Without this, linking of an extension will not work on Cygwin or
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	555 # Msys2.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	556 msg-result "Using USE_TCL_STUBS for Unix(ish)-on-Windows environment"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	557 teaish-cflags-add -DUSE_TCL_STUBS=1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	558 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	559
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	560 #define AS_LIBDIR $::autosetup(libdir)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	561 define TEAISH_TESTUTIL_TCL $::teaish__Config(core-dir)/tester.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	562
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	563 apply {{} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	564 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	565 # Ensure we have a pkgIndex.tcl and don't have a stale generated one
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	566 # when rebuilding for different --with-tcl=... values.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	567 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	568 if {!$::teaish__Config(pkgindex-policy)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	569 proj-error "Cannot determine which pkgIndex.tcl to use"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	570 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	571 if {0x300 & $::teaish__Config(pkgindex-policy)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	572 teaish__verbose 1 msg-result "pkgIndex disabled by -tm.tcl(.in)"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	573 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	574 set tpi [proj-coalesce \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	575 [get-define TEAISH_PKGINDEX_TCL_IN] \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	576 [get-define TEAISH_PKGINDEX_TCL]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	577 proj-assert {$tpi ne ""} \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	578 "TEAISH_PKGINDEX_TCL should have been set up by now"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	579 teaish__verbose 1 msg-result "Using pkgIndex from $tpi"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	580 if {0x0f & $::teaish__Config(pkgindex-policy)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	581 # Don't leave stale pkgIndex.tcl laying around yet don't delete
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	582 # or overwrite a user-managed static pkgIndex.tcl.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	583 file delete -force -- [get-define TEAISH_PKGINDEX_TCL]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	584 proj-dot-ins-append [get-define TEAISH_PKGINDEX_TCL_IN]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	585 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	586 teaish-dist-add [file tail $tpi]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	587 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	588 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	589 }}; # $::teaish__Config(pkgindex-policy)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	590
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	591 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	592 # Ensure we clean up TEAISH_PKGINIT_TCL if needed and @-process
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	593 # TEAISH_PKGINIT_TCL_IN if needed.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	594 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	595 if {0x0f & $::teaish__Config(pkginit-policy)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	596 file delete -force -- [get-define TEAISH_PKGINIT_TCL]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	597 proj-dot-ins-append [get-define TEAISH_PKGINIT_TCL_IN] \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	598 [get-define TEAISH_PKGINIT_TCL]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	599 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	600 if {0x0f & $::teaish__Config(tm-policy)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	601 file delete -force -- [get-define TEAISH_TM_TCL]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	602 proj-dot-ins-append [get-define TEAISH_TM_TCL_IN]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	603 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	604
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	605 apply {{} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	606 # Queue up any remaining dot-in files
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	607 set dotIns [list]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	608 foreach {dIn => dOut} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	609 TEAISH_TESTER_TCL_IN => TEAISH_TESTER_TCL
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	610 TEAISH_TEST_TCL_IN => TEAISH_TEST_TCL
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	611 TEAISH_MAKEFILE_IN => TEAISH_MAKEFILE
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	612 } {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	613 lappend dotIns [get-define $dIn ""] [get-define $dOut ""]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	614 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	615 lappend dotIns $::autosetup(srcdir)/Makefile.in Makefile; # must be after TEAISH_MAKEFILE_IN.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	616 # Much later: probably because of timestamps for deps purposes :-?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	617 #puts "dotIns=$dotIns"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	618 foreach {i o} $dotIns {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	619 if {"" ne $i && "" ne $o} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	620 #puts " pre-dot-ins-append: \[$i\] -> \[$o\]"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	621 proj-dot-ins-append $i $o
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	622 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	623 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	624 }}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	625
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	626 define TEAISH_DIST_FULL \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	627 [expr {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	628 $::teaish__Config(dist-enabled)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	629 && $::teaish__Config(dist-full-enabled)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	630 }]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	631
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	632 define TEAISH_AUTOSETUP_DIR $::teaish__Config(core-dir)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	633 define TEAISH_ENABLE_DIST $::teaish__Config(dist-enabled)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	634 define TEAISH_ENABLE_INSTALL $::teaish__Config(install-enabled)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	635 define TEAISH_ENABLE_DLL $::teaish__Config(dll-enabled)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	636 define TEAISH_TCL $::teaish__Config(teaish.tcl)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	637
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	638 define TEAISH_DIST_FILES [join $::teaish__Config(dist-files)]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	639 define TEAISH_EXT_DIR [join $::teaish__Config(extension-dir)]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	640 define TEAISH_EXT_SRC [join $::teaish__Config(extension-src)]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	641 proj-setup-autoreconfig TEAISH_AUTORECONFIG
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	642 foreach f {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	643 TEAISH_CFLAGS
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	644 TEAISH_LDFLAGS
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	645 } {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	646 # Ensure that any of these lists are flattened
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	647 define $f [join [get-define $f]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	648 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	649 proj-remap-autoconf-dir-vars
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	650 set tdefs [teaish__defines_to_list]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	651 define TEAISH__DEFINES_MAP $tdefs; # injected into _teaish.tester.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	652
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	653 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	654 # NO [define]s after this point!
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	655 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	656 proj-if-opt-truthy teaish-dump-defines {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	657 proj-file-write config.defines.txt $tdefs
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	658 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	659 proj-dot-ins-process -validate
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	660
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	661 }; # teaish__configure_phase1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	662
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	663 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	664 # Run checks for required binaries.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	665 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	666 proc teaish__check_common_bins {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	667 if {"" eq [proj-bin-define install]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	668 proj-warn "Cannot find install binary, so 'make install' will not work."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	669 define BIN_INSTALL false
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	670 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	671 if {"" eq [proj-bin-define zip]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	672 proj-warn "Cannot find zip, so 'make dist.zip' will not work."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	673 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	674 if {"" eq [proj-bin-define tar]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	675 proj-warn "Cannot find tar, so 'make dist.tgz' will not work."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	676 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	677 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	678
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	679 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	680 # TCL...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	681 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	682 # teaish__check_tcl performs most of the --with-tcl and --with-tclsh
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	683 # handling. Some related bits and pieces are performed before and
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	684 # after that function is called.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	685 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	686 # Important [define]'d vars:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	687 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	688 # - TCLSH_CMD is the path to the canonical tclsh or "".
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	689 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	690 # - TCL_CONFIG_SH is the path to tclConfig.sh or "".
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	691 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	692 # - TCLLIBDIR is the dir to which the extension library gets
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	693 # - installed.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	694 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	695 proc teaish__check_tcl {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	696 define TCLSH_CMD false ; # Significant is that it exits with non-0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	697 define TCLLIBDIR "" ; # Installation dir for TCL extension lib
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	698 define TCL_CONFIG_SH ""; # full path to tclConfig.sh
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	699
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	700 # Clear out all vars which would harvest from tclConfig.sh so that
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	701 # the late-config validation of @VARS@ works even if --disable-tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	702 # is used.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	703 proj-tclConfig-sh-to-autosetup ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	704
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	705 # TODO: better document the steps this is taking.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	706 set srcdir $::autosetup(srcdir)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	707 msg-result "Checking for a suitable tcl... "
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	708 set use_tcl 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	709 set withSh [opt-val with-tclsh [proj-get-env TCLSH]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	710 set tclHome [opt-val with-tcl [proj-get-env TCL_HOME]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	711 if {[string match */lib $tclHome]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	712 # TEA compatibility kludge: its --with-tcl wants the lib
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	713 # dir containing tclConfig.sh.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	714 #proj-warn "Replacing --with-tcl=$tclHome for TEA compatibility"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	715 regsub {/lib^} $tclHome "" tclHome
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	716 msg-result "NOTE: stripped /lib suffix from --with-tcl=$tclHome (a TEA-ism)"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	717 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	718 if {0} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	719 # This misinteracts with the $TCL_PREFIX default: it will use the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	720 # autosetup-defined --prefix default
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	721 if {"prefix" eq $tclHome} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	722 set tclHome [get-define prefix]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	723 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	724 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	725 teaish-debug "use_tcl ${use_tcl}"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	726 teaish-debug "withSh=${withSh}"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	727 teaish-debug "tclHome=$tclHome"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	728 if {"" eq $withSh && "" eq $tclHome} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	729 # If neither --with-tclsh nor --with-tcl are provided, try to find
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	730 # a workable tclsh.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	731 set withSh [proj-first-bin-of tclsh9.1 tclsh9.0 tclsh8.6 tclsh]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	732 teaish-debug "withSh=${withSh}"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	733 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	734
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	735 set doConfigLookup 1 ; # set to 0 to test the tclConfig.sh-not-found cases
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	736 if {"" ne $withSh} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	737 # --with-tclsh was provided or found above. Validate it and use it
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	738 # to trump any value passed via --with-tcl=DIR.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	739 if {![file-isexec $withSh]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	740 proj-error "TCL shell $withSh is not executable"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	741 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	742 define TCLSH_CMD $withSh
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	743 #msg-result "Using tclsh: $withSh"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	744 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	745 if {$doConfigLookup &&
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	746 [catch {exec $withSh $::autosetup(libdir)/find_tclconfig.tcl} result] == 0} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	747 set tclHome $result
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	748 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	749 if {"" ne $tclHome && [file isdirectory $tclHome]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	750 teaish__verbose 1 msg-result "$withSh recommends the tclConfig.sh from $tclHome"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	751 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	752 proj-warn "$withSh is unable to recommend a tclConfig.sh"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	753 set use_tcl 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	754 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	755 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	756 set cfg ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	757 set tclSubdirs {tcl9.1 tcl9.0 tcl8.6 tcl8.5 lib}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	758 while {$use_tcl} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	759 if {"" ne $tclHome} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	760 # Ensure that we can find tclConfig.sh under ${tclHome}/...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	761 if {$doConfigLookup} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	762 if {[file readable "${tclHome}/tclConfig.sh"]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	763 set cfg "${tclHome}/tclConfig.sh"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	764 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	765 foreach i $tclSubdirs {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	766 if {[file readable "${tclHome}/$i/tclConfig.sh"]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	767 set cfg "${tclHome}/$i/tclConfig.sh"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	768 break
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	769 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	770 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	771 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	772 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	773 if {"" eq $cfg} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	774 proj-error "No tclConfig.sh found under ${tclHome}"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	775 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	776 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	777 # If we have not yet found a tclConfig.sh file, look in $libdir
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	778 # which is set automatically by autosetup or via the --prefix
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	779 # command-line option. See
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	780 # https://sqlite.org/forum/forumpost/e04e693439a22457
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	781 set libdir [get-define libdir]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	782 if {[file readable "${libdir}/tclConfig.sh"]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	783 set cfg "${libdir}/tclConfig.sh"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	784 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	785 foreach i $tclSubdirs {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	786 if {[file readable "${libdir}/$i/tclConfig.sh"]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	787 set cfg "${libdir}/$i/tclConfig.sh"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	788 break
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	789 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	790 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	791 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	792 if {![file readable $cfg]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	793 break
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	794 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	795 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	796 teaish__verbose 1 msg-result "Using tclConfig.sh = $cfg"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	797 break
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	798 }; # while {$use_tcl}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	799 define TCL_CONFIG_SH $cfg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	800 # Export a subset of tclConfig.sh to the current TCL-space. If $cfg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	801 # is an empty string, this emits empty-string entries for the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	802 # various options we're interested in.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	803 proj-tclConfig-sh-to-autosetup $cfg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	804
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	805 if {"" eq $withSh && $cfg ne ""} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	806 # We have tclConfig.sh but no tclsh. Attempt to locate a tclsh
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	807 # based on info from tclConfig.sh.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	808 set tclExecPrefix [get-define TCL_EXEC_PREFIX]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	809 proj-assert {"" ne $tclExecPrefix}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	810 set tryThese [list \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	811 $tclExecPrefix/bin/tclsh[get-define TCL_VERSION] \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	812 $tclExecPrefix/bin/tclsh ]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	813 foreach trySh $tryThese {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	814 if {[file-isexec $trySh]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	815 set withSh $trySh
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	816 break
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	817 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	818 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	819 if {![file-isexec $withSh]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	820 proj-warn "Cannot find a usable tclsh (tried: $tryThese)"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	821 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	822 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	823 define TCLSH_CMD $withSh
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	824 if {$use_tcl} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	825 # Set up the TCLLIBDIR
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	826 set tcllibdir [get-env TCLLIBDIR ""]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	827 set extDirName [teaish-pkginfo-get -libDir]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	828 if {"" eq $tcllibdir} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	829 # Attempt to extract TCLLIBDIR from TCL's $auto_path
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	830 if {"" ne $withSh &&
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	831 [catch {exec echo "puts stdout \$auto_path" \| "$withSh"} result] == 0} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	832 foreach i $result {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	833 if {![string match //zip* $i] && [file isdirectory $i]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	834 # isdirectory actually passes on //zipfs:/..., but those are
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	835 # useless for our purposes
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	836 set tcllibdir $i/$extDirName
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	837 break
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	838 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	839 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	840 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	841 proj-error "Cannot determine TCLLIBDIR."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	842 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	843 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	844 define TCLLIBDIR $tcllibdir
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	845 }; # find TCLLIBDIR
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	846
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	847 set gotSh [file-isexec $withSh]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	848 set tmdir ""; # first tcl::tm::list entry
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	849 if {$gotSh} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	850 catch {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	851 set tmli [exec echo {puts [tcl::tm::list]} \| $withSh]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	852 # Reminder: this list contains many names of dirs which do not
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	853 # exist but are legitimate. If we rely only on an is-dir check,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	854 # we can end up not finding any of the many candidates.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	855 set firstDir ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	856 foreach d $tmli {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	857 if {"" eq $firstDir && ![string match //: $d]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	858 # First non-VFS entry, e.g. not //zipfs:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	859 set firstDir $d
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	860 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	861 if {[file isdirectory $d]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	862 set tmdir $d
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	863 break
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	864 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	865 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	866 if {"" eq $tmdir} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	867 set tmdir $firstDir
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	868 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	869 }; # find tcl::tm path
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	870 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	871 define TEAISH_TCL_TM_DIR $tmdir
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	872
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	873 # Finally, let's wrap up...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	874 if {$gotSh} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	875 teaish__verbose 1 msg-result "Using tclsh = $withSh"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	876 if {$cfg ne ""} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	877 define HAVE_TCL 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	878 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	879 proj-warn "Found tclsh but no tclConfig.sh."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	880 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	881 if {"" eq $tmdir} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	882 proj-warn "Did not find tcl::tm directory."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	883 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	884 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	885 show-notices
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	886 # If TCL is not found: if it was explicitly requested then fail
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	887 # fatally, else just emit a warning. If we can find the APIs needed
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	888 # to generate a working JimTCL then that will suffice for build-time
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	889 # TCL purposes (see: proc sqlite-determine-codegen-tcl).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	890 if {!$gotSh} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	891 proj-error "Did not find tclsh"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	892 } elseif {"" eq $cfg} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	893 proj-indented-notice -error {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	894 Cannot find a usable tclConfig.sh file. Use --with-tcl=DIR to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	895 specify a directory near which tclConfig.sh can be found, or
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	896 --with-tclsh=/path/to/tclsh to allow the tclsh binary to locate
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	897 its tclConfig.sh, with the caveat that a symlink to tclsh, or
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	898 wrapper script around it, e.g. ~/bin/tclsh ->
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	899 $HOME/tcl/9.0/bin/tclsh9.1, may not work because tclsh emits
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	900 different library paths for the former than the latter.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	901 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	902 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	903 msg-result "Using Tcl [get-define TCL_VERSION] from [get-define TCL_PREFIX]."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	904 teaish__tcl_platform_quirks
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	905 }; # teaish__check_tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	906
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	907 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	908 # Perform last-minute platform-specific tweaks to account for quirks.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	909 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	910 proc teaish__tcl_platform_quirks {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	911 define TEAISH_POSTINST_PREREQUIRE ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	912 switch -glob -- [get-define host] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	913 *-haiku {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	914 # Haiku's default TCLLIBDIR is "all wrong": it points to a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	915 # read-only virtual filesystem mount-point. We bend it back to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	916 # fit under $TCL_PACKAGE_PATH here.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	917 foreach {k d} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	918 vj TCL_MAJOR_VERSION
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	919 vn TCL_MINOR_VERSION
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	920 pp TCL_PACKAGE_PATH
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	921 ld TCLLIBDIR
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	922 } {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	923 set $k [get-define $d]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	924 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	925 if {[string match /packages/* $ld]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	926 set old $ld
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	927 set tail [file tail $ld]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	928 if {8 == $vj} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	929 set ld "${pp}/tcl${vj}.${vn}/${tail}"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	930 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	931 proj-assert {9 == $vj}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	932 set ld "${pp}/${tail}"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	933 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	934 define TCLLIBDIR $ld
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	935 # [load foo.so], without a directory part, does not work via
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	936 # automated tests on Haiku (but works when run
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	937 # manually). Similarly, the post-install [package require ...]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	938 # test fails, presumably for a similar reason. We work around
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	939 # the former in _teaish.tester.tcl.in. We work around the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	940 # latter by amending the post-install check's ::auto_path (in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	941 # Makefile.in). This code MUST NOT contain any single-quotes.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	942 define TEAISH_POSTINST_PREREQUIRE \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	943 [join [list set ::auto_path \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	944 \[ linsert \$::auto_path 0 $ld \] \; \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	945 ]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	946 proj-indented-notice [subst -nocommands -nobackslashes {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	947 Haiku users take note: patching target installation dir to match
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	948 Tcl's home because Haiku's is not writable.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	949
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	950 Original : $old
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	951 Substitute: $ld
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	952 }]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	953 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	954 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	955 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	956 }; # teaish__tcl_platform_quirks
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	957
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	958 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	959 # Searches $::argv and/or the build dir and/or the source dir for
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	960 # teaish.tcl and friends. Fails if it cannot find teaish.tcl or if
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	961 # there are other irreconcilable problems. If it returns 0 then it did
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	962 # not find an extension but the --help flag was seen, in which case
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	963 # that's not an error.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	964 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	965 # This does not _load_ the extension, it primarily locates the files
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	966 # which make up an extension and fills out no small amount of teaish
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	967 # state related to that.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	968 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	969 proc teaish__find_extension {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	970 proj-assert {!$::teaish__Config(install-mode)}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	971 teaish__verbose 1 msg-result "Looking for teaish extension..."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	972
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	973 # Helper for the foreach loop below.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	974 set checkTeaishTcl {{mustHave fid dir} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	975 set f [file join $dir $fid]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	976 if {[file readable $f]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	977 file-normalize $f
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	978 } elseif {$mustHave} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	979 proj-error "Missing required $dir/$fid"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	980 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	981 }}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	982
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	983 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	984 # We have to handle some flags manually because the extension must
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	985 # be loaded before [options] is run (so that the extension can
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	986 # inject its own options).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	987 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	988 set dirBld $::autosetup(builddir); # dir we're configuring under
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	989 set dirSrc $::autosetup(srcdir); # where teaish's configure script lives
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	990 set extT ""; # teaish.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	991 set largv {}; # rewritten $::argv
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	992 set gotHelpArg 0; # got the --help
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	993 foreach arg $::argv {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	994 #puts "*** arg=$arg"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	995 switch -glob -- $arg {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	996 --ted=* -
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	997 --t-e-d=* -
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	998 --teaish-extension-dir=* {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	999 # Ensure that $extD refers to a directory and contains a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1000 # teaish.tcl.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1001 regexp -- {--[^=]+=(.+)} $arg - extD
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1002 set extD [file-normalize $extD]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1003 if {![file isdirectory $extD]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1004 proj-error "--teaish-extension-dir value is not a directory: $extD"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1005 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1006 set extT [apply $checkTeaishTcl 0 teaish.config $extD]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1007 if {"" eq $extT} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1008 set extT [apply $checkTeaishTcl 1 teaish.tcl $extD]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1009 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1010 set ::teaish__Config(extension-dir) $extD
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1011 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1012 --help {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1013 incr gotHelpArg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1014 lappend largv $arg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1015 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1016 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1017 lappend largv $arg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1018 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1019 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1020 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1021 set ::argv $largv
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1022
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1023 set dirExt $::teaish__Config(extension-dir); # dir with the extension
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1024 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1025 # teaish.tcl is a TCL script which implements various
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1026 # interfaces described by this framework.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1027 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1028 # We use the first one we find in the builddir or srcdir.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1029 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1030 if {"" eq $extT} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1031 set flist [list]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1032 proj-assert {$dirExt eq ""}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1033 lappend flist $dirBld/teaish.tcl $dirBld/teaish.config $dirSrc/teaish.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1034 if {![proj-first-file-found extT $flist]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1035 if {$gotHelpArg} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1036 # Tell teaish-configure-core that the lack of extension is not
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1037 # an error when --help or --teaish-install is used.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1038 return 0;
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1039 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1040 proj-indented-notice -error "
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1041 Did not find any of: $flist
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1042
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1043 If you are attempting an out-of-tree build, use
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1044 --teaish-extension-dir=/path/to/extension"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1045 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1046 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1047 if {![file readable $extT]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1048 proj-error "extension tcl file is not readable: $extT"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1049 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1050 set ::teaish__Config(teaish.tcl) $extT
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1051 set dirExt [file dirname $extT]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1052
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1053 set ::teaish__Config(extension-dir) $dirExt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1054 set ::teaish__Config(blddir-is-extdir) [expr {$dirBld eq $dirExt}]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1055 set ::teaish__Config(dist-enabled) $::teaish__Config(blddir-is-extdir); # may change later
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1056 set ::teaish__Config(dist-full-enabled) \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1057 [expr {[file-normalize $::autosetup(srcdir)]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1058 eq [file-normalize $::teaish__Config(extension-dir)]}]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1059
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1060 set addDist {{file} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1061 teaish-dist-add [file tail $file]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1062 }}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1063 apply $addDist $extT
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1064
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1065 teaish__verbose 1 msg-result "Extension dir = [teaish-get -dir]"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1066 teaish__verbose 1 msg-result "Extension config = $extT"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1067
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1068 teaish-pkginfo-set -name [file tail [file dirname $extT]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1069
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1070 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1071 # teaish.make[.in] provides some of the info for the main makefile,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1072 # like which source(s) to build and their build flags.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1073 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1074 # We use the first one of teaish.make.in or teaish.make we find in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1075 # $dirExt.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1076 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1077 if {[proj-first-file-found extM \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1078 [list \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1079 $dirExt/teaish.make.in \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1080 $dirExt/teaish.make \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1081 ]]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1082 if {[string match *.in $extM]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1083 define TEAISH_MAKEFILE_IN $extM
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1084 define TEAISH_MAKEFILE _[file rootname [file tail $extM]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1085 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1086 define TEAISH_MAKEFILE_IN ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1087 define TEAISH_MAKEFILE $extM
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1088 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1089 apply $addDist $extM
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1090 teaish__verbose 1 msg-result "Extension makefile = $extM"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1091 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1092 define TEAISH_MAKEFILE_IN ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1093 define TEAISH_MAKEFILE ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1094 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1095
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1096 # Look for teaish.pkginit.tcl[.in]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1097 set piPolicy 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1098 if {[proj-first-file-found extI \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1099 [list \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1100 $dirExt/teaish.pkginit.tcl.in \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1101 $dirExt/teaish.pkginit.tcl \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1102 ]]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1103 if {[string match *.in $extI]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1104 # Generate teaish.pkginit.tcl from $extI.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1105 define TEAISH_PKGINIT_TCL_IN $extI
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1106 define TEAISH_PKGINIT_TCL [file rootname [file tail $extI]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1107 set piPolicy 0x01
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1108 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1109 # Assume static $extI.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1110 define TEAISH_PKGINIT_TCL_IN ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1111 define TEAISH_PKGINIT_TCL $extI
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1112 set piPolicy 0x10
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1113 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1114 apply $addDist $extI
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1115 teaish__verbose 1 msg-result "Extension post-load init = $extI"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1116 define TEAISH_PKGINIT_TCL_TAIL \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1117 [file tail [get-define TEAISH_PKGINIT_TCL]]; # for use in pkgIndex.tcl.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1118 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1119 set ::teaish__Config(pkginit-policy) $piPolicy
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1120
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1121 # Look for pkgIndex.tcl[.in]...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1122 set piPolicy 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1123 if {[proj-first-file-found extPI $dirExt/pkgIndex.tcl.in]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1124 # Generate ./pkgIndex.tcl from $extPI.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1125 define TEAISH_PKGINDEX_TCL_IN $extPI
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1126 define TEAISH_PKGINDEX_TCL [file rootname [file tail $extPI]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1127 apply $addDist $extPI
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1128 set piPolicy 0x01
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1129 } elseif {$dirExt ne $dirSrc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1130 && [proj-first-file-found extPI $dirSrc/pkgIndex.tcl.in]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1131 # Generate ./pkgIndex.tcl from $extPI.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1132 define TEAISH_PKGINDEX_TCL_IN $extPI
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1133 define TEAISH_PKGINDEX_TCL [file rootname [file tail $extPI]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1134 set piPolicy 0x02
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1135 } elseif {[proj-first-file-found extPI $dirExt/pkgIndex.tcl]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1136 # Assume $extPI's a static file and use it.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1137 define TEAISH_PKGINDEX_TCL_IN ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1138 define TEAISH_PKGINDEX_TCL $extPI
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1139 apply $addDist $extPI
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1140 set piPolicy 0x10
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1141 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1142 # Reminder: we have to delay removal of stale TEAISH_PKGINDEX_TCL
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1143 # and the proj-dot-ins-append of TEAISH_PKGINDEX_TCL_IN until much
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1144 # later in the process.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1145 set ::teaish__Config(pkgindex-policy) $piPolicy
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1146
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1147 # Look for teaish.test.tcl[.in]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1148 proj-assert {"" ne $dirExt}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1149 set flist [list $dirExt/teaish.test.tcl.in $dirExt/teaish.test.tcl]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1150 if {[proj-first-file-found ttt $flist]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1151 if {[string match *.in $ttt]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1152 # Generate _teaish.test.tcl from $ttt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1153 set xt _[file rootname [file tail $ttt]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1154 file delete -force -- $xt; # ensure no stale copy is used
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1155 define TEAISH_TEST_TCL $xt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1156 define TEAISH_TEST_TCL_IN $ttt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1157 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1158 define TEAISH_TEST_TCL $ttt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1159 define TEAISH_TEST_TCL_IN ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1160 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1161 apply $addDist $ttt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1162 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1163 define TEAISH_TEST_TCL ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1164 define TEAISH_TEST_TCL_IN ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1165 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1166
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1167 # Look for _teaish.tester.tcl[.in]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1168 set flist [list $dirExt/_teaish.tester.tcl.in $dirSrc/_teaish.tester.tcl.in]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1169 if {[proj-first-file-found ttt $flist]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1170 # Generate teaish.test.tcl from $ttt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1171 set xt [file rootname [file tail $ttt]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1172 file delete -force -- $xt; # ensure no stale copy is used
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1173 define TEAISH_TESTER_TCL $xt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1174 define TEAISH_TESTER_TCL_IN $ttt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1175 if {[lindex $flist 0] eq $ttt} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1176 apply $addDist $ttt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1177 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1178 unset ttt xt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1179 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1180 if {[file exists [set ttt [file join $dirSrc _teaish.tester.tcl.in]]]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1181 set xt [file rootname [file tail $ttt]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1182 define TEAISH_TESTER_TCL $xt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1183 define TEAISH_TESTER_TCL_IN $ttt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1184 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1185 define TEAISH_TESTER_TCL ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1186 define TEAISH_TESTER_TCL_IN ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1187 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1188 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1189 unset flist
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1190
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1191 # TEAISH_OUT_OF_EXT_TREE = 1 if we're building from a dir other
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1192 # than the extension's home dir.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1193 define TEAISH_OUT_OF_EXT_TREE \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1194 [expr {[file-normalize $::autosetup(builddir)] ne \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1195 [file-normalize $::teaish__Config(extension-dir)]}]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1196 return 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1197 }; # teaish__find_extension
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1198
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1199 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1200 # @teaish-cflags-add ?-p\|prepend? ?-define? cflags...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1201 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1202 # Equivalent to [proj-define-amend TEAISH_CFLAGS {*}$args].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1203 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1204 proc teaish-cflags-add {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1205 proj-define-amend TEAISH_CFLAGS {*}$args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1206 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1207
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1208 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1209 # @teaish-define-to-cflag ?flags? defineName...\|{defineName...}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1210 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1211 # Uses [proj-define-to-cflag] to expand a list of [define] keys, each
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1212 # one a separate argument, to CFLAGS-style -D... form then appends
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1213 # that to the current TEAISH_CFLAGS.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1214 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1215 # It accepts these flags from proj-define-to-cflag: -quote,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1216 # -zero-undef. It does _not_ support its -list flag.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1217 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1218 # It accepts its non-flag argument(s) in 2 forms: (1) each arg is a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1219 # single [define] key or (2) its one arg is a list of such keys.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1220 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1221 # TODO: document teaish's well-defined (as it were) defines for this
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1222 # purpose. At a bare minimum:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1223 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1224 # - TEAISH_NAME
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1225 # - TEAISH_PKGNAME
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1226 # - TEAISH_VERSION
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1227 # - TEAISH_LIBDIR_NAME
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1228 # - TEAISH_LOAD_PREFIX
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1229 # - TEAISH_URL
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1230 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1231 proc teaish-define-to-cflag {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1232 set flags {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1233 while {[string match -* [lindex $args 0]]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1234 set arg [lindex $args 0]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1235 switch -exact -- $arg {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1236 -quote -
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1237 -zero-undef {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1238 lappend flags $arg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1239 set args [lassign $args -]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1240 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1241 default break
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1242 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1243 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1244 if {1 == [llength $args]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1245 set args [list {*}[lindex $args 0]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1246 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1247 #puts "***** flags=$flags args=$args"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1248 teaish-cflags-add [proj-define-to-cflag {}$flags {}$args]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1249 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1250
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1251 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1252 # @teaish-cflags-for-tea ?...CFLAGS?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1253 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1254 # Adds several -DPACKAGE_... CFLAGS using the extension's metadata,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1255 # all as quoted strings. Those symbolic names are commonly used in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1256 # TEA-based builds, and this function is intended to simplify porting
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1257 # of such builds. The -D... flags added are:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1258 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1259 # -DPACKAGE_VERSION=...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1260 # -DPACKAGE_NAME=...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1261 # -DPACKAGE_URL=...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1262 # -DPACKAGE_STRING=...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1263 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1264 # Any arguments are passed-on as-is to teaish-cflags-add.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1265 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1266 proc teaish-cflags-for-tea {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1267 set name $::teaish__PkgInfo(-name)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1268 set version $::teaish__PkgInfo(-version)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1269 set pstr [join [list $name $version]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1270 teaish-cflags-add \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1271 {*}$args \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1272 '-DPACKAGE_VERSION="$version"' \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1273 '-DPACKAGE_NAME="$name"' \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1274 '-DPACKAGE_STRING="$pstr"' \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1275 '-DPACKAGE_URL="[teaish-get -url]"'
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1276 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1277
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1278 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1279 # @teaish-ldflags-add ?-p\|-prepend? ?-define? ldflags...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1280 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1281 # Equivalent to [proj-define-amend TEAISH_LDFLAGS {*}$args].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1282 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1283 # Typically, -lXYZ flags need to be in "reverse" order, with each -lY
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1284 # resolving symbols for -lX's to its left. This order is largely
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1285 # historical, and not relevant on all environments, but it is
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1286 # technically correct and still relevant on some environments.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1287 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1288 # See: teaish-ldflags-prepend
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1289 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1290 proc teaish-ldflags-add {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1291 proj-define-amend TEAISH_LDFLAGS {*}$args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1292 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1293
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1294 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1295 # @teaish-ldflags-prepend args...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1296 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1297 # Functionally equivalent to [teaish-ldflags-add -p {*}$args]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1298 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1299 proc teaish-ldflags-prepend {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1300 teaish-ldflags-add -p {*}$args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1301 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1302
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1303 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1304 # @teaish-src-add ?-dist? ?-dir? src-files...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1305 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1306 # Appends all non-empty $args to the project's list of C/C++ source or
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1307 # (in some cases) object files.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1308 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1309 # If passed -dist then it also passes each filename, as-is, to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1310 # [teaish-dist-add].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1311 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1312 # If passed -dir then each src-file has [teaish-get -dir] prepended to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1313 # it before they're added to the list. As often as not, that will be
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1314 # the desired behavior so that out-of-tree builds can find the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1315 # sources, but there are cases where it's not desired (e.g. when using
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1316 # a source file from outside of the extension's dir, or when adding
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1317 # object files (which are typically in the build tree)).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1318 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1319 proc teaish-src-add {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1320 proj-parse-simple-flags args flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1321 -dist 0 {expr 1}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1322 -dir 0 {expr 1}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1323 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1324 if {$flags(-dist)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1325 teaish-dist-add {*}$args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1326 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1327 if {$flags(-dir)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1328 set xargs {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1329 foreach arg $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1330 if {"" ne $arg} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1331 lappend xargs [file join $::teaish__Config(extension-dir) $arg]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1332 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1333 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1334 set args $xargs
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1335 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1336 lappend ::teaish__Config(extension-src) {*}$args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1337 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1338
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1339 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1340 # @teaish-dist-add files-or-dirs...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1341 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1342 # Adds the given files to the list of files to include with the "make
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1343 # dist" rules.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1344 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1345 # This is a no-op when the current build is not in the extension's
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1346 # directory, as dist support is disabled in out-of-tree builds.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1347 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1348 # It is not legal to call this until [teaish-get -dir] has been
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1349 # reliably set (via teaish__find_extension).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1350 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1351 proc teaish-dist-add {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1352 if {$::teaish__Config(blddir-is-extdir)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1353 # ^^^ reminder: we ignore $::teaish__Config(dist-enabled) here
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1354 # because the client might want to implement their own dist
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1355 # rules.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1356 #proj-warn "**** args=$args"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1357 lappend ::teaish__Config(dist-files) {*}$args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1358 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1359 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1360
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1361 # teaish-install-add files...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1362 # Equivalent to [proj-define-apend TEAISH_INSTALL_FILES ...].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1363 #proc teaish-install-add {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1364 # proj-define-amend TEAISH_INSTALL_FILES {*}$args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1365 #}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1366
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1367 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1368 # @teash-make-add args...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1369 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1370 # Appends makefile code to the TEAISH_MAKEFILE_CODE define. Each
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1371 # arg may be any of:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1372 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1373 # -tab: emit a literal tab
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1374 # -nl: emit a literal newline
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1375 # -nltab: short for -nl -tab
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1376 # -bnl: emit a backslash-escaped end-of-line
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1377 # -bnltab: short for -eol -tab
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1378 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1379 # Anything else is appended verbatim. This function adds no additional
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1380 # spacing between each argument nor between subsequent invocations.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1381 # Generally speaking, a series of calls to this function need to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1382 # be sure to end the series with a newline.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1383 proc teaish-make-add {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1384 set out [get-define TEAISH_MAKEFILE_CODE ""]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1385 foreach a $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1386 switch -exact -- $a {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1387 -bnl { set a " \\\n" }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1388 -bnltab { set a " \\\n\t" }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1389 -tab { set a "\t" }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1390 -nl { set a "\n" }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1391 -nltab { set a "\n\t" }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1392 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1393 append out $a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1394 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1395 define TEAISH_MAKEFILE_CODE $out
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1396 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1397
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1398 # Internal helper to generate a clean/distclean rule name
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1399 proc teaish__cleanup_rule {{tgt clean}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1400 set x [incr ::teaish__Config(teaish__cleanup_rule-counter-${tgt})]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1401 return ${tgt}-_${x}_
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1402 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1403
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1404 # @teaish-make-obj ?flags? ?...args?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1405 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1406 # Uses teaish-make-add to inject makefile rules for $objfile from
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1407 # $srcfile, which is assumed to be C code which uses libtcl. Unless
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1408 # -recipe is used (see below) it invokes the compiler using the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1409 # makefile-defined $(CC.tcl) which, in the default Makefile.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1410 # template, includes any flags needed for building against the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1411 # configured Tcl.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1412 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1413 # This always terminates the resulting code with a newline.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1414 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1415 # Any arguments after the 2nd may be flags described below or, if no
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1416 # -recipe is provided, flags for the compiler call.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1417 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1418 # -obj obj-filename.o
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1419 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1420 # -src src-filename.c
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1421 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1422 # -recipe {...}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1423 # Uses the trimmed value of {...} as the recipe, prefixing it with
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1424 # a single hard-tab character.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1425 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1426 # -deps {...}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1427 # List of extra files to list as dependencies of $o.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1428 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1429 # -clean
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1430 # Generate cleanup rules as well.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1431 proc teaish-make-obj {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1432 proj-parse-simple-flags args flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1433 -clean 0 {expr 1}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1434 -recipe => {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1435 -deps => {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1436 -obj => {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1437 -src => {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1438 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1439 #parray flags
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1440 if {"" eq $flags(-obj)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1441 set args [lassign $args flags(-obj)]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1442 if {"" eq $flags(-obj)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1443 proj-error "Missing -obj flag."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1444 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1445 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1446 foreach f {-deps -src} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1447 set flags($f) [string trim [string map {\n " "} $flags($f)]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1448 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1449 foreach f {-deps -src} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1450 set flags($f) [string trim $flags($f)]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1451 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1452 #parray flags
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1453 #puts "-- args=$args"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1454 teaish-make-add \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1455 "# [proj-scope 1] -> [proj-scope] $flags(-obj) $flags(-src)" -nl \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1456 "$flags(-obj): $flags(-src) $::teaish__Config(teaish.tcl)"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1457 if {[info exists flags(-deps)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1458 teaish-make-add " " [join $flags(-deps)]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1459 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1460 teaish-make-add -nltab
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1461 if {[info exists flags(-recipe)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1462 teaish-make-add [string trim $flags(-recipe)] -nl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1463 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1464 teaish-make-add [join [list \$(CC.tcl) -c $flags(-src) {*}$args]] -nl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1465 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1466 if {$flags(-clean)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1467 set rule [teaish__cleanup_rule]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1468 teaish-make-add \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1469 "clean: $rule\n$rule:\n\trm -f \"$flags(-obj)\"\n"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1470 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1471 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1472
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1473 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1474 # @teaish-make-clean ?-r? ?-dist? ...files\|{...files}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1475 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1476 # Adds makefile rules for cleaning up the given files via the "make
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1477 # clean" or (if -dist is used) "make distclean" makefile rules. The -r
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1478 # flag uses "rm -fr" instead of "rm -f", so be careful with that.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1479 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1480 # The file names are taken literally as arguments to "rm", so they may
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1481 # be shell wildcards to be resolved at cleanup-time. To clean up whole
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1482 # directories, pass the -r flag. Each name gets quoted in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1483 # double-quotes, so spaces in names should not be a problem (but
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1484 # double-quotes in names will be).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1485 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1486 proc teaish-make-clean {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1487 if {1 == [llength $args]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1488 set args [list {*}[lindex $args 0]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1489 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1490
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1491 set tgt clean
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1492 set rmflags "-f"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1493 proj-parse-simple-flags args flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1494 -dist 0 {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1495 set tgt distclean
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1496 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1497 -r 0 {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1498 set rmflags "-fr"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1499 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1500 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1501 set rule [teaish__cleanup_rule $tgt]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1502 teaish-make-add "# [proj-scope 1] -> [proj-scope]: [join $args]\n"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1503 teaish-make-add "${rule}:\n\trm ${rmflags}"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1504 foreach a $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1505 teaish-make-add " \"$a\""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1506 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1507 teaish-make-add "\n${tgt}: ${rule}\n"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1508 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1509
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1510 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1511 # @teaish-make-config-header filename
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1512 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1513 # Invokes autosetup's [make-config-header] and passes it $filename and
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1514 # a relatively generic list of options for controlling which defined
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1515 # symbols get exported. Clients which need more control over the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1516 # exports can copy/paste/customize this.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1517 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1518 # The exported file is then passed to [proj-touch] because, in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1519 # practice, that's sometimes necessary to avoid build dependency
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1520 # issues.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1521 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1522 proc teaish-make-config-header {filename} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1523 make-config-header $filename \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1524 -none {HAVE_CFLAG_* LDFLAGS_* SH_* TEAISH__* TEAISH_*_CODE} \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1525 -auto {SIZEOF_* HAVE_* TEAISH_* TCL_*} \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1526 -none *
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1527 proj-touch $filename; # help avoid frequent unnecessary auto-reconfig
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1528 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1529
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1530 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1531 # @teaish-feature-cache-set $key value
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1532 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1533 # Sets a feature-check cache entry with the given key.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1534 # See proj-cache-set for the key's semantics. $key should
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1535 # normally be 0.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1536 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1537 proc teaish-feature-cache-set {key val} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1538 proj-cache-set -key $key -level 1 $val
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1539 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1540
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1541 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1542 # @teaish-feature-cache-check key tgtVarName
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1543 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1544 # Checks for a feature-check cache entry with the given key.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1545 # See proj-cache-set for the key's semantics.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1546 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1547 # $key should also almost always be 0 but, due to a tclsh
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1548 # incompatibility in 1 OS, it cannot have a default value unless it's
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1549 # the second argument (but it should be the first one).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1550 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1551 # If the feature-check cache has a matching entry then this function
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1552 # assigns its value to tgtVar and returns 1, else it assigns tgtVar to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1553 # "" and returns 0.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1554 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1555 # See proj-cache-check for $key's semantics.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1556 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1557 proc teaish-feature-cache-check {key tgtVar} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1558 upvar $tgtVar tgt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1559 proj-cache-check -key $key -level 1 tgt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1560 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1561
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1562 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1563 # @teaish-check-cached@ ?flags? msg script...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1564 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1565 # A proxy for feature-test impls which handles caching of a feature
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1566 # flag check on per-function basis, using the calling scope's name as
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1567 # the cache key.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1568 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1569 # It emits [msg-checking $msg]. If $msg is empty then it defaults to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1570 # the name of the caller's scope. The -nomsg flag suppresses the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1571 # message for non-cache-hit checks. At the end, it will [msg-result
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1572 # "ok"] [msg-result "no"] unless -nostatus is used, in which case the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1573 # caller is responsible for emitting at least a newline when it's
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1574 # done. The -msg-0 and -msg-1 flags can be used to change the ok/no
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1575 # text.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1576 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1577 # This function checks for a cache hit before running $script and
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1578 # caching the result. If no hit is found then $script is run in the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1579 # calling scope and its result value is stored in the cache. This
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1580 # routine will intercept a 'return' from $script.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1581 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1582 # $script may be a command and its arguments, as opposed to a single
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1583 # script block.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1584 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1585 # Flags:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1586 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1587 # -nostatus = do not emit "ok" or "no" at the end. This presumes
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1588 # that either $script will emit at least one newline before
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1589 # returning or the caller will account for it. Because of how this
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1590 # function is typically used, -nostatus is not honored when the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1591 # response includes a cached result.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1592 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1593 # -quiet = disable output from Autosetup's msg-checking and
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1594 # msg-result for the duration of the $script check. Note that when
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1595 # -quiet is in effect, Autosetup's user-notice can be used to queue
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1596 # up output to appear after the check is done. Also note that
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1597 # -quiet has no effect on _this_ function, only the $script part.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1598 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1599 # -nomsg = do not emit $msg for initial check. Like -nostatus, this
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1600 # flag is not honored when the response includes a cached result
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1601 # because it would otherwise produce no output (which is confusing
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1602 # in this context). This is useful when a check runs several other
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1603 # verbose checks and they emit all the necessary info.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1604 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1605 # -msg-0 and -msg-1 MSG = strings to show when the check has failed
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1606 # resp. passed. Defaults are "no" and "ok". The 0 and 1 refer to the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1607 # result value from teaish-feature-cache-check.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1608 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1609 # -key cachekey = set the cache context key. Only needs to be
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1610 # explicit when using this function multiple times from a single
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1611 # scope. See proj-cache-check and friends for details on the key
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1612 # name. Its default is the name of the scope which calls this
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1613 # function.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1614 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1615 proc teaish-check-cached {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1616 proj-parse-simple-flags args flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1617 -nostatus 0 {expr 1}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1618 -quiet 0 {expr 1}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1619 -key => 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1620 -nomsg 0 {expr 1}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1621 -msg-0 => no
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1622 -msg-1 => ok
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1623 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1624 set args [lassign $args msg]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1625 set script [join $args]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1626 if {"" eq $msg} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1627 set msg [proj-scope 1]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1628 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1629 if {[teaish-feature-cache-check $flags(-key) check]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1630 #if {0 == $flags(-nomsg)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1631 msg-checking "${msg} ... (cached) "
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1632 #}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1633 #if {!$flags(-nostatus)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1634 msg-result $flags(-msg-[expr {0 != ${check}}])
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1635 #}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1636 return $check
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1637 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1638 if {0 == $flags(-nomsg)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1639 msg-checking "${msg} ... "
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1640 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1641 if {$flags(-quiet)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1642 incr ::autosetup(msg-quiet)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1643 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1644 set code [catch {uplevel 1 $script} rc xopt]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1645 if {$flags(-quiet)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1646 incr ::autosetup(msg-quiet) -1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1647 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1648 #puts "***** cached-check got code=$code rc=$rc"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1649 if {$code in {0 2}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1650 teaish-feature-cache-set 1 $rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1651 if {!$flags(-nostatus)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1652 msg-result $flags(-msg-[expr {0 != ${rc}}])
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1653 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1654 #show-notices; # causes a phantom newline because we're in a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1655 #msg-checking scope, so...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1656 if {[info exists ::autosetup(notices)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1657 show-notices
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1658 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1659 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1660 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1661 #puts "**** code=$code rc=$rc xopt=$xopt"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1662 teaish-feature-cache-set 1 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1663 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1664 #puts "**** code=$code rc=$rc"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1665 return {*}$xopt $rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1666 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1667 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1668
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1669 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1670 # Internal helper for teaish__defs_format_: returns a JSON-ish quoted
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1671 # form of the given string-type values.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1672 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1673 # If $asList is true then the return value is in {$value} form. If
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1674 # $asList is false it only performs the most basic of escaping and
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1675 # the input must not contain any control characters.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1676 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1677 proc teaish__quote_str {asList value} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1678 if {$asList} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1679 return "{${value}}"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1680 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1681 return \"[string map [list \\ \\\\ \" \\\"] $value]\"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1682 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1683
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1684 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1685 # Internal helper for teaish__defines_to_list. Expects to be passed
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1686 # a name and the variadic $args which are passed to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1687 # teaish__defines_to_list.. If it finds a pattern match for the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1688 # given $name in the various $args, it returns the type flag for that
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1689 # $name, e.g. "-str" or "-bare", else returns an empty string.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1690 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1691 proc teaish__defs_type {name spec} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1692 foreach {type patterns} $spec {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1693 foreach pattern $patterns {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1694 if {[string match $pattern $name]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1695 return $type
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1696 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1697 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1698 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1699 return ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1700 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1701
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1702 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1703 # An internal impl detail. Requires a data type specifier, as used by
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1704 # Autosetup's [make-config-header], and a value. Returns the formatted
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1705 # value or the value $::teaish__Config(defs-skip) if the caller should
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1706 # skip emitting that value.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1707 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1708 # In addition to -str, -auto, etc., as defined by make-config-header,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1709 # it supports:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1710 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1711 # -list {...} will cause non-integer values to be quoted in {...}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1712 # instead of quotes.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1713 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1714 # -autolist {...} works like -auto {...} except that it falls back to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1715 # -list {...} type instead of -str {...} style for non-integers.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1716 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1717 # -jsarray {...} emits the output in something which, for
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1718 # conservative inputs, will be a valid JSON array. It can only
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1719 # handle relatively simple values with no control characters in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1720 # them.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1721 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1722 set teaish__Config(defs-skip) "-teaish__defs_format sentinel"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1723 proc teaish__defs_format {type value} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1724 switch -exact -- $type {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1725 -bare {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1726 # Just output the value unchanged
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1727 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1728 -none {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1729 set value $::teaish__Config(defs-skip)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1730 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1731 -str {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1732 set value [teaish__quote_str 0 $value]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1733 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1734 -auto {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1735 # Automatically determine the type
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1736 if {![string is integer -strict $value]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1737 set value [teaish__quote_str 0 $value]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1738 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1739 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1740 -autolist {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1741 if {![string is integer -strict $value]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1742 set value [teaish__quote_str 1 $value]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1743 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1744 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1745 -list {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1746 set value [teaish__quote_str 1 $value]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1747 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1748 -jsarray {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1749 set ar {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1750 foreach v $value {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1751 if {![string is integer -strict $v]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1752 set v [teaish__quote_str 0 $v]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1753 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1754 if {$::teaish__Config(defs-skip) ne $v} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1755 lappend ar $v
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1756 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1757 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1758 set value [concat \[ [join $ar {, }] \]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1759 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1760 "" {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1761 # (Much later:) Why do we do this?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1762 set value $::teaish__Config(defs-skip)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1763 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1764 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1765 proj-error \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1766 "Unknown [proj-scope] -type ($type) called from" \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1767 [proj-scope 1]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1768 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1769 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1770 return $value
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1771 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1772
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1773 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1774 # Returns Tcl code in the form of code which evaluates to a list of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1775 # configure-time DEFINEs in the form {key val key2 val...}. It may
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1776 # misbehave for values which are not numeric or simple strings. Some
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1777 # defines are specifically filtered out of the result, either because
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1778 # their irrelevant to teaish or because they may be arbitrarily large
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1779 # (e.g. makefile content).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1780 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1781 # The $args are explained in the docs for internal-use-only
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1782 # [teaish__defs_format]. The default mode is -autolist.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1783 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1784 proc teaish__defines_to_list {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1785 set lines {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1786 lappend lines "\{"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1787 set skipper $::teaish__Config(defs-skip)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1788 set args [list \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1789 -none {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1790 TEAISH__*
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1791 TEAISH_*_CODE
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1792 AM_* AS_*
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1793 } \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1794 {*}$args \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1795 -autolist *]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1796 foreach d [lsort [dict keys [all-defines]]] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1797 set type [teaish__defs_type $d $args]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1798 set value [teaish__defs_format $type [get-define $d]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1799 if {$skipper ne $value} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1800 lappend lines "$d $value"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1801 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1802 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1803 lappend lines "\}"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1804 tailcall join $lines "\n"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1805 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1806
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1807 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1808 # teaish__pragma ...flags
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1809 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1810 # Offers a way to tweak how teaish's core behaves in some cases, in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1811 # particular those which require changing how the core looks for an
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1812 # extension and its files.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1813 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1814 # Accepts the following flags. Those marked with [L] are safe to use
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1815 # during initial loading of tclish.tcl (recall that most teaish APIs
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1816 # cannot be used until [teaish-configure] is called).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1817 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1818 # static-pkgIndex.tcl [L]: Tells teaish that ./pkgIndex.tcl is not
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1819 # a generated file, so it will not try to overwrite or delete
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1820 # it. Errors out if it does not find pkgIndex.tcl in the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1821 # extension's dir.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1822 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1823 # no-dist [L]: tells teaish to elide the 'make dist' recipe
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1824 # from the generated Makefile.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1825 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1826 # no-dll [L]: tells teaish to elide the DLL-building recipe
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1827 # from the generated Makefile.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1828 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1829 # no-vsatisfies-error [L]: tells teaish that failure to match the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1830 # -vsatisfies value should simply "return" instead of "error".
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1831 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1832 # no-tester [L]: disables automatic generation of teaish.test.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1833 # even if a copy of _teaish.tester.tcl.in is found.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1834 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1835 # no-full-dist [L]: changes the "make dist" rules to never include
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1836 # a copy of teaish itself. By default it will include itself only
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1837 # if the extension lives in the same directory as teaish.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1838 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1839 # full-dist [L]: changes the "make dist" rules to always include
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1840 # a copy of teaish itself.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1841 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1842 # Emits a warning message for unknown arguments.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1843 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1844 proc teaish__pragma {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1845 foreach arg $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1846 switch -exact -- $arg {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1847
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1848 static-pkgIndex.tcl {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1849 if {$::teaish__Config(tm-policy)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1850 proj-fatal -up "Cannot use pragma $arg together with -tm.tcl or -tm.tcl.in."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1851 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1852 set tpi [file join $::teaish__Config(extension-dir) pkgIndex.tcl]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1853 if {[file exists $tpi]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1854 define TEAISH_PKGINDEX_TCL_IN ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1855 define TEAISH_PKGINDEX_TCL $tpi
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1856 set ::teaish__Config(pkgindex-policy) 0x20
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1857 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1858 proj-error "pragma $arg: found no package-local pkgIndex.tcl\[.in]"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1859 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1860 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1861
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1862 no-dist {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1863 set ::teaish__Config(dist-enabled) 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1864 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1865
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1866 no-install {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1867 set ::teaish__Config(install-enabled) 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1868 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1869
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1870 full-dist {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1871 set ::teaish__Config(dist-full-enabled) 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1872 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1873
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1874 no-full-dist {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1875 set ::teaish__Config(dist-full-enabled) 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1876 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1877
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1878 no-dll {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1879 set ::teaish__Config(dll-enabled) 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1880 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1881
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1882 no-vsatisfies-error {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1883 set ::teaish__Config(vsatisfies-error) 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1884 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1885
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1886 no-tester {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1887 define TEAISH_TESTER_TCL_IN ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1888 define TEAISH_TESTER_TCL ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1889 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1890
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1891 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1892 proj-error "Unknown flag: $arg"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1893 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1894 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1895 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1896 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1897
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1898 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1899 # @teaish-pkginfo-set ...flags
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1900 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1901 # The way to set up the initial package state. Used like:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1902 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1903 # teaish-pkginfo-set -name foo -version 0.1.2
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1904 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1905 # Or:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1906 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1907 # teaish-pkginfo-set ?-vars\|-subst? {-name foo -version 0.1.2}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1908 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1909 # The latter may be easier to write for a multi-line invocation.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1910 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1911 # For the second call form, passing the -vars flag tells it to perform
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1912 # a [subst] of (only) variables in the {...} part from the calling
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1913 # scope. The -subst flag will cause it to [subst] the {...} with
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1914 # command substitution as well (but no backslash substitution). When
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1915 # using -subst for string concatenation, e.g. with -libDir
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1916 # foo[get-version-number], be sure to wrap the value in braces:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1917 # -libDir {foo[get-version-number]}.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1918 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1919 # Each pkginfo flag corresponds to one piece of extension package
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1920 # info. Teaish provides usable default values for all of these flags,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1921 # but at least the -name and -version should be set by clients.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1922 # e.g. the default -name is the directory name the extension lives in,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1923 # which may change (e.g. when building it from a "make dist" bundle).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1924 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1925 # The flags:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1926 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1927 # -name theName: The extension's name. It defaults to the name of the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1928 # directory containing the extension. (In TEA this would be the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1929 # PACKAGE_NAME, not to be confused with...)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1930 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1931 # -name.pkg pkg-provide-name: The extension's name for purposes of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1932 # Tcl_PkgProvide(), [package require], and friends. It defaults to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1933 # the `-name`, and is normally the same, but some projects (like
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1934 # SQLite) have a different name here than they do in their
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1935 # historical TEA PACKAGE_NAME.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1936 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1937 # -version version: The extension's package version. Defaults to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1938 # 0.0.0.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1939 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1940 # -libDir dirName: The base name of the directory into which this
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1941 # extension should be installed. It defaults to a concatenation of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1942 # `-name.pkg` and `-version`.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1943 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1944 # -loadPrefix prefix: For use as the second argument passed to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1945 # Tcl's `load` command in the package-loading process. It defaults
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1946 # to title-cased `-name.pkg` because Tcl's `load` plugin system
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1947 # expects it in that form.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1948 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1949 # -options {...}: If provided, it must be a list compatible with
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1950 # Autosetup's `options-add` function. These can also be set up via
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1951 # `teaish-options`.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1952 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1953 # -vsatisfies {{...} ...}: Expects a list-of-lists of conditions
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1954 # for Tcl's `package vsatisfies` command: each list entry is a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1955 # sub-list of `{PkgName Condition...}`. Teaish inserts those
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1956 # checks via its default pkgIndex.tcl.in and _teaish.tester.tcl.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1957 # templates to verify that the system's package dependencies meet
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1958 # these requirements. The default value is `{{Tcl 8.5-}}` (recall
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1959 # that it's a list-of-lists), as 8.5 is the minimum Tcl version
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1960 # teaish will run on, but some extensions may require newer
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1961 # versions or dependencies on other packages. As a special case,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1962 # if `-vsatisfies` is given a single token, e.g. `8.6-`, then it
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1963 # is transformed into `{Tcl $thatToken}`, i.e. it checks the Tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1964 # version which the package is being run with. If given multiple
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1965 # lists, each `package provides` check is run in the given
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1966 # order. Failure to meet a `vsatisfies` condition triggers an
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1967 # error.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1968 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1969 # -url {...}: an optional URL for the extension.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1970 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1971 # -pragmas {...} A list of infrequently-needed lower-level
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1972 # directives which can influence teaish, including:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1973 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1974 # static-pkgIndex.tcl: tells teaish that the client manages their
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1975 # own pkgIndex.tcl, so that teaish won't try to overwrite it
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1976 # using a template.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1977 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1978 # no-dist: tells teaish to elide the "make dist" recipe from the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1979 # makefile so that the client can implement it.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1980 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1981 # no-dll: tells teaish to elide the makefile rules which build
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1982 # the DLL, as well as any templated test script and pkgIndex.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1983 # references to them. The intent here is to (A) support
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1984 # client-defined build rules for the DLL and (B) eventually
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1985 # support script-only extensions.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1986 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1987 # Unsupported flags or pragmas will trigger an error.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1988 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1989 # Potential pothole: setting certain state, e.g. -version, after the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1990 # initial call requires recalculating of some [define]s. Any such
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1991 # changes should be made as early as possible in teaish-configure so
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1992 # that any later use of those [define]s gets recorded properly (not
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1993 # with the old value). This is particularly relevant when it is not
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1994 # possible to determine the -version or -name until teaish-configure
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1995 # has been called, and it's updated dynamically from
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1996 # teaish-configure. Notably:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1997 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1998 # - If -version or -name are updated, -libDir will almost certainly
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1999 # need to be explicitly set along with them.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2000 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2001 # - If -name is updated, -loadPrefix probably needs to be as well.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2002 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2003 proc teaish-pkginfo-set {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2004 set doVars 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2005 set doCommands 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2006 set xargs $args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2007 set recalc {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2008 foreach arg $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2009 switch -exact -- $arg {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2010 -vars {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2011 incr doVars
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2012 set xargs [lassign $xargs -]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2013 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2014 -subst {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2015 incr doVars
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2016 incr doCommands
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2017 set xargs [lassign $xargs -]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2018 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2019 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2020 break
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2021 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2022 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2023 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2024 set args $xargs
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2025 unset xargs
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2026 if {1 == [llength $args] && [llength [lindex $args 0]] > 1} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2027 # Transform a single {...} arg into the canonical call form
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2028 set a [list {*}[lindex $args 0]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2029 if {$doVars \|\| $doCommands} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2030 set sflags -nobackslashes
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2031 if {!$doCommands} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2032 lappend sflags -nocommands
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2033 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2034 set a [uplevel 1 [list subst {*}$sflags $a]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2035 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2036 set args $a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2037 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2038 set sentinel "<nope>"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2039 set flagDefs [list]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2040 foreach {f d} $::teaish__Config(pkginfo-f2d) {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2041 lappend flagDefs $f => $sentinel
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2042 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2043 proj-parse-simple-flags args flags $flagDefs
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2044 if {[llength $args]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2045 proj-error -up "Too many (or unknown) arguments to [proj-scope]: $args"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2046 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2047 foreach {f d} $::teaish__Config(pkginfo-f2d) {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2048 if {$sentinel eq [set v $flags($f)]} continue
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2049 switch -exact -- $f {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2050
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2051 -options {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2052 proj-assert {"" eq $d}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2053 options-add $v
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2054 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2055
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2056 -pragmas {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2057 teaish__pragma {*}$v
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2058 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2059
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2060 -vsatisfies {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2061 if {1 == [llength $v] && 1 == [llength [lindex $v 0]]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2062 # Transform X to {Tcl $X}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2063 set v [list [join [list Tcl $v]]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2064 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2065 define $d $v
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2066 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2067
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2068 -pkgInit.tcl -
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2069 -pkgInit.tcl.in {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2070 if {0x22 & $::teaish__Config(pkginit-policy)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2071 proj-fatal "Cannot use -pkgInit.tcl(.in) more than once."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2072 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2073 set x [file join $::teaish__Config(extension-dir) $v]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2074 set tTail [file tail $v]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2075 if {"-pkgInit.tcl.in" eq $f} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2076 # Generate pkginit file X from X.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2077 set pI 0x02
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2078 set tIn $x
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2079 set tOut [file rootname $tTail]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2080 set other -pkgInit.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2081 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2082 # Static pkginit file X
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2083 set pI 0x20
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2084 set tIn ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2085 set tOut $x
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2086 set other -pkgInit.tcl.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2087 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2088 set ::teaish__Config(pkginit-policy) $pI
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2089 set ::teaish__PkgInfo($other) {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2090 define TEAISH_PKGINIT_TCL_IN $tIn
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2091 define TEAISH_PKGINIT_TCL $tOut
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2092 define TEAISH_PKGINIT_TCL_TAIL $tTail
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2093 teaish-dist-add $v
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2094 set v $x
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2095 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2096
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2097 -src {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2098 set d $::teaish__Config(extension-dir)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2099 foreach f $v {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2100 lappend ::teaish__Config(dist-files) $f
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2101 lappend ::teaish__Config(extension-src) $d/$f
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2102 lappend ::teaish__PkgInfo(-src) $f
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2103 # ^^^ so that default-value initialization in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2104 # teaish-configure-core recognizes that it's been set.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2105 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2106 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2107
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2108 -tm.tcl -
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2109 -tm.tcl.in {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2110 if {0x30 & $::teaish__Config(pkgindex-policy)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2111 proj-fatal "Cannot use $f together with a pkgIndex.tcl."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2112 } elseif {$::teaish__Config(tm-policy)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2113 proj-fatal "Cannot use -tm.tcl(.in) more than once."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2114 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2115 set x [file join $::teaish__Config(extension-dir) $v]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2116 if {"-tm.tcl.in" eq $f} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2117 # Generate tm file X from X.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2118 set pT 0x02
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2119 set pI 0x100
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2120 set tIn $x
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2121 set tOut [file rootname [file tail $v]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2122 set other -tm.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2123 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2124 # Static tm file X
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2125 set pT 0x20
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2126 set pI 0x200
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2127 set tIn ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2128 set tOut $x
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2129 set other -tm.tcl.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2130 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2131 set ::teaish__Config(pkgindex-policy) $pI
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2132 set ::teaish__Config(tm-policy) $pT
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2133 set ::teaish__PkgInfo($other) {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2134 define TEAISH_TM_TCL_IN $tIn
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2135 define TEAISH_TM_TCL $tOut
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2136 define TEAISH_PKGINDEX_TCL ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2137 define TEAISH_PKGINDEX_TCL_IN ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2138 define TEAISH_PKGINDEX_TCL_TAIL ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2139 teaish-dist-add $v
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2140 teaish__pragma no-dll
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2141 set v $x
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2142 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2143
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2144 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2145 proj-assert {"" ne $d}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2146 define $d $v
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2147 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2148 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2149 set ::teaish__PkgInfo($f) $v
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2150 if {$f in {-name -version -libDir -loadPrefix}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2151 lappend recalc $f
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2152 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2153 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2154 if {"" ne $recalc} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2155 teaish__define_pkginfo_derived $recalc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2156 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2157 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2158
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2159 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2160 # @teaish-pkginfo-get ?arg?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2161 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2162 # If passed no arguments, it returns the extension config info in the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2163 # same form accepted by teaish-pkginfo-set.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2164 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2165 # If passed one -flagname arg then it returns the value of that config
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2166 # option.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2167 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2168 # Else it treats arg as the name of caller-scoped variable to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2169 # which this function assigns an array containing the configuration
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2170 # state of this extension, in the same structure accepted by
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2171 # teaish-pkginfo-set. In this case it returns an empty string.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2172 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2173 proc teaish-pkginfo-get {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2174 set cases {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2175 set argc [llength $args]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2176 set rv {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2177 switch -exact $argc {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2178 0 {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2179 # Return a list of (-flag value) pairs
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2180 lappend cases default {{
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2181 if {[info exists ::teaish__PkgInfo($flag)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2182 lappend rv $flag $::teaish__PkgInfo($flag)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2183 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2184 lappend rv $flag [get-define $defName]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2185 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2186 }}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2187 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2188
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2189 1 {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2190 set arg $args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2191 if {[string match -* $arg]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2192 # Return the corresponding -flag's value
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2193 lappend cases $arg {{
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2194 if {[info exists ::teaish__PkgInfo($flag)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2195 return $::teaish__PkgInfo($flag)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2196 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2197 return [get-define $defName]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2198 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2199 }}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2200 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2201 # Populate target with an array of (-flag value).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2202 upvar $arg tgt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2203 array set tgt {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2204 lappend cases default {{
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2205 if {[info exists ::teaish__PkgInfo($flag)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2206 set tgt($flag) $::teaish__PkgInfo($flag)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2207 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2208 set tgt($flag) [get-define $defName]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2209 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2210 }}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2211 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2212 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2213
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2214 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2215 proj-error "invalid arg count from [proj-scope 1]"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2216 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2217 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2218
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2219 foreach {flag defName} $::teaish__Config(pkginfo-f2d) {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2220 switch -exact -- $flag [join $cases]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2221 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2222 if {0 == $argc} { return $rv }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2223 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2224
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2225 # (Re)set some defines based on pkginfo state. $flags is the list of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2226 # pkginfo -flags which triggered this, or "*" for the initial call.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2227 proc teaish__define_pkginfo_derived {flags} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2228 set all [expr {{*} in $flags}]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2229 if {$all \|\| "-version" in $flags \|\| "-name" in $flags} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2230 set name $::teaish__PkgInfo(-name) ; # _not_ -name.pkg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2231 if {[info exists ::teaish__PkgInfo(-version)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2232 set pkgver $::teaish__PkgInfo(-version)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2233 set libname "lib"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2234 if {[string match *-cygwin [get-define host]]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2235 set libname cyg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2236 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2237 define TEAISH_DLL8_BASENAME $libname$name$pkgver
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2238 define TEAISH_DLL9_BASENAME ${libname}tcl9$name$pkgver
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2239 set ext [get-define TARGET_DLLEXT]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2240 define TEAISH_DLL8 [get-define TEAISH_DLL8_BASENAME]$ext
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2241 define TEAISH_DLL9 [get-define TEAISH_DLL9_BASENAME]$ext
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2242 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2243 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2244 if {$all \|\| "-libDir" in $flags} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2245 if {[info exists ::teaish__PkgInfo(-libDir)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2246 define TCLLIBDIR \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2247 [file dirname [get-define TCLLIBDIR]]/$::teaish__PkgInfo(-libDir)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2248 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2249 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2250 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2251
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2252 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2253 # @teaish-checks-queue -pre\|-post args...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2254 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2255 # Queues one or more arbitrary "feature test" functions to be run when
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2256 # teaish-checks-run is called. $flag must be one of -pre or -post to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2257 # specify whether the tests should be run before or after
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2258 # teaish-configure is run. Each additional arg is the name of a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2259 # feature-test proc.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2260 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2261 proc teaish-checks-queue {flag args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2262 if {$flag ni {-pre -post}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2263 proj-error "illegal flag: $flag"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2264 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2265 lappend ::teaish__Config(queued-checks${flag}) {*}$args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2266 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2267
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2268 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2269 # @teaish-checks-run -pre\|-post
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2270 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2271 # Runs all feature checks queued using teaish-checks-queue
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2272 # then cleares the queue.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2273 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2274 proc teaish-checks-run {flag} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2275 if {$flag ni {-pre -post}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2276 proj-error "illegal flag: $flag"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2277 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2278 #puts "*** running $flag: $::teaish__Config(queued-checks${flag})"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2279 set foo 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2280 foreach f $::teaish__Config(queued-checks${flag}) {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2281 if {![teaish-feature-cache-check $f foo]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2282 set v [$f]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2283 teaish-feature-cache-set $f $v
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2284 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2285 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2286 set ::teaish__Config(queued-checks${flag}) {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2287 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2288
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2289 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2290 # A general-purpose getter for various teaish state. Requires one
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2291 # flag, which determines its result value. Flags marked with [L] below
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2292 # are safe for using at load-time, before teaish-pkginfo-set is called
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2293 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2294 # -dir [L]: returns the extension's directory, which may differ from
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2295 # the teaish core dir or the build dir.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2296 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2297 # -teaish-home [L]: the "home" dir of teaish itself, which may
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2298 # differ from the extension dir or build dir.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2299 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2300 # -build-dir [L]: the build directory (typically the current working
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2301 # -dir).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2302 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2303 # Any of the teaish-pkginfo-get/get flags: returns the same as
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2304 # teaish-pkginfo-get. Not safe for use until teaish-pkginfo-set has
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2305 # been called.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2306 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2307 # Triggers an error if passed an unknown flag.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2308 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2309 proc teaish-get {flag} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2310 #-teaish.tcl {return $::teaish__Config(teaish.tcl)}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2311 switch -exact -- $flag {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2312 -dir {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2313 return $::teaish__Config(extension-dir)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2314 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2315 -teaish-home {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2316 return $::autosetup(srcdir)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2317 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2318 -build-dir {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2319 return $::autosetup(builddir)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2320 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2321 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2322 if {[info exists ::teaish__PkgInfo($flag)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2323 return $::teaish__PkgInfo($flag)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2324 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2325 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2326 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2327 proj-error "Unhandled flag: $flag"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2328 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2329
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2330 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2331 # Handles --teaish-create-extension=TARGET-DIR
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2332 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2333 proc teaish__create_extension {dir} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2334 set force [opt-bool teaish-force]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2335 if {"" eq $dir} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2336 proj-error "--teaish-create-extension=X requires a directory name."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2337 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2338 file mkdir $dir/generic
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2339 set cwd [pwd]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2340 #set dir [file-normalize [file join $cwd $dir]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2341 teaish__verbose 1 msg-result "Created dir $dir"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2342 cd $dir
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2343 if {!$force} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2344 # Ensure that we don't blindly overwrite anything
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2345 foreach f {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2346 generic/teaish.c
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2347 teaish.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2348 teaish.make.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2349 teaish.test.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2350 } {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2351 if {[file exists $f]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2352 error "Cowardly refusing to overwrite $dir/$f. Use --teaish-force to overwrite."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2353 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2354 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2355 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2356
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2357 set name [file tail $dir]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2358 set pkgName $name
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2359 set version 0.0.1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2360 set loadPrefix [string totitle $pkgName]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2361 set content {teaish-pkginfo-set }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2362 #puts "0 content=$content"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2363 if {[opt-str teaish-extension-pkginfo epi]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2364 set epi [string trim $epi]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2365 if {[string match "\n" $epi]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2366 set epi "{$epi}"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2367 } elseif {![string match "{*}" $epi]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2368 append content "\{" $epi "\}"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2369 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2370 append content $epi
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2371 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2372 #puts "2 content=$content\nepi=$epi"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2373 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2374 append content [subst -nocommands -nobackslashes {{
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2375 -name ${name}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2376 -name.pkg ${pkgName}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2377 -name.dist ${pkgName}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2378 -version ${version}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2379 -loadPrefix $loadPrefix
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2380 -libDir ${name}${version}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2381 -vsatisfies {{Tcl 8.5-}}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2382 -url {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2383 -options {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2384 -pragmas {full-dist}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2385 }}]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2386 #puts "3 content=$content"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2387 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2388 #puts "1 content=$content"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2389 append content "\n" {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2390 #proc teaish-options {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2391 # Return a list and/or use \[options-add\] to add new
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2392 # configure flags. This is called before teaish's
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2393 # bootstrapping is finished, so only teaish-*
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2394 # APIs which are explicitly noted as being safe
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2395 # early on may be used here. Any autosetup-related
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2396 # APIs may be used here.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2397 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2398 # Return an empty string if there are no options to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2399 # add or if they are added using \[options-add\].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2400 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2401 # If there are no options to add, this proc need
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2402 # not be defined.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2403 #}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2404
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2405 # Called by teaish once bootstrapping is complete.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2406 # This function is responsible for the client-specific
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2407 # parts of the configuration process.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2408 proc teaish-configure {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2409 teaish-src-add -dir -dist generic/teaish.c
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2410 teaish-define-to-cflag -quote TEAISH_PKGNAME TEAISH_VERSION
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2411
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2412 # TODO: your code goes here..
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2413 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2414 }; # $content
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2415 proj-file-write teaish.tcl $content
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2416 teaish__verbose 1 msg-result "Created teaish.tcl"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2417
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2418 set content "# Teaish test script.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2419 # When this tcl script is invoked via 'make test' it will have loaded
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2420 # the package, run any teaish.pkginit.tcl code, and loaded
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2421 # autosetup/teaish/tester.tcl.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2422 "
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2423 proj-file-write teaish.test.tcl $content
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2424 teaish__verbose 1 msg-result "Created teaish.test.tcl"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2425
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2426 set content [subst -nocommands -nobackslashes {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2427 #include <tcl.h>
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2428 static int
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2429 ${loadPrefix}_Cmd(ClientData cdata, Tcl_Interp interp, int objc, Tcl_Obj const objv[]){
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2430 Tcl_SetObjResult(interp, Tcl_NewStringObj("this is the ${name} extension", -1));
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2431 return TCL_OK;
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2432 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2433
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2434 extern int DLLEXPORT ${loadPrefix}_Init(Tcl_Interp *interp){
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2435 if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2436 return TCL_ERROR;
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2437 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2438 if (Tcl_PkgProvide(interp, TEAISH_PKGNAME, TEAISH_VERSION) == TCL_ERROR) {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2439 return TCL_ERROR;
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2440 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2441 Tcl_CreateObjCommand(interp, TEAISH_PKGNAME, ${loadPrefix}_Cmd, NULL, NULL);
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2442 return TCL_OK;
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2443 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2444 }]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2445 proj-file-write generic/teaish.c $content
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2446 teaish__verbose 1 msg-result "Created generic/teaish.c"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2447
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2448 set content "# teaish makefile for the ${name} extension
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2449 # tx.src = \$(tx.dir)/generic/teaish.c
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2450 # tx.LDFLAGS =
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2451 # tx.CFLAGS =
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2452 "
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2453 proj-file-write teaish.make.in $content
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2454 teaish__verbose 1 msg-result "Created teaish.make.in"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2455
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2456 msg-result "Created new extension \[$dir\]."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2457
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2458 cd $cwd
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2459 set ::teaish__Config(install-ext-dir) $dir
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2460 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2461
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2462 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2463 # Internal helper for teaish__install
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2464 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2465 proc teaish__install_file {f destDir force} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2466 set dest $destDir/[file tail $f]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2467 if {[file isdirectory $f]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2468 file mkdir $dest
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2469 } elseif {!$force && [file exists $dest]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2470 array set st1 [file stat $f]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2471 array set st2 [file stat $dest]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2472 if {($st1(mtime) == $st2(mtime))
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2473 && ($st1(size) == $st2(size))} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2474 if {[file tail $f] in {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2475 pkgIndex.tcl.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2476 _teaish.tester.tcl.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2477 }} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2478 # Assume they're the same. In the scope of the "make dist"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2479 # rules, this happens legitimately when an extension with a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2480 # copy of teaish installed in the same dir assumes that the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2481 # pkgIndex.tcl.in and _teaish.tester.tcl.in belong to the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2482 # extension, whereas teaish believes they belong to teaish.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2483 # So we end up with dupes of those.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2484 return
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2485 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2486 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2487 proj-error -up "Cowardly refusing to overwrite \[$dest\]." \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2488 "Use --teaish-force to enable overwriting."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2489 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2490 # file copy -force $f $destDir; # loses +x bit
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2491 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2492 # JimTcl doesn't have [file attribute], so we can't use that here
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2493 # (in the context of an autosetup configure script).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2494 exec cp -p $f $dest
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2495 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2496 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2497
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2498 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2499 # Installs a copy of teaish, with autosetup, to $dDest, which defaults
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2500 # to the --teaish-install=X or --teash-create-extension=X dir. Won't
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2501 # overwrite files unless --teaish-force is used.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2502 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2503 proc teaish__install {{dDest ""}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2504 if {$dDest in {auto ""}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2505 set dDest [opt-val teaish-install]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2506 if {$dDest in {auto ""}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2507 if {[info exists ::teaish__Config(install-ext-dir)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2508 set dDest $::teaish__Config(install-ext-dir)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2509 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2510 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2511 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2512 set force [opt-bool teaish-force]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2513 if {$dDest in {auto ""}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2514 proj-error "Cannot determine installation directory."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2515 } elseif {!$force && [file exists $dDest/auto.def]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2516 proj-error \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2517 "Target dir looks like it already contains teaish and/or autosetup: $dDest" \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2518 "\nUse --teaish-force to overwrite it."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2519 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2520
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2521 set dSrc $::autosetup(srcdir)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2522 set dAS $::autosetup(libdir)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2523 set dAST $::teaish__Config(core-dir)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2524 set dASTF $dAST/feature
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2525 teaish__verbose 1 msg-result "Installing teaish to \[$dDest\]..."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2526 if {$::teaish__Config(verbose)>1} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2527 msg-result "dSrc = $dSrc"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2528 msg-result "dAS = $dAS"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2529 msg-result "dAST = $dAST"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2530 msg-result "dASTF = $dASTF"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2531 msg-result "dDest = $dDest"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2532 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2533
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2534 # Dest subdirs...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2535 set ddAS $dDest/autosetup
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2536 set ddAST $ddAS/teaish
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2537 set ddASTF $ddAST/feature
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2538 foreach {srcDir destDir} [list \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2539 $dAS $ddAS \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2540 $dAST $ddAST \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2541 $dASTF $ddASTF \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2542 ] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2543 teaish__verbose 1 msg-result "Copying files to $destDir..."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2544 file mkdir $destDir
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2545 foreach f [glob -nocomplain -directory $srcDir *] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2546 if {[string match {~} $f] \|\| [string match "##" [file tail $f]]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2547 # Editor-generated backups and emacs lock files
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2548 continue
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2549 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2550 teaish__verbose 2 msg-result "\t$f"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2551 teaish__install_file $f $destDir $force
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2552 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2553 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2554 teaish__verbose 1 msg-result "Copying files to $dDest..."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2555 foreach f {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2556 auto.def configure Makefile.in pkgIndex.tcl.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2557 _teaish.tester.tcl.in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2558 } {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2559 teaish__verbose 2 msg-result "\t$f"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2560 teaish__install_file $dSrc/$f $dDest $force
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2561 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2562 set ::teaish__Config(install-self-dir) $dDest
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2563 msg-result "Teaish $::teaish__Config(version) installed in \[$dDest\]."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2564 }

Mercurial

annotate third_party/sqlite3/autosetup/teaish/core.tcl @ 188:32ce881452fa hg-web