diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-09-21 11:16:53 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-09-21 11:16:53 +0000 |
commit | a76728d5a6c6dd92ca9c75a1d2553bd5f069e108 (patch) | |
tree | f36201e1c9fa71ff3254879fafaff39399bdd414 /lib/sbin/create_c_stuff.pl | |
parent | cf0e4ca943ab6021458caf6932b04d8ec154c35d (diff) |
Runtest now:
Tells you which parameter files failed
Gives you a command line before the test is run that you can copy
and paste to run the test interactively, without editing as before.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@976 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/create_c_stuff.pl')
-rw-r--r-- | lib/sbin/create_c_stuff.pl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/sbin/create_c_stuff.pl b/lib/sbin/create_c_stuff.pl index 99971354..e7027311 100644 --- a/lib/sbin/create_c_stuff.pl +++ b/lib/sbin/create_c_stuff.pl @@ -195,7 +195,7 @@ sub set_parameter_code push(@lines,(" if(CCTK_Equals(param, \"$parameter\"))", " {")); - if( $type ne "STRING" && $type ne "SENTENCE" && $type ne "LOGICAL") + if( $type ne "STRING" && $type ne "SENTENCE" && $type ne "BOOLEAN") { if( $type eq "KEYWORD") { @@ -227,7 +227,7 @@ sub set_parameter_code { $line = " retval = CCTK_SetString(\&($structure.$parameter),value);" ; } - elsif( $type eq "LOGICAL") + elsif( $type eq "BOOLEAN") { $line = " retval = CCTK_SetLogical(\&($structure.$parameter), value);" ; @@ -283,7 +283,7 @@ sub set_parameter_default $line = " strcpy($structure.$parameter, $default);"; push(@lines, $line); } - elsif($type eq "LOGICAL") + elsif($type eq "BOOLEAN") { # Logicals need to be done specially. @@ -331,7 +331,7 @@ sub get_c_type_string { $type_string = "char *"; } - elsif($type eq "LOGICAL") + elsif($type eq "BOOLEAN") { $type_string = "CCTK_INT "; } @@ -487,7 +487,7 @@ sub order_params { push(@string_params, $parameter); } - elsif($type eq "LOGICAL" || + elsif($type eq "BOOLEAN" || $type eq "INT") { push(@int_params, $parameter); @@ -544,10 +544,10 @@ sub get_parameter_code $line = " *value = \&($structure.$parameter);\n" ; $line .= " retval = PARAMETER_REAL;" ; } - elsif($type eq "LOGICAL") + elsif($type eq "BOOLEAN") { $line = " *value = \&($structure.$parameter);\n" ; - $line .= " retval = PARAMETER_LOGICAL;" ; + $line .= " retval = PARAMETER_BOOLEAN;" ; } else { @@ -603,7 +603,7 @@ sub create_parameter_code $line = " strcpy($structure.$parameter, $default);"; push(@lines, $line); } - elsif($type eq "LOGICAL") + elsif($type eq "BOOLEAN") { # Logicals need to be done specially. |