MYDDAS is too closely integreated to be a package.

2009-02-16 17:15:21 +00:00
parent 0f58cf8029
commit e5d11cfa16
15 changed files with 4 additions and 3 deletions
--- a/MYDDAS/myddas_initialization.c
+++ b/MYDDAS/myddas_initialization.c
@@ -0,0 +1,112 @@
+#if defined MYDDAS_ODBC || defined MYDDAS_MYSQL
+
+#include "Yap.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include "myddas.h"
+#include "myddas_structs.h"
+#ifdef MYDDAS_STATS
+#include "myddas_statistics.h"
+#endif
+
+MYDDAS_GLOBAL
+myddas_init_initialize_myddas(void){
+  MYDDAS_GLOBAL global = NULL;
+  
+  /* We cannot call MYDDAS_MALLOC were because the global
+     register isn't yet initialized */
+  global = (MYDDAS_GLOBAL) malloc (sizeof(struct myddas_global));
+#ifdef DEBUG
+  printf ("MALLOC %p %s %d\n",global,__FILE__,__LINE__);
+#endif  
+  global->myddas_top_connections = NULL;
+#ifdef MYDDAS_TOP_LEVEL
+  global->myddas_top_level_connection = NULL;
+#endif
+#ifdef MYDDAS_STATS
+  global->myddas_statistics = (MYDDAS_GLOBAL_STATS) malloc (sizeof(struct myddas_global_stats));
+#ifdef DEBUG
+  printf ("MALLOC %p %s %d\n",global->myddas_statistics,__FILE__,__LINE__);
+#endif  
+  global->myddas_statistics->stats = NULL;
+#endif
+
+#ifdef DEBUG
+  /* We first malloc for this struct and the stats struct */
+#ifdef MYDDAS_STATS
+  global->malloc_called = 2;
+  global->memory_allocated = sizeof(struct myddas_global) + sizeof(struct myddas_global_stats);
+#else
+  global->malloc_called = 1;
+  global->memory_allocated = sizeof(struct myddas_global);
+#endif /* MYDDAS_STATS */
+  global->free_called = 0;
+  global->memory_freed = 0;
+#endif
+  
+  return global;
+}
+
+/* Inserts the new node on the front of the list */
+MYDDAS_UTIL_CONNECTION 
+myddas_init_initialize_connection(void *conn,void *enviromment,
+				  MYDDAS_UTIL_CONNECTION next){
+  
+  MYDDAS_UTIL_CONNECTION new = NULL;
+  MYDDAS_MALLOC(new,struct myddas_list_connection);
+  
+  if (new == NULL)
+    {
+      return NULL;
+    }
+  new->predicates=NULL;
+  new->connection=conn;
+  new->odbc_enviromment=enviromment;
+
+  /* It saves n queries, doing at once n+1 queries */
+  new->total_number_queries=0; //Default
+  new->actual_number_queries=0;
+  new->queries = NULL;
+
+  /* List integrity */
+  new->next=next;
+  new->previous=NULL;
+  /* If there's already at least one node 
+   on the list */
+  if (next != NULL)
+    next->previous=new;
+  
+#ifdef MYDDAS_STATS
+  new->stats = NULL;
+  new->stats = myddas_stats_initialize_connection_stats();
+#endif
+  return new;
+}
+
+MYDDAS_UTIL_PREDICATE 
+myddas_init_initialize_predicate(char *pred_name, int pred_arity,
+				 char *pred_module, MYDDAS_UTIL_PREDICATE next){
+  
+  MYDDAS_UTIL_PREDICATE new = NULL;
+  MYDDAS_MALLOC(new,struct myddas_list_preds);
+  
+  if (new == NULL) 
+    {
+      return NULL;
+    }
+  new->pred_name=pred_name;
+  new->pred_arity=pred_arity;
+  new->pred_module=pred_module;
+  
+  /* List integrity */
+  new->next=next;
+  new->previous=NULL;
+  /* If there's already at least one node 
+     on the list */
+  if (next != NULL)
+    next->previous=new;
+  
+  return new;
+}
+
+#endif