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.5 by sashby, Fri Jul 15 15:27:27 2005 UTC vs.
Revision 1.6 by sashby, Tue Jul 19 15:45:40 2005 UTC

# Line 372 | 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   1;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines