Home | History | Annotate | Line # | Download | only in platform 
      1 package platform::Unix;
      2 
      3 use strict;
      4 use warnings;
      5 use Carp;
      6 
      7 use vars qw(@ISA);
      8 
      9 require platform::BASE;
     10 @ISA = qw(platform::BASE);
     11 
     12 # Assume someone set @INC right before loading this module
     13 use configdata;
     14 
     15 sub binext              { $target{exe_extension} || '' }
     16 sub dsoext              { $target{dso_extension} || platform->shlibextsimple()
     17                               || '.so' }
     18 # Because these are also used in scripts and not just Makefile, we must
     19 # convert $(SHLIB_VERSION_NUMBER) to the actual number.
     20 sub shlibext            { (my $x = $target{shared_extension}
     21                                || '.so.$(SHLIB_VERSION_NUMBER)')
     22                               =~ s|\.\$\(SHLIB_VERSION_NUMBER\)
     23                                   |.$config{shlib_version}|x;
     24                           $x; }
     25 sub libext              { $target{lib_extension} || '.a' }
     26 sub defext              { $target{def_extension} || '.ld' }
     27 sub objext              { $target{obj_extension} || '.o' }
     28 sub depext              { $target{obj_extension} || '.d' }
     29 
     30 # Other extra that aren't defined in platform::BASE
     31 sub shlibextsimple      { (my $x = $target{shared_extension} || '.so')
     32                               =~ s|\.\$\(SHLIB_VERSION_NUMBER\)||;
     33                           $x; }
     34 sub shlibvariant        { $target{shlib_variant} || "" }
     35 sub makedepcmd          { $disabled{makedepend} ? undef : $config{makedepcmd} }
     36 
     37 # No conversion of assembler extension on Unix
     38 sub asm {
     39     return $_[1];
     40 }
     41 
     42 # At some point, we might decide that static libraries are called something
     43 # other than the default...
     44 sub staticname {
     45     # Non-installed libraries are *always* static, and their names remain
     46     # the same, except for the mandatory extension
     47     my $in_libname = platform::BASE->staticname($_[1]);
     48     return $in_libname
     49         if $unified_info{attributes}->{libraries}->{$_[1]}->{noinst};
     50 
     51     # We currently return the same name anyway...  but we might choose to
     52     # append '_static' or '_a' some time in the future.
     53     return platform::BASE->staticname($_[1]);
     54 }
     55 
     56 sub sharedname {
     57     return platform::BASE::__concat(platform::BASE->sharedname($_[1]),
     58                                     ($_[0]->shlibvariant() // ''));
     59 }
     60 
     61 sub sharedname_simple {
     62     return platform::BASE::__isshared($_[1]) ? $_[1] : undef;
     63 }
     64 
     65 sub sharedlib_simple {
     66     # This function returns the simplified shared library name (no version
     67     # or variant in the shared library file name) if the simple variants of
     68     # the base name or the suffix differ from the full variants of the same.
     69 
     70     # Note: if $_[1] isn't a shared library name, then $_[0]->sharedname()
     71     # and $_[0]->sharedname_simple() will return undef.  This needs being
     72     # accounted for.
     73     my $name = $_[0]->sharedname($_[1]);
     74     my $simplename = $_[0]->sharedname_simple($_[1]);
     75     my $ext = $_[0]->shlibext();
     76     my $simpleext = $_[0]->shlibextsimple();
     77 
     78     return undef unless defined $simplename && defined $name;
     79     return undef if ($name eq $simplename && $ext eq $simpleext);
     80     return platform::BASE::__concat($simplename, $simpleext);
     81 }
     82 
     83 sub sharedlib_import {
     84     return undef;
     85 }
     86 
     87 1;
     88