diff options
author | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-29 16:59:51 +0000 |
---|---|---|
committer | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-29 16:59:51 +0000 |
commit | 8d3b486c25adeac68ab8904db2a205720edf8a00 (patch) | |
tree | ea0c9bbd61b1ba94c21fee71af904ca8f64011c9 /lib/sbin/CreateParameterBindings.pl | |
parent | 8293472ea974191f1c4942da83b211f0751d361f (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.pl | 25 |
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, ¶m_name, identifier, "::"); |