configuration.ccl stuff from a while back. Parses the .ccl file as per

spec, and generates a list of 'thorns' with no source files - i.e. ones
which shouldn't get libraries built for them.

Tom


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

1 files changed, 43 insertions, 0 deletions

diff --git a/lib/sbin/ProcessConfiguration.pl b/lib/sbin/ProcessConfiguration.pl
new file mode 100644
index 00000000..7abb9e4c
--- /dev/null
+++ b/lib/sbin/ProcessConfiguration.pl
@@ -0,0 +1,43 @@
+#/*@@
+#  @file      ProcessConfiguration.pl
+#  @date      Mon May  8 15:52:08 2000
+#  @author    Tom Goodale
+#  @desc 
+#  
+#  @enddesc 
+#@@*/
+
+#/*@@
+#  @routine    SplitThorns
+#  @date       Mon May  8 16:04:59 2000
+#  @author     Tom Goodale
+#  @desc 
+#  Splits the thorns hash intto those with source and those without source
+#  @enddesc 
+#  @calls     
+#  @calledby   
+#  @history 
+#
+#  @endhistory 
+#
+#@@*/
+sub SplitThorns
+{
+  my ($configuration_database, $thorns, $source_thorns, $nosource_thorns) = @_;
+
+  foreach $thorn (keys %$thorns)
+  {
+    if($configuration_database->{"\U$thorn OPTIONS\E"} =~ m/NO_SOURCE/i)
+    {
+      $nosource_thorns->{"$thorn"} = $thorns->{"$thorn"};
+    }
+    else
+    {
+      $source_thorns->{"$thorn"} = $thorns->{"$thorn"};
+    }
+  }
+}
+
+
+
+1;