1 files changed, 53 insertions, 0 deletions
diff --git a/src/EllBase_Register.c b/src/EllBase_Register.c
new file mode 100644
index 0000000..5bbeeed
--- /dev/null
+++ b/src/EllBase_Register.c
@@ -0,0 +1,53 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "cctk.h"
+#include "cctk_parameters.h"
+
+#include "StoreNamedData.h"
+#include "cctk_FortranString.h"
+
+
+
+static pNamedData *EqTypeDB = NULL;
+static pNamedData *EllSolverDB  = NULL;
+
+
+void Ell_RegisterEqType( void (*function),const char *eqname) {
+  int res;
+  char *message;
+  message = (char *)malloc( (128+strlen(name))*sizeof(char) );
+
+  res=StoreNamedData(&EquType, eqname, (void *)function);
+
+  if (res==1) {
+    sprintf(message,"Memory failure while registering equation type %s\n",equname);
+    CCTK_WARN(0,message);
+    if (message) free(message);
+  }
+  else {
+    sprintf(message,"Equation type >%s< registered",name);
+    CCTK_INFO(message);
+    if (message) free(message);
+  }
+}
+
+
+
+void Ell_RegisterSolver(void (*solver_func), 
+			const char *sname, const char *eqname) {
+  int res;
+  char *message;
+  void (*function_C)(void *, const char *);
+    
+  message = (char *)malloc( (128+strlen(name))*sizeof(char) );
+
+  function_C = (void (*)) GetNamedData(EquTypeDB, eqname);
+  if (!function_C) CCTK_WARN(0,"Cannot get Equation Type");
+
+  function(sname,solver_func);
+
+}
+
+