Add debug support to prolog engine.

(Portage version: 2.1_rc1-r3)

4 files changed, 130 insertions, 1 deletions

diff --git a/dev-lang/qu-prolog/ChangeLog b/dev-lang/qu-prolog/ChangeLog
index 609fdec8e29a..e83fbe7bb2b5 100644
--- a/dev-lang/qu-prolog/ChangeLog
+++ b/dev-lang/qu-prolog/ChangeLog
@@ -1,6 +1,12 @@
 # ChangeLog for dev-lang/qu-prolog
 # Copyright 1999-2006 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/dev-lang/qu-prolog/ChangeLog,v 1.6 2006/05/26 09:49:36 keri Exp $
+# $Header: /var/cvsroot/gentoo-x86/dev-lang/qu-prolog/ChangeLog,v 1.7 2006/05/26 23:49:30 keri Exp $
+
+*qu-prolog-7.2-r1 (26 May 2006)
+
+  26 May 2006; Keri Harris <keri@gentoo.org>
+  +files/qu-prolog-7.2-debug.patch, +qu-prolog-7.2-r1.ebuild:
+  Add debug support to prolog engine.
 
   26 May 2006; Keri Harris <keri@gentoo.org> qu-prolog-7.1.ebuild,
   qu-prolog-7.2.ebuild:
diff --git a/dev-lang/qu-prolog/files/digest-qu-prolog-7.2-r1 b/dev-lang/qu-prolog/files/digest-qu-prolog-7.2-r1
new file mode 100644
index 000000000000..7b4a6420b286
--- /dev/null
+++ b/dev-lang/qu-prolog/files/digest-qu-prolog-7.2-r1
@@ -0,0 +1,3 @@
+MD5 09f3480df9e2c955c188a7d9ff759b51 qp7.2.tar.gz 1278184
+RMD160 aa4c902b2804d727b1886e9d3da405e0fffbe819 qp7.2.tar.gz 1278184
+SHA256 49fdd81fb6aa31c29038671a347cfae9de0371ba8663e2d978cb7c8d1fc21aa9 qp7.2.tar.gz 1278184
diff --git a/dev-lang/qu-prolog/files/qu-prolog-7.2-debug.patch b/dev-lang/qu-prolog/files/qu-prolog-7.2-debug.patch
new file mode 100644
index 000000000000..0b5ddc8c20d4
--- /dev/null
+++ b/dev-lang/qu-prolog/files/qu-prolog-7.2-debug.patch
@@ -0,0 +1,42 @@
+--- qp7.2.orig/src/io.cc	2006-04-06 14:14:01.000000000 +1200
++++ qp7.2/src/io.cc	2006-05-27 11:33:54.000000000 +1200
+@@ -941,8 +941,7 @@
+     }
+ 
+ #ifdef DEBUG_IO
+-  cerr.form("%s result = %ld FD_ISSET(%ld, ...) = %ld\n",
+-	    __FUNCTION__, result, fd, FD_ISSET(fd, &fds));
++  cerr << __FUNCTION__ << " result = " << result << "FD_ISSET(" << fd << ", ...) = " << FD_ISSET(fd, &fds) << endl;
+ #endif
+ #ifdef WIN32
+   if (result == 0 || result == 128)
+--- qp7.2.orig/src/thread_escapes.cc	2006-04-06 14:14:02.000000000 +1200
++++ qp7.2/src/thread_escapes.cc	2006-05-27 11:30:01.000000000 +1200
+@@ -220,8 +220,7 @@
+   thread_table->IncLive();
+ 
+ #ifdef DEBUG_MT
+-  printf("%s Thread %ld, %ld now live\n",
+-	    __FUNCTION__, thread->TInfo().ID(), thread_table->Live());
++  cout << __FUNCTION__ << " Thread " << thread->TInfo().ID() << ", " << thread_table->Live() << " now live" << endl;
+   //      heap.DisplayTerm(cerr, *atoms, argG);
+ #endif
+   
+@@ -544,7 +543,7 @@
+   Condition(EXITED);
+ 
+ #ifdef DEBUG_MT
+-  cerr.form("%s %ld\n", __FUNCTION__, TInfo().ID());
++  cerr << __FUNCTION__ << " " << TInfo().ID() << endl;
+ #endif
+ 
+   if (TInfo().SymbolSet())
+@@ -962,7 +961,7 @@
+   thread->Condition(EXITED);
+ 
+ #ifdef DEBUG_MT
+-  cerr.form("%s %ld\n", __FUNCTION__, thread->TInfo().ID());
++  cerr << __FUNCTION__ << " " << thread->TInfo().ID();
+ #endif
+ 
+   if (thread->TInfo().SymbolSet())
diff --git a/dev-lang/qu-prolog/qu-prolog-7.2-r1.ebuild b/dev-lang/qu-prolog/qu-prolog-7.2-r1.ebuild
new file mode 100644
index 000000000000..05f046eef346
--- /dev/null
+++ b/dev-lang/qu-prolog/qu-prolog-7.2-r1.ebuild
@@ -0,0 +1,78 @@
+# Copyright 1999-2006 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-lang/qu-prolog/qu-prolog-7.2-r1.ebuild,v 1.1 2006/05/26 23:49:30 keri Exp $
+
+inherit eutils flag-o-matic
+
+MY_P=qp${PV}
+
+DESCRIPTION="Qu-Prolog is an extended Prolog supporting quantifiers, object-variables and substitutions"
+HOMEPAGE="http://www.itee.uq.edu.au/~pjr/HomePages/QuPrologHome.html"
+SRC_URI="http://www.itee.uq.edu.au/~pjr/HomePages/QPFiles/${MY_P}.tar.gz"
+
+LICENSE="as-is"
+SLOT="0"
+KEYWORDS="~ppc ~x86"
+IUSE="debug doc qt threads"
+
+DEPEND="qt? ( =x11-libs/qt-3* )"
+
+S="${WORKDIR}"/${MY_P}
+
+src_unpack() {
+	unpack ${A}
+	cd "${S}"
+	epatch "${FILESDIR}"/${P}-portage.patch
+	epatch "${FILESDIR}"/${P}-gcc4.patch
+	epatch "${FILESDIR}"/${P}-debug.patch
+
+	sed -i	-e "s:DEBUGGING=$:DEBUGGING=\"-DDEBUG_BLOCK -DDEBUG_IO -DDEBUG_MT -DDEBUG_RETRY -DDEBUG_SCHED -DDEBUG_TIMEOUT\":" \
+		-e "s:head -1:head -n 1:" configure
+}
+
+src_compile() {
+	econf \
+		$(use_enable debug) \
+		$(use_enable threads multiple-threads) \
+		|| die "econf failed"
+	emake || die "emake failed"
+
+	if use qt ; then
+		cd "${S}"/src/xqp
+		"${QTDIR}"/bin/qmake || die "qmake xqp failed"
+		emake || die "emake xqp failed"
+	fi
+}
+
+src_install() {
+	exeinto /usr/bin
+	doexe src/qa src/qdeal src/qem src/ql
+	doexe bin/qc bin/qecat bin/qp bin/qppp
+
+	use qt && doexe src/xqp/xqp
+
+	insinto /usr/lib/${PN}/bin
+	doins prolog/qc1/qc1.qx \
+		prolog/qecat/qecat.qx \
+		prolog/qg/qg.qx \
+		prolog/qp/qp.qx
+
+	insinto /usr/lib/${PN}/library
+	doins prolog/library/*.qo
+
+	insinto /usr/lib/${PN}/compiler
+	doins prolog/compiler/*.qo
+
+	doman doc/man/man1/*.1
+
+	dodoc README
+
+	if use doc ; then
+		docinto reference-manual
+		dodoc doc/manual/*.html
+		docinto user-guide
+		dodoc doc/user/main.ps
+		docinto examples
+		dodoc examples/*.ql examples/README
+	fi
+}