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

annotate third_party/sqlite3/autosetup/teaish/core.tcl @ 279:b3b547563ec7

Add Google connector service and agent wiki Implement the C/Seobeo Google Drive and Gmail connector with encrypted OAuth storage, Zenbu authentication, browser testing, AI tool discovery, chunked HTTP decoding, and Bazel coverage. Consolidate repository guidance into progressive wiki documentation and enforce arena-first allocation for new first-party C code. Co-authored-by: Copilot <[email protected]> Copilot-Session: 84c338fd-0939-4bb3-b7f3-1062eb213e5d

author	MrJuneJune <me@mrjunejune.com>
date	Mon, 17 Aug 2026 22:22:36 -0700
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 @ 279:b3b547563ec7