diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-08-31 14:03:01 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-08-31 14:03:01 +0000 |
commit | 9cc0fe70c319ea3bd2467be8d78c57d821a975ba (patch) | |
tree | bcfa8c711201c2a8eca69863c4cc6472a28fd0bd /lib/sbin/ProcessConfiguration.pl | |
parent | e75b2e42e552abe968c6c16892138aa85ec405e4 (diff) |
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
Diffstat (limited to 'lib/sbin/ProcessConfiguration.pl')
-rw-r--r-- | lib/sbin/ProcessConfiguration.pl | 43 |
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; |