database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-05 15:55:57 +03:00
Code Activity

An improved method for statically linking sqlite3_analyzer.exe using Tcl9.

Browse Source 
Enable wildcard expansion of arguments to testfiture on Windows.

FossilOrigin-Name: 9b87ea219bce5689a69efac31063b9b11928e59124c0d36194715ff7faa5129d
This commit is contained in:
drh
2024-10-11 17:02:37 +00:00
parent b23cce9a16
commit 17408fbbd8
6 changed files with 46 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/tclsqlite.c
View File

@@ -4037,6 +4037,20 @@ EXTERN int sqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp);}
static const char *tclsh_main_loop(void){
static const char zMainloop[] =
"if {[llength $argv]>=1} {\n"
#ifdef WIN32
"set new [list]\n"
"foreach arg $argv {\n"
"if {[file exists $arg]} {\n"
"lappend new $arg\n"
"} else {\n"
"foreach match [lsort [glob -nocomplain $arg]] {\n"
"lappend new $match\n"
"}\n"
"}\n"
"}\n"
"set argv $new\n"
"unset new\n"
#endif
"set argv0 [lindex $argv 0]\n"
"set argv [lrange $argv 1 end]\n"
"source $argv0\n"