1package platform::VMS; 2 3use strict; 4use warnings; 5use Carp; 6 7use vars qw(@ISA); 8 9require platform::BASE; 10@ISA = qw(platform::BASE); 11 12# Assume someone set @INC right before loading this module 13use 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) 18sub osslprefix { 'OSSL$' } 19 20sub binext { '.EXE' } 21sub dsoext { '.EXE' } 22sub shlibext { '.EXE' } 23sub libext { '.OLB' } 24sub defext { '.OPT' } 25sub objext { '.OBJ' } 26sub depext { '.D' } 27sub asmext { '.ASM' } 28 29# Other extra that aren't defined in platform::BASE 30sub shlibvariant { $target{shlib_variant} || '' } 31 32sub optext { '.OPT' } 33sub optname { return $_[1] } 34sub 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. 38sub 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. 52my $sover_filename = 53 join('', map { sprintf "%02d", $_ } split(m|\.|, $config{shlib_version})); 54sub shlib_version_as_filename { 55 return $sover_filename; 56} 57sub 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 651; 66
