Home | History | Annotate | Line # | Download | only in platform 
      1 package platform::VMS;
      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 # VMS has a cultural standard where all installed libraries are prefixed.
     16 # For OpenSSL, the choice is 'ossl$' (this prefix was claimed in a
     17 # conversation with VSI, Tuesday January 26 2016)
     18 sub osslprefix          { 'OSSL$' }
     19 
     20 sub binext              { '.EXE' }
     21 sub dsoext              { '.EXE' }
     22 sub shlibext            { '.EXE' }
     23 sub libext              { '.OLB' }
     24 sub defext              { '.OPT' }
     25 sub objext              { '.OBJ' }
     26 sub depext              { '.D' }
     27 sub asmext              { '.ASM' }
     28 
     29 # Other extra that aren't defined in platform::BASE
     30 sub shlibvariant        { $target{shlib_variant} || '' }
     31 
     32 sub optext              { '.OPT' }
     33 sub optname             { return $_[1] }
     34 sub opt                 { return $_[0]->optname($_[1]) . $_[0]->optext() }
     35 
     36 # Other projects include the pointer size in the name of installed libraries,
     37 # so we do too.
     38 sub staticname {
     39     # Non-installed libraries are *always* static, and their names remain
     40     # the same, except for the mandatory extension
     41     my $in_libname = platform::BASE->staticname($_[1]);
     42     return $in_libname
     43         if $unified_info{attributes}->{libraries}->{$_[1]}->{noinst};
     44 
     45     return platform::BASE::__concat($_[0]->osslprefix(),
     46                                     platform::BASE->staticname($_[1]),
     47                                     $target{pointer_size});
     48 }
     49 
     50 # To enable installation of multiple major OpenSSL releases, we include the
     51 # version number in installed shared library names.
     52 my $sover_filename =
     53     join('', map { sprintf "%02d", $_ } split(m|\.|, $config{shlib_version}));
     54 sub shlib_version_as_filename {
     55     return $sover_filename;
     56 }
     57 sub sharedname {
     58     return platform::BASE::__concat($_[0]->osslprefix(),
     59                                     platform::BASE->sharedname($_[1]),
     60                                     $_[0]->shlib_version_as_filename(),
     61                                     ($_[0]->shlibvariant() // ''),
     62                                     "_shr$target{pointer_size}");
     63 }
     64 
     65 1;
     66