1 | package platform::Windows;
|
---|
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 { '.exe' }
|
---|
16 | sub dsoext { '.dll' }
|
---|
17 | sub shlibext { '.dll' }
|
---|
18 | sub libext { '.lib' }
|
---|
19 | sub defext { '.def' }
|
---|
20 | sub objext { '.obj' }
|
---|
21 | sub depext { '.d' }
|
---|
22 | sub asmext { '.asm' }
|
---|
23 |
|
---|
24 | # Other extra that aren't defined in platform::BASE
|
---|
25 | sub resext { '.res' }
|
---|
26 | sub shlibextimport { '.lib' }
|
---|
27 | sub shlibvariant { $target{shlib_variant} || '' }
|
---|
28 |
|
---|
29 | sub staticname {
|
---|
30 | # Non-installed libraries are *always* static, and their names remain
|
---|
31 | # the same, except for the mandatory extension
|
---|
32 | my $in_libname = platform::BASE->staticname($_[1]);
|
---|
33 | return $in_libname
|
---|
34 | if $unified_info{attributes}->{libraries}->{$_[1]}->{noinst};
|
---|
35 |
|
---|
36 | # To make sure not to clash with an import library, we make the static
|
---|
37 | # variant of our installed libraries get '_static' added to their names.
|
---|
38 | return platform::BASE->staticname($_[1])
|
---|
39 | . ($disabled{shared} ? '' : '_static');
|
---|
40 | }
|
---|
41 |
|
---|
42 | # To mark forward compatibility, we include the OpenSSL major release version
|
---|
43 | # number in the installed shared library names.
|
---|
44 | (my $sover_filename = $config{shlib_version}) =~ s|\.|_|g;
|
---|
45 | sub shlib_version_as_filename {
|
---|
46 | return $sover_filename
|
---|
47 | }
|
---|
48 | sub sharedname {
|
---|
49 | return platform::BASE::__concat(platform::BASE->sharedname($_[1]),
|
---|
50 | "-",
|
---|
51 | $_[0]->shlib_version_as_filename(),
|
---|
52 | ($_[0]->shlibvariant() // ''));
|
---|
53 | }
|
---|
54 |
|
---|
55 | sub sharedname_import {
|
---|
56 | return platform::BASE::__isshared($_[1]) ? $_[1] : undef;
|
---|
57 | }
|
---|
58 |
|
---|
59 | sub sharedlib_import {
|
---|
60 | return platform::BASE::__concat($_[0]->sharedname_import($_[1]),
|
---|
61 | $_[0]->shlibextimport());
|
---|
62 | }
|
---|
63 |
|
---|
64 | 1;
|
---|