Subversion Repositories DevTools

Rev

Rev 289 | Rev 5709 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 289 Rev 293
Line 161... Line 161...
161
    #       2) Allows user to manipulate the list
161
    #       2) Allows user to manipulate the list
162
    #
162
    #
163
 
163
 
164
    foreach my $lib ( @{$self->{ARRAY}} )
164
    foreach my $lib ( @{$self->{ARRAY}} )
165
    {
165
    {
-
 
166
        #
-
 
167
        #   Some toolsets add names directly into the lists
-
 
168
        #   Thus not all entries in the ARRAY have entries in
-
 
169
        #   the LIST. We need to handle this
-
 
170
        #
-
 
171
        #   If we have the object, then use it
-
 
172
        #   Else use a default name construction
-
 
173
        #
-
 
174
        #   Note: Is UGLY
-
 
175
        #         Feature used by toolsets that create Shared and Static
166
        Error ("Entry missing for: $lib in the collection of " . $self->{NAME} )
176
        #         library pairs. They tend to do push @::LIBS, $name
-
 
177
        #         Perhaps this should be done better
-
 
178
        #
167
            unless ( exists ($self->{LIST}{$lib}) );
179
        unless ( exists ($self->{LIST}{$lib}) )
-
 
180
        {
-
 
181
            push @result, $self->{BASEDIR} . $self->{NFUNCT}($lib);
-
 
182
        }
-
 
183
        else
-
 
184
        {
168
        push @result, $self->{LIST}{$lib}->getPath();
185
            push @result, $self->{LIST}{$lib}->getPath();
-
 
186
        }
169
    }
187
    }
170
    \@result;
188
    \@result;
171
}
189
}
172
 
190
 
173
#sub DESTROY
191
#sub DESTROY