ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/BuildSystem/ToolData.pm
(Generate patch)

Comparing COMP/SCRAM/src/BuildSystem/ToolData.pm (file contents):
Revision 1.3 by sashby, Wed Feb 2 16:31:11 2005 UTC vs.
Revision 1.7 by sashby, Wed Jul 20 13:33:48 2005 UTC

# Line 118 | Line 118 | sub flags()
118        }
119     }
120  
121 + sub updateflags()
122 +   {
123 +   my $self=shift;
124 +   my ($flag,$flagvalue) = @_;
125 +   # Reset:
126 +   if (exists $self->{FLAGS}->{$flag})
127 +      {
128 +      delete $self->{FLAGS}->{$flag};
129 +      }
130 +   # Reinsert:
131 +   $self->flags($flag,$flagvalue);
132 +   }
133 +
134   sub allflags()
135     {
136     my $self=shift;
# Line 131 | Line 144 | sub scram_project()
144        : $self->{SCRAM_PROJECT};
145     }
146  
147 + sub scram_compiler()
148 +   {
149 +   my $self=shift;
150 +   @_ ? $self->{SCRAM_COMPILER} = shift
151 +      : $self->{SCRAM_COMPILER};
152 +   }
153 +
154   sub variable_data()
155     {
156     my $self=shift;
# Line 234 | Line 254 | sub summarize_features()
254     ($self->scram_project() == 1) ? print "yes" : print "no";
255     print "\n";
256  
257 +   # A compiler tool?
258 +   if ($self->scram_compiler() == 1)
259 +      {
260 +      print "SCRAM_COMPILER=yes\n";
261 +      }
262 +
263     # Print out any variables:
264     foreach my $var (@variables)
265        {
# Line 346 | Line 372 | sub addreleasetoself()
372    
373     }
374  
375 + sub allfeatures()
376 +   {
377 +   my $self=shift;
378 +   my @feature_vars=$self->list_variables();
379 +   my @features;
380 +   push (@features, @feature_vars, qw(LIB LIBDIR INCLUDE USE));  
381 +
382 +   # Make sure feature name is uppercase:
383 +   $feature =~ tr/a-z/A-Z/;
384 +   $feature_data={};
385 +   map
386 +      {
387 +      if (exists ($self->{$_}))
388 +         {
389 +         if (ref($self->{$_}) eq 'ARRAY')
390 +            {
391 +            $feature_data->{$_} = join(" ",@{$self->{$_}});
392 +            }
393 +         else
394 +            {
395 +            $feature_data->{$_} = $self->{$_}; # A string
396 +            }
397 +         }
398 +      } @features;
399 +   return $feature_data;
400 +   }
401 +
402 + sub reset()
403 +   {
404 +   my $self=shift;
405 +   my ($entryname)=@_;
406 +
407 +   if (exists($self->{$entryname}))
408 +      {
409 +      $self->{$entryname} = undef;
410 +      }  
411 +   }
412 +
413   1;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines