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
This commit is contained in:
parent
53b4a0e8f6
commit
208237d667
4
C/init.c
4
C/init.c
@ -1333,7 +1333,9 @@ Yap_exit (int value)
|
|||||||
remove("PROFPREDS");
|
remove("PROFPREDS");
|
||||||
remove("PROFILING");
|
remove("PROFILING");
|
||||||
#endif
|
#endif
|
||||||
|
#if defined MYDDAS_MYSQL || defined MYDDAS_ODBC
|
||||||
|
Yap_MyDDAS_delete_all_myddas_structs();
|
||||||
|
#endif
|
||||||
if (! (Yap_PrologMode & BootMode) )
|
if (! (Yap_PrologMode & BootMode) )
|
||||||
Yap_ShutdownLoadForeign();
|
Yap_ShutdownLoadForeign();
|
||||||
exit(value);
|
exit(value);
|
||||||
|
@ -10,7 +10,7 @@
|
|||||||
* File: Yap.proto *
|
* File: Yap.proto *
|
||||||
* mods: *
|
* mods: *
|
||||||
* comments: Function declarations for YAP *
|
* 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 */
|
/* prototype file for Yap */
|
||||||
@ -329,6 +329,7 @@ void STD_PROTO(Yap_InitMYDDAS_ODBCPreds,(void));
|
|||||||
void STD_PROTO(Yap_InitBackMYDDAS_ODBCPreds,(void));
|
void STD_PROTO(Yap_InitBackMYDDAS_ODBCPreds,(void));
|
||||||
#endif
|
#endif
|
||||||
#if defined CUT_C && (defined MYDDAS_ODBC || defined MYDDAS_MYSQL)
|
#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_InitMYDDAS_SharedPreds,(void));
|
||||||
void STD_PROTO(Yap_InitBackMYDDAS_SharedPreds,(void));
|
void STD_PROTO(Yap_InitBackMYDDAS_SharedPreds,(void));
|
||||||
#endif
|
#endif
|
||||||
|
Reference in New Issue
Block a user