Some changes for USE_CCTK_PARAMETERS and capitalising include files

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

1 files changed, 27 insertions, 8 deletions

diff --git a/lib/sbin/create_c_stuff.pl b/lib/sbin/create_c_stuff.pl
index c2414ec6..604488ce 100644
--- a/lib/sbin/create_c_stuff.pl
+++ b/lib/sbin/create_c_stuff.pl
@@ -41,7 +41,7 @@ sub CreateParameterBindingFile
   push(@data, $line);
   $line = "\#include <stdarg.h>";
   push(@data, $line);
-  $line = "\#include \"cctk_config.h\"";
+  $line = "\#include \"cctk_Config.h\"";
   push(@data, $line);
   $line = "\#include \"CParameterStructNames.h\"";
   push(@data, $line);
@@ -214,22 +214,41 @@ sub CreateCStructureParameterHeader
     push(@definition, $line);
 
     $line = "";
-    if ($type_string =~ /CCTK_REAL/)
+    if ($type_string =~ /CCTK_REAL16/)
+    {
+      $line = "cctk_pdummy_real16=$parameter;";
+    }
+    elsif ($type_string =~ /CCTK_REAL8/)
+    {
+      $line = "cctk_pdummy_real8=$parameter;";
+    }
+    elsif ($type_string =~ /CCTK_REAL4/)
+    {
+      $line = "cctk_pdummy_real4=$parameter;";
+    }
+    elsif ($type_string =~ /CCTK_REAL/)
     {
       $line = "cctk_pdummy_real=$parameter;";
     }
-    elsif ($type_string =~ /CCTK_INT/)
+    elsif ($type_string =~ /CCTK_INT8/)
     {
-      $line = "cctk_pdummy_int=$parameter;";
+      $line = "cctk_pdummy_int8=$parameter;";
     }
-    elsif ($type_string =~ /char/)
+    elsif ($type_string =~ /CCTK_INT4/)
     {
-      $line = "cctk_pdummy_pointer=(void *)$parameter;";
+      $line = "cctk_pdummy_int4=$parameter;";
+    }
+    elsif ($type_string =~ /CCTK_INT2/)
+    {
+      $line = "cctk_pdummy_int2=$parameter;";
+    }
+    elsif ($type_string =~ /CCTK_INT/)
+    {
+      $line = "cctk_pdummy_int=$parameter;";
     }
     else
     {
-      print "missed $type_string\n";
-      exit;
+      $line = "cctk_pdummy_pointer=(void *)$parameter;";
     }
 
     push(@use, $line);