xref: /freebsd-src/crypto/openssl/Configurations/platform/Windows/MSVC.pm (revision e0c4386e7e71d93b0edc0c8fa156263fc4a8b0b6)
1*e0c4386eSCy Schubertpackage platform::Windows::MSVC;
2*e0c4386eSCy Schubert
3*e0c4386eSCy Schubertuse strict;
4*e0c4386eSCy Schubertuse warnings;
5*e0c4386eSCy Schubertuse Carp;
6*e0c4386eSCy Schubert
7*e0c4386eSCy Schubertuse vars qw(@ISA);
8*e0c4386eSCy Schubert
9*e0c4386eSCy Schubertrequire platform::Windows;
10*e0c4386eSCy Schubert@ISA = qw(platform::Windows);
11*e0c4386eSCy Schubert
12*e0c4386eSCy Schubert# Assume someone set @INC right before loading this module
13*e0c4386eSCy Schubertuse configdata;
14*e0c4386eSCy Schubert
15*e0c4386eSCy Schubertsub pdbext              { '.pdb' }
16*e0c4386eSCy Schubert
17*e0c4386eSCy Schubert# It's possible that this variant of |sharedname| should be in Windows.pm.
18*e0c4386eSCy Schubert# However, this variant was VC only in 1.1.1, so we maintain that here until
19*e0c4386eSCy Schubert# further notice.
20*e0c4386eSCy Schubertsub sharedname {
21*e0c4386eSCy Schubert    return platform::BASE::__concat(platform::BASE->sharedname($_[1]),
22*e0c4386eSCy Schubert                                    "-",
23*e0c4386eSCy Schubert                                    $_[0]->shlib_version_as_filename(),
24*e0c4386eSCy Schubert                                    ($target{multilib} // '' ),
25*e0c4386eSCy Schubert                                    ($_[0]->shlibvariant() // ''));
26*e0c4386eSCy Schubert}
27*e0c4386eSCy Schubert
28*e0c4386eSCy Schubertsub staticlibpdb {
29*e0c4386eSCy Schubert    return platform::BASE::__concat($_[0]->staticname($_[1]), $_[0]->pdbext());
30*e0c4386eSCy Schubert}
31*e0c4386eSCy Schubert
32*e0c4386eSCy Schubertsub sharedlibpdb {
33*e0c4386eSCy Schubert    return platform::BASE::__concat($_[0]->sharedname($_[1]), $_[0]->pdbext());
34*e0c4386eSCy Schubert}
35*e0c4386eSCy Schubert
36*e0c4386eSCy Schubertsub dsopdb {
37*e0c4386eSCy Schubert    return platform::BASE::__concat($_[0]->dsoname($_[1]), $_[0]->pdbext());
38*e0c4386eSCy Schubert}
39*e0c4386eSCy Schubert
40*e0c4386eSCy Schubertsub binpdb {
41*e0c4386eSCy Schubert    return platform::BASE::__concat($_[0]->binname($_[1]), $_[0]->pdbext());
42*e0c4386eSCy Schubert}
43*e0c4386eSCy Schubert
44*e0c4386eSCy Schubert1;
45