Commented out some old unused parameter stuff.

Hopefully fixed the space at end of line after the closing " problem -
the parameter database now stores the default value after stripping the quotes from
it.

Tom


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

1 files changed, 55 insertions, 55 deletions

diff --git a/lib/sbin/create_c_stuff.pl b/lib/sbin/create_c_stuff.pl
index d986c6d9..99971354 100644
--- a/lib/sbin/create_c_stuff.pl
+++ b/lib/sbin/create_c_stuff.pl
@@ -82,67 +82,67 @@ sub CreateParameterBindingFile
   push(@data, "");
 
   # Initialisation subroutine
-  push(@data, ("int $prefix"."Initialise(void)", "{"));
-
-  foreach $parameter (sort(keys %parameters))
-  {
-
-    push(@data, &set_parameter_default($structure,$parameters{$parameter}, 
-				       $parameter, %parameter_database));
-    
-    push(@data, "");
-
-    push(@data, &create_parameter_code($structure,$parameters{$parameter}, 
-				       $parameter, %parameter_database));
-    
-    push(@data, "");
-
-  }
-
-  push(@data, "  return 0;");
-  push(@data, "}");
-
-  push(@data, "");
+#  push(@data, ("int $prefix"."Initialise(void)", "{"));
+#
+#  foreach $parameter (sort(keys %parameters))
+#  {
+#
+#    push(@data, &set_parameter_default($structure,$parameters{$parameter}, 
+#				       $parameter, %parameter_database));
+#    
+#    push(@data, "");
+#
+#    push(@data, &create_parameter_code($structure,$parameters{$parameter}, 
+#				       $parameter, %parameter_database));
+#    
+#    push(@data, "");
+#
+#  }
+#
+#  push(@data, "  return 0;");
+#  push(@data, "}");
+#
+#  push(@data, "");
 
   # Setting subroutine
 
-  push(@data, ("int $prefix"."Set(const char *param, const char *value)", "{"));
-  push(@data, ("  int retval;", "  retval = 1;", ""));
-
-
-  foreach $parameter (sort(keys %parameters))
-  {
-    push(@data, &set_parameter_code($structure,$parameters{$parameter}, 
-				       $parameter, %parameter_database));
-    push(@data, "");
-
-  }    
-
-  push(@data, "  return retval;");
-
-  push(@data, "}");
-
-  push(@data, "");
+#  push(@data, ("int $prefix"."Set(const char *param, const char *value)", "{"));
+#  push(@data, ("  int retval;", "  retval = 1;", ""));
+#
+#
+#  foreach $parameter (sort(keys %parameters))
+#  {
+#    push(@data, &set_parameter_code($structure,$parameters{$parameter}, 
+#				       $parameter, %parameter_database));
+#    push(@data, "");
+#
+#  }    
+#
+#  push(@data, "  return retval;");
+#
+#  push(@data, "}");
+#
+#  push(@data, "");
 
   # Getting subroutine
 
-  push(@data, ("int $prefix"."Get(const char *param, void **value)", "{"));
-  push(@data, ("  int retval;", "  retval = 1;", ""));
-
-
-  foreach $parameter (sort(keys %parameters))
-  {
-    push(@data, &get_parameter_code($structure,$parameters{$parameter}, 
-				       $parameter, %parameter_database));
-    push(@data, "");
-
-  }    
-
-  push(@data, "  return retval;");
-
-  push(@data, "}");
-
-  push(@data, "");
+#  push(@data, ("int $prefix"."Get(const char *param, void **value)", "{"));
+#  push(@data, ("  int retval;", "  retval = 1;", ""));
+#
+#
+#  foreach $parameter (sort(keys %parameters))
+#  {
+#    push(@data, &get_parameter_code($structure,$parameters{$parameter}, 
+#				       $parameter, %parameter_database));
+#    push(@data, "");
+#
+#  }    
+#
+#  push(@data, "  return retval;");
+#
+#  push(@data, "}");
+#
+#  push(@data, "");
 
   # Help subroutine