Re: [sqlite] Problem with pkg_mkIndex and Tclsqlite3

[Denis Smirnov]

On Tue, Nov 23, 2004 at 07:16:06PM -0500, D. Richard Hipp wrote:
 DRH> >I am getting problem trying to create a packing index for tclsqlite3 
 DRH> We're working on getting the Makefile to do this automatically.
 DRH> Once that is done, we'll publish a tclkit for SQLite.

I create patch, that works for me.
When I test loading sqlite AND sqlite3 it works also.

-- 
wbr, Denis

http://www.sqlite.ru/


--- ./mkdll.sh.orig     2004-09-17 23:48:56 +0400
+++ ./mkdll.sh  2004-11-24 01:53:17 +0300
@@ -20,7 +20,7 @@
   $CMD
 done
 echo 'EXPORTS' >tclsqlite3.def
-echo 'Tclsqlite3_Init' >>tclsqlite3.def
+echo 'Tclsqlite_Init' >>tclsqlite3.def
 echo 'Sqlite3_Init' >>tclsqlite3.def
 i386-mingw32msvc-dllwrap \
      --def tclsqlite3.def -v --export-all \
--- ./src/tclsqlite.c.orig      2004-10-08 17:03:07 +0400
+++ ./src/tclsqlite.c   2004-11-24 01:51:39 +0300
@@ -1201,7 +1201,7 @@
   Tcl_PkgProvide(interp, "sqlite3", "3.0");
   return TCL_OK;
 }
-int Tclsqlite3_Init(Tcl_Interp *interp){
+int Tclsqlite_Init(Tcl_Interp *interp){
   Tcl_InitStubs(interp, "8.4", 0);
   Tcl_CreateObjCommand(interp, "sqlite3", (Tcl_ObjCmdProc*)DbMain, 0, 0);
   Tcl_PkgProvide(interp, "sqlite3", "3.0");
@@ -1210,7 +1210,7 @@
 int Sqlite3_SafeInit(Tcl_Interp *interp){
   return TCL_OK;
 }
-int Tclsqlite3_SafeInit(Tcl_Interp *interp){
+int Tclsqlite_SafeInit(Tcl_Interp *interp){
   return TCL_OK;
 }