src/BuildSystem/BuildDataUtils.pm

#____________________________________________________________________ 
# File: BuildDataUtils.pm
#____________________________________________________________________ 
#  
# Author: Shaun Ashby <Shaun.Ashby@cern.ch>
# Update: 2003-12-03 19:18:46+0100
# Revision: $Id: BuildDataUtils.pm,v 1.1.2.7 2004/10/01 10:09:39 sashby Exp $ 
#
# Copyright: 2003 (C) Shaun Ashby
#
#--------------------------------------------------------------------
package BuildSystem::BuildDataUtils;
require 5.004;

use Exporter;
@ISA=qw(Exporter);
@EXPORT_OK=qw( );


sub new()
  ###############################################################
  # new                                                         #
  ###############################################################
  # modified : Wed Dec  3 19:18:50 2003 / SFA                   #
  # params   :                                                  #
  #          :                                                  #
  # function :                                                  #
  #          :                                                  #
  ###############################################################
  {
  my $proto=shift;
  my $class=ref($proto) || $proto;
  my $self={};
                           
  bless $self,$class;
  return $self;
  }

#
sub classpath
   {
   my $self=shift;
   # Return array of ClassPaths:
   return $self->{content}->{CLASSPATH};
   }

sub productstore
   {
   my $self=shift;
   # Return an array of ProductStore hashes:
   return $self->{content}->{PRODUCTSTORE};
   }

sub lib
   {
   my $self=shift;
   # Return an array of required libs:
   return $self->{content}->{LIB};
   }

sub include
   {
   my $self=shift;
   # Return an array of required includes:
   return $self->{content}->{INCLUDE};
   }

sub libtype
   {
   my $self=shift;
   # Return an array of required lib types:
   return $self->{content}->{LIBTYPE};
   }

sub flags
   {
   my $self=shift;
   # Return hash data for flags:
   return $self->{content}->{FLAGS};
   }

sub allflags
   {
   my $self=shift;
   # Return hash data for flags:
   return $self->{content}->{FLAGS};
   }

sub makefile
   {
   my $self=shift;
   # Return an array of makefile stubs:
   return $self->{content}->{MAKEFILE};
   }

sub archspecific
   {
   my $self=shift;
   
   # Check to see if there is arch-dependent data. If so, return it:
   if ((my $nkeys=keys %{$self->{content}->{ARCH}}) > 0)
      {
      while (my ($k,$v) = each %{$self->{content}->{ARCH}})
         {
         if ( $ENV{SCRAM_ARCH} =~ /$k.*/ )
            {
            return $self->{content}->{ARCH}->{$k};
            }
         }
      }
   return "";
   }

#
# The routines below are used when processing the build data:
#
sub use
   {
   my $self=shift;
   # Add or return uses (package deps):
   @_ ? push(@{$self->{content}->{USE}},@_)
      : @{$self->{content}->{USE}};
   }

sub group
   {
   my $self=shift;
   # Add or return groups:
   @_ ? push(@{$self->{content}->{GROUP}},@_)
      : @{$self->{content}->{GROUP}};
   }

sub hasexport
   {
   my $self=shift;
   # Check to see if there is a valid export block:
   my $nkeys = $self->exporteddatatypes();
   $nkeys > 0 ? return 1 : return 0;
   }

sub has
   {
   my $self=shift;
   my ($datatype)=@_;   
   (exists ($self->{content}->{$datatype})) ? return 1 : return 0;
   }

sub exported
   {
   my $self=shift;
   # Return a hash. Keys are type of data provided:
   return ($self->{content}->{EXPORT});
   }

sub exporteddatatypes
   {
   my $self=shift;
   # Return exported data types:
   return keys %{$self->{content}->{EXPORT}};
   }

sub defined_group
   {
   my $self=shift;
   # Return a list of keys (group names) for defined groups:
   return keys %{$self->{content}->{DEFINED_GROUP}};
   }

sub dataforgroup
   {
   my $self=shift;
   my ($groupname)=@_;
   # Return hash containing data for defined group
   # $groupname or return undef: 
   return $self->{content}->{DEFINED_GROUP}->{$groupname};
   }

sub buildproducts
   {
   my $self=shift;
   # Returns hash of build products and their data:
   return $self->{content}->{BUILDPRODUCTS};
   }

sub values
   {
   my $self=shift;
   my ($type)=@_;
   # Get a list of values from known types
   return $self->{content}->{BUILDPRODUCTS}->{$type};
   }

sub basic_tags()
   {
   my $self=shift;
   my $datatags=[];
   my $buildtags=[ qw(BIN LIBRARY APPLICATION MODULE BUILDPRODUCTS) ];
   my $skiptags=[ qw(DEFINED_GROUP ARCH EXPORT GROUP USE CLASSPATH) ];
   my @all_skip_tags;
   
   push(@all_skip_tags,@$skiptags,@$buildtags);

   foreach my $t (keys %{$self->{content}})
      {
      push(@$datatags,$t),if (! grep($t eq $_, @all_skip_tags));
      }
   return @{$datatags};
   }

sub clean()
   {
   my $self=shift;
   my (@tags) = @_;
   # Delete some useless entries:
   delete $self->{makefilecontent};
   delete $self->{simpledoc};
   delete $self->{id};
   delete $self->{tagcontent};
   delete $self->{nested};
   
   delete $self->{DEPENDENCIES};

   map
      {
      delete $self->{content}->{$_} if (exists($self->{content}->{$_}));
      } @tags;
   
   return $self;
   }

1;
Revision:	1.2
Committed:	Fri Dec 10 13:41:37 2004 UTC (20 years, 4 months ago) by sashby
Content type:	text/plain
Branch:	MAIN
CVS Tags:	V1_0_0
Changes since 1.1:	+231 -0 lines
Log Message:	Merged V1_0 branch to HEAD
#	Content
1	#____________________________________________________________________
2	# File: BuildDataUtils.pm
3	#____________________________________________________________________
4	#
5	# Author: Shaun Ashby <Shaun.Ashby@cern.ch>
6	# Update: 2003-12-03 19:18:46+0100
7	# Revision: $Id: BuildDataUtils.pm,v 1.1.2.7 2004/10/01 10:09:39 sashby Exp $
8	#
9	# Copyright: 2003 (C) Shaun Ashby
10	#
11	#--------------------------------------------------------------------
12	package BuildSystem::BuildDataUtils;
13	require 5.004;
14
15	use Exporter;
16	@ISA=qw(Exporter);
17	@EXPORT_OK=qw( );
18
19
20	sub new()
21	###############################################################
22	# new #
23	###############################################################
24	# modified : Wed Dec 3 19:18:50 2003 / SFA #
25	# params : #
26	# : #
27	# function : #
28	# : #
29	###############################################################
30	{
31	my $proto=shift;
32	my $class=ref($proto) \|\| $proto;
33	my $self={};
34
35	bless $self,$class;
36	return $self;
37	}
38
39	#
40	sub classpath
41	{
42	my $self=shift;
43	# Return array of ClassPaths:
44	return $self->{content}->{CLASSPATH};
45	}
46
47	sub productstore
48	{
49	my $self=shift;
50	# Return an array of ProductStore hashes:
51	return $self->{content}->{PRODUCTSTORE};
52	}
53
54	sub lib
55	{
56	my $self=shift;
57	# Return an array of required libs:
58	return $self->{content}->{LIB};
59	}
60
61	sub include
62	{
63	my $self=shift;
64	# Return an array of required includes:
65	return $self->{content}->{INCLUDE};
66	}
67
68	sub libtype
69	{
70	my $self=shift;
71	# Return an array of required lib types:
72	return $self->{content}->{LIBTYPE};
73	}
74
75	sub flags
76	{
77	my $self=shift;
78	# Return hash data for flags:
79	return $self->{content}->{FLAGS};
80	}
81
82	sub allflags
83	{
84	my $self=shift;
85	# Return hash data for flags:
86	return $self->{content}->{FLAGS};
87	}
88
89	sub makefile
90	{
91	my $self=shift;
92	# Return an array of makefile stubs:
93	return $self->{content}->{MAKEFILE};
94	}
95
96	sub archspecific
97	{
98	my $self=shift;
99
100	# Check to see if there is arch-dependent data. If so, return it:
101	if ((my $nkeys=keys %{$self->{content}->{ARCH}}) > 0)
102	{
103	while (my ($k,$v) = each %{$self->{content}->{ARCH}})
104	{
105	if ( $ENV{SCRAM_ARCH} =~ /$k.*/ )
106	{
107	return $self->{content}->{ARCH}->{$k};
108	}
109	}
110	}
111	return "";
112	}
113
114	#
115	# The routines below are used when processing the build data:
116	#
117	sub use
118	{
119	my $self=shift;
120	# Add or return uses (package deps):
121	@_ ? push(@{$self->{content}->{USE}},@_)
122	: @{$self->{content}->{USE}};
123	}
124
125	sub group
126	{
127	my $self=shift;
128	# Add or return groups:
129	@_ ? push(@{$self->{content}->{GROUP}},@_)
130	: @{$self->{content}->{GROUP}};
131	}
132
133	sub hasexport
134	{
135	my $self=shift;
136	# Check to see if there is a valid export block:
137	my $nkeys = $self->exporteddatatypes();
138	$nkeys > 0 ? return 1 : return 0;
139	}
140
141	sub has
142	{
143	my $self=shift;
144	my ($datatype)=@_;
145	(exists ($self->{content}->{$datatype})) ? return 1 : return 0;
146	}
147
148	sub exported
149	{
150	my $self=shift;
151	# Return a hash. Keys are type of data provided:
152	return ($self->{content}->{EXPORT});
153	}
154
155	sub exporteddatatypes
156	{
157	my $self=shift;
158	# Return exported data types:
159	return keys %{$self->{content}->{EXPORT}};
160	}
161
162	sub defined_group
163	{
164	my $self=shift;
165	# Return a list of keys (group names) for defined groups:
166	return keys %{$self->{content}->{DEFINED_GROUP}};
167	}
168
169	sub dataforgroup
170	{
171	my $self=shift;
172	my ($groupname)=@_;
173	# Return hash containing data for defined group
174	# $groupname or return undef:
175	return $self->{content}->{DEFINED_GROUP}->{$groupname};
176	}
177
178	sub buildproducts
179	{
180	my $self=shift;
181	# Returns hash of build products and their data:
182	return $self->{content}->{BUILDPRODUCTS};
183	}
184
185	sub values
186	{
187	my $self=shift;
188	my ($type)=@_;
189	# Get a list of values from known types
190	return $self->{content}->{BUILDPRODUCTS}->{$type};
191	}
192
193	sub basic_tags()
194	{
195	my $self=shift;
196	my $datatags=[];
197	my $buildtags=[ qw(BIN LIBRARY APPLICATION MODULE BUILDPRODUCTS) ];
198	my $skiptags=[ qw(DEFINED_GROUP ARCH EXPORT GROUP USE CLASSPATH) ];
199	my @all_skip_tags;
200
201	push(@all_skip_tags,@$skiptags,@$buildtags);
202
203	foreach my $t (keys %{$self->{content}})
204	{
205	push(@$datatags,$t),if (! grep($t eq $_, @all_skip_tags));
206	}
207	return @{$datatags};
208	}
209
210	sub clean()
211	{
212	my $self=shift;
213	my (@tags) = @_;
214	# Delete some useless entries:
215	delete $self->{makefilecontent};
216	delete $self->{simpledoc};
217	delete $self->{id};
218	delete $self->{tagcontent};
219	delete $self->{nested};
220
221	delete $self->{DEPENDENCIES};
222
223	map
224	{
225	delete $self->{content}->{$_} if (exists($self->{content}->{$_}));
226	} @tags;
227
228	return $self;
229	}
230
231	1;