1 files changed, 368 insertions, 0 deletions

diff --git a/pathologist/src/pathologist/edb_api.c b/pathologist/src/pathologist/edb_api.c
new file mode 100644
index 0000000..5af26de
--- /dev/null
+++ b/pathologist/src/pathologist/edb_api.c
@@ -0,0 +1,368 @@
+/**
+ * @file monkey/edb_api.c
+ * @brief Monkey API for accessing the Expression Database (edb)
+ */
+
+#include "monkey_common.h"
+#include <stdlib.h>
+#include <stdio.h>
+#include <sqlite3.h>
+#include "pathologist_edb.h"
+
+
+/**
+ * Context for Database connection and Expressions
+ */
+struct MONKEY_EDB_Context
+{
+  /**
+   *  Database connection 
+   */
+  sqlite3 *db_handle;
+};
+
+
+/**
+ * Establish a connection to the Expression Database
+ *
+ * @param db_file_name path the Expression Database file
+ * @return context to use for Accessing the Expression Database, NULL on error
+ */
+struct MONKEY_EDB_Context *
+MONKEY_EDB_connect (const char *db_file_name)
+{
+  int err;
+  struct MONKEY_EDB_Context *ctxt =
+    MONKEY_malloc (sizeof (struct MONKEY_EDB_Context));
+
+  err = sqlite3_open (db_file_name, &ctxt->db_handle);
+  if (err)
+    {
+      fprintf(stderr,
+                  "Cannot open Expression Database. `%s'\n",
+                  sqlite3_errmsg (ctxt->db_handle));
+      return NULL;
+    }
+  return ctxt;
+}
+
+
+/**
+ * Disconnect from Database, and cleanup resources
+ *
+ * @param context context containing the Expression Database handle
+ * @return MONKEY_OK on success, MONKEY_NO on failure
+ */
+int
+MONKEY_EDB_disconnect (struct MONKEY_EDB_Context *cntxt)
+{
+  sqlite3_close (cntxt->db_handle);
+  MONKEY_free (cntxt);
+  return MONKEY_OK;
+}
+
+
+
+int
+MONKEY_EDB_get_file_names (struct MONKEY_EDB_Context *cntxt,
+                                  MONKEY_FileIterator iter,
+                                  void *iter_cls)
+{
+  int err;
+  char *errMsg;
+  char *query;
+
+  if (MONKEY_asprintf (&query, "select distinct file_name from Expression") == -1)
+    {
+      fprintf(stderr,
+                  "Memory allocation problem occurred during creating database query!\n");
+      return MONKEY_NO;
+    }
+
+  err = sqlite3_exec (cntxt->db_handle, query, iter, iter_cls, &errMsg);
+  if (err)
+    {
+      fprintf(stderr,
+                  "Error occurred while executing Database query. `%s'",
+                  errMsg);
+      return MONKEY_NO;
+    }
+  return MONKEY_OK;
+}
+
+
+
+int
+MONKEY_EDB_get_all_outer_scopes(struct MONKEY_EDB_Context
+                *cntxt, const char *file_name,
+                int function_beginning,
+                int scope_in_question_start,
+                int scope_in_question_end,
+                MONKEY_ExpressionIterator
+                iter, void *iter_cls)
+{
+          int err;
+          char *errMsg;
+          char *query;
+
+          if (MONKEY_asprintf
+                  (&query,
+                   "select distinct end_lineno from Expression where file_name LIKE \'%%%s\' and start_lineno >= %d and start_lineno < %d and end_lineno > %d order by end_lineno",
+                   file_name, function_beginning, scope_in_question_start, scope_in_question_end) == -1)
+                {
+                  fprintf(stderr,
+                          "Memory allocation problem occurred during creating database query!\n");
+                  return MONKEY_NO;
+                }
+
+          err = sqlite3_exec (cntxt->db_handle, query, iter, iter_cls, &errMsg);
+          if (err)
+                {
+                  fprintf(stderr,
+                          "Error occurred while executing Database query. `%s'",
+                          errMsg);
+                  return MONKEY_NO;
+                }
+          return MONKEY_OK;
+}
+
+int
+MONKEY_EDB_expression_function_end_scope(struct MONKEY_EDB_Context
+                *cntxt, const char *file_name,
+                int start_lineno,
+                MONKEY_ExpressionIterator
+                iter, void *iter_cls)
+{
+          int err;
+          char *errMsg;
+          char *query;
+
+          if (MONKEY_asprintf
+              (&query,
+               "select MAX(end_lineno) from Expression where file_name LIKE \'%%%s\' and start_lineno < %d and end_lineno != 32767",
+               file_name, start_lineno) == -1)
+            {
+              fprintf(stderr,
+                          "Memory allocation problem occurred during creating database query!\n");
+              return MONKEY_NO;
+            }
+
+          err = sqlite3_exec (cntxt->db_handle, query, iter, iter_cls, &errMsg);
+          if (err)
+            {
+              fprintf(stderr,
+                          "Error occurred while executing Database query. `%s'",
+                          errMsg);
+              return MONKEY_NO;
+            }
+          return MONKEY_OK;
+}
+
+int
+MONKEY_EDB_function_start_line_for_scope(struct MONKEY_EDB_Context
+                *cntxt, const char *file_name,
+                int scope_end,
+                MONKEY_ExpressionIterator
+                iter, void *iter_cls)
+{
+          int err;
+          char *errMsg;
+          char *query;
+
+          if (MONKEY_asprintf
+              (&query,
+               "select MIN(start_lineno) from Expression where file_name LIKE \'%%%s\' and end_lineno >= %d",
+               file_name, scope_end) == -1)
+            {
+              fprintf(stderr,
+                          "Memory allocation problem occurred during creating database query!\n");
+              return MONKEY_NO;
+            }
+
+          err = sqlite3_exec (cntxt->db_handle, query, iter, iter_cls, &errMsg);
+          if (err)
+            {
+              fprintf(stderr,
+                          "Error occurred while executing Database query. `%s'",
+                          errMsg);
+              return MONKEY_NO;
+            }
+          return MONKEY_OK;
+}
+
+
+/**
+ * Return the line number of the end-of-scope for the expression indicated by start_line_no
+ *
+ * @param cntxt context containing the Expression Database handle
+ * @param file_name path to the file in which the expression in question exists
+ * @param start_line_no expression's line
+ * @param iter callback function, iterator for values returned from the Database
+ * @param iter_cls closure for the expression iterator, will contain the scope-end line number
+ * @return MONKEY_OK on success, MONKEY_NO on failure
+ */
+int
+MONKEY_EDB_get_expression_scope_end (struct MONKEY_EDB_Context
+                                            *cntxt, const char *file_name,
+                                            int start_line_no,
+                                            MONKEY_ExpressionIterator
+                                            iter, void *iter_cls)
+{
+  int err;
+  char *errMsg;
+  char *query;
+
+  if (MONKEY_asprintf
+      (&query,
+       "select min(end_lineno) from Expression where file_name LIKE \'%%%s\' and start_lineno = %d",
+       file_name, start_line_no) == -1)
+    {
+      fprintf(stderr,
+                  "Memory allocation problem occurred during creating database query!\n");
+      return MONKEY_NO;
+    }
+
+  err = sqlite3_exec (cntxt->db_handle, query, iter, iter_cls, &errMsg);
+  MONKEY_free (query);
+
+  if (err)
+    {
+      fprintf(stderr,
+                  "Error occurred while executing Database query. `%s'",
+                  errMsg);
+      return MONKEY_NO;
+    }
+  return MONKEY_OK;
+}
+
+
+int
+MONKEY_EDB_get_expression_scope_end_for_expression (struct MONKEY_EDB_Context
+                                            *cntxt, const char *file_name,
+                                            const char * expr_syntax,
+                                            MONKEY_ExpressionIterator
+                                            iter, void *iter_cls)
+{
+  int err;
+  char *errMsg;
+  char *query;
+
+  if (MONKEY_asprintf
+      (&query,
+       "select end_lineno from Expression where file_name LIKE \'%%%s\' and expr_syntax = %s",
+       file_name, expr_syntax) == -1)
+    {
+      fprintf(stderr,
+                  "Memory allocation problem occurred during creating database query!\n");
+      return MONKEY_NO;
+    }
+
+  err = sqlite3_exec (cntxt->db_handle, query, iter, iter_cls, &errMsg);
+  MONKEY_free (query);
+
+  if (err)
+    {
+      fprintf(stderr,
+                  "Error occurred while executing Database query. `%s'",
+                  errMsg);
+      return MONKEY_NO;
+    }
+  return MONKEY_OK;
+}
+
+
+int
+MONKEY_EDB_get_globals( struct MONKEY_EDB_Context *cntxt,
+                                                const char *file_names,
+                                                MONKEY_ExpressionIterator iter,
+                                                void *iter_cls) {
+        int ret = MONKEY_OK;
+        char *errMsg;
+        char *query;
+        if( MONKEY_asprintf(&query,
+                                                "SELECT DISTINCT expr_syntax, is_call FROM Expression WHERE (%s) AND start_lineno = 0 AND end_lineno = 32767",
+                                                file_names) == -1 ) {
+                fprintf(stderr, "Memory allocation problem occurred!\n");
+                ret = MONKEY_NO;
+                goto fin;
+        }
+
+        if( sqlite3_exec (cntxt->db_handle, query, iter, iter_cls, &errMsg) )   {
+                fprintf(stderr, "Error occurred while executing Database query. `%s'", errMsg);
+                ret = MONKEY_NO;
+                goto fin;
+        }
+fin:
+        MONKEY_free_non_null(query);
+        return MONKEY_NO;
+}
+
+/**
+ * Run an SQLite query to retrieve those expressions that are previous to
+ * given expression and are in the same function of the given expression
+ * 
+ * @param cntxt context containing the Expression Database handle
+ * @param file_name path to the file in which the expression in question exists
+ * @param start_line_no expression beginning line
+ * @param iter callback function, iterator for expressions returned from the Database
+ * @param iter_cls closure for the expression iterator
+ * @return MONKEY_OK success, MONKEY_NO failure
+ */
+int
+MONKEY_EDB_get_expressions (struct MONKEY_EDB_Context *cntxt,
+                                   const char *file_name, int start_line_no,
+                                   MONKEY_ExpressionIterator iter,
+                                   void *iter_cls)
+{
+  int err;
+  char *errMsg;
+  char *query;
+  if (MONKEY_asprintf
+      (&query,
+       "select distinct expr_syntax, is_call from Expression where file_name LIKE \'%%%s\' and start_lineno <= %d and end_lineno >= %d and end_lineno != 32767",
+       file_name, start_line_no, start_line_no) == -1)
+    {
+      fprintf(stderr, "Memory allocation problem occurred!\n");
+      return MONKEY_NO;
+    }
+
+  err = sqlite3_exec (cntxt->db_handle, query, iter, iter_cls, &errMsg);
+  if (err)
+    {
+      fprintf(stderr, "Error occurred while executing Database query. `%s'\n", errMsg);
+      return MONKEY_NO;
+    }
+  return MONKEY_OK;
+}
+
+
+int
+MONKEY_EDB_get_sub_expressions (struct MONKEY_EDB_Context
+                                       *cntxt, const char *file_name,
+                                       int start_line_no, int end_line_no,
+                                       MONKEY_ExpressionIterator iter,
+                                       void *iter_cls)
+{
+  int err;
+  char *errMsg;
+  char *query;
+  if (MONKEY_asprintf
+      (&query,
+       "select expr_syntax, start_lineno, is_call from Expression where file_name LIKE \'%%%s\' and start_lineno = %d and end_lineno = %d",
+       file_name, start_line_no, end_line_no) == -1)
+    {
+      fprintf(stderr,
+                  "Memory allocation problem occurred!\n");
+      return MONKEY_NO;
+    }
+
+  err = sqlite3_exec (cntxt->db_handle, query, iter, iter_cls, &errMsg);
+  if (err)
+    {
+      fprintf(stderr,
+                  "Error occurred while executing Database query. `%s'",
+                  errMsg);
+      return MONKEY_NO;
+    }
+  return MONKEY_OK;
+}