From 208237d6670144420c806fce7c4143898695a31a Mon Sep 17 00:00:00 2001
From: tiagosoares <tiagosoares@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 19 Dec 2005 13:52:35 +0000
Subject: [PATCH] MyDDAS: Support for cleaning some of the Relational DataBase
 junk when Yap exits

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1484 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/init.c     | 4 +++-
 H/Yapproto.h | 3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/C/init.c b/C/init.c
index a823c6a67..8ae2cf703 100644
--- a/C/init.c
+++ b/C/init.c
@@ -1333,7 +1333,9 @@ Yap_exit (int value)
   remove("PROFPREDS");
   remove("PROFILING");
 #endif
-
+#if defined MYDDAS_MYSQL || defined MYDDAS_ODBC
+  Yap_MyDDAS_delete_all_myddas_structs();
+#endif
   if (! (Yap_PrologMode & BootMode) )
     Yap_ShutdownLoadForeign();
   exit(value);
diff --git a/H/Yapproto.h b/H/Yapproto.h
index dbddc9c6a..ae1a4ea62 100644
--- a/H/Yapproto.h
+++ b/H/Yapproto.h
@@ -10,7 +10,7 @@
 * File:		Yap.proto						 *
 * mods:									 *
 * comments:	Function declarations for YAP				 *
-* version:      $Id: Yapproto.h,v 1.66 2005-12-17 03:25:39 vsc Exp $	 *
+* version:      $Id: Yapproto.h,v 1.67 2005-12-19 13:52:35 tiagosoares Exp $	 *
 *************************************************************************/
 
 /* prototype file for Yap */
@@ -329,6 +329,7 @@ void    STD_PROTO(Yap_InitMYDDAS_ODBCPreds,(void));
 void    STD_PROTO(Yap_InitBackMYDDAS_ODBCPreds,(void));
 #endif
 #if defined CUT_C && (defined MYDDAS_ODBC || defined MYDDAS_MYSQL)
+void    STD_PROTO(Yap_MyDDAS_delete_all_myddas_structs,(void));
 void    STD_PROTO(Yap_InitMYDDAS_SharedPreds,(void));
 void    STD_PROTO(Yap_InitBackMYDDAS_SharedPreds,(void));
 #endif