From a76728d5a6c6dd92ca9c75a1d2553bd5f069e108 Mon Sep 17 00:00:00 2001
From: allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Tue, 21 Sep 1999 11:16:53 +0000
Subject: 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
---
 lib/sbin/create_c_stuff.pl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'lib/sbin/create_c_stuff.pl')

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.
 
-- 
cgit v1.2.3