Subversion Repositories DevTools

Rev

Rev 7300 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7300 Rev 7322
Line 216... Line 216...
216 
    #
 216 
    #
217 
    #   Process each "Using" entry
 217 
    #   Process each "Using" entry
218 
    #   Within each entry process the "platform" targets
 218 
    #   Within each entry process the "platform" targets
219 
    #   and generate Libraries directives.
 219 
    #   and generate Libraries directives.
220 
    #
 220 
    #
221 
    foreach my $mkfile (keys %DPackageLibraryDataStore )
 221 
    foreach my $mkfile (sort keys %DPackageLibraryDataStore )
222 
    {
 222 
    {
223 
        my $pmkfile = $DPackageLibraryDataStore{$mkfile};
 223 
        my $pmkfile = $DPackageLibraryDataStore{$mkfile};
224 
 
 224 
 
225 
        $fh->Write( "\n#\n" );
 225 
        $fh->Write( "\n#\n" );
226 
        $fh->Write( "# Defined in ScmRoot : ", RelPath($mkfile,$ScmRoot ), "\n" );
 226 
        $fh->Write( "# Defined in ScmRoot : ", RelPath($mkfile,$ScmRoot ), "\n" );
227 
 
 227 
 
228 
        $fh->Write( "#\n" );
 228 
        $fh->Write( "#\n" );
229 
        foreach my $using ( keys %{$pmkfile}  )
 229 
        foreach my $using ( sort keys %{$pmkfile}  )
230 
        {
 230 
        {
231 
            my $uentry = $pmkfile->{$using};
 231 
            my $uentry = $pmkfile->{$using};
232 
            $fh->Write( "Using( '$using' );    # Usage name\n" );
 232 
            $fh->Write( "Using( '$using' );    # Usage name\n" );
233 
 
 233 
 
234 
            foreach my $platform ( keys %{$uentry} )
 234 
            foreach my $platform ( sort keys %{$uentry} )
235 
            {
 235 
            {
236 
                my $pentry = $uentry->{$platform};
 236 
                my $pentry = $uentry->{$platform};
237 
                $fh->Write( "\nLibraries('$platform',\n" );
 237 
                $fh->Write( "\nLibraries('$platform',\n" );
238 
                foreach my $entry ( @{$pentry} )
 238 
                foreach my $entry ( @{$pentry} )
239 
                {
 239 
                {