diff options
| author | mistachkin <mistachkin@noemail.net> | 2013-08-15 08:06:15 +0000 |
|---|---|---|
| committer | mistachkin <mistachkin@noemail.net> | 2013-08-15 08:06:15 +0000 |
| commit | 1f28e0703fb33668db136898d03874832babf74f (patch) | |
| tree | ecbaa32eaa24fb644e15917d580b1e6a2a08bbd6 /src/tclsqlite.c | |
| parent | 3dfaf6766c93993a897c3ee38d59a4b3a42c3a30 (diff) | |
| download | sqlite-1f28e0703fb33668db136898d03874832babf74f.tar.gz sqlite-1f28e0703fb33668db136898d03874832babf74f.zip | |
Make it easy to attach a debugger the test fixture process prior to any tests being run.
FossilOrigin-Name: c23acba11bfefc019b5945cfb345f9afcf4b6242
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 6d2a51e5a..42f7bcdc3 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -41,6 +41,18 @@ #endif #include <ctype.h> +/* Used to get the current process ID */ +#if !defined(_WIN32) +# include <unistd.h> +# define GETPID getpid +#elif !defined(_WIN32_WCE) +# ifndef SQLITE_AMALGAMATION +# define WIN32_LEAN_AND_MEAN +# include <windows.h> +# endif +# define GETPID (int)GetCurrentProcessId +#endif + /* * Windows needs to know which symbols to export. Unix does not. * BUILD_sqlite should be undefined for Unix. @@ -3746,7 +3758,16 @@ static void init_all(Tcl_Interp *interp){ #define TCLSH_MAIN main /* Needed to fake out mktclapp */ int TCLSH_MAIN(int argc, char **argv){ Tcl_Interp *interp; - + +#if !defined(_WIN32_WCE) + if( getenv("BREAK") ){ + fprintf(stderr, + "attach debugger to process %d and press any key to continue.\n", + GETPID()); + fgetc(stdin); + } +#endif + /* Call sqlite3_shutdown() once before doing anything else. This is to ** test that sqlite3_shutdown() can be safely called by a process before ** sqlite3_initialize() is. */ |