diff options
| author | drh <drh@noemail.net> | 2006-03-06 23:30:51 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2006-03-06 23:30:51 +0000 |
| commit | 86b7f575558f87c69144e3834d5eb6b32b403759 (patch) | |
| tree | 2feb69c41dedd777d827206e58776f1156a8956a /src/tclsqlite.c | |
| parent | 43617e9ab974aafae00be170ec52851206830b3d (diff) | |
| download | sqlite-86b7f575558f87c69144e3834d5eb6b32b403759.tar.gz sqlite-86b7f575558f87c69144e3834d5eb6b32b403759.zip | |
Remove all reference to EXTERN from tclsqlite.c. Ticket #1687. (CVS 3127)
FossilOrigin-Name: b4d3e0d528c7d17fa3d05956a188cd4d431204b2
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 8f3a0b68a..1c077bd8d 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.153 2006/03/06 20:55:46 drh Exp $ +** $Id: tclsqlite.c,v 1.154 2006/03/06 23:30:52 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -2070,10 +2070,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. */ -#ifndef EXTERN -# define EXTERN extern -#endif -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); @@ -2081,15 +2078,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 |