Untabified.

Tom


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

1 files changed, 36 insertions, 37 deletions

diff --git a/lib/sbin/ImpParamConsistency.pl b/lib/sbin/ImpParamConsistency.pl
index 288ac90a..78fbe5be 100644
--- a/lib/sbin/ImpParamConsistency.pl
+++ b/lib/sbin/ImpParamConsistency.pl
@@ -35,53 +35,53 @@ sub CheckImpParamConsistency
       # Check the other implementation exists.
       if($other_thorn =~ m:^\s*$:)
       {
-	print "$thorn SHARES from implementation $friend - no such implementation\n";
-	
-	$CST_errors++;
-	
-	next;
+        print "$thorn SHARES from implementation $friend - no such implementation\n";
+        
+        $CST_errors++;
+        
+        next;
       }
 
 #      print "Other thorn is $other_thorn\n";
 
       foreach $parameter (split(" ", $parameter_database{"\U$thorn SHARES $friend\E variables"}))
       {
-#	print "Parameter is $parameter\n";
+#       print "Parameter is $parameter\n";
 
-	# Check if the parameter exists in the other thorn
-	if($parameter_database{"\U$other_thorn $parameter\E type"})
-	{
-	  # Check that the parameter is in the restricted block.
-	  if($parameter_database{"\U$other_thorn RESTRICTED\E variables"} =~ m:\b$parameter\b:i)
-	  {
+        # Check if the parameter exists in the other thorn
+        if($parameter_database{"\U$other_thorn $parameter\E type"})
+        {
+          # Check that the parameter is in the restricted block.
+          if($parameter_database{"\U$other_thorn RESTRICTED\E variables"} =~ m:\b$parameter\b:i)
+          {
 
 #   This lot is done by C now, and SHOULD NOT BE DONE by the perl
-#	    # Loop through all the added ranges.
-#	    for($range=1; 
-#		$range <= $parameter_database{"\U$thorn $parameter\E ranges"}; 
-#		$range++)
-#	    {
-#	      # Increment the number of ranges for the extended parameter
-#	      $parameter_database{"\U$other_thorn $parameter\E ranges"}++;
+#           # Loop through all the added ranges.
+#           for($range=1; 
+#               $range <= $parameter_database{"\U$thorn $parameter\E ranges"}; 
+#               $range++)
+#           {
+#             # Increment the number of ranges for the extended parameter
+#             $parameter_database{"\U$other_thorn $parameter\E ranges"}++;
 
-	      # Add in the range
-#	      $parameter_database{"\U$other_thorn $parameter\E range $parameter_database{\"\U$other_thorn $parameter\E ranges\"} range"} = $parameter_database{"\U$thorn $parameter\E range $range range"};
+              # Add in the range
+#             $parameter_database{"\U$other_thorn $parameter\E range $parameter_database{\"\U$other_thorn $parameter\E ranges\"} range"} = $parameter_database{"\U$thorn $parameter\E range $range range"};
 
-	      # Add in the range description
-#	      $parameter_database{"\U$other_thorn $parameter\E range $parameter_database{\"\U$other_thorn $parameter\E ranges\"} description"} = $parameter_database{"\U$thorn $parameter\E range $range description"};
-#	    }
-	  }
-	  else
-	  {
-	      $message = "Thorn $thorn attempted to EXTEND or USE non-restricted parameter $parameter from $friend";
-	      &CST_error(0,$message,__LINE__,__FILE__);
-	  }
-	}
-	else
-	{
-	  $message = "Thorn $thorn attempted to EXTEND or USE non-existant parameter $parameter from $friend";
-	  &CST_error(0,$message,__LINE__,__FILE__);
-	}
+              # Add in the range description
+#             $parameter_database{"\U$other_thorn $parameter\E range $parameter_database{\"\U$other_thorn $parameter\E ranges\"} description"} = $parameter_database{"\U$thorn $parameter\E range $range description"};
+#           }
+          }
+          else
+          {
+              $message = "Thorn $thorn attempted to EXTEND or USE non-restricted parameter $parameter from $friend";
+              &CST_error(0,$message,__LINE__,__FILE__);
+          }
+        }
+        else
+        {
+          $message = "Thorn $thorn attempted to EXTEND or USE non-existant parameter $parameter from $friend";
+          &CST_error(0,$message,__LINE__,__FILE__);
+        }
       }
     }
   }
@@ -90,4 +90,3 @@ sub CheckImpParamConsistency
 }
 
 1;
-