diff options
Diffstat (limited to 'lib/sbin/create_c_stuff.pl')
-rw-r--r-- | lib/sbin/create_c_stuff.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/sbin/create_c_stuff.pl b/lib/sbin/create_c_stuff.pl index 4233bf65..50365261 100644 --- a/lib/sbin/create_c_stuff.pl +++ b/lib/sbin/create_c_stuff.pl @@ -220,6 +220,7 @@ sub set_parameter_default local($type, $type_string); local($line, @lines); local($default); + local($temp_default); $default = $parameter_database{"\U$implementation $parameter\E default"}; $type = $parameter_database{"\U$implementation $parameter\E type"}; @@ -238,6 +239,17 @@ sub set_parameter_default $line = " strcpy($structure.$parameter, $default);"; push(@lines, $line); } + elsif($type eq "LOGICAL") + { + # Logicals need to be done specially. + + # Strip out any quote marks. + $temp_default = $default; + $temp_default =~ s:\"::g; + + $line = " CCTK_SetLogical(\&($structure.$parameter),\"$temp_default\");"; + push(@lines, $line); + } else { $line = " $structure.$parameter = $default;"; |