summaryrefslogtreecommitdiff
path: root/lib/sbin/create_c_stuff.pl
diff options
context:
space:
mode:
authorallen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>1999-09-21 11:16:53 +0000
committerallen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>1999-09-21 11:16:53 +0000
commita76728d5a6c6dd92ca9c75a1d2553bd5f069e108 (patch)
treef36201e1c9fa71ff3254879fafaff39399bdd414 /lib/sbin/create_c_stuff.pl
parentcf0e4ca943ab6021458caf6932b04d8ec154c35d (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.pl16
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.