diff options
-rw-r--r-- | lib/sbin/CreateParameterBindings.pl | 25 | ||||
-rw-r--r-- | lib/sbin/create_c_stuff.pl | 2 |
2 files changed, 25 insertions, 2 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, "::"); diff --git a/lib/sbin/create_c_stuff.pl b/lib/sbin/create_c_stuff.pl index 247c5150..08eaac59 100644 --- a/lib/sbin/create_c_stuff.pl +++ b/lib/sbin/create_c_stuff.pl @@ -569,7 +569,7 @@ sub help_parameter_code $type = $parameter_database{"\U$implementation $parameter\E type"}; - push(@lines,(" if(CCTK_Equals(param, \"$parameter\"))", " {")); + push(@lines,(" if(param == NULL || CCTK_Equals(param, \"$parameter\"))", " {")); push(@lines, " printf(\"Help asked for parameter: $implementation\::$parameter.\\n\");"); push(@lines, ($line, " }")); |