summaryrefslogtreecommitdiff
path: root/lib/sbin/CreateParameterBindings.pl
diff options
context:
space:
mode:
authorallen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>2000-01-11 09:36:19 +0000
committerallen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>2000-01-11 09:36:19 +0000
commit3208fd2352125daa7a09faca98b9475c7dfedc16 (patch)
treea23952c1c83b67c457e61d3540064f4189374b60 /lib/sbin/CreateParameterBindings.pl
parentad5f2c8a3fba47e6f1e5b438204c15bedb0f818c (diff)
Adding USE_CCTK_PARAMETERS which will eventually remove warnings on origin
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1223 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CreateParameterBindings.pl')
-rw-r--r--lib/sbin/CreateParameterBindings.pl28
1 files changed, 28 insertions, 0 deletions
diff --git a/lib/sbin/CreateParameterBindings.pl b/lib/sbin/CreateParameterBindings.pl
index 14c5fed7..a5fc6822 100644
--- a/lib/sbin/CreateParameterBindings.pl
+++ b/lib/sbin/CreateParameterBindings.pl
@@ -318,6 +318,34 @@ sub CreateParameterBindings
}
$dataout .= "\n";
+
+ $dataout .= "#define USE_CCTK_PARAMETERS \\\n";
+
+ $decl = "USE_GLOBAL_PARAMETER_STRUCT_PARAMS";
+ if($header_files{"GLOBAL"})
+ {
+ $dataout .= "$decl \\\n";
+ }
+
+ $decl = "USE_RESTRICTED_\U$implementation\E_STRUCT_PARAMS";
+ if($header_files{"\U$implementation\E RESTRICTED"})
+ {
+ $dataout .= "$decl \\\n";
+ }
+
+ $decl = "USE_PRIVATE_\U$thorn\E_STRUCT_PARAMS";
+ if($header_files{"\U$thorn\E PRIVATE"})
+ {
+ $dataout .= "$decl \\\n";
+ }
+
+ foreach $line (@data)
+ {
+ $dataout .= $line . "\\\n";
+ }
+
+ $dataout .= "\n";
+
$dataout .= "#endif\n";
&WriteFile("\U$thorn\E"."_CParameters.h",\$dataout);