52 строки
1.5 KiB
C
52 строки
1.5 KiB
C
|
/*
|
||
|
|
** This is the source code to a "tclsh" that has SQLite built-in.
|
||
|
|
**
|
||
|
|
** The startup script is located as follows:
|
||
|
|
**
|
||
|
|
** (1) Open the executable as an appended SQLite database and try to
|
||
|
|
** read the startup script out of that database.
|
||
|
|
**
|
||
|
|
** (2) If the first argument is a readable file, try to open that file
|
||
|
|
** as an SQLite database and read the startup script out of that
|
||
|
|
** database.
|
||
|
|
**
|
||
|
|
** (3) If the first argument is a readable file with a ".tcl" extension,
|
||
|
|
** then try to run that script directly.
|
||
|
|
**
|
||
|
|
** If none of the above steps work, then the program runs as an interactive
|
||
|
|
** tclsh.
|
||
|
|
*/
|
||
|
|
#define TCLSH_INIT_PROC sqlite3_tclapp_init_proc
|
||
|
|
#define SQLITE_ENABLE_DBSTAT_VTAB 1
|
||
|
|
#undef SQLITE_THREADSAFE
|
||
|
|
#define SQLITE_THREADSAFE 0
|
||
|
|
#undef SQLITE_ENABLE_COLUMN_METADATA
|
||
|
|
#define SQLITE_OMIT_DECLTYPE 1
|
||
|
|
#define SQLITE_OMIT_DEPRECATED 1
|
||
|
|
#define SQLITE_OMIT_PROGRESS_CALLBACK 1
|
||
|
|
#define SQLITE_OMIT_SHARED_CACHE 1
|
||
|
|
#define SQLITE_DEFAULT_MEMSTATUS 0
|
||
|
|
#define SQLITE_MAX_EXPR_DEPTH 0
|
||
|
|
INCLUDE sqlite3.c
|
||
|
|
INCLUDE $ROOT/ext/misc/appendvfs.c
|
||
|
|
#ifdef SQLITE_HAVE_ZLIB
|
||
|
|
INCLUDE $ROOT/ext/misc/zipfile.c
|
||
|
|
INCLUDE $ROOT/ext/misc/sqlar.c
|
||
|
|
#endif
|
||
|
|
INCLUDE $ROOT/src/tclsqlite.c
|
||
|
|
|
||
|
|
const char *sqlite3_tclapp_init_proc(Tcl_Interp *interp){
|
||
|
|
(void)interp;
|
||
|
|
sqlite3_appendvfs_init(0,0,0);
|
||
|
|
#ifdef SQLITE_HAVE_ZLIB
|
||
|
|
sqlite3_auto_extension((void(*)(void))sqlite3_sqlar_init);
|
||
|
|
sqlite3_auto_extension((void(*)(void))sqlite3_zipfile_init);
|
||
|
|
#endif
|
||
|
|
|
||
|
|
return
|
||
|
|
BEGIN_STRING
|
||
|
|
INCLUDE $ROOT/tool/sqltclsh.tcl
|
||
|
|
END_STRING
|
||
|
|
;
|
||
|
|
}
|