support for the MyDDAS interface library
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1465 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
tiagosoares
395
MYDDAS/myddas_util.c
Executable file
395
MYDDAS/myddas_util.c
Executable file
@@ -0,0 +1,395 @@
|
||||
#ifdef CUT_C
|
||||
#if defined MYDDAS_ODBC || defined MYDDAS_MYSQL
|
||||
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
#include "cut_c.h"
|
||||
#include "myddas_util.h"
|
||||
#ifdef MYDDAS_ODBC
|
||||
#include <sql.h>
|
||||
#endif /*MYDDAS_ODBC*/
|
||||
|
||||
|
||||
static MYDDAS_UTIL_CONNECTION MYDDAS_TOP = NULL;
|
||||
|
||||
struct list_preds {
|
||||
char *pred_module;
|
||||
char *pred_name;
|
||||
short pred_arity;
|
||||
struct list_preds *next;
|
||||
};
|
||||
|
||||
struct list_connection {
|
||||
void *connection;
|
||||
/*If variable env is NULL, then it's a
|
||||
MySQL connection, if not then it as the pointer
|
||||
to the ODBC enviromment variable*/
|
||||
void *odbc_enviromment;
|
||||
#ifdef MYDDAS_STATS
|
||||
/* Time spent by the DataBase Server */
|
||||
unsigned long totalTimeofDBServer;
|
||||
unsigned long totalNumberOfRows;
|
||||
#endif
|
||||
MYDDAS_UTIL_PREDICATE predicates;
|
||||
struct list_connection *next;
|
||||
};
|
||||
|
||||
|
||||
/* Prints a error message */
|
||||
static void
|
||||
myddas_util_error_message(char *,int,char *);
|
||||
|
||||
/* Search for the connection node, before of the actual*/
|
||||
static MYDDAS_UTIL_CONNECTION
|
||||
myddas_util_search_previous_connection(void *);
|
||||
/* Initializes a new connection node for the MYDDAS list*/
|
||||
static MYDDAS_UTIL_CONNECTION
|
||||
myddas_util_initialize_connection(void *,void *, MYDDAS_UTIL_CONNECTION);
|
||||
|
||||
/* Initializes a new predicate node for the MYDDAS list */
|
||||
static MYDDAS_UTIL_PREDICATE
|
||||
myddas_util_initialize_predicate(char *, int,char *);
|
||||
/* Search for the predicate in the given predicate list*/
|
||||
static MYDDAS_UTIL_PREDICATE
|
||||
myddas_util_find_predicate(char *, int , char *, MYDDAS_UTIL_PREDICATE);
|
||||
/* Add's a predicate node to the given predicate list*/
|
||||
static void
|
||||
myddas_util_add_predicate_node(MYDDAS_UTIL_PREDICATE, MYDDAS_UTIL_PREDICATE *);
|
||||
/* Deletes a predicate list */
|
||||
static void
|
||||
myddas_util_delete_predicate_list(MYDDAS_UTIL_PREDICATE);
|
||||
|
||||
#ifdef DEBUG
|
||||
void check_int(){
|
||||
int i;
|
||||
MYDDAS_UTIL_PREDICATE pred = NULL;
|
||||
MYDDAS_UTIL_CONNECTION top = MYDDAS_TOP;
|
||||
for (i=1 ; top!=NULL ; top=top->next)
|
||||
{
|
||||
printf ("***************\n");
|
||||
printf ("===== top =====\n");
|
||||
printf ("======= %p =====\n",top);
|
||||
printf ("CONN: = %p =====\n",top->connection);
|
||||
printf ("ENV : = %p =====\n",top->odbc_enviromment);
|
||||
printf ("PRED: = %p =====\n",top->predicates);
|
||||
printf ("======= %p =====\n",top->next);
|
||||
if (top->predicates != NULL)
|
||||
{
|
||||
printf ("\t******\n");
|
||||
printf ("\t===== PREDICADOS =====\n");
|
||||
for (pred = top->predicates ; pred != NULL ; pred = pred->next)
|
||||
{
|
||||
printf ("\t--------------\n");
|
||||
printf ("\t===== %p =====\n",pred);
|
||||
printf ("\t===== %s =====\n",pred->pred_name);
|
||||
printf ("\t===== %d =====\n",pred->pred_arity);
|
||||
printf ("\t===== %s =====\n",pred->pred_module);
|
||||
printf ("\t===== %p =====\n",pred->next);
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
return;
|
||||
}
|
||||
#endif
|
||||
|
||||
#ifdef MYDDAS_STATS
|
||||
int
|
||||
myddas_util_get_conn_total_rows(MYDDAS_UTIL_CONNECTION node){
|
||||
return node->totalNumberOfRows;
|
||||
}
|
||||
void
|
||||
myddas_util_set_conn_total_rows(MYDDAS_UTIL_CONNECTION node ,
|
||||
int totalRows){
|
||||
node->totalNumberOfRows = totalRows;
|
||||
}
|
||||
|
||||
unsigned long
|
||||
myddas_util_get_conn_total_time_DBServer(MYDDAS_UTIL_CONNECTION node){
|
||||
return node->totalTimeofDBServer;
|
||||
}
|
||||
void
|
||||
myddas_util_set_conn_total_time_DBServer(MYDDAS_UTIL_CONNECTION node ,
|
||||
unsigned long totaltime){
|
||||
node->totalTimeofDBServer = totaltime;
|
||||
}
|
||||
|
||||
unsigned long
|
||||
myddas_current_time(void) {
|
||||
/* to get time as Yap */
|
||||
/*
|
||||
double now, interval;
|
||||
cputime_interval(&now, &interval);
|
||||
return ((realtime)now);
|
||||
*/
|
||||
/*Fine grained time
|
||||
tv_usec -> microseconds [0-999999]
|
||||
*/
|
||||
/*Fine grained time
|
||||
sec -> [0-999]
|
||||
tv_usec -> microseconds [0-99999] -> last digit is negleted
|
||||
-> max execution time: 16minutes
|
||||
milliseconds -> s/1000
|
||||
microseconds -> s/1000000
|
||||
*/
|
||||
struct timeval tempo;
|
||||
if (!gettimeofday(&tempo, NULL))
|
||||
//returns time in microseconds
|
||||
return (tempo.tv_sec %1000)*1000000+tempo.tv_usec;
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
#endif
|
||||
|
||||
void *
|
||||
myddas_util_get_pred_next(void *pointer){
|
||||
MYDDAS_UTIL_PREDICATE temp = (MYDDAS_UTIL_PREDICATE) pointer;
|
||||
return (void *) (temp->next);
|
||||
}
|
||||
|
||||
int
|
||||
myddas_util_get_pred_arity(void *pointer){
|
||||
MYDDAS_UTIL_PREDICATE temp = (MYDDAS_UTIL_PREDICATE) pointer;
|
||||
return temp->pred_arity;
|
||||
}
|
||||
|
||||
char *
|
||||
myddas_util_get_pred_name(void *pointer){
|
||||
MYDDAS_UTIL_PREDICATE temp = (MYDDAS_UTIL_PREDICATE) pointer;
|
||||
return temp->pred_name;
|
||||
}
|
||||
|
||||
void *
|
||||
myddas_util_get_list_pred(MYDDAS_UTIL_CONNECTION node){
|
||||
return (void *)(node->predicates);
|
||||
}
|
||||
|
||||
MYDDAS_UTIL_PREDICATE
|
||||
myddas_util_search_predicate(char *pred_name, int pred_arity,
|
||||
char *pred_module){
|
||||
MYDDAS_UTIL_PREDICATE pred=NULL;
|
||||
MYDDAS_UTIL_CONNECTION top = MYDDAS_TOP;
|
||||
|
||||
for (;top!=NULL;top=top->next)
|
||||
{
|
||||
if ((pred=myddas_util_find_predicate(pred_name,pred_arity,pred_module,top->predicates)))
|
||||
return pred;
|
||||
}
|
||||
return NULL;
|
||||
}
|
||||
|
||||
/* When using this function, we must guarante that this predicate
|
||||
it's unique */
|
||||
MYDDAS_UTIL_CONNECTION
|
||||
myddas_util_add_predicate(char *pred_name, int pred_arity,
|
||||
char *pred_module, void *conn){
|
||||
|
||||
MYDDAS_UTIL_CONNECTION node_conn =
|
||||
myddas_util_search_connection(conn);
|
||||
|
||||
MYDDAS_UTIL_PREDICATE new =
|
||||
myddas_util_initialize_predicate(pred_name,pred_arity,pred_module);
|
||||
|
||||
if (new == NULL)
|
||||
{
|
||||
myddas_util_error_message("Could not initialize predicate node",__LINE__,__FILE__);
|
||||
return NULL;
|
||||
}
|
||||
|
||||
myddas_util_add_predicate_node(new,&(node_conn->predicates));
|
||||
|
||||
return node_conn;
|
||||
}
|
||||
|
||||
void
|
||||
myddas_util_delete_connection(void *conn){
|
||||
|
||||
MYDDAS_UTIL_CONNECTION before_to_delete = NULL;
|
||||
MYDDAS_UTIL_CONNECTION to_delete =
|
||||
myddas_util_search_connection(conn);
|
||||
|
||||
if (to_delete == NULL)
|
||||
return;
|
||||
else
|
||||
{
|
||||
/*Removes the predicates list*/
|
||||
myddas_util_delete_predicate_list(to_delete->predicates);
|
||||
|
||||
if (to_delete == MYDDAS_TOP)
|
||||
{
|
||||
MYDDAS_TOP= to_delete->next;
|
||||
free(to_delete);
|
||||
return;
|
||||
}
|
||||
else
|
||||
{
|
||||
before_to_delete =
|
||||
myddas_util_search_previous_connection(conn);
|
||||
before_to_delete->next=to_delete->next;
|
||||
free(to_delete);
|
||||
return;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
MYDDAS_UTIL_CONNECTION
|
||||
myddas_util_search_connection(void *conn){
|
||||
MYDDAS_UTIL_CONNECTION list = MYDDAS_TOP;
|
||||
|
||||
for (;list!=NULL;list=list->next)
|
||||
if (list->connection == conn)
|
||||
return list;
|
||||
return NULL;
|
||||
}
|
||||
|
||||
MYDDAS_UTIL_CONNECTION
|
||||
myddas_util_add_connection(void *conn, void *enviromment){
|
||||
|
||||
MYDDAS_UTIL_CONNECTION node=NULL;
|
||||
MYDDAS_UTIL_CONNECTION temp=NULL;
|
||||
|
||||
if ((node = myddas_util_search_connection(conn)) != NULL)
|
||||
{
|
||||
return node;
|
||||
}
|
||||
|
||||
if (MYDDAS_TOP!=NULL)
|
||||
{
|
||||
//put the new connection node on the top of the list
|
||||
temp = myddas_util_initialize_connection(conn,enviromment,MYDDAS_TOP);
|
||||
if (temp == NULL)
|
||||
{
|
||||
myddas_util_error_message("Could not initialize connection node",__LINE__,__FILE__);
|
||||
return NULL;
|
||||
}
|
||||
MYDDAS_TOP = temp;
|
||||
return MYDDAS_TOP;
|
||||
}
|
||||
else //The MYDDAS list is empty
|
||||
{
|
||||
temp = myddas_util_initialize_connection(conn,enviromment,NULL);
|
||||
if (temp == NULL)
|
||||
{
|
||||
myddas_util_error_message("Could not initialize connection node",__LINE__,__FILE__);
|
||||
return NULL;
|
||||
}
|
||||
MYDDAS_TOP = temp;
|
||||
return MYDDAS_TOP;
|
||||
}
|
||||
}
|
||||
|
||||
#ifdef MYDDAS_ODBC
|
||||
/* This function searches the MYDDAS list for odbc connections
|
||||
If there isn't any, it returns NULL. This is a nice way to know
|
||||
if there is any odbc connections left on the list*/
|
||||
SQLHENV
|
||||
myddas_util_get_odbc_enviromment(SQLHDBC connection){
|
||||
MYDDAS_UTIL_CONNECTION top = MYDDAS_TOP;
|
||||
|
||||
for (;top != NULL;top=top->next)
|
||||
if (top->connection == ((void *)connection))
|
||||
return top->odbc_enviromment;
|
||||
|
||||
return NULL;
|
||||
}
|
||||
#endif
|
||||
|
||||
static
|
||||
void myddas_util_error_message(char *message,int line,char *file){
|
||||
#ifdef DEBUG
|
||||
printf ("ERROR: %s at line %d in file %s\n",message,line,file);
|
||||
#else
|
||||
printf ("ERROR: %s\n",message);
|
||||
#endif
|
||||
}
|
||||
|
||||
static MYDDAS_UTIL_CONNECTION
|
||||
myddas_util_search_previous_connection(void *conn){
|
||||
MYDDAS_UTIL_CONNECTION top = MYDDAS_TOP;
|
||||
for(;top->next!=NULL;top=top->next)
|
||||
if (top->next->connection == conn)
|
||||
return top;
|
||||
return NULL;
|
||||
}
|
||||
|
||||
static MYDDAS_UTIL_CONNECTION
|
||||
myddas_util_initialize_connection(void *conn,void *enviromment,
|
||||
MYDDAS_UTIL_CONNECTION next){
|
||||
|
||||
MYDDAS_UTIL_CONNECTION new = malloc (sizeof(struct list_connection));
|
||||
if (new == NULL)
|
||||
{
|
||||
return NULL;
|
||||
}
|
||||
new->predicates=NULL;
|
||||
new->connection=conn;
|
||||
new->odbc_enviromment=enviromment;
|
||||
new->next=next;
|
||||
#ifdef MYDDAS_STATS
|
||||
new->totalNumberOfRows=0;
|
||||
new->totalTimeofDBServer=0;
|
||||
#endif
|
||||
return new;
|
||||
}
|
||||
|
||||
static MYDDAS_UTIL_PREDICATE
|
||||
myddas_util_initialize_predicate(char *pred_name, int pred_arity,
|
||||
char *pred_module){
|
||||
MYDDAS_UTIL_PREDICATE new = malloc (sizeof(struct list_preds));
|
||||
if (new == NULL)
|
||||
{
|
||||
return NULL;
|
||||
}
|
||||
new->pred_name=pred_name;
|
||||
new->pred_arity=pred_arity;
|
||||
new->pred_module=pred_module;
|
||||
new->next=NULL;
|
||||
return new;
|
||||
}
|
||||
|
||||
static MYDDAS_UTIL_PREDICATE
|
||||
myddas_util_find_predicate(char *pred_name, int pred_arity,
|
||||
char *pred_module, MYDDAS_UTIL_PREDICATE list){
|
||||
|
||||
for(;list != NULL ; list = list->next)
|
||||
if (pred_arity == list->pred_arity &&
|
||||
!strcmp(pred_name,list->pred_name) &&
|
||||
!strcmp(pred_module,list->pred_module))
|
||||
return list;
|
||||
|
||||
return NULL;
|
||||
}
|
||||
|
||||
static void
|
||||
myddas_util_add_predicate_node(MYDDAS_UTIL_PREDICATE new,
|
||||
MYDDAS_UTIL_PREDICATE *list){
|
||||
|
||||
MYDDAS_UTIL_PREDICATE temp = *list;
|
||||
*list = new;
|
||||
new->next = temp;
|
||||
|
||||
}
|
||||
|
||||
/* DUVIDA: nesta estrutura (list_preds) existe um char* que <20> atribuido
|
||||
por uma funcao do YAP (YAP_AtomOfTerm) na funcao c_db_add_preds.
|
||||
Temos que fazer free deste apontador?*/
|
||||
static void
|
||||
myddas_util_delete_predicate_list(MYDDAS_UTIL_PREDICATE preds_list){
|
||||
MYDDAS_UTIL_PREDICATE to_delete = NULL;
|
||||
|
||||
for (;preds_list != NULL;)
|
||||
{
|
||||
to_delete = preds_list;
|
||||
preds_list = preds_list->next;
|
||||
|
||||
free(to_delete);
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
#endif /*defined MYDDAS_ODBC || defined MYDDAS_MYSQL*/
|
||||
#endif /*CUT_C*/
|
||||
|
||||
Reference in New Issue
Block a user