Some tidying up.

Tom


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

1 files changed, 1 insertions, 66 deletions

diff --git a/src/main/SetParams.c b/src/main/SetParams.c
index cce1c646..e1eb3d91 100644
--- a/src/main/SetParams.c
+++ b/src/main/SetParams.c
@@ -8,11 +8,6 @@
  @@*/
 
 #include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include "flesh.h"
-#include "Implementations.h"
 
 static char *rcsid = "$Id$";
 
@@ -37,7 +32,7 @@ int CCTK_SetParameter(const char *parameter, const char *value)
   retval = CCTK_BindingsParameterSet(parameter, value);
 
 
-  if(!retval)
+  if(retval)
   {
     fprintf(stderr, "Unknown parameter %s\n", parameter);
   }
@@ -45,63 +40,3 @@ int CCTK_SetParameter(const char *parameter, const char *value)
   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(parameter)-(int)(position-parameter)-2);
-    (*name)[strlen(parameter)-(position-parameter)-2] = '\0';
-    
-    retval = 0;
-  }
-
-  return retval;
-}
-