MYDDAS: MYDDAS version boot message

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1644 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2006-05-22 16:23:49 +00:00
parent 21b2a88281
commit 40178a0285
2 changed files with 10 additions and 4 deletions
--- a/C/init.c
+++ b/C/init.c
@@ -1264,7 +1264,11 @@ static void
 InitVersion(void)
 {
  Yap_PutValue(Yap_FullLookupAtom("$version_name"),
-	   MkAtomTerm(Yap_LookupAtom(YAP_VERSION)));
+	       MkAtomTerm(Yap_LookupAtom(YAP_VERSION)));
+#if defined MYDDAS_MYSQL || defined MYDDAS_ODBC
+  Yap_PutValue(Yap_FullLookupAtom("$myddas_version_name"),
+	       MkAtomTerm(Yap_LookupAtom(MYDDAS_VERSION)));
+#endif  
 }