Re: lug-bg: mytcl проблем

[Stanislav Lechev <firedust@xxxxxxxxxx>]

On Tuesday 04 May 2004 14:15, Martin Lazarov wrote:
> Нядявам се да ми помогнете.

opitaj towa ...

smenil sym w makefile-a tcl-a ot 8.3 na 8.4 (pone w slack > 9.0 mislq che e 
8.4)
i twoq problem beshe samo da castnesh...

Binary files mytcl-0.85/.mytcl.cc.swp and mytcl-0.85-new/.mytcl.cc.swp differ
diff -Nru mytcl-0.85/Makefile mytcl-0.85-new/Makefile
--- mytcl-0.85/Makefile	2003-01-24 07:44:30.000000000 +0200
+++ mytcl-0.85-new/Makefile	2004-05-04 20:07:14.000000000 +0300
@@ -25,15 +25,15 @@
 LD	= g++
 FLAGS	= -Wall
 
-INSTALL_DIR = /usr/lib/tcl8.3
+INSTALL_DIR = /usr/lib/tcl8.4
 
 MYSQL_LIB = -L/usr/local/mysql/lib
-MYSQL_INC = -I/usr/local/mysql/include
+MYSQL_INC = -I/usr/local/mysql/include -I/usr/local/include/mysql -I/usr/include/mysql
 
-TCL_LIB = -L/usr/lib/tcl8.3
-TCL_INC = -I/usr/include/tcl8.3
+TCL_LIB = -L/usr/lib/tcl8.4
+TCL_INC = -I/usr/include/tcl8.4
 
-LIBS = -lmysqlclient -ltcl8.3 -lz
+LIBS = -lmysqlclient -ltcl8.4 -lz
 
 CC_FLAGS = -ggdb
 LD_FLAGS = -ggdb -L/usr/local/lib $(MYSQL_LIB) $(TCL_LIB) $(LIBS)
diff -Nru mytcl-0.85/connection.cc mytcl-0.85-new/connection.cc
--- mytcl-0.85/connection.cc	2003-01-24 07:58:31.000000000 +0200
+++ mytcl-0.85-new/connection.cc	2004-05-04 19:45:15.000000000 +0300
@@ -18,6 +18,7 @@
 */
 
 #include <tcl.h>
+#include <string.h>
 
 #include "connection.h"
 
@@ -85,7 +86,7 @@
 };
 
 // -------------------------------------------------------------
-int Connection::numrows(int resHandle=0) {
+int Connection::numrows(int resHandle) {
   return((!results[resHandle])?0:mysql_num_rows(results[resHandle]));
 };
 
@@ -136,7 +137,7 @@
 };
 
 // -------------------------------------------------------------
-void Connection::endquery(int resHandle=0) {
+void Connection::endquery(int resHandle) {
   if(results[resHandle]) {
     mysql_free_result(results[resHandle]);
     results[resHandle] = NULL;
@@ -147,7 +148,7 @@
 // -------------------------------------------------------------
 // Note: A new Row is allocated. Has to be freed by calling
 // party.
-Row *Connection::fetchrow(int resHandle=0) {
+Row *Connection::fetchrow(int resHandle) {
   Row *ret;
 
   if (!results[resHandle]) {
diff -Nru mytcl-0.85/mytcl.cc mytcl-0.85-new/mytcl.cc
--- mytcl-0.85/mytcl.cc	2003-01-24 08:01:30.000000000 +0200
+++ mytcl-0.85-new/mytcl.cc	2004-05-04 20:06:25.000000000 +0300
@@ -311,7 +311,7 @@
 int Mytcl_Init(Tcl_Interp *interp) {
   Manager *s = new Manager();
 
-  Tcl_CreateCommand(interp, "sql", sql_command ,(ClientData)s, (Tcl_CmdDeleteProc *)NULL);
+  Tcl_CreateCommand(interp, "sql", (Tcl_CmdProc *)sql_command, (ClientData)s, (Tcl_CmdDeleteProc *)NULL);
        
   return((Tcl_PkgProvide(interp, "Mytcl", "1.0") == TCL_ERROR)?TCL_ERROR:TCL_OK);
 };