Configurations/platform/Unix.pm

   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     # Allow override of the extension passed in as parameter
  77     my $simpleext = $_[2];
  78     $simpleext = $_[0]->shlibextsimple() unless defined $simpleext;
  79
  80     return undef unless defined $simplename && defined $name;
  81     return undef if ($name eq $simplename && $ext eq $simpleext);
  82     return platform::BASE::__concat($simplename, $simpleext);
  83 }
  84
  85 sub sharedlib_import {
  86     return undef;
  87 }
  88
  89 1;