Took out some comments

git-svn-id: http://svn.cactuscode.org/flesh/trunk@921 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 1 insertions, 53 deletions

diff --git a/lib/sbin/CST b/lib/sbin/CST
index 315a156e..79a03dfe 100644
--- a/lib/sbin/CST
+++ b/lib/sbin/CST
@@ -6,7 +6,7 @@
 #  @desc 
 #  Parses the the configuration files for thorns.
 #  @enddesc 
-#  @version $Header: /mnt/data2/cvs2svn/cvs-repositories/Cactus/lib/sbin/CST,v 1.28 1999-09-14 11:27:41 allen Exp $
+#  @version $Header: /mnt/data2/cvs2svn/cvs-repositories/Cactus/lib/sbin/CST,v 1.29 1999-09-15 08:56:07 allen Exp $
 #@@*/
 
 # Global parameter to track the number of errors from the CST
@@ -82,23 +82,11 @@ require "$sbin_dir/BuildHeaders.pl";
 #
 ######################################################################
 
-# $CST_debug = 1;
-
 # Find out which thorns we have and the location of the ccl files.
-if ($CST_debug)
-{
-  print "DEBUG: Creating thorn list\n";
-}
-
 print "Reading ThornList...\n";
 %thorns = &CreateThornList($cctk_home, $activethorns);
 
 # Parse the interface.ccl files
-if ($CST_debug)
-{
-  print "DEBUG: Creating interface database\n";
-}
-
 print "Parsing interface files...\n";
 %interface_database = &create_interface_database(%thorns);
 
@@ -108,42 +96,22 @@ if($debug_interface)
 }
 
 # Parse the parameter.ccl files
-if ($CST_debug)
-{
-  print "DEBUG: Creating parameter database\n";
-}
-
 print "Parsing parameter files...\n";
 %parameter_database = &create_parameter_database(%thorns);
 
-if ($CST_debug)
-{
-  print "DEBUG: Checking parameter consistency\n";
-}
 print "Checking consistency...\n";
 %parameter_database = &CheckImpParamConsistency(scalar(keys %interface_database), %interface_database, %parameter_database);
 
-#$debug_parameters = 1;
-
 if($debug_parameters)
 {
   &print_parameter_database(%parameter_database);
 }
 
 # Create all the bindings
-if ($CST_debug)
-{
-  print "DEBUG: Creating all bindings\n";
-}
-
 print "Creating Thorn-Flesh bindings...\n";
 &CreateBindings($bindings_dir, scalar(keys %parameter_database), %parameter_database, %interface_database);
 
 # Create header file of active thorns for the code
-if ($CST_debug)
-{
-  print "DEBUG: Creating ThornList\n";
-}
 @activethornsheader = &CreateActiveThornsHeader(%thorns);
 &OutputFile("$bindings_dir/include/", "thornlist.h", @activethornsheader);
 
@@ -152,10 +120,6 @@ if ($CST_debug)
 &OutputFile("$bindings_dir/include/", "definethorn.h", @definethornsheader);
 
 # Create define file for this thorn
-if ($CST_debug)
-{
-  print "DEBUG: Creating thorn define file\n";
-}
 @definethisthornheader = &CreateDefineThisThornHeader(%thorns);
 &OutputFile("$bindings_dir/include/", "definethisthorn.h", @definethisthornheader);
 
@@ -516,25 +480,9 @@ sub CreateBindings
   $start_dir = `pwd`;
 
   # Create the bindings for the subsystems.
-  if ($CST_debug)
-  {
-    print "DEBUG: Creating implementation bindings\n";
-  }
   &CreateImplementationBindings($bindings_dir, $n_param_database, @rest);
-  if ($CST_debug)
-  {
-    print "DEBUG: Creating parameter bindings\n";
-  }
   &CreateParameterBindings($bindings_dir, $n_param_database, @rest);
-  if ($CST_debug)
-  {
-    print "DEBUG: Creating variable bindings\n";
-  }
   &CreateVariableBindings($bindings_dir, %interface_database);
-  if ($CST_debug)
-  {
-    print "DEBUG: Creating schedule bindings\n";
-  }
   &CreateScheduleBindings($bindings_dir, scalar(keys %thorns), %thorns,%interface_database);
 
   # Place an appropriate make.code.defn in the bindings directory.