summaryrefslogtreecommitdiff
path: root/lib/sbin/CreateParameterBindings.pl
diff options
context:
space:
mode:
authortradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac>1999-07-29 16:59:51 +0000
committertradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac>1999-07-29 16:59:51 +0000
commit8d3b486c25adeac68ab8904db2a205720edf8a00 (patch)
treeea0c9bbd61b1ba94c21fee71af904ca8f64011c9 /lib/sbin/CreateParameterBindings.pl
parent8293472ea974191f1c4942da83b211f0751d361f (diff)
Option -O now gives at least some dummy output.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@816 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CreateParameterBindings.pl')
-rw-r--r--lib/sbin/CreateParameterBindings.pl25
1 files changed, 24 insertions, 1 deletions
diff --git a/lib/sbin/CreateParameterBindings.pl b/lib/sbin/CreateParameterBindings.pl
index 7b8f51fd..21bfaa15 100644
--- a/lib/sbin/CreateParameterBindings.pl
+++ b/lib/sbin/CreateParameterBindings.pl
@@ -340,7 +340,30 @@ int CCTKi_BindingsParameterHelp(const char *identifier, const char *format, FILE
char *implementation = NULL;
char *param_name = NULL;
- if(! identifier ) return;
+ if(! identifier )
+ {
+ retval = CCTK_BindingsParametersGlobalHelp(identifier, format, file);
+
+EOT
+
+ foreach $routine (keys %routines, "CCTK_BindingsParametersGlobal")
+ {
+
+ print OUT " temp_retval = $routine"."Help(param_name, format, file);";
+
+ print OUT <<EOT;
+
+ if(!temp_retval)
+ {
+ retval = 0;
+ }
+EOT
+ }
+
+ print OUT <<EOT;
+
+ return retval;
+ }
Util_SplitString(&implementation, &param_name, identifier, "::");