Subversion Repositories DevTools

#                   

#                   Create sonames for all external shared libraries

        #   Create sonames for all shared libraries

        #   Append to the begging of the search list - so that it will rendered last

        #   

        my $sodir = BuildSoNameLinks_Unix($platform, @unix_paths);

        unshift( @unix_paths, $sodir ) if defined $sodir;

        #

# Function        : BuildSoNameLinks_Unix 

#

# Description     : Generate soname links for all shared libraries from external

#                   packages.

#                   

#                   There is a bit of a cheat. We don't examine the library to determine

#                   the soname. We simple create all possible sonames to the library

#

# Inputs          : $platform       - Target platform

#                   @paths          - Array of paths to scan for libraries 

#

# Returns         : soLinkDir       - Absolute path to the directory of gernerated

#                                     symlinks

#

sub BuildSoNameLinks_Unix

{

    my ($platform, @paths) = @_;

    my $soLinkDir = catdir($BUILDINTERFACE, 'soLinks', $platform );

    Verbose("Create Unix SoName links - $soLinkDir");

    RmDirTree( $soLinkDir );

    #

    #   Search provided library paths for shared libaries

    #       These are names of the form *.so.* ie : libz.so.1.2.5

    #

    foreach my $path (@paths)

    {

        foreach my $file (glob(catdir($path, '*.so.*')))

        {

            #

            #   Skip the debug symbol files

            #

            next if $file =~ m~\.debug$~;

            next if $file =~ m~\.dbg$~;

            #

            #   Generate all possible sonames by removing .nnnn from the 

            #   end of the file name

            #   

            my $sofile = $file;

            while ($sofile =~ m~(.*)\.\d+$~)

            {

                $sofile = $1;

                unless (-f $sofile) {

                    Verbose2("Need Soname: $sofile");

                    #

                    #   Create link from soname to full name

                    #   

                    mkpath ( $soLinkDir ) unless -d $soLinkDir;

                    my $sofilename = $sofile;

                    $sofilename =~ s~.*/~~;

                    $sofilename = catdir($soLinkDir, $sofilename);

                    unless (-f $sofilename) {

                        symlink ($file, $sofilename) || Error ("Cannot create symlink to $sofilename. $!"); 

                    }

                }

            }

        }

    }

    #

    #   Return the path the generated soLink dir

    #

    return AbsPath($soLinkDir) if (-d $soLinkDir);

    return undef;

}

#-------------------------------------------------------------------------------