Sets parameter values.

Tom


git-svn-id: http://svn.cactuscode.org/flesh/trunk@48 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 167 insertions, 0 deletions

diff --git a/src/main/SetParams.c b/src/main/SetParams.c
new file mode 100644
index 00000000..79496cd2
--- /dev/null
+++ b/src/main/SetParams.c
@@ -0,0 +1,167 @@
+ /*@@
+   @file      SetParams.c
+   @date      Tue Jan 12 19:16:38 1999
+   @author    Tom Goodale
+   @desc 
+   
+   @enddesc 
+ @@*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+static char *rcsid = "$Id$";
+
+int CCTK_ExtractImplementation(char **imp, char **name, const char *parameter);
+int CCTK_FindImpOfGlobalParam(char **imp, char **name, const char *parameter);
+int CCTK_SetImplementationParameter(const char *imp, 
+				    const char *name, 
+				    const char *value);
+
+ /*@@
+   @routine    CCTK_SetParameter
+   @date       Tue Jan 12 19:25:37 1999
+   @author     Tom Goodale
+   @desc 
+   
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+int CCTK_SetParameter(const char *parameter, const char *value)
+{
+  int retval;
+  char *imp;
+  char *name;
+  
+  CCTK_ExtractImplementation(&imp, &name, parameter);
+
+  if(!imp)
+  {
+    CCTK_FindImpOfGlobalParam(&imp, &name, parameter);
+  }
+
+  if(imp)
+  {
+    retval = CCTK_SetImplementationParameter(imp, name, value);
+  }
+  else
+  {
+    fprintf(stderr, "Unknown parameter %s\n", parameter);
+    retval = 1;
+  }
+
+  free(imp);
+  free(name);
+
+  return retval;
+}
+
+ /*@@
+   @routine    CCTK_ExtractImplementation
+   @date       Wed Jan 13 11:23:37 1999
+   @author     Tom Goodale
+   @desc 
+   Takes a parameter name of the form imp::name and splits it.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+int CCTK_ExtractImplementation(char **imp, char **name, const char *parameter)
+{
+  int retval;
+  char *position;
+
+  /* Find location of the seperator */
+  position = strstr(parameter, "::");
+
+  if(position)
+  {
+    /*Allocate memory for return strings. */
+    *imp  = (char *)malloc((position-parameter+1)*sizeof(char));
+    *name = (char *)malloc((strlen(parameter)-(position-parameter)-2+1)*sizeof(char));
+
+    /* Check that the allocation succeeded. */
+    if(!*imp || !*name)
+    {
+      free(*imp);
+      *imp = NULL;
+      free(*name);
+      *name = NULL;
+      retval = 2;
+    }
+  }
+  else
+  {
+    *imp = NULL;
+    *name = NULL;
+    retval = 1;
+  }
+
+  if(position && imp && name)
+  {
+    /* Copy the data */
+    strncpy(*imp, parameter, (int)(position-parameter));
+    (*imp)[(int)(position-parameter)] = '\0';
+  
+    strncpy(*name, position+2, strlen(*imp)-(int)(position-parameter)-2);
+    (*name)[strlen(*imp)-(position-parameter)-2] = '\0';
+    
+    retval = 0;
+  }
+
+  return retval;
+}
+
+ /*@@
+   @routine    CCTK_FindImpOfGlobalParam
+   @date       Wed Jan 13 11:25:00 1999
+   @author     Tom Goodale
+   @desc 
+   Finds the implementation name of a global (public) parameter.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+int CCTK_FindImpOfGlobalParam(char **imp, char **name, const char *parameter)
+{
+  *imp = NULL;
+  *name = NULL;
+
+  return 1;
+}
+
+
+ /*@@
+   @routine    CCTK_SetImplementationParameter
+   @date       Wed Jan 13 11:25:53 1999
+   @author     Tom Goodale
+   @desc 
+   Sets the value of the parameter in an implementation.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+int CCTK_SetImplementationParameter(const char *imp, 
+				    const char *name, 
+				    const char *value)
+{
+  return 1;
+}