diff options
| author | drh <drh@noemail.net> | 2006-07-10 21:15:51 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2006-07-10 21:15:51 +0000 |
| commit | ad6e1370b5a679207848b1cd28ca6b9020997c71 (patch) | |
| tree | 6f95b6951d0093f5f77ad14378603fac6162eeaf /src/tclsqlite.c | |
| parent | a43fa227710db694473ca2914d0c6ab5d256683f (diff) | |
| download | sqlite-ad6e1370b5a679207848b1cd28ca6b9020997c71.tar.gz sqlite-ad6e1370b5a679207848b1cd28ca6b9020997c71.zip | |
Back out the changes of ticket #1687 since they broken the ActiveTcl build. (CVS 3326)
FossilOrigin-Name: b10d4220dc12728933eae1fcdcebd88a5f92e3a7
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 26 |
1 files changed, 17 insertions, 9 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 1f4c5901f..f780d9fac 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.162 2006/07/06 17:08:48 drh Exp $ +** $Id: tclsqlite.c,v 1.163 2006/07/10 21:15:52 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -23,6 +23,14 @@ #include <assert.h> #include <ctype.h> +/* + * Windows needs to know which symbols to export. Unix does not. + * BUILD_sqlite should be undefined for Unix. + */ +#ifdef BUILD_sqlite +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLEXPORT +#endif /* BUILD_sqlite */ #define NUM_PREPARED_STMTS 10 #define MAX_PREPARED_STMTS 100 @@ -2094,7 +2102,7 @@ static int DbMain(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ ** used to open a new SQLite database. See the DbMain() routine above ** for additional information. */ -extern int Sqlite3_Init(Tcl_Interp *interp){ +EXTERN int Sqlite3_Init(Tcl_Interp *interp){ Tcl_InitStubs(interp, "8.4", 0); Tcl_CreateObjCommand(interp, "sqlite3", (Tcl_ObjCmdProc*)DbMain, 0, 0); Tcl_PkgProvide(interp, "sqlite3", PACKAGE_VERSION); @@ -2102,15 +2110,15 @@ extern int Sqlite3_Init(Tcl_Interp *interp){ Tcl_PkgProvide(interp, "sqlite", PACKAGE_VERSION); return TCL_OK; } -extern int Tclsqlite3_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } -extern int Sqlite3_SafeInit(Tcl_Interp *interp){ return TCL_OK; } -extern int Tclsqlite3_SafeInit(Tcl_Interp *interp){ return TCL_OK; } +EXTERN int Tclsqlite3_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } +EXTERN int Sqlite3_SafeInit(Tcl_Interp *interp){ return TCL_OK; } +EXTERN int Tclsqlite3_SafeInit(Tcl_Interp *interp){ return TCL_OK; } #ifndef SQLITE_3_SUFFIX_ONLY -extern int Sqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } -extern int Tclsqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } -extern int Sqlite_SafeInit(Tcl_Interp *interp){ return TCL_OK; } -extern int Tclsqlite_SafeInit(Tcl_Interp *interp){ return TCL_OK; } +EXTERN int Sqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } +EXTERN int Tclsqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } +EXTERN int Sqlite_SafeInit(Tcl_Interp *interp){ return TCL_OK; } +EXTERN int Tclsqlite_SafeInit(Tcl_Interp *interp){ return TCL_OK; } #endif #ifdef TCLSH |