new ebuild from bug #14010

6 files changed, 116 insertions, 0 deletions

diff --git a/dev-tcltk/tcl-sql/ChangeLog b/dev-tcltk/tcl-sql/ChangeLog
new file mode 100644
index 000000000000..929a7a5105fe
--- /dev/null
+++ b/dev-tcltk/tcl-sql/ChangeLog
@@ -0,0 +1,9 @@
+# ChangeLog for dev-tcltk/tcl-sql
+# Copyright 1999-2004 Gentoo Foundation; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/dev-tcltk/tcl-sql/ChangeLog,v 1.1 2004/08/08 15:10:00 cardoe Exp $
+
+  07 Aug 2004; Doug Goldstein <cardoe@gentoo.org> tcl-sql-20000114.ebuild:
+  Initial addition to portage
+  bug #14010.
+  Ebuild from Will Buckner
+
diff --git a/dev-tcltk/tcl-sql/Manifest b/dev-tcltk/tcl-sql/Manifest
new file mode 100644
index 000000000000..f1edaf87c3b0
--- /dev/null
+++ b/dev-tcltk/tcl-sql/Manifest
@@ -0,0 +1,3 @@
+MD5 49e4bbfd87916ff79f0e061fcbb56811 tcl-sql-20000114.ebuild 980
+MD5 92a67e32de43488c95aa80cd75ae0eb0 ChangeLog 265
+MD5 3c7fbfa72e44fb805bd735e62cc67a7a files/digest-tcl-sql-20000114 65
diff --git a/dev-tcltk/tcl-sql/files/digest-tcl-sql-20000114 b/dev-tcltk/tcl-sql/files/digest-tcl-sql-20000114
new file mode 100644
index 000000000000..acc3b5e36967
--- /dev/null
+++ b/dev-tcltk/tcl-sql/files/digest-tcl-sql-20000114
@@ -0,0 +1 @@
+MD5 253ad832d0726c6c7a6d274499c1b52c tcl-sql-20000114.tgz 159365
diff --git a/dev-tcltk/tcl-sql/files/fix-const.patch b/dev-tcltk/tcl-sql/files/fix-const.patch
new file mode 100644
index 000000000000..d5dcf9024acb
--- /dev/null
+++ b/dev-tcltk/tcl-sql/files/fix-const.patch
@@ -0,0 +1,55 @@
+--- sql.cc.bak	2004-08-08 14:46:45.967588496 +0800
++++ sql.cc	2004-08-08 14:51:06.629961792 +0800
+@@ -122,7 +122,7 @@ int fetchrowCmd(Tcl_Interp *interp, Sql_
+ 
+ // -------------------------------------------------------------
+ //
+-int SqlCmd(ClientData clientData, Tcl_Interp *interp, int argc, char **argv) 
++int SqlCmd(ClientData clientData, Tcl_Interp *interp, int argc, const char **argv) 
+ {
+ 	if (argc == 1) {
+ 		Tcl_SetResult(interp, "Usage: sql command ?handle?", TCL_STATIC);
+@@ -137,7 +137,7 @@ int SqlCmd(ClientData clientData, Tcl_In
+ 
+ 	// -----------------------------------
+ 	if (strcmp(argv[1], "connect")==0) {
+-		c = mgr->connect(argc-2, argv+2);
++		c = mgr->connect(argc-2, (char **)(argv+2));
+ 		if (c < 0) {
+ 			char *basemsg = "Unable to Connect: ";
+ 			char *errmsg = mgr->getErrorMsg();
+@@ -160,7 +160,7 @@ int SqlCmd(ClientData clientData, Tcl_In
+ 		if (argc <= 2) {
+ 			Tcl_SetResult(interp, "Usage:\nsql command handle", TCL_STATIC);
+ 			return TCL_ERROR;
+-		} else if ((connid = stripPrefix(argv[2], HANDLE_PREFIX)) < 0) {
++		} else if ((connid = stripPrefix((char *)argv[2], HANDLE_PREFIX)) < 0) {
+ 			Tcl_AppendResult(interp, "sql: Invalid handle: ", argv[2], NULL);
+ 			return TCL_ERROR;
+ 		} else if (!mgr->inUse(connid)) {
+@@ -172,19 +172,19 @@ int SqlCmd(ClientData clientData, Tcl_In
+ 
+ 		// take care of the command:
+ 		if (strcmp(argv[1], "exec") == 0) {
+-			res = execCmd(interp, conn, argv[3]);
++			res = execCmd(interp, conn, (char *)argv[3]);
+ 		} else if (strcmp(argv[1], "query") == 0) {
+-			res = queryCmd(interp, conn, argv[3]);
++			res = queryCmd(interp, conn, (char *)argv[3]);
+ 		} else if (strcmp(argv[1], "endquery") == 0) {
+-			res = endqueryCmd(interp, conn, argv[3]);
++			res = endqueryCmd(interp, conn, (char *)argv[3]);
+ 		} else if (strcmp(argv[1], "fetchrow") == 0) {
+-			res = fetchrowCmd(interp, conn, argv[3]);
++			res = fetchrowCmd(interp, conn, (char *)argv[3]);
+ 		} else if (strcmp(argv[1], "numrows") == 0) {
+-			res = numrowsCmd(interp, conn, argv[3]);
++			res = numrowsCmd(interp, conn, (char *)argv[3]);
+ 		} else if (strcmp(argv[1], "disconnect") == 0) {
+ 			res = disconnectCmd(interp, mgr, connid);
+ 		} else if (strcmp(argv[1], "selectdb")==0) {
+-			res = selectdbCmd(interp, conn, argv[3]);
++			res = selectdbCmd(interp, conn, (char *)argv[3]);
+ 		} else {
+ 			Tcl_AppendResult(interp, "sql: unknown sql command: ", argv[1], NULL);
+ 			return TCL_ERROR;
diff --git a/dev-tcltk/tcl-sql/metadata.xml b/dev-tcltk/tcl-sql/metadata.xml
new file mode 100644
index 000000000000..04519261ca8d
--- /dev/null
+++ b/dev-tcltk/tcl-sql/metadata.xml
@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd">
+<pkgmetadata>
+<herd>tcltk</herd>
+<maintainer>
+  <email>tcltk@gentoo.org</email>
+  <description>TCL / TK herd</description>
+</maintainer>
+</pkgmetadata>
diff --git a/dev-tcltk/tcl-sql/tcl-sql-20000114.ebuild b/dev-tcltk/tcl-sql/tcl-sql-20000114.ebuild
new file mode 100644
index 000000000000..8e8819386bb0
--- /dev/null
+++ b/dev-tcltk/tcl-sql/tcl-sql-20000114.ebuild
@@ -0,0 +1,39 @@
+# Copyright 1999-2004 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-tcltk/tcl-sql/tcl-sql-20000114.ebuild,v 1.1 2004/08/08 15:10:00 cardoe Exp $
+
+inherit eutils
+
+DESCRIPTION="A generic Tcl interface to SQL databases."
+HOMEPAGE="http://www.parand.com/tcl-sql/"
+SRC_URI="mirror://sourceforge/tcl-sql/${PN}-${PV}.tgz"
+LICENSE="BSD"
+SLOT="0"
+KEYWORDS="~x86"
+IUSE=""
+
+DEPEND="dev-lang/tcl
+	dev-db/mysql"
+
+S=${WORKDIR}/${PN}
+
+src_compile() {
+	chmod +w sql-mysql.cc
+
+	epatch ${FILESDIR}/fix-const.patch
+
+	sed -i -e 's|(int resHandle=0)|(int resHandle)|g' sql-mysql.cc || die "sed failed"
+	sed -i -e 's|char \*msg = mysql_error|char \*msg = (char *)mysql_error|' sql-mysql.cc || die "sed failed"
+	echo '#define USE_OLD_FUNCTIONS' > sql-mysql.cc.temp
+	cat sql-mysql.cc >> sql-mysql.cc.temp
+	mv sql-mysql.cc.temp sql-mysql.cc
+	emake || die
+}
+
+src_install() {
+	mkdir -p ${D}/usr/lib/tcl-sql
+	cp sql.so ${D}/usr/lib/tcl-sql/libtcl-sql.so
+	dodoc CHANGES.txt CODE_DESCRIPTION.txt LICENSE.txt docs/sample.full.txt docs/sample.simple.txt
+	dohtml README.html docs/api.html
+}
+