2017-10-13 21:58:55 +03:00
|
|
|
/*
|
|
|
|
** Read an SQLite database file and analyze its space utilization. Generate
|
|
|
|
** text on standard output.
|
|
|
|
*/
|
2017-10-13 23:14:06 +03:00
|
|
|
#define TCLSH_INIT_PROC sqlite3_analyzer_init_proc
|
2017-10-13 21:58:55 +03:00
|
|
|
#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
|
|
|
|
#define SQLITE_OMIT_LOAD_EXTENSION 1
|
2021-11-18 23:56:59 +03:00
|
|
|
#if !defined(SQLITE_AMALGAMATION) && !defined(USE_EXTERNAL_SQLITE)
|
2017-10-13 21:58:55 +03:00
|
|
|
INCLUDE sqlite3.c
|
2017-10-31 17:56:44 +03:00
|
|
|
#endif
|
2017-10-13 21:58:55 +03:00
|
|
|
INCLUDE $ROOT/src/tclsqlite.c
|
|
|
|
|
2017-10-13 23:14:06 +03:00
|
|
|
const char *sqlite3_analyzer_init_proc(Tcl_Interp *interp){
|
|
|
|
(void)interp;
|
|
|
|
return
|
2017-10-13 21:58:55 +03:00
|
|
|
BEGIN_STRING
|
2017-10-13 23:14:06 +03:00
|
|
|
INCLUDE $ROOT/tool/spaceanal.tcl
|
2017-10-13 21:58:55 +03:00
|
|
|
END_STRING
|
|
|
|
;
|
|
|
|
}
|