/home/mrjunejune/zenbu: third_party/sqlite3/autosetup/proj.tcl annotate

annotate third_party/sqlite3/autosetup/proj.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 # 2024 September 25
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	13 # ----- @module proj.tcl -----
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	14 # @section Project-agnostic Helper APIs
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	15 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	16
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	17 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	18 # Routines for Steve Bennett's autosetup which are common to trees
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	19 # managed in and around the umbrella of the SQLite project.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	20 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	21 # The intent is that these routines be relatively generic, independent
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	22 # of a given project.
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 # For practical purposes, the copy of this file hosted in the SQLite
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	25 # project is the "canonical" one:
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 # https://sqlite.org/src/file/autosetup/proj.tcl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	28 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	29 # This file was initially derived from one used in the libfossil
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	30 # project, authored by the same person who ported it here, and this is
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	31 # noted here only as an indication that there are no licensing issues
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	32 # despite this code having a handful of near-twins running around a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	33 # handful of third-party source trees.
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 # Design notes:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	36 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	37 # - Symbols with _ separators are intended for internal use within
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	38 # this file, and are not part of the API which auto.def files should
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	39 # rely on. Symbols with - separators are public APIs.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	40 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	41 # - By and large, autosetup prefers to update global state with the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	42 # results of feature checks, e.g. whether the compiler supports flag
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	43 # --X. In this developer's opinion that (A) causes more confusion
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	44 # than it solves[^1] and (B) adds an unnecessary layer of "voodoo"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	45 # between the autosetup user and its internals. This module, in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	46 # contrast, instead injects the results of its own tests into
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	47 # well-defined variables and leaves the integration of those values
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	48 # to the caller's discretion.
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 # [1]: As an example: testing for the -rpath flag, using
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	51 # cc-check-flags, can break later checks which use
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	52 # [cc-check-function-in-lib ...] because the resulting -rpath flag
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	53 # implicitly becomes part of those tests. In the case of an rpath
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	54 # test, downstream tests may not like the $prefix/lib path added by
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	55 # the rpath test. To avoid such problems, we avoid (intentionally)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	56 # updating global state via feature tests.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	57 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	58
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	59 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	60 # $proj__Config is an internal-use-only array for storing whatever generic
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	61 # internal stuff we need stored.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	62 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	63 array set ::proj__Config [subst {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	64 self-tests [get-env proj.self-tests 0]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	65 verbose-assert [get-env proj.assert-verbose 0]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	66 isatty [isatty? stdout]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	67 }]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	68
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	69 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	70 # List of dot-in files to filter in the final stages of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	71 # configuration. Some configuration steps may append to this. Each
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	72 # one in this list which exists will trigger the generation of a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	73 # file with that same name, minus the ".in", in the build directory
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	74 # (which differ from the source dir in out-of-tree builds).
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 # See: proj-dot-ins-append and proj-dot-ins-process
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	77 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	78 set ::proj__Config(dot-in-files) [list]
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	81 # @proj-warn msg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	82 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	83 # Emits a warning message to stderr. All args are appended with a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	84 # space between each.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	85 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	86 proc proj-warn {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	87 show-notices
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	88 puts stderr [join [list "WARNING:" \[ [proj-scope 1] \]: {*}$args] " "]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	89 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	90
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	91
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	92 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	93 # Internal impl of [proj-fatal] and [proj-error]. It must be called
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	94 # using tailcall.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	95 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	96 proc proj__faterr {failMode args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	97 show-notices
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	98 set lvl 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	99 while {"-up" eq [lindex $args 0]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	100 set args [lassign $args -]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	101 incr lvl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	102 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	103 if {$failMode} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	104 puts stderr [join [list "FATAL:" \[ [proj-scope $lvl] \]: {*}$args]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	105 exit 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	106 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	107 error [join [list in \[ [proj-scope $lvl] \]: {*}$args]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	108 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	109 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	110
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	111 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	112 # @proj-fatal ?-up...? msg...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	113 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	114 # Emits an error message to stderr and exits with non-0. All args are
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	115 # appended with a space between each.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	116 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	117 # The calling scope's name is used in the error message. To instead
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	118 # use the name of a call higher up in the stack, use -up once for each
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	119 # additional level.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	120 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	121 proc proj-fatal {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	122 tailcall proj__faterr 1 {*}$args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	123 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	126 # @proj-error ?-up...? msg...
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 # Works like proj-fatal but uses [error] intead of [exit].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	129 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	130 proc proj-error {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	131 tailcall proj__faterr 0 {*}$args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	132 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	133
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 # @proj-assert script ?message?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	136 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	137 # Kind of like a C assert: if uplevel of [list expr $script] is false,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	138 # a fatal error is triggered. The error message, by default, includes
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	139 # the body of the failed assertion, but if $msg is set then that is
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	140 # used instead.
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 proc proj-assert {script {msg ""}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	143 if {1 eq $::proj__Config(verbose-assert)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	144 msg-result [proj-bold "asserting: $script"]
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 if {![uplevel 1 [list expr $script]]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	147 if {"" eq $msg} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	148 set msg $script
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	149 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	150 tailcall proj__faterr 1 "Assertion failed:" $msg
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	153
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	154 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	155 # @proj-bold str
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 # If this function believes that the current console might support
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	158 # ANSI escape sequences then this returns $str wrapped in a sequence
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	159 # to bold that text, else it returns $str as-is.
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 proc proj-bold {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	162 if {$::autosetup(iswin) \|\| !$::proj__Config(isatty)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	163 return [join $args]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	164 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	165 return "\033\[1m${args}\033\[0m"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	166 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	167
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	168 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	169 # @proj-indented-notice ?-error? ?-notice? msg
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 # Takes a multi-line message and emits it with consistent indentation.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	172 # It does not perform any line-wrapping of its own. Which output
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	173 # routine it uses depends on its flags, defaulting to msg-result.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	174 # For -error and -notice it uses user-notice.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	175 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	176 # If the -notice flag it used then it emits using [user-notice], which
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	177 # means its rendering will (A) go to stderr and (B) be delayed until
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	178 # the next time autosetup goes to output a message.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	179 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	180 # If the -error flag is provided then it renders the message
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	181 # immediately to stderr and then exits.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	182 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	183 # If neither -notice nor -error are used, the message will be sent to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	184 # stdout without delay.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	185 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	186 proc proj-indented-notice {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	187 set fErr ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	188 set outFunc "msg-result"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	189 while {[llength $args] > 1} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	190 switch -exact -- [lindex $args 0] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	191 -error {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	192 set args [lassign $args fErr]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	193 set outFunc "user-notice"
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 -notice {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	196 set args [lassign $args -]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	197 set outFunc "user-notice"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	198 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	199 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	200 break
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	201 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	202 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	203 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	204 set lines [split [join $args] \n]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	205 foreach line $lines {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	206 set line [string trimleft $line]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	207 if {"" eq $line} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	208 $outFunc $line
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	209 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	210 $outFunc " $line"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	211 }
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 if {"" ne $fErr} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	214 show-notices
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	215 exit 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	216 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	217 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	220 # @proj-is-cross-compiling
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	221 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	222 # Returns 1 if cross-compiling, else 0.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	223 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	224 proc proj-is-cross-compiling {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	225 expr {[get-define host] ne [get-define build]}
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
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	228 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	229 # @proj-strip-hash-comments value
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	230 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	231 # Expects to receive string input, which it splits on newlines, strips
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	232 # out any lines which begin with any number of whitespace followed by
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	233 # a '#', and returns a value containing the [append]ed results of each
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	234 # remaining line with a \n between each. It does not strip out
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	235 # comments which appear after the first non-whitespace character.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	236 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	237 proc proj-strip-hash-comments {val} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	238 set x {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	239 foreach line [split $val \n] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	240 if {![string match "#*" [string trimleft $line]]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	241 append x $line \n
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	242 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	243 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	244 return $x
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	245 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	246
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 # @proj-cflags-without-werror
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	249 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	250 # Fetches [define $var], strips out any -Werror entries, and returns
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	251 # the new value. This is intended for temporarily stripping -Werror
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	252 # from CFLAGS or CPPFLAGS within the scope of a [define-push] block.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	253 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	254 proc proj-cflags-without-werror {{var CFLAGS}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	255 set rv {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	256 foreach f [get-define $var ""] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	257 switch -exact -- $f {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	258 -Werror {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	259 default { lappend rv $f }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	260 }
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 join $rv " "
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	263 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	264
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 # @proj-check-function-in-lib
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	267 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	268 # A proxy for cc-check-function-in-lib with the following differences:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	269 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	270 # - Does not make any global changes to the LIBS define.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	271 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	272 # - Strips out the -Werror flag from CFLAGS before running the test,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	273 # as these feature tests will often fail if -Werror is used.
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 # Returns the result of cc-check-function-in-lib (i.e. true or false).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	276 # The resulting linker flags are stored in the [define] named
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	277 # lib_${function}.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	278 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	279 proc proj-check-function-in-lib {function libs {otherlibs {}}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	280 set found 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	281 define-push {LIBS CFLAGS} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	282 #puts "CFLAGS before=[get-define CFLAGS]"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	283 define CFLAGS [proj-cflags-without-werror]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	284 #puts "CFLAGS after =[get-define CFLAGS]"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	285 set found [cc-check-function-in-lib $function $libs $otherlibs]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	286 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	287 return $found
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	288 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	291 # @proj-search-for-header-dir ?-dirs LIST? ?-subdirs LIST? header
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	292 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	293 # Searches for $header in a combination of dirs and subdirs, specified
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	294 # by the -dirs {LIST} and -subdirs {LIST} flags (each of which have
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	295 # sane defaults). Returns either the first matching dir or an empty
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	296 # string. The return value does not contain the filename part.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	297 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	298 proc proj-search-for-header-dir {header args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	299 set subdirs {include}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	300 set dirs {/usr /usr/local /mingw}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	301 # Debatable:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	302 # if {![proj-is-cross-compiling]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	303 # lappend dirs [get-define prefix]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	304 # }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	305 while {[llength $args]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	306 switch -exact -- [lindex $args 0] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	307 -dirs { set args [lassign $args - dirs] }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	308 -subdirs { set args [lassign $args - subdirs] }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	309 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	310 proj-error "Unhandled argument: $args"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	311 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	312 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	313 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	314 foreach dir $dirs {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	315 foreach sub $subdirs {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	316 if {[file exists $dir/$sub/$header]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	317 return "$dir/$sub"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	318 }
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	321 return ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	322 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	323
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	324 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	325 # @proj-find-executable-path ?-v? binaryName
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	326 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	327 # Works similarly to autosetup's [find-executable-path $binName] but:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	328 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	329 # - If the first arg is -v, it's verbose about searching, else it's quiet.
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 # Returns the full path to the result or an empty string.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	332 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	333 proc proj-find-executable-path {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	334 set binName $args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	335 set verbose 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	336 if {[lindex $args 0] eq "-v"} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	337 set verbose 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	338 set args [lassign $args - binName]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	339 msg-checking "Looking for $binName ... "
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	340 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	341 set check [find-executable-path $binName]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	342 if {$verbose} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	343 if {"" eq $check} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	344 msg-result "not found"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	345 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	346 msg-result $check
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	347 }
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 return $check
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	350 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	351
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	352 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	353 # @proj-bin-define binName ?defName?
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 # Uses [proj-find-executable-path $binName] to (verbosely) search for
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	356 # a binary, sets a define (see below) to the result, and returns the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	357 # result (an empty string if not found).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	358 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	359 # The define'd name is: If $defName is not empty, it is used as-is. If
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	360 # $defName is empty then "BIN_X" is used, where X is the upper-case
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	361 # form of $binName with any '-' characters replaced with '_'.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	362 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	363 proc proj-bin-define {binName {defName {}}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	364 set check [proj-find-executable-path -v $binName]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	365 if {"" eq $defName} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	366 set defName "BIN_[string toupper [string map {- _} $binName]]"
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 define $defName $check
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	369 return $check
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	370 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	373 # @proj-first-bin-of bin...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	374 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	375 # Looks for the first binary found of the names passed to this
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	376 # function. If a match is found, the full path to that binary is
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	377 # returned, else "" is returned.
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 # Despite using cc-path-progs to do the search, this function clears
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	380 # any define'd name that function stores for the result (because the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	381 # caller has no sensible way of knowing which [define] name it has
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	382 # unless they pass only a single argument).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	383 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	384 proc proj-first-bin-of {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	385 set rc ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	386 foreach b $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	387 set u [string toupper $b]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	388 # Note that cc-path-progs defines $u to "false" if it finds no
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	389 # match.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	390 if {[cc-path-progs $b]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	391 set rc [get-define $u]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	392 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	393 undefine $u
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	394 if {"" ne $rc} break
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	395 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	396 return $rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	397 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	398
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	399 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	400 # @proj-opt-was-provided key
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 # Returns 1 if the user specifically provided the given configure flag
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	403 # or if it was specifically set using proj-opt-set, else 0. This can
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	404 # be used to distinguish between options which have a default value
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	405 # and those which were explicitly provided by the user, even if the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	406 # latter is done in a way which uses the default value.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	407 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	408 # For example, with a configure flag defined like:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	409 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	410 # { foo-bar:=baz => {its help text} }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	411 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	412 # This function will, when passed foo-bar, return 1 only if the user
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	413 # passes --foo-bar to configure, even if that invocation would resolve
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	414 # to the default value of baz. If the user does not explicitly pass in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	415 # --foo-bar (with or without a value) then this returns 0.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	416 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	417 # Calling [proj-opt-set] is, for purposes of the above, equivalent to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	418 # explicitly passing in the flag.
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 # Note: unlike most functions which deal with configure --flags, this
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	421 # one does not validate that $key refers to a pre-defined flag. i.e.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	422 # it accepts arbitrary keys, even those not defined via an [options]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	423 # call. [proj-opt-set] manipulates the internal list of flags, such
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	424 # that new options set via that function will cause this function to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	425 # return true. (That's an unintended and unavoidable side-effect, not
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	426 # specifically a feature which should be made use of.)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	427 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	428 proc proj-opt-was-provided {key} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	429 dict exists $::autosetup(optset) $key
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	430 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	431
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	432 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	433 # @proj-opt-set flag ?val?
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 # Force-set autosetup option $flag to $val. The value can be fetched
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	436 # later with [opt-val], [opt-bool], and friends.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	437 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	438 # Returns $val.
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 proj-opt-set {flag {val 1}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	441 if {$flag ni $::autosetup(options)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	442 # We have to add this to autosetup(options) or else future calls
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	443 # to [opt-bool $flag] will fail validation of $flag.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	444 lappend ::autosetup(options) $flag
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 dict set ::autosetup(optset) $flag $val
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	447 return $val
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
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	450 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	451 # @proj-opt-exists flag
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	452 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	453 # Returns 1 if the given flag has been defined as a legal configure
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	454 # option, else returns 0. Options set via proj-opt-set "exist" for
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	455 # this purpose even if they were not defined via autosetup's
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	456 # [options] function.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	457 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	458 proc proj-opt-exists {flag} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	459 expr {$flag in $::autosetup(options)};
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
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	462 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	463 # @proj-val-truthy val
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 # Returns 1 if $val appears to be a truthy value, else returns
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	466 # 0. Truthy values are any of {1 on true yes enabled}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	467 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	468 proc proj-val-truthy {val} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	469 expr {$val in {1 on true yes enabled}}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	470 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	471
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	472 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	473 # @proj-opt-truthy flag
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	474 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	475 # Returns 1 if [opt-val $flag] appears to be a truthy value or
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	476 # [opt-bool $flag] is true. See proj-val-truthy.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	477 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	478 proc proj-opt-truthy {flag} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	479 if {[proj-val-truthy [opt-val $flag]]} { return 1 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	480 set rc 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	481 catch {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	482 # opt-bool will throw if $flag is not a known boolean flag
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	483 set rc [opt-bool $flag]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	484 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	485 return $rc
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
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	488 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	489 # @proj-if-opt-truthy boolFlag thenScript ?elseScript?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	490 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	491 # If [proj-opt-truthy $flag] is true, eval $then, else eval $else.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	492 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	493 proc proj-if-opt-truthy {boolFlag thenScript {elseScript {}}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	494 if {[proj-opt-truthy $boolFlag]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	495 uplevel 1 $thenScript
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	496 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	497 uplevel 1 $elseScript
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	498 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	499 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	502 # @proj-define-for-opt flag def ?msg? ?iftrue? ?iffalse?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	503 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	504 # If [proj-opt-truthy $flag] then [define $def $iftrue] else [define
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	505 # $def $iffalse]. If $msg is not empty, output [msg-checking $msg] and
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	506 # a [msg-results ...] which corresponds to the result. Returns 1 if
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	507 # the opt-truthy check passes, else 0.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	508 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	509 proc proj-define-for-opt {flag def {msg ""} {iftrue 1} {iffalse 0}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	510 if {"" ne $msg} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	511 msg-checking "$msg "
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	512 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	513 set rcMsg ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	514 set rc 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	515 if {[proj-opt-truthy $flag]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	516 define $def $iftrue
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	517 set rc 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	518 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	519 define $def $iffalse
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	520 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	521 switch -- [proj-val-truthy [get-define $def]] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	522 0 { set rcMsg no }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	523 1 { set rcMsg yes }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	524 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	525 if {"" ne $msg} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	526 msg-result $rcMsg
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 return $rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	529 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	530
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	531 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	532 # @proj-opt-define-bool ?-v? optName defName ?descr?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	533 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	534 # Checks [proj-opt-truthy $optName] and calls [define $defName X]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	535 # where X is 0 for false and 1 for true. $descr is an optional
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	536 # [msg-checking] argument which defaults to $defName. Returns X.
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 args[0] is -v then the boolean semantics are inverted: if
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	539 # the option is set, it gets define'd to 0, else 1. Returns the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	540 # define'd value.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	541 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	542 proc proj-opt-define-bool {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	543 set invert 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	544 if {[lindex $args 0] eq "-v"} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	545 incr invert
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	546 lassign $args - optName defName descr
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	547 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	548 lassign $args optName defName descr
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	549 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	550 if {"" eq $descr} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	551 set descr $defName
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 #puts "optName=$optName defName=$defName descr=$descr"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	554 set rc 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	555 msg-checking "[join $descr] ... "
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	556 set rc [proj-opt-truthy $optName]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	557 if {$invert} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	558 set rc [expr {!$rc}]
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 msg-result [string map {0 no 1 yes} $rc]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	561 define $defName $rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	562 return $rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	563 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	566 # @proj-check-module-loader
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 # Check for module-loading APIs (libdl/libltdl)...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	569 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	570 # Looks for libltdl or dlopen(), the latter either in -ldl or built in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	571 # to libc (as it is on some platforms). Returns 1 if found, else
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	572 # 0. Either way, it `define`'s:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	573 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	574 # - HAVE_LIBLTDL to 1 or 0 if libltdl is found/not found
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	575 # - HAVE_LIBDL to 1 or 0 if dlopen() is found/not found
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	576 # - LDFLAGS_MODULE_LOADER one of ("-lltdl", "-ldl", or ""), noting
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	577 # that -ldl may legally be empty on some platforms even if
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	578 # HAVE_LIBDL is true (indicating that dlopen() is available without
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	579 # extra link flags). LDFLAGS_MODULE_LOADER also gets "-rdynamic" appended
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	580 # to it because otherwise trying to open DLLs will result in undefined
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	581 # symbol errors.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	582 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	583 # Note that if it finds LIBLTDL it does not look for LIBDL, so will
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	584 # report only that is has LIBLTDL.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	585 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	586 proc proj-check-module-loader {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	587 msg-checking "Looking for module-loader APIs... "
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	588 if {99 ne [get-define LDFLAGS_MODULE_LOADER 99]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	589 if {1 eq [get-define HAVE_LIBLTDL 0]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	590 msg-result "(cached) libltdl"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	591 return 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	592 } elseif {1 eq [get-define HAVE_LIBDL 0]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	593 msg-result "(cached) libdl"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	594 return 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	595 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	596 # else: wha???
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	597 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	598 set HAVE_LIBLTDL 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	599 set HAVE_LIBDL 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	600 set LDFLAGS_MODULE_LOADER ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	601 set rc 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	602 puts "" ;# cosmetic kludge for cc-check-XXX
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	603 if {[cc-check-includes ltdl.h] && [cc-check-function-in-lib lt_dlopen ltdl]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	604 set HAVE_LIBLTDL 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	605 set LDFLAGS_MODULE_LOADER "-lltdl -rdynamic"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	606 msg-result " - Got libltdl."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	607 set rc 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	608 } elseif {[cc-with {-includes dlfcn.h} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	609 cctest -link 1 -declare "extern char* dlerror(void);" -code "dlerror();"}]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	610 msg-result " - This system can use dlopen() without -ldl."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	611 set HAVE_LIBDL 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	612 set LDFLAGS_MODULE_LOADER ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	613 set rc 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	614 } elseif {[cc-check-includes dlfcn.h]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	615 set HAVE_LIBDL 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	616 set rc 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	617 if {[cc-check-function-in-lib dlopen dl]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	618 msg-result " - dlopen() needs libdl."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	619 set LDFLAGS_MODULE_LOADER "-ldl -rdynamic"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	620 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	621 msg-result " - dlopen() not found in libdl. Assuming dlopen() is built-in."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	622 set LDFLAGS_MODULE_LOADER "-rdynamic"
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 define HAVE_LIBLTDL $HAVE_LIBLTDL
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	626 define HAVE_LIBDL $HAVE_LIBDL
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	627 define LDFLAGS_MODULE_LOADER $LDFLAGS_MODULE_LOADER
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	628 return $rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	629 }
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 # @proj-no-check-module-loader
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	633 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	634 # Sets all flags which would be set by proj-check-module-loader to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	635 # empty/falsy values, as if those checks had failed to find a module
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	636 # loader. Intended to be called in place of that function when
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	637 # a module loader is explicitly not desired.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	638 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	639 proc proj-no-check-module-loader {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	640 define HAVE_LIBDL 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	641 define HAVE_LIBLTDL 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	642 define LDFLAGS_MODULE_LOADER ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	643 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	644
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 # @proj-file-content ?-trim? filename
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	647 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	648 # Opens the given file, reads all of its content, and returns it. If
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	649 # the first arg is -trim, the contents of the file named by the second
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	650 # argument are trimmed before returning them.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	651 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	652 proc proj-file-content {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	653 set trim 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	654 set fname $args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	655 if {"-trim" eq [lindex $args 0]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	656 set trim 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	657 lassign $args - fname
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 set fp [open $fname rb]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	660 set rc [read $fp]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	661 close $fp
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	662 if {$trim} { return [string trim $rc] }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	663 return $rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	664 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	667 # @proj-file-conent filename
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	668 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	669 # Returns the contents of the given file as an array of lines, with
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	670 # the EOL stripped from each input line.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	671 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	672 proc proj-file-content-list {fname} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	673 set fp [open $fname rb]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	674 set rc {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	675 while { [gets $fp line] >= 0 } {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	676 lappend rc $line
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 close $fp
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	679 return $rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	680 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	683 # @proj-file-write ?-ro? fname content
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	684 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	685 # Works like autosetup's [writefile] but explicitly uses binary mode
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	686 # to avoid EOL translation on Windows. If $fname already exists, it is
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	687 # overwritten, even if it's flagged as read-only.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	688 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	689 proc proj-file-write {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	690 if {"-ro" eq [lindex $args 0]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	691 lassign $args ro fname content
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	692 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	693 set ro ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	694 lassign $args fname content
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	695 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	696 file delete -force -- $fname; # in case it's read-only
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	697 set f [open $fname wb]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	698 puts -nonewline $f $content
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	699 close $f
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	700 if {"" ne $ro} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	701 catch {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	702 exec chmod -w $fname
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	703 #file attributes -w $fname; #jimtcl has no 'attributes'
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	706 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	707
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	708 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	709 # @proj-check-compile-commands ?-assume-for-clang? ?configFlag?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	710 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	711 # Checks the compiler for compile_commands.json support. If
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	712 # $configFlag is not empty then it is assumed to be the name of an
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	713 # autosetup boolean config which controls whether to run/skip this
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	714 # check.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	715 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	716 # If -assume-for-clang is provided and $configFlag is not empty and CC
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	717 # matches clang and no --$configFlag was explicitly provided to the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	718 # configure script then behave as if --$configFlag had been provided.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	719 # To disable that assumption, either don't pass -assume-for-clang or
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	720 # pass --$configFlag=0 to the configure script. (The reason for this
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	721 # behavior is that clang supports compile-commands but some other
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	722 # compilers report false positives with these tests.)
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 # Returns 1 if supported, else 0, and defines HAVE_COMPILE_COMMANDS to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	725 # that value. Defines MAKE_COMPILATION_DB to "yes" if supported, "no"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	726 # if not. The use of MAKE_COMPILATION_DB is deprecated/discouraged:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	727 # HAVE_COMPILE_COMMANDS is preferred.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	728 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	729 # ACHTUNG: this test has a long history of false positive results
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	730 # because of compilers reacting differently to the -MJ flag. Because
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	731 # of this, it is recommended that this support be an opt-in feature,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	732 # rather than an on-by-default default one. That is: in the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	733 # configure script define the option as
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	734 # {--the-flag-name=0 => {Enable ....}}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	735 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	736 proc proj-check-compile-commands {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	737 set i 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	738 set configFlag {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	739 set fAssumeForClang 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	740 set doAssume 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	741 msg-checking "compile_commands.json support... "
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	742 if {"-assume-for-clang" eq [lindex $args 0]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	743 lassign $args - configFlag
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	744 incr fAssumeForClang
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	745 } elseif {1 == [llength $args]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	746 lassign $args configFlag
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	747 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	748 proj-error "Invalid arguments"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	749 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	750 if {1 == $fAssumeForClang && "" ne $configFlag} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	751 if {[string match clang [get-define CC]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	752 && ![proj-opt-was-provided $configFlag]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	753 && ![proj-opt-truthy $configFlag]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	754 proj-indented-notice [subst -nocommands -nobackslashes {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	755 CC appears to be clang, so assuming that --$configFlag is likely
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	756 to work. To disable this assumption use --$configFlag=0.}]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	757 incr doAssume
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	758 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	759 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	760 if {!$doAssume && "" ne $configFlag && ![proj-opt-truthy $configFlag]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	761 msg-result "check disabled. Use --${configFlag} to enable it."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	762 define HAVE_COMPILE_COMMANDS 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	763 define MAKE_COMPILATION_DB no
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	764 return 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	765 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	766 if {[cctest -lang c -cflags {/dev/null -MJ} -source {}]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	767 # This test reportedly incorrectly succeeds on one of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	768 # Martin G.'s older systems. drh also reports a false
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	769 # positive on an unspecified older Mac system.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	770 msg-result "compiler supports -MJ. Assuming it's useful for compile_commands.json"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	771 define MAKE_COMPILATION_DB yes; # deprecated
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	772 define HAVE_COMPILE_COMMANDS 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	773 return 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	774 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	775 msg-result "compiler does not support compile_commands.json"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	776 define MAKE_COMPILATION_DB no
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	777 define HAVE_COMPILE_COMMANDS 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	778 return 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	779 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	780 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	781 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	782
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	783 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	784 # @proj-touch filename
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	785 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	786 # Runs the 'touch' external command on one or more files, ignoring any
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	787 # errors.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	788 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	789 proc proj-touch {filename} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	790 catch { exec touch {*}$filename }
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
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	793 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	794 # @proj-make-from-dot-in ?-touch? infile ?outfile?
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 # Uses [make-template] to create makefile(-like) file(s) $outfile from
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	797 # $infile but explicitly makes the output read-only, to avoid
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	798 # inadvertent editing (who, me?).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	799 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	800 # If $outfile is empty then:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	801 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	802 # - If $infile is a 2-element list, it is assumed to be an in/out pair,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	803 # and $outfile is set from the 2nd entry in that list. Else...
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 # - $outfile is set to $infile stripped of its extension.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	806 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	807 # If the first argument is -touch then the generated file is touched
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	808 # to update its timestamp. This can be used as a workaround for
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	809 # cases where (A) autosetup does not update the file because it was
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	810 # not really modified and (B) the file really needs to be updated to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	811 # please the build process.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	812 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	813 # Failures when running chmod or touch are silently ignored.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	814 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	815 proc proj-make-from-dot-in {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	816 set fIn ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	817 set fOut ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	818 set touch 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	819 if {[lindex $args 0] eq "-touch"} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	820 set touch 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	821 lassign $args - fIn fOut
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	822 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	823 lassign $args fIn fOut
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	824 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	825 if {"" eq $fOut} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	826 if {[llength $fIn]>1} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	827 lassign $fIn fIn fOut
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	828 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	829 set fOut [file rootname $fIn]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	830 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	831 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	832 #puts "filenames=$filename"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	833 if {[file exists $fOut]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	834 catch { exec chmod u+w $fOut }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	835 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	836 #puts "making template: $fIn ==> $fOut"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	837 #define-push {top_srcdir} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	838 #puts "--- $fIn $fOut top_srcdir=[get-define top_srcdir]"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	839 make-template $fIn $fOut
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	840 #puts "--- $fIn $fOut top_srcdir=[get-define top_srcdir]"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	841 # make-template modifies top_srcdir
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 if {$touch} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	844 proj-touch $fOut
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	845 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	846 catch {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	847 exec chmod -w $fOut
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	848 #file attributes -w $f; #jimtcl has no 'attributes'
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	849 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	850 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	851
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	852 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	853 # @proj-check-profile-flag ?flagname?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	854 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	855 # Checks for the boolean configure option named by $flagname. If set,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	856 # it checks if $CC seems to refer to gcc. If it does (or appears to)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	857 # then it defines CC_PROFILE_FLAG to "-pg" and returns 1, else it
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	858 # defines CC_PROFILE_FLAG to "" and returns 0.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	859 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	860 # Note that the resulting flag must be added to both CFLAGS and
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	861 # LDFLAGS in order for binaries to be able to generate "gmon.out". In
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	862 # order to avoid potential problems with escaping, space-containing
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	863 # tokens, and interfering with autosetup's use of these vars, this
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	864 # routine does not directly modify CFLAGS or LDFLAGS.
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 proc proj-check-profile-flag {{flagname profile}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	867 #puts "flagname=$flagname ?[proj-opt-truthy $flagname]?"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	868 if {[proj-opt-truthy $flagname]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	869 set CC [get-define CC]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	870 regsub {.ccache } $CC "" CC
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	871 # ^^^ if CC="ccache gcc" then [exec] treats "ccache gcc" as a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	872 # single binary name and fails. So strip any leading ccache part
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	873 # for this purpose.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	874 if { ![catch { exec $CC --version } msg]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	875 if {[string first gcc $CC] != -1} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	876 define CC_PROFILE_FLAG "-pg"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	877 return 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	878 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	879 }
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 define CC_PROFILE_FLAG ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	882 return 0
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	886 # @proj-looks-like-windows ?key?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	887 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	888 # Returns 1 if this appears to be a Windows environment (MinGw,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	889 # Cygwin, MSys), else returns 0. The optional argument is the name of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	890 # an autosetup define which contains platform name info, defaulting to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	891 # "host" (meaning, somewhat counterintuitively, the target system, not
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	892 # the current host). The other legal value is "build" (the build
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	893 # machine, i.e. the local host). If $key == "build" then some
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	894 # additional checks may be performed which are not applicable when
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	895 # $key == "host".
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	896 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	897 proc proj-looks-like-windows {{key host}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	898 global autosetup
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	899 switch -glob -- [get-define $key] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	900 --ming* - --cygwin - --msys - windows {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	901 return 1
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	904 if {$key eq "build"} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	905 # These apply only to the local OS, not a cross-compilation target,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	906 # as the above check potentially can.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	907 if {$::autosetup(iswin)} { return 1 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	908 if {[find-an-executable cygpath] ne "" \|\| $::tcl_platform(os) eq "Windows NT"} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	909 return 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	910 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	911 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	912 return 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	913 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	914
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	915 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	916 # @proj-looks-like-mac ?key?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	917 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	918 # Looks at either the 'host' (==compilation target platform) or
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	919 # 'build' (==the being-built-on platform) define value and returns if
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	920 # if that value seems to indicate that it represents a Mac platform,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	921 # else returns 0.
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 proc proj-looks-like-mac {{key host}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	924 switch -glob -- [get-define $key] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	925 --darwin* {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	926 # https://sqlite.org/forum/forumpost/7b218c3c9f207646
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	927 # There's at least one Linux out there which matches apple.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	928 return 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	929 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	930 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	931 return 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	932 }
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	935
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	936 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	937 # @proj-exe-extension
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	938 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	939 # Checks autosetup's "host" and "build" defines to see if the build
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	940 # host and target are Windows-esque (Cygwin, MinGW, MSys). If the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	941 # build environment is then BUILD_EXEEXT is [define]'d to ".exe", else
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	942 # "". If the target, a.k.a. "host", is then TARGET_EXEEXT is
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	943 # [define]'d to ".exe", else "".
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	944 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	945 proc proj-exe-extension {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	946 set rH ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	947 set rB ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	948 if {[proj-looks-like-windows host]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	949 set rH ".exe"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	950 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	951 if {[proj-looks-like-windows build]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	952 set rB ".exe"
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 define BUILD_EXEEXT $rB
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	955 define TARGET_EXEEXT $rH
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	956 }
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 # @proj-dll-extension
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	960 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	961 # Works like proj-exe-extension except that it defines BUILD_DLLEXT
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	962 # and TARGET_DLLEXT to one of (.so, ,dll, .dylib).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	963 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	964 # Trivia: for .dylib files, the linker needs the -dynamiclib flag
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	965 # instead of -shared.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	966 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	967 proc proj-dll-extension {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	968 set inner {{key} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	969 if {[proj-looks-like-mac $key]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	970 return ".dylib"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	971 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	972 if {[proj-looks-like-windows $key]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	973 return ".dll"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	974 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	975 return ".so"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	976 }}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	977 define BUILD_DLLEXT [apply $inner build]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	978 define TARGET_DLLEXT [apply $inner host]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	979 }
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 # @proj-lib-extension
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 # Static-library counterpart of proj-dll-extension. Defines
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	985 # BUILD_LIBEXT and TARGET_LIBEXT to the conventional static library
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	986 # extension for the being-built-on resp. the target platform.
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 proc proj-lib-extension {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	989 set inner {{key} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	990 switch -glob -- [get-define $key] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	991 --ming* - --cygwin - --msys {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	992 return ".a"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	993 # ^^^ this was ".lib" until 2025-02-07. See
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	994 # https://sqlite.org/forum/forumpost/02db2d4240
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	995 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	996 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	997 return ".a"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	998 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	999 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1000 }}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1001 define BUILD_LIBEXT [apply $inner build]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1002 define TARGET_LIBEXT [apply $inner host]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1003 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1004
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 # @proj-file-extensions
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1007 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1008 # Calls all of the proj-*-extension functions.
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 proc proj-file-extensions {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1011 proj-exe-extension
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1012 proj-dll-extension
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1013 proj-lib-extension
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1014 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1017 # @proj-affirm-files-exist ?-v? filename...
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 # Expects a list of file names. If any one of them does not exist in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1020 # the filesystem, it fails fatally with an informative message.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1021 # Returns the last file name it checks. If the first argument is -v
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1022 # then it emits msg-checking/msg-result messages for each file.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1023 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1024 proc proj-affirm-files-exist {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1025 set rc ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1026 set verbose 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1027 if {[lindex $args 0] eq "-v"} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1028 set verbose 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1029 set args [lrange $args 1 end]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1030 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1031 foreach f $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1032 if {$verbose} { msg-checking "Looking for $f ... " }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1033 if {![file exists $f]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1034 user-error "not found: $f"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1035 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1036 if {$verbose} { msg-result "" }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1037 set rc $f
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1038 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1039 return rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1040 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1041
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 # @proj-check-emsdk
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1044 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1045 # Emscripten is used for doing in-tree builds of web-based WASM stuff,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1046 # as opposed to WASI-based WASM or WASM binaries we import from other
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1047 # places. This is only set up for Unix-style OSes and is untested
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1048 # anywhere but Linux. Requires that the --with-emsdk flag be
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1049 # registered with autosetup.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1050 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1051 # It looks for the SDK in the location specified by --with-emsdk.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1052 # Values of "" or "auto" mean to check for the environment var EMSDK
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1053 # (which gets set by the emsdk_env.sh script from the SDK) or that
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1054 # same var passed to configure.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1055 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1056 # If the given directory is found, it expects to find emsdk_env.sh in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1057 # that directory, as well as the emcc compiler somewhere under there.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1058 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1059 # If the --with-emsdk[=DIR] flag is explicitly provided and the SDK is
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1060 # not found then a fatal error is generated, otherwise failure to find
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1061 # the SDK is not fatal.
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 # Defines the following:
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 # - HAVE_EMSDK = 0 or 1 (this function's return value)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1066 # - EMSDK_HOME = "" or top dir of the emsdk
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1067 # - EMSDK_ENV_SH = "" or $EMSDK_HOME/emsdk_env.sh
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1068 # - BIN_EMCC = "" or $EMSDK_HOME/upstream/emscripten/emcc
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 # Returns 1 if EMSDK_ENV_SH is found, else 0. If EMSDK_HOME is not empty
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1071 # but BIN_EMCC is then emcc was not found in the EMSDK_HOME, in which
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1072 # case we have to rely on the fact that sourcing $EMSDK_ENV_SH from a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1073 # shell will add emcc to the $PATH.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1074 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1075 proc proj-check-emsdk {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1076 set emsdkHome [opt-val with-emsdk]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1077 define EMSDK_HOME ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1078 define EMSDK_ENV_SH ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1079 define BIN_EMCC ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1080 set hadValue [llength $emsdkHome]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1081 msg-checking "Emscripten SDK? "
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1082 if {$emsdkHome in {"" "auto"}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1083 # Check the environment. $EMSDK gets set by sourcing emsdk_env.sh.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1084 set emsdkHome [get-env EMSDK ""]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1085 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1086 set rc 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1087 if {$emsdkHome ne ""} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1088 define EMSDK_HOME $emsdkHome
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1089 set emsdkEnv "$emsdkHome/emsdk_env.sh"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1090 if {[file exists $emsdkEnv]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1091 msg-result "$emsdkHome"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1092 define EMSDK_ENV_SH $emsdkEnv
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1093 set rc 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1094 set emcc "$emsdkHome/upstream/emscripten/emcc"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1095 if {[file exists $emcc]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1096 define BIN_EMCC $emcc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1097 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1098 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1099 msg-result "emsdk_env.sh not found in $emsdkHome"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1100 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1101 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1102 msg-result "not found"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1103 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1104 if {$hadValue && 0 == $rc} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1105 # Fail if it was explicitly requested but not found
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1106 proj-fatal "Cannot find the Emscripten SDK"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1107 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1108 define HAVE_EMSDK $rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1109 return $rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1110 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1111
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1112 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1113 # @proj-cc-check-Wl-flag ?flag ?args??
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1114 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1115 # Checks whether the given linker flag (and optional arguments) can be
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1116 # passed from the compiler to the linker using one of these formats:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1117 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1118 # - -Wl,flag[,arg1[,...argN]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1119 # - -Wl,flag -Wl,arg1 ...-Wl,argN
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 # If so, that flag string is returned, else an empty string is
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1122 # returned.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1123 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1124 proc proj-cc-check-Wl-flag {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1125 cc-with {-link 1} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1126 # Try -Wl,flag,...args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1127 set fli "-Wl"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1128 foreach f $args { append fli ",$f" }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1129 if {[cc-check-flags $fli]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1130 return $fli
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1131 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1132 # Try -Wl,flag -Wl,arg1 ...-Wl,argN
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1133 set fli ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1134 foreach f $args { append fli "-Wl,$f " }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1135 if {[cc-check-flags $fli]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1136 return [string trim $fli]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1137 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1138 return ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1139 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1140 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1143 # @proj-check-rpath
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1144 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1145 # Tries various approaches to handling the -rpath link-time
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1146 # flag. Defines LDFLAGS_RPATH to that/those flag(s) or an empty
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1147 # string. Returns 1 if it finds an option, else 0.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1148 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1149 # By default, the rpath is set to $prefix/lib. However, if either of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1150 # --exec-prefix=... or --libdir=... are explicitly passed to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1151 # configure then [get-define libdir] is used (noting that it derives
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1152 # from exec-prefix by default).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1153 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1154 proc proj-check-rpath {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1155 if {[proj-opt-was-provided libdir]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1156 \|\| [proj-opt-was-provided exec-prefix]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1157 set lp "[get-define libdir]"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1158 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1159 set lp "[get-define prefix]/lib"
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 # If we _don't_ use cc-with {} here (to avoid updating the global
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1162 # CFLAGS or LIBS or whatever it is that cc-check-flags updates) then
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1163 # downstream tests may fail because the resulting rpath gets
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1164 # implicitly injected into them.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1165 cc-with {-link 1} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1166 if {[cc-check-flags "-rpath $lp"]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1167 define LDFLAGS_RPATH "-rpath $lp"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1168 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1169 set wl [proj-cc-check-Wl-flag -rpath $lp]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1170 if {"" eq $wl} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1171 set wl [proj-cc-check-Wl-flag -R$lp]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1172 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1173 if {"" eq $wl} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1174 # HP-UX: https://sqlite.org/forum/forumpost/d80ecdaddd
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1175 set wl [proj-cc-check-Wl-flag +b $lp]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1176 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1177 define LDFLAGS_RPATH $wl
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1178 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1179 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1180 expr {"" ne [get-define LDFLAGS_RPATH]}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1181 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1182
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1183 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1184 # @proj-check-soname ?libname?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1185 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1186 # Checks whether CC supports the -Wl,-soname,lib... flag. If so, it
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1187 # returns 1 and defines LDFLAGS_SONAME_PREFIX to the flag's prefix, to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1188 # which the client would need to append "libwhatever.N". If not, it
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1189 # returns 0 and defines LDFLAGS_SONAME_PREFIX to an empty string.
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 # The libname argument is only for purposes of running the flag
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1192 # compatibility test, and is not included in the resulting
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1193 # LDFLAGS_SONAME_PREFIX. It is provided so that clients may
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1194 # potentially avoid some end-user confusion by using their own lib's
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1195 # name here (which shows up in the "checking..." output).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1196 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1197 proc proj-check-soname {{libname "libfoo.so.0"}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1198 cc-with {-link 1} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1199 if {[cc-check-flags "-Wl,-soname,${libname}"]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1200 define LDFLAGS_SONAME_PREFIX "-Wl,-soname,"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1201 return 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1202 } elseif {[cc-check-flags "-Wl,+h,${libname}"]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1203 # HP-UX: https://sqlite.org/forum/forumpost/d80ecdaddd
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1204 define LDFLAGS_SONAME_PREFIX "-Wl,+h,"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1205 return 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1206 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1207 define LDFLAGS_SONAME_PREFIX ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1208 return 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1209 }
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1212
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1213 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1214 # @proj-check-fsanitize ?list-of-opts?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1215 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1216 # Checks whether CC supports -fsanitize=X, where X is each entry of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1217 # the given list of flags. If any of those flags are supported, it
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1218 # returns the string "-fsanitize=X..." where X... is a comma-separated
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1219 # list of all flags from the original set which are supported. If none
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1220 # of the given options are supported then it returns an empty string.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1221 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1222 # Example:
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 # set f [proj-check-fsanitize {address bounds-check just-testing}]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1225 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1226 # Will, on many systems, resolve to "-fsanitize=address,bounds-check",
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1227 # but may also resolve to "-fsanitize=address".
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1228 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1229 proc proj-check-fsanitize {{opts {address bounds-strict}}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1230 set sup {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1231 foreach opt $opts {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1232 # -nooutput is used because -fsanitize=hwaddress will otherwise
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1233 # pass this test on x86_64, but then warn at build time that
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1234 # "hwaddress is not supported for this target".
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1235 cc-with {-nooutput 1} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1236 if {[cc-check-flags "-fsanitize=$opt"]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1237 lappend sup $opt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1238 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1239 }
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 if {[llength $sup] > 0} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1242 return "-fsanitize=[join $sup ,]"
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 return ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1245 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1248 # Internal helper for proj-dump-defs-json. Expects to be passed a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1249 # [define] name and the variadic $args which are passed to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1250 # proj-dump-defs-json. If it finds a pattern match for the given
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1251 # $name in the various $args, it returns the type flag for that $name,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1252 # 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	1253 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1254 proc proj-defs-type_ {name spec} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1255 foreach {type patterns} $spec {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1256 foreach pattern $patterns {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1257 if {[string match $pattern $name]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1258 return $type
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1259 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1260 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1261 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1262 return ""
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
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 # Internal helper for proj-defs-format_: returns a JSON-ish quoted
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1267 # form of the given string-type values. It only performs the most
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1268 # basic of escaping. The input must not contain any control
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1269 # characters.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1270 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1271 proc proj-quote-str_ {value} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1272 return \"[string map [list \\ \\\\ \" \\\"] $value]\"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1273 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1274
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1275 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1276 # An internal impl detail of proj-dump-defs-json. Requires a data
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1277 # type specifier, as used by make-config-header, and a value. Returns
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1278 # the formatted value or the value $::proj__Config(defs-skip) if the caller
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1279 # should skip emitting that value.
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 set ::proj__Config(defs-skip) "-proj-defs-format_ sentinel"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1282 proc proj-defs-format_ {type value} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1283 switch -exact -- $type {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1284 -bare {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1285 # Just output the value unchanged
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1286 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1287 -none {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1288 set value $::proj__Config(defs-skip)
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 -str {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1291 set value [proj-quote-str_ $value]
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 -auto {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1294 # Automatically determine the type
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1295 if {![string is integer -strict $value]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1296 set value [proj-quote-str_ $value]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1297 }
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 -array {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1300 set ar {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1301 foreach v $value {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1302 set v [proj-defs-format_ -auto $v]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1303 if {$::proj__Config(defs-skip) ne $v} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1304 lappend ar $v
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1307 set value "\[ [join $ar {, }] \]"
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 "" {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1310 set value $::proj__Config(defs-skip)
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 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1313 proj-fatal "Unknown type in proj-dump-defs-json: $type"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1314 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1315 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1316 return $value
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1317 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1320 # @proj-dump-defs-json outfile ...flags
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1321 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1322 # This function works almost identically to autosetup's
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1323 # make-config-header but emits its output in JSON form. It is not a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1324 # fully-functional JSON emitter, and will emit broken JSON for
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1325 # complicated outputs, but should be sufficient for purposes of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1326 # emitting most configure vars (numbers and simple strings).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1327 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1328 # In addition to the formatting flags supported by make-config-header,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1329 # it also supports:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1330 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1331 # -array {patterns...}
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 # Any defines matching the given patterns will be treated as a list of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1334 # values, each of which will be formatted as if it were in an -auto {...}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1335 # set, and the define will be emitted to JSON in the form:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1336 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1337 # "ITS_NAME": [ "value1", ...valueN ]
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 # Achtung: if a given -array pattern contains values which themselves
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1340 # contains spaces...
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 # define-append foo {"-DFOO=bar baz" -DBAR="baz barre"}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1343 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1344 # will lead to:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1345 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1346 # ["-DFOO=bar baz", "-DBAR=\"baz", "barre\""]
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 # Neither is especially satisfactory (and the second is useless), and
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1349 # handling of such values is subject to change if any such values ever
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1350 # _really_ need to be processed by our source trees.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1351 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1352 proc proj-dump-defs-json {file args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1353 file mkdir [file dirname $file]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1354 set lines {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1355 lappend args -bare {SIZEOF_* HAVE_DECL_} -auto HAVE_
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1356 foreach n [lsort [dict keys [all-defines]]] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1357 set type [proj-defs-type_ $n $args]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1358 set value [proj-defs-format_ $type [get-define $n]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1359 if {$::proj__Config(defs-skip) ne $value} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1360 lappend lines "\"$n\": ${value}"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1361 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1362 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1363 set buf {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1364 lappend buf [join $lines ",\n"]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1365 write-if-changed $file $buf {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1366 msg-result "Created $file"
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 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1371 # @proj-xfer-option-aliases map
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 # Expects a list of pairs of configure flags which have been
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1374 # registered with autosetup, in this form:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1375 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1376 # { alias1 => canonical1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1377 # aliasN => canonicalN ... }
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 # The names must not have their leading -- part and must be in the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1380 # form which autosetup will expect for passing to [opt-val NAME] and
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1381 # friends.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1382 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1383 # Comment lines are permitted in the input.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1384 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1385 # For each pair of ALIAS and CANONICAL, if --ALIAS is provided but
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1386 # --CANONICAL is not, the value of the former is copied to the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1387 # latter. If --ALIAS is not provided, this is a no-op. If both have
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1388 # explicitly been provided a fatal usage error is triggered.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1389 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1390 # Motivation: autosetup enables "hidden aliases" in [options] lists,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1391 # and elides the aliases from --help output but does no further
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1392 # handling of them. For example, when --alias is a hidden alias of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1393 # --canonical and a user passes --alias=X, [opt-val canonical] returns
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1394 # no value. i.e. the script must check both [opt-val alias] and
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1395 # [opt-val canonical]. The intent here is that this function be
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1396 # passed such mappings immediately after [options] is called, to carry
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1397 # over any values from hidden aliases into their canonical names, such
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1398 # that [opt-value canonical] will return X if --alias=X is passed to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1399 # configure.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1400 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1401 # That said: autosetup's [opt-str] does support alias forms, but it
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1402 # requires that the caller know all possible aliases. It's simpler, in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1403 # terms of options handling, if there's only a single canonical name
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1404 # which each down-stream call of [opt-...] has to know.
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 proc proj-xfer-options-aliases {mapping} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1407 foreach {hidden - canonical} [proj-strip-hash-comments $mapping] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1408 if {[proj-opt-was-provided $hidden]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1409 if {[proj-opt-was-provided $canonical]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1410 proj-fatal "both --$canonical and its alias --$hidden were used. Use only one or the other."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1411 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1412 proj-opt-set $canonical [opt-val $hidden]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1413 }
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1416 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1419 # Arguable/debatable...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1420 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1421 # When _not_ cross-compiling and CC_FOR_BUILD is _not_ explicitly
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1422 # specified, force CC_FOR_BUILD to be the same as CC, so that:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1423 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1424 # ./configure CC=clang
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 # will use CC_FOR_BUILD=clang, instead of cc, for building in-tree
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1427 # tools. This is based off of an email discussion and is thought to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1428 # be likely to cause less confusion than seeing 'cc' invocations
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1429 # when when the user passes CC=clang.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1430 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1431 # Sidebar: if we do this before the cc package is installed, it gets
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1432 # reverted by that package. Ergo, the cc package init will tell the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1433 # user "Build C compiler...cc" shortly before we tell them otherwise.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1434 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1435 proc proj-redefine-cc-for-build {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1436 if {![proj-is-cross-compiling]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1437 && [get-define CC] ne [get-define CC_FOR_BUILD]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1438 && "nope" eq [get-env CC_FOR_BUILD "nope"]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1439 user-notice "Re-defining CC_FOR_BUILD to CC=[get-define CC]. To avoid this, explicitly pass CC_FOR_BUILD=..."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1440 define CC_FOR_BUILD [get-define CC]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1441 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1442 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1443
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 # @proj-which-linenoise headerFile
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1446 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1447 # Attempts to determine whether the given linenoise header file is of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1448 # the "antirez" or "msteveb" flavor. It returns 2 for msteveb, else 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1449 # (it does not validate that the header otherwise contains the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1450 # linenoise API).
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 proc proj-which-linenoise {dotH} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1453 set srcHeader [proj-file-content $dotH]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1454 if {[string match userdata $srcHeader]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1455 return 2
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1456 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1457 return 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1458 }
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
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1461 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1462 # @proj-remap-autoconf-dir-vars
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1463 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1464 # "Re-map" the autoconf-conventional --XYZdir flags into something
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1465 # which is more easily overridable from a make invocation.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1466 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1467 # Based off of notes in <https://sqlite.org/forum/forumpost/00d12a41f7>.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1468 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1469 # Consider:
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 # $ ./configure --prefix=/foo
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1472 # $ make install prefix=/blah
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 # In that make invocation, $(libdir) would, at make-time, normally be
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1475 # hard-coded to /foo/lib, rather than /blah/lib. That happens because
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1476 # autosetup exports conventional $prefix-based values for the numerous
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1477 # autoconfig-compatible XYZdir vars at configure-time. What we would
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1478 # normally want, however, is that --libdir derives from the make-time
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1479 # $(prefix). The distinction between configure-time and make-time is
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1480 # the significant factor there.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1481 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1482 # This function attempts to reconcile those vars in such a way that
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1483 # they will derive, at make-time, from $(prefix) in a conventional
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1484 # manner unless they are explicitly overridden at configure-time, in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1485 # which case those overrides takes precedence.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1486 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1487 # Each autoconf-relvant --XYZ flag which is explicitly passed to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1488 # configure is exported as-is, as are those which default to some
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1489 # top-level system directory, e.g. /etc or /var. All which derive
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1490 # from either $prefix or $exec_prefix are exported in the form of a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1491 # Makefile var reference, e.g. libdir=${exec_prefix}/lib. Ergo, if
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1492 # --exec-prefix=FOO is passed to configure, libdir will still derive,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1493 # at make-time, from whatever exec_prefix is passed to make, and will
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1494 # use FOO if exec_prefix is not overridden at make-time. Without this
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1495 # post-processing, libdir would be cemented in as FOO/lib at
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1496 # configure-time, so could be tedious to override properly via a make
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1497 # invocation.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1498 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1499 proc proj-remap-autoconf-dir-vars {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1500 set prefix [get-define prefix]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1501 set exec_prefix [get-define exec_prefix $prefix]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1502 # The following var derefs must be formulated such that they are
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1503 # legal for use in (A) makefiles, (B) pkgconfig files, and (C) TCL's
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1504 # [subst] command. i.e. they must use the form ${X}.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1505 foreach {flag makeVar makeDeref} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1506 exec-prefix exec_prefix ${prefix}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1507 datadir datadir ${prefix}/share
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1508 mandir mandir ${datadir}/man
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1509 includedir includedir ${prefix}/include
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1510 bindir bindir ${exec_prefix}/bin
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1511 libdir libdir ${exec_prefix}/lib
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1512 sbindir sbindir ${exec_prefix}/sbin
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1513 sysconfdir sysconfdir /etc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1514 sharedstatedir sharedstatedir ${prefix}/com
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1515 localstatedir localstatedir /var
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1516 runstatedir runstatedir /run
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1517 infodir infodir ${datadir}/info
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1518 libexecdir libexecdir ${exec_prefix}/libexec
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1519 } {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1520 if {[proj-opt-was-provided $flag]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1521 define $makeVar [join [opt-val $flag]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1522 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1523 define $makeVar [join $makeDeref]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1524 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1525 # Maintenance reminder: the [join] call is to avoid {braces}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1526 # around the output when someone passes in,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1527 # e.g. --libdir=\${prefix}/foo/bar. Debian's SQLite package build
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1528 # script does that.
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
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 # @proj-env-file flag ?default?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1534 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1535 # If a file named .env-$flag exists, this function returns a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1536 # trimmed copy of its contents, else it returns $dflt. The intended
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1537 # usage is that things like developer-specific CFLAGS preferences can
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1538 # be stored in .env-CFLAGS.
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 proc proj-env-file {flag {dflt ""}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1541 set fn ".env-${flag}"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1542 if {[file readable $fn]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1543 return [proj-file-content -trim $fn]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1544 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1545 return $dflt
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
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1548 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1549 # @proj-get-env var ?default?
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 # Extracts the value of "environment" variable $var from the first of
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1552 # the following places where it's defined:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1553 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1554 # - Passed to configure as $var=...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1555 # - Exists as an environment variable
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1556 # - A file named .env-$var (see [proj-env-file])
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1557 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1558 # If none of those are set, $dflt is returned.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1559 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1560 proc proj-get-env {var {dflt ""}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1561 get-env $var [proj-env-file $var $dflt]
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
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 # @proj-scope ?lvl?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1566 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1567 # Returns the name of the _calling_ proc from ($lvl + 1) levels up the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1568 # call stack (where the caller's level will be 1 up from _this_
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1569 # call). If $lvl would resolve to global scope "global scope" is
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1570 # returned and if it would be negative then a string indicating such
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1571 # is returned (as opposed to throwing an error).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1572 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1573 proc proj-scope {{lvl 0}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1574 #uplevel [expr {$lvl + 1}] {lindex [info level 0] 0}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1575 set ilvl [info level]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1576 set offset [expr {$ilvl - $lvl - 1}]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1577 if { $offset < 0} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1578 return "invalid scope ($offset)"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1579 } elseif { $offset == 0} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1580 return "global scope"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1581 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1582 return [lindex [info level $offset] 0]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1583 }
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
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 # Deprecated name of [proj-scope].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1588 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1589 proc proj-current-scope {{lvl 0}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1590 puts stderr \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1591 "Deprecated proj-current-scope called from [proj-scope 1]. Use proj-scope instead."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1592 proj-scope [incr lvl]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1593 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1594
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1595 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1596 # Converts parts of tclConfig.sh to autosetup [define]s.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1597 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1598 # Expects to be passed the name of a value tclConfig.sh or an empty
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1599 # string. It converts certain parts of that file's contents to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1600 # [define]s (see the code for the whole list). If $tclConfigSh is an
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1601 # empty string then it [define]s the various vars as empty strings.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1602 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1603 proc proj-tclConfig-sh-to-autosetup {tclConfigSh} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1604 set shBody {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1605 set tclVars {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1606 TCL_INCLUDE_SPEC
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1607 TCL_LIBS
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1608 TCL_LIB_SPEC
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1609 TCL_STUB_LIB_SPEC
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1610 TCL_EXEC_PREFIX
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1611 TCL_PREFIX
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1612 TCL_VERSION
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1613 TCL_MAJOR_VERSION
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1614 TCL_MINOR_VERSION
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1615 TCL_PACKAGE_PATH
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1616 TCL_PATCH_LEVEL
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1617 TCL_SHLIB_SUFFIX
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1618 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1619 # Build a small shell script which proxies the $tclVars from
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1620 # $tclConfigSh into autosetup code...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1621 lappend shBody "if test x = \"x${tclConfigSh}\"; then"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1622 foreach v $tclVars {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1623 lappend shBody "$v= ;"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1624 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1625 lappend shBody "else . \"${tclConfigSh}\"; fi"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1626 foreach v $tclVars {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1627 lappend shBody "echo define $v {\$$v} ;"
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 lappend shBody "exit"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1630 set shBody [join $shBody "\n"]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1631 #puts "shBody=$shBody\n"; exit
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1632 eval [exec echo $shBody \| sh]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1633 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1634
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 # @proj-tweak-default-env-dirs
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1637 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1638 # This function is not useful before [use system] is called to set up
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1639 # --prefix and friends. It should be called as soon after [use system]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1640 # as feasible.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1641 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1642 # For certain target environments, if --prefix is _not_ passed in by
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1643 # the user, set the prefix to an environment-specific default. For
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1644 # such environments its does [define prefix ...] and [proj-opt-set
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1645 # prefix ...], but it does not process vars derived from the prefix,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1646 # e.g. exec-prefix. To do so it is generally necessary to also call
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1647 # proj-remap-autoconf-dir-vars late in the config process (immediately
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1648 # before ".in" files are filtered).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1649 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1650 # Similar modifications may be made for --mandir.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1651 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1652 # Returns >0 if it modifies the environment, else 0.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1653 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1654 proc proj-tweak-default-env-dirs {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1655 set rc 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1656 switch -glob -- [get-define host] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1657 *-haiku {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1658 if {![proj-opt-was-provided prefix]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1659 set hdir /boot/home/config/non-packaged
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1660 proj-opt-set prefix $hdir
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1661 define prefix $hdir
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1662 incr rc
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 if {![proj-opt-was-provided mandir]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1665 set hdir /boot/system/documentation/man
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1666 proj-opt-set mandir $hdir
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1667 define mandir $hdir
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1668 incr rc
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1671 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1672 return $rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1673 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1674
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1675 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1676 # @proj-dot-ins-append file ?fileOut ?postProcessScript??
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1677 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1678 # Queues up an autosetup [make-template]-style file to be processed
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1679 # at a later time using [proj-dot-ins-process].
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 # $file is the input file. If $fileOut is empty then this function
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1682 # derives $fileOut from $file, stripping both its directory and
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1683 # extension parts. i.e. it defaults to writing the output to the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1684 # current directory (typically $::autosetup(builddir)).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1685 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1686 # If $postProcessScript is not empty then, during
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1687 # [proj-dot-ins-process], it will be eval'd immediately after
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1688 # processing the file. In the context of that script, the vars
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1689 # $dotInsIn and $dotInsOut will be set to the input and output file
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1690 # names. This can be used, for example, to make the output file
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1691 # executable or perform validation on its contents:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1692 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1693 ## proj-dot-ins-append my.sh.in my.sh {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1694 ## catch {exec chmod u+x $dotInsOut}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1695 ## }
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 # See [proj-dot-ins-process], [proj-dot-ins-list]
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 proc proj-dot-ins-append {fileIn args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1700 set srcdir $::autosetup(srcdir)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1701 switch -exact -- [llength $args] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1702 0 {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1703 lappend fileIn [file rootname [file tail $fileIn]] ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1704 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1705 1 {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1706 lappend fileIn [join $args] ""
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 2 {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1709 lappend fileIn {*}$args
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 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1712 proj-fatal "Too many arguments: $fileIn $args"
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1715 #puts "******* [proj-scope]: adding [llength $fileIn]-length item: $fileIn"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1716 lappend ::proj__Config(dot-in-files) $fileIn
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1717 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1718
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1719 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1720 # @proj-dot-ins-list
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 # Returns the current list of [proj-dot-ins-append]'d files, noting
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1723 # that each entry is a 3-element list of (inputFileName,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1724 # outputFileName, postProcessScript).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1725 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1726 proc proj-dot-ins-list {} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1727 return $::proj__Config(dot-in-files)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1728 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1729
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 # @proj-dot-ins-process ?-touch? ?-validate? ?-clear?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1732 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1733 # Each file which has previously been passed to [proj-dot-ins-append]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1734 # is processed, with its passing its in-file out-file names to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1735 # [proj-make-from-dot-in].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1736 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1737 # The intent is that a project accumulate any number of files to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1738 # filter and delay their actual filtering until the last stage of the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1739 # configure script, calling this function at that time.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1740 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1741 # Optional flags:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1742 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1743 # -touch: gets passed on to [proj-make-from-dot-in]
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 # -validate: after processing each file, before running the file's
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1746 # associated script, if any, it runs the file through
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1747 # proj-validate-no-unresolved-ats, erroring out if that does.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1748 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1749 # -clear: after processing, empty the dot-ins list. This effectively
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1750 # makes proj-dot-ins-append available for re-use.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1751 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1752 proc proj-dot-ins-process {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1753 proj-parse-flags args flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1754 -touch "" {return "-touch"}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1755 -clear 0 {expr 1}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1756 -validate 0 {expr 1}
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 #puts "args=$args"; parray flags
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1759 if {[llength $args] > 0} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1760 error "Invalid argument to [proj-scope]: $args"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1761 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1762 foreach f $::proj__Config(dot-in-files) {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1763 proj-assert {3==[llength $f]} \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1764 "Expecting proj-dot-ins-list to be stored in 3-entry lists. Got: $f"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1765 lassign $f fIn fOut fScript
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1766 #puts "DOING $fIn ==> $fOut"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1767 proj-make-from-dot-in {*}$flags(-touch) $fIn $fOut
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1768 if {$flags(-validate)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1769 proj-validate-no-unresolved-ats $fOut
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1770 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1771 if {"" ne $fScript} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1772 uplevel 1 [join [list set dotInsIn $fIn \; \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1773 set dotInsOut $fOut \; \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1774 eval \{${fScript}\} \; \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1775 unset dotInsIn dotInsOut]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1776 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1777 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1778 if {$flags(-clear)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1779 set ::proj__Config(dot-in-files) [list]
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1782
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 # @proj-validate-no-unresolved-ats filenames...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1785 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1786 # For each filename given to it, it validates that the file has no
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1787 # unresolved @VAR@ references. If it finds any, it produces an error
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1788 # with location information.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1789 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1790 # Exception: if a filename matches the pattern {[Mm]ake} AND a given
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1791 # line begins with a # (not including leading whitespace) then that
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1792 # line is ignored for purposes of this validation. The intent is that
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1793 # @VAR@ inside of makefile comments should not (necessarily) cause
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1794 # validation to fail, as it's sometimes convenient to comment out
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1795 # sections during development of a configure script and its
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1796 # corresponding makefile(s).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1797 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1798 proc proj-validate-no-unresolved-ats {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1799 foreach f $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1800 set lnno 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1801 set isMake [string match {[Mm]ake} $f]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1802 foreach line [proj-file-content-list $f] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1803 if {!$isMake \|\| ![string match "#*" [string trimleft $line]]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1804 if {[regexp {(@[A-Za-z0-9_\.]+@)} $line match]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1805 error "Unresolved reference to $match at line $lnno of $f"
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 incr lnno
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1811 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1812
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 # @proj-first-file-found tgtVar fileList
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1815 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1816 # Searches $fileList for an existing file. If one is found, its name
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1817 # is assigned to tgtVar and 1 is returned, else tgtVar is set to ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1818 # and 0 is returned.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1819 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1820 proc proj-first-file-found {tgtVar fileList} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1821 upvar $tgtVar tgt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1822 foreach f $fileList {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1823 if {[file exists $f]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1824 set tgt $f
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1825 return 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1826 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1827 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1828 set tgt ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1829 return 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1830 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1833 # Defines $defName to contain makefile recipe commands for re-running
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1834 # the configure script with its current set of $::argv flags. This
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1835 # can be used to automatically reconfigure.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1836 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1837 proc proj-setup-autoreconfig {defName} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1838 define $defName \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1839 [join [list \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1840 cd \"$::autosetup(builddir)\" \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1841 && [get-define AUTOREMAKE "error - missing @AUTOREMAKE@"]]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1842 }
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 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1845 # @prop-append-to defineName args...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1846 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1847 # A proxy for Autosetup's [define-append]. Appends all non-empty $args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1848 # to [define-append $defineName].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1849 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1850 proc proj-define-append {defineName args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1851 foreach a $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1852 if {"" ne $a} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1853 define-append $defineName {*}$a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1854 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1855 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1856 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1857
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1858 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1859 # @prod-define-amend ?-p\|-prepend? ?-d\|-define? defineName args...
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 # A proxy for Autosetup's [define-append].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1862 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1863 # Appends all non-empty $args to the define named by $defineName. If
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1864 # one of (-p \| -prepend) are used it instead prepends them, in their
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1865 # given order, to $defineName.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1866 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1867 # If -define is used then each argument is assumed to be a [define]'d
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1868 # flag and [get-define X ""] is used to fetch it.
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 # Re. linker flags: typically, -lXYZ flags need to be in "reverse"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1871 # order, with each -lY resolving symbols for -lX's to its left. This
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1872 # order is largely historical, and not relevant on all environments,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1873 # but it is technically correct and still relevant on some
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1874 # environments.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1875 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1876 # See: proj-append-to
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 proc proj-define-amend {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1879 set defName ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1880 set prepend 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1881 set isdefs 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1882 set xargs [list]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1883 foreach arg $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1884 switch -exact -- $arg {
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 -p - -prepend { incr prepend }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1887 -d - -define { incr isdefs }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1888 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1889 if {"" eq $defName} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1890 set defName $arg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1891 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1892 lappend xargs $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 if {"" eq $defName} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1898 proj-error "Missing defineName argument in call from [proj-scope 1]"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1899 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1900 if {$isdefs} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1901 set args $xargs
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1902 set xargs [list]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1903 foreach arg $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1904 lappend xargs [get-define $arg ""]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1905 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1906 set args $xargs
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1907 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1908 # puts "**** args=$args"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1909 # puts "**** xargs=$xargs"
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 set args $xargs
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1912 if {$prepend} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1913 lappend args {*}[get-define $defName ""]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1914 define $defName [join $args]; # join to eliminate {} entries
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1915 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1916 proj-define-append $defName {*}$args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1917 }
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
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1920 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1921 # @proj-define-to-cflag ?-list? ?-quote? ?-zero-undef? defineName...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1922 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1923 # Treat each argument as the name of a [define] and renders it like a
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1924 # CFLAGS value in one of the following forms:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1925 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1926 # -D$name
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1927 # -D$name=integer (strict integer matches only)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1928 # '-D$name=value' (without -quote)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1929 # '-D$name="value"' (with -quote)
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 # It treats integers as numbers and everything else as a quoted
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1932 # string, noting that it does not handle strings which themselves
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1933 # contain quotes.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1934 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1935 # The -zero-undef flag causes no -D to be emitted for integer values
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1936 # of 0.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1937 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1938 # By default it returns the result as string of all -D... flags,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1939 # but if passed the -list flag it will return a list of the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1940 # individual CFLAGS.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1941 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1942 proc proj-define-to-cflag {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1943 set rv {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1944 proj-parse-flags args flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1945 -list 0 {expr 1}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1946 -quote 0 {expr 1}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1947 -zero-undef 0 {expr 1}
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 foreach d $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1950 set v [get-define $d ""]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1951 set li {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1952 if {"" eq $d} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1953 set v "-D${d}"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1954 } elseif {[string is integer -strict $v]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1955 if {!$flags(-zero-undef) \|\| $v ne "0"} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1956 set v "-D${d}=$v"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1957 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1958 } elseif {$flags(-quote)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1959 set v "'-D${d}=\"$v\"'"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1960 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1961 set v "'-D${d}=$v'"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1962 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1963 lappend rv $v
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1964 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1965 expr {$flags(-list) ? $rv : [join $rv]}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1966 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1967
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 if {0} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1970 # Turns out that autosetup's [options-add] essentially does exactly
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1971 # this...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1972
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1973 # A list of lists of Autosetup [options]-format --flags definitions.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1974 # Append to this using [proj-options-add] and use
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1975 # [proj-options-combine] to merge them into a single list for passing
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1976 # to [options].
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 set ::proj__Config(extra-options) {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1979
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1980 # @proj-options-add list
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1981 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1982 # Adds a list of options to the pending --flag processing. It must be
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1983 # in the format used by Autosetup's [options] function.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1984 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1985 # This will have no useful effect if called from after [options]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1986 # is called.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1987 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1988 # Use [proj-options-combine] to get a combined list of all added
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1989 # options.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1990 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1991 # PS: when writing this i wasn't aware of autosetup's [options-add],
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1992 # works quite similarly. Only the timing is different.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1993 proc proj-options-add {list} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1994 lappend ::proj__Config(extra-options) $list
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1995 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1996
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1997 # @proj-options-combine list1 ?...listN?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1998 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	1999 # Expects each argument to be a list of options compatible with
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2000 # autosetup's [options] function. This function concatenates the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2001 # contents of each list into a new top-level list, stripping the outer
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2002 # list part of each argument, and returning that list
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2003 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2004 # If passed no arguments, it uses the list generated by calls to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2005 # [proj-options-add].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2006 proc proj-options-combine {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2007 set rv [list]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2008 if {0 == [llength $args]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2009 set args $::proj__Config(extra-options)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2010 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2011 foreach e $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2012 lappend rv {*}$e
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 return $rv
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2015 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2016 }; # proj-options-*
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2017
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2018 # Internal cache for use via proj-cache-*.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2019 array set proj__Cache {}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2020
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 # @proj-cache-key arg {addLevel 0}
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 # Helper to generate cache keys for [proj-cache-*].
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2025 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2026 # $addLevel should almost always be 0.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2027 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2028 # Returns a cache key for the given argument:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2029 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2030 # integer: relative call stack levels to get the scope name of for
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2031 # use as a key. [proj-scope [expr {1 + $arg + addLevel}]] is
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2032 # then used to generate the key. i.e. the default of 0 uses the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2033 # calling scope's name as the key.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2034 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2035 # Anything else: returned as-is
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2036 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2037 proc proj-cache-key {arg {addLevel 0}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2038 if {[string is integer -strict $arg]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2039 return [proj-scope [expr {$arg + $addLevel + 1}]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2040 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2041 return $arg
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
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2044 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2045 # @proj-cache-set ?-key KEY? ?-level 0? value
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 # 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	2048 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2049 # See proj-cache-key for -key's and -level's semantics, noting that
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2050 # this function adds one to -level for purposes of that call.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2051 proc proj-cache-set {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2052 proj-parse-flags args flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2053 -key => 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2054 -level => 0
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 lassign $args val
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2057 set key [proj-cache-key $flags(-key) [expr {1 + $flags(-level)}]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2058 #puts "** fcheck set $key = $val"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2059 set ::proj__Cache($key) $val
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2060 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2061
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2062 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2063 # @proj-cache-remove ?key? ?addLevel?
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 # Removes an entry from the proj-cache.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2066 proc proj-cache-remove {{key 0} {addLevel 0}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2067 set key [proj-cache-key $key [expr {1 + $addLevel}]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2068 set rv ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2069 if {[info exists ::proj__Cache($key)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2070 set rv $::proj__Cache($key)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2071 unset ::proj__Cache($key)
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 return $rv;
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2074 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2075
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2076 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2077 # @proj-cache-check ?-key KEY? ?-level LEVEL? tgtVarName
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2078 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2079 # 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	2080 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2081 # 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	2082 # 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	2083 # "" and returns 0.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2084 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2085 # See proj-cache-key for $key's and $addLevel's semantics, noting that
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2086 # this function adds one to $addLevel for purposes of that call.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2087 proc proj-cache-check {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2088 proj-parse-flags args flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2089 -key => 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2090 -level => 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2091 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2092 lassign $args tgtVar
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2093 upvar $tgtVar tgt
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2094 set rc 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2095 set key [proj-cache-key $flags(-key) [expr {1 + $flags(-level)}]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2096 #puts "** fcheck get key=$key"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2097 if {[info exists ::proj__Cache($key)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2098 set tgt $::proj__Cache($key)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2099 incr rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2100 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2101 set tgt ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2102 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2103 return $rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2104 }
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 # @proj-coalesce ...args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2108 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2109 # Returns the first argument which is not empty (eq ""), or an empty
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2110 # string on no match.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2111 proc proj-coalesce {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2112 foreach arg $args {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2113 if {"" ne $arg} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2114 return $arg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2115 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2116 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2117 return ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2118 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2119
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2120 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2121 # @proj-parse-flags argvListName targetArrayName {prototype}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2122 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2123 # A helper to parse flags from proc argument lists.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2124 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2125 # The first argument is the name of a var holding the args to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2126 # parse. It will be overwritten, possibly with a smaller list.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2127 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2128 # The second argument is the name of an array variable to create in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2129 # the caller's scope.
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 # The third argument, $prototype, is a description of how to handle
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2132 # the flags. Each entry in that list must be in one of the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2133 # following forms:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2134 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2135 # -flag defaultValue ?-literal\|-call\|-apply?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2136 # script\|number\|incr\|proc-name\|{apply $aLambda}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2137 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2138 # -flag* ...as above...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2139 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2140 # -flag => defaultValue ?-call proc-name-and-args\|-apply lambdaExpr?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2141 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2142 # -flag* => ...as above...
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 # :PRAGMA
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2145 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2146 # The first two forms represents a basic flag with no associated
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2147 # following argument. The third and fourth forms, called arg-consuming
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2148 # flags, extract the value from the following argument in $argvName
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2149 # (pneumonic: => points to the next argument.). The :PRAGMA form
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2150 # offers a way to configure certain aspects of this call.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2151 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2152 # If $argv contains any given flag from $prototype, its default value
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2153 # is overridden depending on several factors:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2154 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2155 # - If the -literal flag is used, or the flag's script is a number,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2156 # value is used verbatim.
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 # - Else if the -call flag is used, the argument must be a proc name
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2159 # and any leading arguments, e.g. {apply $myLambda}. The proc is passed
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2160 # the (flag, value) as arguments (non-consuming flags will get
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2161 # passed the flag's current/starting value and consuming flags will
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2162 # get the next argument). Its result becomes the result of the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2163 # flag.
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 # - Else if -apply X is used, it's effectively shorthand for -call
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2166 # {apply X}. Its argument may either be a $lambaRef or a {{f v}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2167 # {body}} construct.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2168 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2169 # - Else if $script is one of the following values, it is treated as
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2170 # the result of...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2171 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2172 # - incr: increments the current value of the flag.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2173 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2174 # - Else $script is eval'd to get its result value. That result
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2175 # becomes the new flag value for $tgtArrayName(-flag). This
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2176 # function intercepts [return $val] from eval'ing $script. Any
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2177 # empty script will result in the flag having "" assigned to it.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2178 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2179 # Unless the -flag has a trailing asterisk, e.g. -flag*, this function
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2180 # assumes that each flag is unique, and using a flag more than once
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2181 # causes an error to be triggered. the -flag* forms works similarly
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2182 # except that may appear in $argv any number of times:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2183 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2184 # - For non-arg-consuming flags, each invocation of -flag causes the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2185 # result of $script to overwrite the previous value. e.g. so
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2186 # {-flag* {x} {incr foo}} has a default value of x, but passing in
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2187 # -flag twice would change it to the result of incrementing foo
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2188 # twice. This form can be used to implement, e.g., increasing
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2189 # verbosity levels by passing -verbose multiple times.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2190 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2191 # - For arg-consuming flags, the given flag starts with value X, but
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2192 # if the flag is provided in $argv, the default is cleared, then
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2193 # each instance of -flag causes its value to be appended to the
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2194 # result, so {-flag* => {a b c}} defaults to {a b c}, but passing
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2195 # in -flag y -flag z would change it to {y z}, not {a b c y z}..
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2196 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2197 # By default, the args list is only inspected until the first argument
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2198 # which is not described by $prototype. i.e. the first "non-flag" (not
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2199 # counting values consumed for flags defined like -flag => default).
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2200 # The :all-flags pragma (see below) can modify this behavior.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2201 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2202 # If a "--" flag is encountered, no more arguments are inspected as
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2203 # flags unless the :all-flags pragma (see below) is in effect. The
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2204 # first instance of "--" is removed from the target result list but
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2205 # all remaining instances of "--" are are passed through.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2206 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2207 # Any argvName entries not described in $prototype are considered to
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2208 # be "non-flags" for purposes of this function, even if they
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2209 # ostensibly look like flags.
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 # Returns the number of flags it processed in $argvName, not counting
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 # Example:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2215 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2216 ## set args [list -foo -bar {blah} -z 8 9 10 -theEnd]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2217 ## proj-parse-flags args flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2218 ## -foo 0 {expr 1}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2219 ## -bar => 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2220 ## -no-baz 1 {return 0}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2221 ## -z 0 2
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2222 ## }
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 # After that $flags would contain {-foo 1 -bar {blah} -no-baz 1 -z 2}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2225 # and $args would be {8 9 10 -theEnd}.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2226 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2227 # Pragmas:
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2228 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2229 # Passing :PRAGMAS to this function may modify how it works. The
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2230 # following pragmas are supported (note the leading ":"):
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2231 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2232 # :all-flags indicates that the whole input list should be scanned,
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2233 # not stopping at the first non-flag or "--".
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2234 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2235 proc proj-parse-flags {argvName tgtArrayName prototype} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2236 upvar $argvName argv
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2237 upvar $tgtArrayName outFlags
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2238 array set flags {}; # staging area
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2239 array set blob {}; # holds markers for various per-key state and options
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2240 set incrSkip 1; # 1 if we stop at the first non-flag, else 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2241 # Parse $prototype for flag definitions...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2242 set n [llength $prototype]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2243 set checkProtoFlag {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2244 #puts "**** checkProtoFlag #$i of $n k=$k fv=$fv"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2245 switch -exact -- $fv {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2246 -literal {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2247 proj-assert {![info exists blob(${k}.consumes)]}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2248 set blob(${k}.script) [list expr [lindex $prototype [incr i]]]
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 -apply {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2251 set fv [lindex $prototype [incr i]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2252 if {2 == [llength $fv]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2253 # Treat this as a lambda literal
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2254 set fv [list $fv]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2255 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2256 lappend blob(${k}.call) "apply $fv"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2257 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2258 -call {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2259 # arg is either a proc name or {apply $aLambda}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2260 set fv [lindex $prototype [incr i]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2261 lappend blob(${k}.call) $fv
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2262 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2263 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2264 proj-assert {![info exists blob(${k}.consumes)]}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2265 set blob(${k}.script) $fv
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 if {$i >= $n} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2269 proj-error -up "[proj-scope]: Missing argument for $k flag"
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2272 for {set i 0} {$i < $n} {incr i} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2273 set k [lindex $prototype $i]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2274 #puts "**** #$i of $n k=$k"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2275
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2276 # Check for :PRAGMA...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2277 switch -exact -- $k {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2278 :all-flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2279 set incrSkip 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2280 continue
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2281 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2282 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2283
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2284 proj-assert {[string match -* $k]} \
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2285 "Invalid argument: $k"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2286
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2287 if {[string match {\} $k]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2288 # Re-map -foo* to -foo and flag -foo as a repeatable flag
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2289 set k [string map {* ""} $k]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2290 incr blob(${k}.multi)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2291 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2292
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2293 if {[info exists flags($k)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2294 proj-error -up "[proj-scope]: Duplicated prototype for flag $k"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2295 }
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 switch -exact -- [lindex $prototype [expr {$i + 1}]] {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2298 => {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2299 # -flag => DFLT ?-subflag arg?
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2300 incr i 2
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2301 if {$i >= $n} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2302 proj-error -up "[proj-scope]: Missing argument for $k => flag"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2303 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2304 incr blob(${k}.consumes)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2305 set vi [lindex $prototype $i]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2306 if {$vi in {-apply -call}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2307 proj-error -up "[proj-scope]: Missing default value for $k flag"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2308 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2309 set fv [lindex $prototype [expr {$i + 1}]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2310 if {$fv in {-apply -call}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2311 incr i
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2312 eval $checkProtoFlag
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2313 }
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2316 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2317 # -flag VALUE ?flag? SCRIPT
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2318 set vi [lindex $prototype [incr i]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2319 set fv [lindex $prototype [incr i]]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2320 eval $checkProtoFlag
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2321 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2322 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2323 #puts "**** #$i of $n k=$k vi=$vi"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2324 set flags($k) $vi
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 #puts "-- flags"; parray flags
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2327 #puts "-- blob"; parray blob
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2328 set rc 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2329 set rv {}; # staging area for the target argv value
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2330 set skipMode 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2331 set n [llength $argv]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2332 # Now look for those flags in $argv...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2333 for {set i 0} {$i < $n} {incr i} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2334 set arg [lindex $argv $i]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2335 #puts "-- [proj-scope] arg=$arg"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2336 if {$skipMode} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2337 lappend rv $arg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2338 } elseif {"--" eq $arg} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2339 # "--" is the conventional way to end processing of args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2340 if {[incr blob(--)] > 1} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2341 # Elide only the first one
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2342 lappend rv $arg
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2343 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2344 incr skipMode $incrSkip
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2345 } elseif {[info exists flags($arg)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2346 # A known flag...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2347 set isMulti [info exists blob(${arg}.multi)]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2348 incr blob(${arg}.seen)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2349 if {1 < $blob(${arg}.seen) && !$isMulti} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2350 proj-error -up [proj-scope] "$arg flag was used multiple times"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2351 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2352 set vMode 0; # 0=as-is, 1=eval, 2=call
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2353 set isConsuming [info exists blob(${arg}.consumes)]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2354 if {$isConsuming} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2355 incr i
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2356 if {$i >= $n} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2357 proj-error -up [proj-scope] "is missing argument for $arg flag"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2358 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2359 set vv [lindex $argv $i]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2360 } elseif {[info exists blob(${arg}.script)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2361 set vMode 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2362 set vv $blob(${arg}.script)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2363 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2364 set vv $flags($arg)
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2365 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2366
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2367 if {[info exists blob(${arg}.call)]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2368 set vMode 2
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2369 set vv [concat {*}$blob(${arg}.call) $arg $vv]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2370 } elseif {$isConsuming} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2371 proj-assert {!$vMode}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2372 # fall through
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2373 } elseif {"" eq $vv \|\| [string is double -strict $vv]} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2374 set vMode 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2375 } elseif {$vv in {incr}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2376 set vMode 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2377 switch -exact $vv {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2378 incr {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2379 set xx $flags($k); incr xx; set vv $xx; unset xx
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2380 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2381 default {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2382 proj-error "Unhandled \$vv value $vv"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2383 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2384 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2385 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2386 set vv [list eval $vv]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2387 set vMode 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2388 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2389 if {$vMode} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2390 set code [catch [list uplevel 1 $vv] vv xopt]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2391 if {$code ni {0 2}} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2392 return {*}$xopt $vv
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2393 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2394 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2395 if {$isConsuming && $isMulti} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2396 if {1 == $blob(${arg}.seen)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2397 # On the first hit, overwrite the default with a new list.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2398 set flags($arg) [list $vv]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2399 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2400 # On subsequent hits, append to the list.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2401 lappend flags($arg) $vv
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2402 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2403 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2404 set flags($arg) $vv
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2405 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2406 incr rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2407 } else {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2408 # Non-flag
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2409 incr skipMode $incrSkip
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2410 lappend rv $arg
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 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2413 set argv $rv
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2414 array set outFlags [array get flags]
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2415 #puts "-- rv=$rv argv=$argv flags="; parray flags
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2416 return $rc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2417 }; # proj-parse-flags
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2418
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2419 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2420 # Older (deprecated) name of proj-parse-flags.
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2421 #
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2422 proc proj-parse-simple-flags {args} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2423 tailcall proj-parse-flags {*}$args
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2424 }
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 if {$::proj__Config(self-tests)} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2427 set __ova $::proj__Config(verbose-assert);
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2428 set ::proj__Config(verbose-assert) 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2429 puts "Running [info script] self-tests..."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2430 # proj-cache...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2431 apply {{} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2432 #proj-warn "Test code for proj-cache"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2433 proj-assert {![proj-cache-check -key here check]}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2434 proj-assert {"here" eq [proj-cache-key here]}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2435 proj-assert {"" eq $check}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2436 proj-cache-set -key here thevalue
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2437 proj-assert {[proj-cache-check -key here check]}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2438 proj-assert {"thevalue" eq $check}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2439
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2440 proj-assert {![proj-cache-check check]}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2441 #puts "*** key = ([proj-cache-key 0])"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2442 proj-assert {"" eq $check}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2443 proj-cache-set abc
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2444 proj-assert {[proj-cache-check check]}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2445 proj-assert {"abc" eq $check}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2446
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2447 #parray ::proj__Cache;
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2448 proj-assert {"" ne [proj-cache-remove]}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2449 proj-assert {![proj-cache-check check]}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2450 proj-assert {"" eq [proj-cache-remove]}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2451 proj-assert {"" eq $check}
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
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2454 # proj-parse-flags ...
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2455 apply {{} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2456 set foo 3
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2457 set argv {-a "hi - world" -b -b -b -- -a {bye bye} -- -d -D c -a "" --}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2458 proj-parse-flags argv flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2459 :all-flags
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2460 -a* => "gets overwritten"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2461 -b* 7 {incr foo}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2462 -d 1 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2463 -D 0 1
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
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2466 #puts "-- argv = $argv"; parray flags;
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2467 proj-assert {"-- c --" eq $argv}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2468 proj-assert {$flags(-a) eq "{hi - world} {bye bye} {}"}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2469 proj-assert {$foo == 6}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2470 proj-assert {$flags(-b) eq $foo}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2471 proj-assert {$flags(-d) == 0}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2472 proj-assert {$flags(-D) == 1}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2473 set foo 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2474 foreach x $flags(-a) {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2475 proj-assert {$x in {{hi - world} {bye bye} {}}}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2476 incr foo
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 proj-assert {3 == $foo}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2479
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2480 set argv {-a {hi world} -b -maybe -- -a {bye bye} -- -b c --}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2481 set foo 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2482 proj-parse-flags argv flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2483 -a => "aaa"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2484 -b 0 {incr foo}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2485 -maybe no -literal yes
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 #parray flags; puts "--- argv = $argv"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2488 proj-assert {"-a {bye bye} -- -b c --" eq $argv}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2489 proj-assert {$flags(-a) eq "hi world"}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2490 proj-assert {1 == $flags(-b)}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2491 proj-assert {"yes" eq $flags(-maybe)}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2492
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2493 set argv {-f -g -a aaa -M -M -M -L -H -A AAA a b c}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2494 set foo 0
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2495 set myLambda {{flag val} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2496 proj-assert {$flag in {-f -g -M}}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2497 #puts "myLambda flag=$flag val=$val"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2498 incr val
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2499 }}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2500 proc myNonLambda {flag val} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2501 proj-assert {$flag in {-A -a}}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2502 #puts "myNonLambda flag=$flag val=$val"
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2503 concat $val $val
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2504 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2505 proj-parse-flags argv flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2506 -f 0 -call {apply $myLambda}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2507 -g 2 -apply $myLambda
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2508 -h 3 -apply $myLambda
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2509 -H 30 33
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2510 -a => aAAAa -apply {{f v} {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2511 set v
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2512 }}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2513 -A => AaaaA -call myNonLambda
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2514 -B => 17 -call myNonLambda
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2515 -M* 0 -apply $myLambda
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2516 -L "" -literal $myLambda
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2517 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2518 rename myNonLambda ""
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2519 #puts "--- argv = $argv"; parray flags
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2520 proj-assert {$flags(-f) == 1}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2521 proj-assert {$flags(-g) == 3}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2522 proj-assert {$flags(-h) == 3}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2523 proj-assert {$flags(-H) == 33}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2524 proj-assert {$flags(-a) == {aaa}}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2525 proj-assert {$flags(-A) eq "AAA AAA"}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2526 proj-assert {$flags(-B) == 17}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2527 proj-assert {$flags(-M) == 3}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2528 proj-assert {$flags(-L) eq $myLambda}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2529
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2530 set argv {-touch -validate}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2531 proj-parse-flags argv flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2532 -touch "" {return "-touch"}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2533 -validate 0 1
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2534 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2535 #puts "----- argv = $argv"; parray flags
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2536 proj-assert {$flags(-touch) eq "-touch"}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2537 proj-assert {$flags(-validate) == 1}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2538 proj-assert {$argv eq {}}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2539
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2540 set argv {-i -i -i}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2541 proj-parse-flags argv flags {
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2542 -i* 0 incr
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2543 }
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2544 proj-assert {3 == $flags(-i)}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2545 }}
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2546 set ::proj__Config(verbose-assert) $__ova
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2547 unset __ova
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2548 puts "Done running [info script] self-tests."
589bab390fb4 [ThirdParty] Added sqlite3 to the third_party. MrJuneJune <me@mrjunejune.com> parents: diff changeset	2549 }; # proj- API self-tests

Mercurial

annotate third_party/sqlite3/autosetup/proj.tcl @ 279:b3b547563ec7