]> git.ipfire.org Git - thirdparty/openssl.git/blame - Configure
projects / thirdparty / openssl.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Make update to catch function renames.
[thirdparty/openssl.git] / Configure
CommitLineData
de17db91 1#! /usr/bin/env perl
f4d8f037 2# -*- mode: perl; -*-
de17db91 3
a4ed5532
RE		 4##
5## Configure -- OpenSSL source tree configuration script
008bef52 6## If editing this file, run this command before committing
d10dac11 7## make -f Makefile.in TABLE
a4ed5532 8##
1641cb60 9
448cb8b5 10require 5.000;
1641cb60 11use strict;
f09e7ca9 12use File::Basename;
85152ca4 13use File::Spec::Functions qw/:DEFAULT abs2rel rel2abs/;
dca99383 14use File::Path qw/mkpath/;
1641cb60 15
22a4f969 16# see INSTALL for instructions.
462ba4f6 17
e4ef2e25 18my $usage="Usage: Configure [no-<cipher> ...] [enable-<cipher> ...] [-Dxxx] [-lxxx] [-Lxxx] [-fxxx] [-Kxxx] [no-hw-xxx|no-hw] [[no-]threads] [[no-]shared] [[no-]zlib|zlib-dynamic] [no-asm] [no-dso] [no-egd] [sctp] [386] [--prefix=DIR] [--openssldir=OPENSSLDIR] [--with-xxx[=vvv]] [--config=FILE] os/compiler[:flags]\n";
462ba4f6 19
434c5dd3 20# Options:
e5f3045f 21#
f09e7ca9
RS		 22# --config add the given configuration file, which will be read after
23# any "Configurations*" files that are found in the same
24# directory as this script.
d74dfafd
RL		 25# --prefix prefix for the OpenSSL installation, which includes the
26# directories bin, lib, include, share/man, share/doc/openssl
27# This becomes the value of INSTALLTOP in Makefile
28# (Default: /usr/local)
29# --openssldir OpenSSL data area, such as openssl.cnf, certificates and keys.
30# If it's a relative directory, it will be added on the directory
31# given with --prefix.
32# This becomes the value of OPENSSLDIR in Makefile and in C.
33# (Default: PREFIX/ssl)
e5f3045f 34#
cbfb39d1
AP		 35# --cross-compile-prefix Add specified prefix to binutils components.
36#
98186eb4
VD		 37# --api One of 0.9.8, 1.0.0 or 1.1.0. Do not compile support for
38# interfaces deprecated as of the specified OpenSSL version.
39#
5270e702
RL		 40# no-hw-xxx do not compile support for specific crypto hardware.
41# Generic OpenSSL-style methods relating to this support
42# are always compiled but return NULL if the hardware
43# support isn't compiled.
44# no-hw do not compile support for any crypto hardware.
5f8d5c96
BM		 45# [no-]threads [don't] try to create a library that is suitable for
46# multithreaded applications (default is "threads" if we
47# know how to do it)
fcc6a1c4 48# [no-]shared [don't] try to create shared libraries when supported.
ae48242c 49# [no-]pic [don't] try to build position independent code when supported.
45b71abe 50# If disabled, it also disables shared and dynamic-engine.
a723979d 51# no-asm do not use assembler
bc2aadad
GT		 52# no-dso do not compile in any native shared-library methods. This
53# will ensure that all methods just return NULL.
0423f812 54# no-egd do not compile support for the entropy-gathering daemon APIs
e452de9d
RL		 55# [no-]zlib [don't] compile support for zlib compression.
56# zlib-dynamic Like "zlib", but the zlib library is expected to be a shared
57# library and will be loaded in run-time by the OpenSSL library.
7e159e01 58# sctp include SCTP support
22a4f969 59# 386 generate 80386 code
8b1a5af3
MC		 60# enable-weak-ssl-ciphers
61# Enable weak ciphers that are disabled by default. This currently
62# only includes RC4 based ciphers.
d0590fe6 63# no-sse2 disables IA-32 SSE2 code, above option implies no-sse2
79df9d62 64# no-<cipher> build without specified algorithm (rsa, idea, rc5, ...)
fce0ba5f 65# -<xxx> +<xxx> compiler options are passed through
e41c8d6a
GT		 66#
67# DEBUG_SAFESTACK use type-safe stacks to enforce type-safety on stack items
68# provided to stack calls. Generates unique stack functions for
69# each possible stack type.
d02b48c6 70# BN_LLONG use the type 'long long' in crypto/bn/bn.h
d02b48c6 71# RC4_CHAR use 'char' instead of 'int' for RC4_INT in crypto/rc4/rc4.h
d0590fe6
AP		 72# Following are set automatically by this script
73#
58964a49
RE		 74# MD5_ASM use some extra md5 assember,
75# SHA1_ASM use some extra sha1 assember, must define L_ENDIAN for x86
76# RMD160_ASM use some extra ripemd160 assember,
d0590fe6
AP		 77# SHA256_ASM sha256_block is implemented in assembler
78# SHA512_ASM sha512_block is implemented in assembler
79# AES_ASM ASE_[en|de]crypt is implemented in assembler
d02b48c6 80
363bd0b4 81# Minimum warning options... any contributions to OpenSSL should at least get
fce0ba5f 82# past these.
363bd0b4 83
d63a5e5e 84my $gcc_devteam_warn = "-DPEDANTIC -DREF_DEBUG -DDEBUG_UNUSED -DBIO_DEBUG"
8bccbce5
RS		 85 . " -pedantic"
86 . " -Wall"
87 . " -Wno-long-long"
88 . " -Wsign-compare"
89 . " -Wmissing-prototypes"
90 . " -Wshadow"
91 . " -Wformat"
92 . " -Wtype-limits"
93 . " -Werror"
94 ;
363bd0b4 95
190c8c60
BL		 96# These are used in addition to $gcc_devteam_warn when the compiler is clang.
97# TODO(openssl-team): fix problems and investigate if (at least) the
480405e4 98# following warnings can also be enabled:
8bccbce5 99# -Wswitch-enum
8bccbce5
RS		 100# -Wcast-align
101# -Wunreachable-code
a773b52a
RS		 102# -Wlanguage-extension-token -- no, we use asm()
103# -Wunused-macros -- no, too tricky for BN and _XOPEN_SOURCE etc
104# -Wextended-offsetof -- no, needed in CMS ASN1 code
8bccbce5
RS		 105my $clang_devteam_warn = ""
106 . " -Qunused-arguments"
107 . " -Wextra"
108 . " -Wno-unused-parameter"
109 . " -Wno-missing-field-initializers"
110 . " -Wno-language-extension-token"
111 . " -Wno-extended-offsetof"
112 . " -Wconditional-uninitialized"
113 . " -Wincompatible-pointer-types-discards-qualifiers"
114 . " -Wmissing-variable-declarations"
115 ;
cb2bc054 116
ef8ca6bd
RL		 117# This adds backtrace information to the memory leak info. Is only used
118# when crypto-mdebug-backtrace is enabled.
119my $memleak_devteam_backtrace = "-rdynamic";
a1d3f3d1 120
0c28f277
DSH		 121my $strict_warnings = 0;
122
b7efa56a 123# As for $BSDthreads. Idea is to maintain "collective" set of flags,
fce0ba5f 124# which would cover all BSD flavors. -pthread applies to them all,
b7efa56a
AP		 125# but is treated differently. OpenBSD expands is as -D_POSIX_THREAD
126# -lc_r, which is sufficient. FreeBSD 4.x expands it as -lc_r,
127# which has to be accompanied by explicit -D_THREAD_SAFE and
128# sometimes -D_REENTRANT. FreeBSD 5.x expands it as -lc_r, which
129# seems to be sufficient?
9c62a279 130our $BSDthreads="-pthread -D_THREAD_SAFE -D_REENTRANT";
d02b48c6 131
98186eb4
VD		 132#
133# API compability name to version number mapping.
134#
135my $maxapi = "1.1.0"; # API for "no-deprecated" builds
136my $apitable = {
137 "1.1.0" => "0x10100000L",
138 "1.0.0" => "0x10000000L",
139 "0.9.8" => "0x00908000L",
140};
141
9e0724a1 142our %table = ();
291e94df 143our %config = ();
98fdbce0 144our %withargs = ();
3e83e686 145
bd5192b1 146# Forward declarations ###############################################
7ead0c89 147
bd5192b1
RL		 148# read_config(filename)
149#
150# Reads a configuration file and populates %table with the contents
151# (which the configuration file places in %targets).
152sub read_config;
7d46b942 153
bd5192b1
RL		 154# resolve_config(target)
155#
156# Resolves all the late evalutations, inheritances and so on for the
157# chosen target and any target it inherits from.
158sub resolve_config;
7d46b942 159
15c7adb0 160
107b5792
RL		 161# Information collection #############################################
162
9fe2bb77 163# Unified build supports separate build dir
ec182ef0
RL		 164my $srcdir = catdir(absolutedir(dirname($0))); # catdir ensures local syntax
165my $blddir = catdir(absolutedir(".")); # catdir ensures local syntax
9fe2bb77
RL		 166my $dofile = abs2rel(catfile($srcdir, "util/dofile.pl"));
167
168$config{sourcedir} = abs2rel($srcdir);
169$config{builddir} = abs2rel($blddir);
170
107b5792
RL		 171# Collect version numbers
172$config{version} = "unknown";
173$config{version_num} = "unknown";
174$config{shlib_version_number} = "unknown";
175$config{shlib_version_history} = "unknown";
176
177collect_information(
9fe2bb77 178 collect_from_file(catfile($srcdir,'include/openssl/opensslv.h')),
107b5792
RL		 179 qr/OPENSSL.VERSION.TEXT.*OpenSSL (\S+) / => sub { $config{version} = $1; },
180 qr/OPENSSL.VERSION.NUMBER.*(0x\S+)/ => sub { $config{version_num}=$1 },
181 qr/SHLIB_VERSION_NUMBER *"([^"]+)"/ => sub { $config{shlib_version_number}=$1 },
182 qr/SHLIB_VERSION_HISTORY *"([^"]*)"/ => sub { $config{shlib_version_history}=$1 }
183 );
184if ($config{shlib_version_history} ne "") { $config{shlib_version_history} .= ":"; }
185
186($config{major}, $config{minor})
187 = ($config{version} =~ /^([0-9]+)\.([0-9\.]+)/);
188($config{shlib_major}, $config{shlib_minor})
189 = ($config{shlib_version_number} =~ /^([0-9]+)\.([0-9\.]+)/);
190die "erroneous version information in opensslv.h: ",
191 "$config{major}, $config{minor}, $config{shlib_major}, $config{shlib_minor}\n"
192 if ($config{major} eq "" || $config{minor} eq ""
193 || $config{shlib_major} eq "" || $config{shlib_minor} eq "");
194
195# Collect target configurations
196
85152ca4 197my $pattern = catfile(dirname($0), "Configurations", "*.conf");
97a0cc52 198foreach (sort glob($pattern) ) {
f09e7ca9
RS		 199 &read_config($_);
200}
d02b48c6 201
291e94df 202
107b5792
RL		 203print "Configuring OpenSSL version $config{version} (0x$config{version_num})\n";
204
291e94df
RL		 205$config{perl};
206$config{prefix}="";
207$config{openssldir}="";
7d130f68 208$config{processor}="";
107b5792 209$config{libdir}="";
642a6138 210$config{cross_compile_prefix}="";
107b5792 211$config{fipslibdir}="/usr/local/ssl/fips-2.0/lib/";
1ab2f7f1 212my $nofipscanistercheck=0;
107b5792 213$config{baseaddr}="0xFB00000";
9c62a279 214my $auto_threads=1; # enable threads automatically? true by default
0396479d 215my $default_ranlib;
107b5792
RL		 216$config{fips}=0;
217
218# Top level directories to build
219$config{dirs} = [ "crypto", "ssl", "engines", "apps", "test", "tools" ];
220# crypto/ subdirectories to build
221$config{sdirs} = [
222 "objects",
2d0b4412 223 "md2", "md4", "md5", "sha", "mdc2", "hmac", "ripemd", "whrlpool", "poly1305", "blake2",
107b5792
RL		 224 "des", "aes", "rc2", "rc4", "rc5", "idea", "bf", "cast", "camellia", "seed", "chacha", "modes",
225 "bn", "ec", "rsa", "dsa", "dh", "dso", "engine",
226 "buffer", "bio", "stack", "lhash", "rand", "err",
227 "evp", "asn1", "pem", "x509", "x509v3", "conf", "txt_db", "pkcs7", "pkcs12", "comp", "ocsp", "ui",
dba31777 228 "cms", "ts", "srp", "cmac", "ct", "async", "kdf"
107b5792 229 ];
99aab161 230
6b01bed2
VD		 231# Known TLS and DTLS protocols
232my @tls = qw(ssl3 tls1 tls1_1 tls1_2);
233my @dtls = qw(dtls1 dtls1_2);
234
8b527be2
RL		 235# Explicitelly known options that are possible to disable. They can
236# be regexps, and will be used like this: /^no-${option}$/
237# For developers: keep it sorted alphabetically
238
239my @disablables = (
240 "aes",
241 "asm",
52739e40 242 "async",
b184e3ef 243 "autoalginit",
498abff0 244 "autoerrinit",
8b527be2 245 "bf",
2d0b4412 246 "blake2",
8b527be2
RL		 247 "camellia",
248 "capieng",
249 "cast",
48f14845 250 "chacha",
8b527be2
RL		 251 "cmac",
252 "cms",
253 "comp",
3e45d393 254 "crypto-mdebug",
ef8ca6bd 255 "crypto-mdebug-backtrace",
8b527be2
RL		 256 "ct",
257 "deprecated",
258 "des",
259 "dgram",
260 "dh",
261 "dsa",
262 "dso",
a5ecdc6a 263 "dtls",
343ec2b0 264 "dynamic-engine",
8b527be2
RL		 265 "ec",
266 "ec2m",
6b01bed2
VD		 267 "ecdh",
268 "ecdsa",
8b527be2 269 "ec_nistp_64_gcc_128",
b31feae6 270 "egd",
8b527be2 271 "engine",
1288f26f 272 "err",
02f7114a 273 "filenames",
8b527be2
RL		 274 "heartbeats",
275 "hmac",
276 "hw(-.+)?",
277 "idea",
09aa263a 278 "makedepend",
8b527be2
RL		 279 "md2",
280 "md4",
281 "md5",
282 "mdc2",
283 "md[-_]ghost94",
fa22f98f 284 "multiblock",
8b527be2
RL		 285 "nextprotoneg",
286 "ocb",
287 "ocsp",
ae48242c 288 "pic",
48f14845 289 "poly1305",
8b527be2
RL		 290 "posix-io",
291 "psk",
292 "rc2",
293 "rc4",
294 "rc5",
295 "rdrand",
296 "rfc3779",
297 "rijndael", # Old AES name
1288f26f 298 "ripemd",
8b527be2
RL		 299 "rmd160",
300 "rsa",
301 "scrypt",
302 "sct",
303 "sctp",
304 "seed",
305 "sha",
306 "shared",
307 "sock",
308 "srp",
309 "srtp",
310 "sse2",
311 "ssl",
8b527be2
RL		 312 "ssl-trace",
313 "static-engine",
314 "stdio",
8b527be2
RL		 315 "threads",
316 "tls",
1288f26f
RS		 317 "ts",
318 "ui",
8b527be2
RL		 319 "unit-test",
320 "whirlpool",
8b1a5af3 321 "weak-ssl-ciphers",
8b527be2
RL		 322 "zlib",
323 "zlib-dynamic",
324 );
6b01bed2
VD		 325foreach my $proto ((@tls, @dtls))
326 {
327 push(@disablables, $proto);
328 push(@disablables, "$proto-method");
329 }
8b527be2 330
e80381e1
RL		 331my @deprecated_disablables = (
332 "ssl2",
333 );
334
c9a112f5
BM		 335# All of the following is disabled by default (RC5 was enabled before 0.9.8):
336
9e04edf2
RL		 337our %disabled = ( # "what" => "comment"
338 "ec_nistp_64_gcc_128" => "default",
8b1a5af3
MC		 339 "egd" => "default",
340 "md2" => "default",
341 "rc5" => "default",
342 "sctp" => "default",
343 "shared" => "default",
344 "ssl-trace" => "default",
9829b5ab
KR		 345 "ssl3" => "default",
346 "ssl3-method" => "default",
8b1a5af3
MC		 347 "static-engine" => "default",
348 "unit-test" => "default",
349 "weak-ssl-ciphers" => "default",
350 "zlib" => "default",
351 "zlib-dynamic" => "default",
352 "crypto-mdebug" => "default",
353 "heartbeats" => "default",
9e04edf2 354 );
c9a112f5 355
c569e206
RL		 356# Note: => pair form used for aesthetics, not to truly make a hash table
357my @disable_cascades = (
358 # "what" => [ "cascade", ... ]
7d130f68 359 sub { $config{processor} eq "386" }
c569e206
RL		 360 => [ "sse2" ],
361 "ssl" => [ "ssl3" ],
362 "ssl3-method" => [ "ssl3" ],
363 "zlib" => [ "zlib-dynamic" ],
364 "rijndael" => [ "aes" ],
365 "des" => [ "mdc2" ],
9e4d6fbf 366 "ec" => [ "ecdsa", "ecdh" ],
c569e206
RL		 367
368 "dgram" => [ "dtls" ],
369 "dtls" => [ @dtls ],
370
371 # SSL 3.0, (D)TLS 1.0 and TLS 1.1 require MD5 and SHA
372 "md5" => [ "ssl", "tls1", "tls1_1", "dtls1" ],
373 "sha" => [ "ssl", "tls1", "tls1_1", "dtls1" ],
374
375 # Additionally, SSL 3.0 requires either RSA or DSA+DH
376 sub { $disabled{rsa}
377 && ($disabled{dsa} || $disabled{dh}); }
378 => [ "ssl" ],
379
380 # (D)TLS 1.0 and TLS 1.1 also require either RSA or DSA+DH
381 # or ECDSA + ECDH. (D)TLS 1.2 has this requirement as well.
382 # (XXX: We don't support PSK-only builds).
383 sub { $disabled{rsa}
384 && ($disabled{dsa} || $disabled{dh})
385 && ($disabled{ecdsa} || $disabled{ecdh}); }
386 => [ "tls1", "tls1_1", "tls1_2",
387 "dtls1", "dtls1_2" ],
388
389 "tls" => [ @tls ],
390
391 # SRP and HEARTBEATS require TLSEXT
392 "tlsext" => [ "srp", "heartbeats" ],
ef8ca6bd
RL		 393
394 "crypto-mdebug" => [ "crypto-mdebug-backtrace" ],
343ec2b0
RL		 395
396 # Without DSO, we can't load dynamic engines, so don't build them dynamic
397 "dso" => [ "dynamic-engine" ],
ae48242c
RL		 398
399 # Without position independent code, there can be no shared libraries or DSOs
00698061
RL		 400 "pic" => [ "shared" ],
401 "shared" => [ "dynamic-engine" ],
c569e206
RL		 402 );
403
404# Avoid protocol support holes. Also disable all versions below N, if version
405# N is disabled while N+1 is enabled.
406#
407my @list = (reverse @tls);
408while ((my $first, my $second) = (shift @list, shift @list)) {
409 last unless @list;
410 push @disable_cascades, ( sub { !$disabled{$first} && $disabled{$second} }
411 => [ @list ] );
412 unshift @list, $second;
413}
414my @list = (reverse @dtls);
415while ((my $first, my $second) = (shift @list, shift @list)) {
416 last unless @list;
417 push @disable_cascades, ( sub { !$disabled{$first} && $disabled{$second} }
418 => [ @list ] );
419 unshift @list, $second;
420}
421
7a762197 422# Explicit "no-..." options will be collected in %disabled along with the defaults.
e4ef2e25 423# To remove something from %disabled, use "enable-foo".
7a762197
BM		 424# For symmetry, "disable-foo" is a synonym for "no-foo".
425
e737d7b1
RL		 426my @generated_headers = (
427 "include/openssl/opensslconf.h",
e987f9f2
RL		 428 "crypto/include/internal/bn_conf.h",
429 "crypto/include/internal/dso_conf.h"
e737d7b1
RL		 430 );
431
432my @generated_by_make_headers = (
433 "crypto/buildinf.h"
434 );
435
ab185b60 436
d0590fe6 437my $no_sse2=0;
b6e4dac2 438
462ba4f6 439&usage if ($#ARGV < 0);
d02b48c6 440
bcb1977b
RL		 441my $user_cflags="";
442my @user_defines=();
7d130f68
RL		 443$config{openssl_api_defines}=[];
444$config{openssl_algorithm_defines}=[];
445$config{openssl_thread_defines}=[];
446$config{openssl_sys_defines}=[];
447$config{openssl_other_defines}=[];
fe05264e
RL		 448my $libs="";
449my $target="";
3fa04f0d 450$config{options}="";
8864f0de 451$config{build_type} = "release";
c59cb511 452
dc3365f7
RL		 453my $classic = 0;
454
c59cb511 455my @argvcopy=@ARGV;
c59cb511 456
fe05264e 457if (grep /^reconf(igure)?$/, @argvcopy) {
642a6138
RL		 458 if (-f "./configdata.pm") {
459 my $file = "./configdata.pm";
460 unless (my $return = do $file) {
461 die "couldn't parse $file: $@" if $@;
462 die "couldn't do $file: $!" unless defined $return;
463 die "couldn't run $file" unless $return;
fe05264e 464 }
642a6138
RL		 465
466 @argvcopy = defined($configdata::config{perlargv}) ?
467 @{$configdata::config{perlargv}} : ();
468 die "Incorrect data to reconfigure, please do a normal configuration\n"
469 if (grep(/^reconf/,@argvcopy));
470 $ENV{CROSS_COMPILE} = $configdata::config{cross_compile_prefix}
471 if defined($configdata::config{cross_compile_prefix});
472 $ENV{CROSS_COMPILE} = $configdata::config{cc}
473 if defined($configdata::config{cc});
474
fe05264e
RL		 475 print "Reconfiguring with: ", join(" ",@argvcopy), "\n";
476 print " CROSS_COMPILE = ",$ENV{CROSS_COMPILE},"\n"
477 if $ENV{CROSS_COMPILE};
478 print " CC = ",$ENV{CC},"\n" if $ENV{CC};
642a6138
RL		 479 } elsif (open IN, "<Makefile") {
480 #
481 # THIS SECTION IS TEMPORARY, it helps transitioning from Makefile
482 # centered information gathering the reading configdata.pm
483 #
484 while (<IN>) {
04f171c0 485 s|\R$||;
642a6138
RL		 486 if (/^CONFIGURE_ARGS=\s*(.*)\s*/) {
487 # Older form, we split the string and hope for the best
488 @argvcopy = split /\s+/, $_;
489 die "Incorrect data to reconfigure, please do a normal configuration\n"
490 if (grep(/^reconf/,@argvcopy));
491 } elsif (/^CROSS_COMPILE=\s*(.*)/) {
492 $ENV{CROSS_COMPILE}=$1;
493 } elsif (/^CC=\s*(?:\$\(CROSS_COMPILE\))?(.*?)$/) {
494 $ENV{CC}=$1;
495 }
496 }
497 #
498 # END OF TEMPORARY SECTION
499 #
fe05264e
RL		 500 } else {
501 die "Insufficient data to reconfigure, please do a normal configuration\n";
502 }
503}
504
642a6138 505$config{perlargv} = [ @argvcopy ];
fe05264e
RL		 506
507my %unsupported_options = ();
e80381e1 508my %deprecated_options = ();
fe05264e 509foreach (@argvcopy)
16b6081e 510 {
7c55e22c
RL		 511 # VMS is a case insensitive environment, and depending on settings
512 # out of our control, we may receive options uppercased. Let's
513 # downcase at least the part before any equal sign.
514 if ($^O eq "VMS")
515 {
516 s/^([^=]*)/lc($1)/e;
517 }
fe05264e 518 s /^-no-/no-/; # some people just can't read the instructions
c9a112f5 519
fe05264e
RL		 520 # rewrite some options in "enable-..." form
521 s /^-?-?shared$/enable-shared/;
522 s /^sctp$/enable-sctp/;
523 s /^threads$/enable-threads/;
524 s /^zlib$/enable-zlib/;
525 s /^zlib-dynamic$/enable-zlib-dynamic/;
c9a112f5 526
e4ef2e25 527 if (/^(no|disable|enable)-(.+)$/)
fe05264e
RL		 528 {
529 my $word = $2;
e80381e1
RL		 530 if (grep { $word =~ /^${_}$/ } @deprecated_disablables)
531 {
532 $deprecated_options{$_} = 1;
533 next;
534 }
535 elsif (!grep { $word =~ /^${_}$/ } @disablables)
8b527be2 536 {
fe05264e
RL		 537 $unsupported_options{$_} = 1;
538 next;
8b527be2 539 }
fe05264e
RL		 540 }
541 if (/^no-(.+)$/ || /^disable-(.+)$/)
542 {
e4ef2e25
RS		 543 foreach my $proto ((@tls, @dtls))
544 {
545 if ($1 eq "$proto-method")
546 {
547 $disabled{"$proto"} = "option($proto-method)";
548 last;
549 }
550 }
551 if ($1 eq "dtls")
552 {
553 foreach my $proto (@dtls)
554 {
555 $disabled{$proto} = "option(dtls)";
556 }
557 }
558 elsif ($1 eq "ssl")
559 {
560 # Last one of its kind
561 $disabled{"ssl3"} = "option(ssl)";
562 }
563 elsif ($1 eq "tls")
564 {
565 # XXX: Tests will fail if all SSL/TLS
566 # protocols are disabled.
567 foreach my $proto (@tls)
568 {
569 $disabled{$proto} = "option(tls)";
570 }
571 }
343ec2b0
RL		 572 elsif ($1 eq "static-engine")
573 {
19ab5790 574 delete $disabled{"dynamic-engine"};
343ec2b0
RL		 575 }
576 elsif ($1 eq "dynamic-engine")
577 {
19ab5790 578 $disabled{"dynamic-engine"} = "option";
343ec2b0 579 }
e4ef2e25
RS		 580 else
581 {
582 $disabled{$1} = "option";
583 }
9c62a279
RL		 584 # No longer an automatic choice
585 $auto_threads = 0 if ($1 eq "threads");
fe05264e 586 }
e4ef2e25 587 elsif (/^enable-(.+)$/)
fe05264e 588 {
343ec2b0
RL		 589 if ($1 eq "static-engine")
590 {
19ab5790 591 $disabled{"dynamic-engine"} = "option";
343ec2b0
RL		 592 }
593 elsif ($1 eq "dynamic-engine")
594 {
19ab5790 595 delete $disabled{"dynamic-engine"};
343ec2b0 596 }
25004db7
RL		 597 elsif ($1 eq "zlib-dynamic")
598 {
599 delete $disabled{"zlib"};
600 }
fe05264e 601 my $algo = $1;
fe05264e 602 delete $disabled{$algo};
c9a112f5 603
9c62a279
RL		 604 # No longer an automatic choice
605 $auto_threads = 0 if ($1 eq "threads");
fe05264e
RL		 606 }
607 elsif (/^--strict-warnings$/)
608 {
609 $strict_warnings = 1;
610 }
611 elsif (/^--debug$/)
612 {
8864f0de 613 $config{build_type} = "debug";
fe05264e
RL		 614 }
615 elsif (/^--release$/)
616 {
8864f0de 617 $config{build_type} = "release";
fe05264e
RL		 618 }
619 elsif (/^386$/)
7d130f68 620 { $config{processor}=386; }
fe05264e
RL		 621 elsif (/^fips$/)
622 {
107b5792 623 $config{fips}=1;
fe05264e
RL		 624 }
625 elsif (/^rsaref$/)
626 {
627 # No RSAref support any more since it's not needed.
628 # The check for the option is there so scripts aren't
629 # broken
630 }
631 elsif (/^nofipscanistercheck$/)
632 {
107b5792 633 $config{fips} = 1;
fe05264e
RL		 634 $nofipscanistercheck = 1;
635 }
636 elsif (/^[-+]/)
637 {
dc3365f7
RL		 638 if (/^--classic$/)
639 {
640 $classic=1;
641 }
642 elsif (/^--prefix=(.*)$/)
fe05264e 643 {
291e94df 644 $config{prefix}=$1;
5482dac9
RL		 645 die "Directory given with --prefix MUST be absolute\n"
646 unless file_name_is_absolute($config{prefix});
c9a112f5 647 }
fe05264e 648 elsif (/^--api=(.*)$/)
0c28f277 649 {
107b5792 650 $config{api}=$1;
0c28f277 651 }
fe05264e 652 elsif (/^--libdir=(.*)$/)
9e43c6b5 653 {
107b5792 654 $config{libdir}=$1;
9e43c6b5 655 }
fe05264e 656 elsif (/^--openssldir=(.*)$/)
9e43c6b5 657 {
291e94df 658 $config{openssldir}=$1;
9e43c6b5 659 }
fe05264e 660 elsif (/^--with-zlib-lib=(.*)$/)
9fdb2cc5 661 {
20a5819f 662 $withargs{zlib_lib}=$1;
7d8bb912 663 }
fe05264e 664 elsif (/^--with-zlib-include=(.*)$/)
3eb0ed6d 665 {
20a5819f 666 $withargs{zlib_include}="-I$1";
462ba4f6 667 }
fe05264e 668 elsif (/^--with-fipslibdir=(.*)$/)
1ab2f7f1 669 {
107b5792 670 $config{fipslibdir}="$1/";
1ab2f7f1 671 }
fe05264e 672 elsif (/^--with-baseaddr=(.*)$/)
462ba4f6 673 {
107b5792 674 $config{baseaddr}="$1";
3eb0ed6d 675 }
fe05264e 676 elsif (/^--cross-compile-prefix=(.*)$/)
e5f3045f 677 {
642a6138 678 $config{cross_compile_prefix}=$1;
e5f3045f 679 }
fe05264e 680 elsif (/^--config=(.*)$/)
d02b48c6 681 {
fe05264e 682 read_config $1;
c59cb511 683 }
fe05264e 684 elsif (/^-[lL](.*)$/ or /^-Wl,/)
c9a112f5 685 {
fe05264e 686 $libs.=$_." ";
d02b48c6 687 }
bcb1977b
RL		 688 elsif (/^-D(.*)$/)
689 {
690 push @user_defines, $1;
691 }
fe05264e
RL		 692 else # common if (/^[-+]/), just pass down...
693 {
694 $_ =~ s/%([0-9a-f]{1,2})/chr(hex($1))/gei;
2b91ec75 695 $user_cflags.=" ".$_;
fe05264e
RL		 696 }
697 }
fe05264e
RL		 698 else
699 {
700 die "target already defined - $target (offending arg: $_)\n" if ($target ne "");
701 $target=$_;
702 }
703 unless ($_ eq $target || /^no-/ || /^disable-/)
704 {
705 # "no-..." follows later after implied disactivations
706 # have been derived. (Don't take this too seroiusly,
707 # we really only write OPTIONS to the Makefile out of
708 # nostalgia.)
709
3fa04f0d
RL		 710 if ($config{options} eq "")
711 { $config{options} = $_; }
fe05264e 712 else
3fa04f0d 713 { $config{options} .= " ".$_; }
fbabb752 714 }
489eb740 715
107b5792
RL		 716 if (defined($config{api}) && !exists $apitable->{$config{api}}) {
717 die "***** Unsupported api compatibility level: $config{api}\n",
98186eb4
VD		 718 }
719
e80381e1
RL		 720 if (keys %deprecated_options)
721 {
722 warn "***** Deprecated options: ",
723 join(", ", keys %deprecated_options), "\n";
724 }
489eb740
RL		 725 if (keys %unsupported_options)
726 {
727 die "***** Unsupported options: ",
728 join(", ", keys %unsupported_options), "\n";
729 }
fbabb752 730 }
b6e4dac2 731
107b5792 732if ($config{fips})
a7a14a23 733 {
c569e206 734 delete $disabled{"shared"} if ($disabled{"shared"} =~ /^default/);
6b01bed2 735 }
107b5792
RL		 736else
737 {
738 @{$config{dirs}} = grep !/^fips$/, @{$config{dirs}};
739 }
c9a112f5 740
c569e206
RL		 741my @tocheckfor = (keys %disabled);
742while (@tocheckfor) {
743 my %new_tocheckfor = ();
744 my @cascade_copy = (@disable_cascades);
745 while (@cascade_copy) {
746 my ($test, $descendents) = (shift @cascade_copy, shift @cascade_copy);
747 if (ref($test) eq "CODE" ? $test->() : defined($disabled{$test})) {
748 map {
749 $new_tocheckfor{$_} => 1; $disabled{$_} = "forced";
750 } grep { !defined($disabled{$_}) } @$descendents;
ef236ec3 751 }
c569e206
RL		 752 }
753 @tocheckfor = (keys %new_tocheckfor);
754}
edc032b5 755
436a376b 756if ($target eq "TABLE") {
00ae96ca
RL		 757 foreach (sort keys %table) {
758 print_table_entry($_, "TABLE");
759 }
760 exit 0;
436a376b
BM		 761}
762
10a926c1 763if ($target eq "LIST") {
00ae96ca
RL		 764 foreach (sort keys %table) {
765 print $_,"\n" unless $table{$_}->{template};
766 }
767 exit 0;
10a926c1
UM		 768}
769
aaf878cc 770if ($target eq "HASH") {
00ae96ca
RL		 771 print "%table = (\n";
772 foreach (sort keys %table) {
773 print_table_entry($_, "HASH");
774 }
775 exit 0;
aaf878cc
RL		 776}
777
00ae96ca 778# Backward compatibility?
49e04548 779if ($target =~ m/^CygWin32(-.*)$/) {
00ae96ca 780 $target = "Cygwin".$1;
49e04548
RL		 781}
782
c9a112f5
BM		 783foreach (sort (keys %disabled))
784 {
3fa04f0d 785 $config{options} .= " no-$_";
c9a112f5
BM		 786
787 printf " no-%-12s %-10s", $_, "[$disabled{$_}]";
788
789 if (/^dso$/)
721f9058 790 { }
c9a112f5 791 elsif (/^threads$/)
22bfe05e 792 { }
c9a112f5 793 elsif (/^shared$/)
84af1bae 794 { }
ae48242c
RL		 795 elsif (/^pic$/)
796 { }
c9a112f5 797 elsif (/^zlib$/)
36a30909 798 { }
19ab5790 799 elsif (/^dynamic-engine$/)
fbf002bb 800 { }
09aa263a
RL		 801 elsif (/^makedepend$/)
802 { }
c9a112f5
BM		 803 elsif (/^zlib-dynamic$/)
804 { }
c9a112f5
BM		 805 elsif (/^sse2$/)
806 { $no_sse2 = 1; }
107b5792 807 elsif (/^engine$/)
1288f26f
RS		 808 {
809 @{$config{dirs}} = grep !/^engines$/, @{$config{dirs}};
810 @{$config{sdirs}} = grep !/^engine$/, @{$config{sdirs}};
811 push @{$config{openssl_other_defines}}, "OPENSSL_NO_ENGINE";
812 }
c9a112f5
BM		 813 else
814 {
815 my ($ALGO, $algo);
30fafdeb 816 ($ALGO = $algo = $_) =~ tr/[\-a-z]/[_A-Z]/;
c9a112f5 817
316fae2a 818 if (/^asm$/ || /^err$/ || /^hw$/ || /^hw-/ || /^async$/
498abff0 819 || /^autoalginit/ || /^autoerrinit/)
c9a112f5 820 {
7d130f68 821 push @{$config{openssl_other_defines}}, "OPENSSL_NO_$ALGO";
c9a112f5 822 print " OPENSSL_NO_$ALGO";
fce0ba5f 823
bcb1977b 824 if (/^err$/) { push @user_defines, "OPENSSL_NO_ERR"; }
c9a112f5
BM		 825 }
826 else
827 {
2a4af947
AP		 828 ($ALGO,$algo) = ("RMD160","rmd160") if ($algo eq "ripemd");
829
7d130f68 830 push @{$config{openssl_algorithm_defines}}, "OPENSSL_NO_$ALGO";
c9a112f5
BM		 831 print " OPENSSL_NO_$ALGO";
832
e36827f6 833 # fix-up crypto/directory name(s)
107b5792
RL		 834 $algo="whrlpool" if $algo eq "whirlpool";
835 $algo="ripemd" if $algo eq "rmd160";
836 @{$config{sdirs}} = grep { $_ ne $algo} @{$config{sdirs}};
2a4af947 837
e36827f6 838 print " (skip dir)";
c9a112f5
BM		 839 }
840 }
841
842 print "\n";
843 }
844
9e0724a1
RL		 845print "Configuring for $target\n";
846
847# Support for legacy targets having a name starting with 'debug-'
848my ($d, $t) = $target =~ m/^(debug-)?(.*)$/;
849if ($d) {
8864f0de 850 $config{build_type} = "debug";
9e0724a1
RL		 851
852 # If we do not find debug-foo in the table, the target is set to foo.
853 if (!$table{$target}) {
854 $target = $t;
855 }
856}
291e94df 857$config{target} = $target;
79302211 858my %target = resolve_config($target);
9e0724a1
RL		 859
860&usage if (!%target || $target{template});
861
d2b2221a 862%target = ( %{$table{DEFAULTS}}, %target );
79302211 863
107b5792 864$target{exe_extension}="";
f99f91f1
RL		 865$target{exe_extension}=".exe" if ($config{target} eq "DJGPP"
866 || $config{target} =~ /^(?:Cygwin|mingw)/);
107b5792
RL		 867$target{exe_extension}=".nlm" if ($config{target} =~ /netware/);
868$target{exe_extension}=".pm" if ($config{target} =~ /vos/);
462ba4f6 869
e987f9f2
RL		 870($target{shared_extension_simple}=$target{shared_extension})
871 =~ s|\.\$\(SHLIB_MAJOR\)\.\$\(SHLIB_MINOR\)||;
872$target{dso_extension}=$target{shared_extension_simple};
873($target{shared_import_extension}=$target{shared_extension_simple}.".a")
874 if ($config{target} =~ /^(?:Cygwin|mingw)/);
875
876
642a6138
RL		 877$config{cross_compile_prefix} = $ENV{'CROSS_COMPILE'}
878 if $config{cross_compile_prefix} eq "";
f99f41cf 879
b0a1e8bf
RL		 880# Allow overriding the names of some tools. USE WITH CARE
881$config{perl} = $ENV{'PERL'} || which("perl5") || which("perl") || "perl";
882$target{cc} = $ENV{'CC'} || $target{cc} || "cc";
883$target{ranlib} = $ENV{'RANLIB'} || $target{ranlib} || which("ranlib") || "true";
884$target{ar} = $ENV{'AR'} || $target{ar} || "ar";
885$target{nm} = $ENV{'NM'} || $target{nm} || "nm";
aaf878cc 886
bcb1977b
RL		 887# For cflags, lflags, plib_lflags, ex_libs and defines, add the debug_
888# or release_ attributes.
aaf878cc 889# Do it in such a way that no spurious space is appended (hence the grep).
2952b9b8
RL		 890$config{defines} = [];
891$config{cflags} = "";
892$config{ex_libs} = "";
893$config{shared_ldflag} = "";
bd5192b1 894
291e94df
RL		 895# Make sure build_scheme is consistent.
896$target{build_scheme} = [ $target{build_scheme} ]
897 if ref($target{build_scheme}) ne "ARRAY";
898
dc3365f7
RL		 899###### TO BE REMOVED WHEN CLASSIC BUILD IS REMOVED
900######
901###### If the user has chosen --classic, we give it to them.
902###### If they try that with an out-of-source config, we complain.
903if ($target{build_scheme}->[0] eq "unified" && $classic) {
904 die "Can't perform a classic build out of source tree\n"
905 if $srcdir ne $blddir;
906
907 $target{build_scheme} = { unix => [ "unixmake" ],
908 windows => [ "mk1mf", $target{build_scheme}->[2] ],
909 VMS => undef } -> {$target{build_scheme}->[1]};
910
911 die "Classic mode unavailable on this platform\n"
912 unless defined($target{build_scheme});
913}
914
ddf1847d
RL		 915my ($builder, $builder_platform, @builder_opts) =
916 @{$target{build_scheme}};
917
68ab559a 918if ($target =~ /^mingw/ && `$target{cc} --target-help 2>&1` =~ m/-mno-cygwin/m)
cbecd29a 919 {
68ab559a 920 $config{cflags} .= " -mno-cygwin";
2952b9b8 921 $config{shared_ldflag} .= " -mno-cygwin";
cbecd29a
AP		 922 }
923
00b0d663 924if ($target =~ /linux.*-mips/ && !$disabled{asm} && $user_cflags !~ /-m(ips|arch=)/) {
63d8834c 925 # minimally required architecture flags for assembly modules
107b5792
RL		 926 $config{cflags}="-mips2 $config{cflags}" if ($target =~ /mips32/);
927 $config{cflags}="-mips3 $config{cflags}" if ($target =~ /mips64/);
63d8834c
AP		 928}
929
2964ba8c 930my $no_shared_warn=0;
14bcdb08 931my $no_user_cflags=0;
bcb1977b 932my $no_user_defines=0;
2964ba8c 933
bc2aadad
GT		 934# The DSO code currently always implements all functions so that no
935# applications will have to worry about that from a compilation point
936# of view. However, the "method"s may return zero unless that platform
937# has support compiled in for them. Currently each method is enabled
938# by a define "DSO_<name>" ... we translate the "dso_scheme" config
939# string entry into using the following logic;
721f9058 940if (!$disabled{dso} && $target{dso_scheme} ne "")
bc2aadad 941 {
291e94df
RL		 942 $target{dso_scheme} =~ tr/[a-z]/[A-Z]/;
943 if ($target{dso_scheme} eq "DLFCN")
bc2aadad 944 {
2952b9b8 945 unshift @{$config{defines}}, "DSO_DLFCN", "HAVE_DLFCN_H";
bc2aadad 946 }
291e94df 947 elsif ($target{dso_scheme} eq "DLFCN_NO_H")
bc2aadad 948 {
2952b9b8 949 unshift @{$config{defines}}, "DSO_DLFCN";
bc2aadad
GT		 950 }
951 else
952 {
2952b9b8 953 unshift @{$config{defines}}, "DSO_$target{dso_scheme}";
bc2aadad
GT		 954 }
955 }
9ec0126e 956
1740c162 957$config{ex_libs}="$libs$config{ex_libs}" if ($libs ne "");
d02b48c6 958
00b0d663 959if ($disabled{asm})
dfeab068 960 {
2952b9b8
RL		 961 if ($config{fips})
962 {
963 @{$config{defines}} = grep !/^[BL]_ENDIAN$/, @{$config{defines}};
964 @{$target{defines}} = grep !/^[BL]_ENDIAN$/, @{$target{defines}};
965 }
dfeab068 966 }
6f7ac8e1 967
9c62a279
RL		 968# If threads aren't disabled, check how possible they are
969unless ($disabled{threads}) {
970 if ($auto_threads) {
971 # Enabled by default, disable it forcibly if unavailable
972 if ($target{thread_scheme} eq "(unknown)") {
973 $disabled{threads} = "unavailable";
974 }
975 } else {
976 # The user chose to enable threads explicitely, let's see
977 # if there's a chance that's possible
978 if ($target{thread_scheme} eq "(unknown)") {
979 # If the user asked for "threads" and we don't have internal
980 # knowledge how to do it, [s]he is expected to provide any
981 # system-dependent compiler options that are necessary. We
982 # can't truly check that the given options are correct, but
983 # we expect the user to know what [s]He is doing.
984 if ($no_user_cflags && $no_user_defines) {
985 die "You asked for multi-threading support, but didn't\n"
986 ,"provide any system-specific compiler options\n";
987 }
988 }
989 }
990}
991
992# If threads still aren't disabled, add a C macro to ensure the source
993# code knows about it. Any other flag is taken care of by the configs.
994unless($disabled{threads}) {
995 foreach (("defines", "openssl_thread_defines")) {
996 push @{$config{$_}}, "OPENSSL_THREADS";
997 }
998}
e452de9d 999
98186eb4
VD		 1000# With "deprecated" disable all deprecated features.
1001if (defined($disabled{"deprecated"})) {
107b5792 1002 $config{api} = $maxapi;
98186eb4 1003}
07c4c14c 1004
291e94df 1005if ($target{shared_target} eq "")
6f7ac8e1 1006 {
ae48242c 1007 $no_shared_warn = 1
84af1bae 1008 if ((!$disabled{shared} || !$disabled{"dynamic-engine"})
ae48242c 1009 && !$config{fips});
84af1bae 1010 $disabled{shared} = "no-shared-target";
ae48242c
RL		 1011 $disabled{pic} = $disabled{shared} = $disabled{"dynamic-engine"} =
1012 "no-shared-target";
6f7ac8e1 1013 }
b436a982 1014
19ab5790 1015if ($disabled{"dynamic-engine"}) {
343ec2b0
RL		 1016 push @{$config{defines}}, "OPENSSL_NO_DYNAMIC_ENGINE";
1017 $config{dynamic_engines} = 0;
19ab5790
RL		 1018} else {
1019 push @{$config{defines}}, "OPENSSL_NO_STATIC_ENGINE";
1020 $config{dynamic_engines} = 1;
343ec2b0 1021}
ecd45314 1022
c313e32a
AP		 1023#
1024# Platform fix-ups
1025#
ae48242c
RL		 1026
1027# This saves the build files from having to check
1028if ($disabled{pic})
1029 {
1030 $target{shared_cflag} = $target{shared_ldflag} =
1031 $target{shared_rcflag} = "";
1032 }
4f16039e
RL		 1033else
1034 {
1035 push @{$config{defines}}, "OPENSSL_PIC";
1036 }
ae48242c 1037
291e94df 1038if ($target{sys_id} ne "")
cf1b7d96 1039 {
642a6138 1040 push @{$config{openssl_sys_defines}}, "OPENSSL_SYS_$target{sys_id}";
cf1b7d96
RL		 1041 }
1042
00b0d663 1043unless ($disabled{asm}) {
d2b2221a 1044 $target{cpuid_asm_src}=$table{DEFAULTS}->{cpuid_asm_src} if ($config{processor} eq "386");
9fe2bb77 1045 $target{bn_asm_src} =~ s/\w+-gf2m.c// if (defined($disabled{ec2m}));
f8c469de 1046
9e0724a1 1047 # bn-586 is the only one implementing bn_*_part_words
bcb1977b
RL		 1048 push @{$config{defines}}, "OPENSSL_BN_ASM_PART_WORDS" if ($target{bn_asm_src} =~ /bn-586/);
1049 push @{$config{defines}}, "OPENSSL_IA32_SSE2" if (!$no_sse2 && $target{bn_asm_src} =~ /86/);
dfeab068 1050
bcb1977b
RL		 1051 push @{$config{defines}}, "OPENSSL_BN_ASM_MONT" if ($target{bn_asm_src} =~ /-mont/);
1052 push @{$config{defines}}, "OPENSSL_BN_ASM_MONT5" if ($target{bn_asm_src} =~ /-mont5/);
1053 push @{$config{defines}}, "OPENSSL_BN_ASM_GF2m" if ($target{bn_asm_src} =~ /-gf2m/);
5ac7bde7 1054
107b5792 1055 if ($config{fips}) {
7d130f68 1056 push @{$config{openssl_other_defines}}, "OPENSSL_FIPS";
9e0724a1 1057 }
1ab2f7f1 1058
9fe2bb77 1059 if ($target{sha1_asm_src}) {
bcb1977b
RL		 1060 push @{$config{defines}}, "SHA1_ASM" if ($target{sha1_asm_src} =~ /sx86/ || $target{sha1_asm_src} =~ /sha1/);
1061 push @{$config{defines}}, "SHA256_ASM" if ($target{sha1_asm_src} =~ /sha256/);
1062 push @{$config{defines}}, "SHA512_ASM" if ($target{sha1_asm_src} =~ /sha512/);
9e0724a1 1063 }
9fe2bb77 1064 if ($target{md5_asm_src}) {
bcb1977b 1065 push @{$config{defines}}, "MD5_ASM";
9e0724a1 1066 }
d2b2221a 1067 $target{cast_asm_src}=$table{DEFAULTS}->{cast_asm_src} unless $disabled{pic}; # CAST assembler is not PIC
9fe2bb77 1068 if ($target{rmd160_asm_src}) {
bcb1977b 1069 push @{$config{defines}}, "RMD160_ASM";
9e0724a1 1070 }
9fe2bb77 1071 if ($target{aes_asm_src}) {
bcb1977b 1072 push @{$config{defines}}, "AES_ASM" if ($target{aes_asm_src} =~ m/\baes-/);;
9fe2bb77 1073 # aes-ctr.fake is not a real file, only indication that assembler
874a3757 1074 # module implements AES_ctr32_encrypt...
bcb1977b 1075 push @{$config{defines}}, "AES_CTR_ASM" if ($target{aes_asm_src} =~ s/\s*aes-ctr\.fake//);
9fe2bb77 1076 # aes-xts.fake indicates presence of AES_xts_[en|de]crypt...
bcb1977b 1077 push @{$config{defines}}, "AES_XTS_ASM" if ($target{aes_asm_src} =~ s/\s*aes-xts\.fake//);
9fe2bb77 1078 $target{aes_asm_src} =~ s/\s*(vpaes|aesni)-x86\.s//g if ($no_sse2);
bcb1977b
RL		 1079 push @{$config{defines}}, "VPAES_ASM" if ($target{aes_asm_src} =~ m/vpaes/);
1080 push @{$config{defines}}, "BSAES_ASM" if ($target{aes_asm_src} =~ m/bsaes/);
9e0724a1 1081 }
9fe2bb77 1082 if ($target{wp_asm_src} =~ /mmx/) {
46d4d865 1083 if ($config{processor} eq "386") {
d2b2221a 1084 $target{wp_asm_src}=$table{DEFAULTS}->{wp_asm_src};
46d4d865 1085 } elsif (!$disabled{"whirlpool"}) {
2952b9b8 1086 push @{$config{defines}}, "WHIRLPOOL_ASM";
46d4d865 1087 }
9e0724a1 1088 }
9fe2bb77 1089 if ($target{modes_asm_src} =~ /ghash-/) {
bcb1977b 1090 push @{$config{defines}}, "GHASH_ASM";
9e0724a1 1091 }
9fe2bb77 1092 if ($target{ec_asm_src} =~ /ecp_nistz256/) {
bcb1977b 1093 push @{$config{defines}}, "ECP_NISTZ256_ASM";
9e0724a1 1094 }
9fe2bb77 1095 if ($target{poly1305_asm_src} ne "") {
bcb1977b 1096 push @{$config{defines}}, "POLY1305_ASM";
9e0724a1
RL		 1097 }
1098}
d02b48c6 1099
8ed40b83 1100my $ecc = $target{cc};
09aa263a 1101if ($^O ne "VMS" && !$disabled{makedepend}) {
a583fc45
RL		 1102 # Is the compiler gcc or clang? $ecc is used below to see if
1103 # error-checking can be turned on.
1104 my $ccpcc = "$config{cross_compile_prefix}$target{cc}";
d0db7ee0
AP		 1105 open(PIPE, "$ccpcc --version 2>&1 |");
1106 my $lines = 2;
a583fc45 1107 while ( <PIPE> ) {
30752dd7
RL		 1108 # Find the version number and save the major.
1109 m|(?:.*)\b(\d+)\.\d+\.\d+\b(?:.*)|;
39affe19 1110 my $compiler_major = $1;
30752dd7
RL		 1111 # We know that GNU C version 3 and up as well as all clang
1112 # versions support dependency generation
39affe19 1113 $config{makedepprog} = $ccpcc
d0db7ee0 1114 if (/clang/ || (/gcc/ && $compiler_major > 3));
a583fc45
RL		 1115 $ecc = "clang" if /clang/;
1116 $ecc = "gcc" if /gcc/;
d0db7ee0 1117 last if ($config{makedepprog} || !$lines--);
a583fc45
RL		 1118 }
1119 close(PIPE);
09aa263a 1120
d0db7ee0 1121 $config{makedepprog} = which('makedepend') unless $config{makedepprog};
09aa263a 1122 $disabled{makedepend} = "unavailable" unless $config{makedepprog};
f1f07a23 1123}
8ed40b83 1124
7d130f68 1125
09aa263a 1126
7d130f68
RL		 1127# Deal with bn_ops ###################################################
1128
7d130f68 1129$config{bn_ll} =0;
7d130f68
RL		 1130$config{export_var_as_fn} =0;
1131my $def_int="unsigned int";
1132$config{rc4_int} =$def_int;
b4f35e5e 1133($config{b64l},$config{b64},$config{b32})=(0,0,1);
7d130f68 1134
94af0cd7 1135my $count = 0;
7d130f68 1136foreach (sort split(/\s+/,$target{bn_ops})) {
94af0cd7
RS		 1137 $count++ if /SIXTY_FOUR_BIT|SIXTY_FOUR_BIT_LONG|THIRTY_TWO_BIT/;
1138 $config{export_var_as_fn}=1 if $_ eq 'EXPORT_VAR_AS_FN';
1139 $config{bn_ll}=1 if $_ eq 'BN_LLONG';
1140 $config{rc4_int}="unsigned char" if $_ eq 'RC4_CHAR';
1141 ($config{b64l},$config{b64},$config{b32})
1142 =(0,1,0) if $_ eq 'SIXTY_FOUR_BIT';
1143 ($config{b64l},$config{b64},$config{b32})
1144 =(1,0,0) if $_ eq 'SIXTY_FOUR_BIT_LONG';
1145 ($config{b64l},$config{b64},$config{b32})
1146 =(0,0,1) if $_ eq 'THIRTY_TWO_BIT';
7d130f68 1147}
94af0cd7
RS		 1148die "Exactly one of SIXTY_FOUR_BIT|SIXTY_FOUR_BIT_LONG|THIRTY_TWO_BIT can be set in bn_ops\n"
1149 if $count > 1;
7d130f68
RL		 1150
1151
1152# Hack cflags for better warnings (dev option) #######################
1153
1ed0c662
RL		 1154# "Stringify" the C flags string. This permits it to be made part of a string
1155# and works as well on command lines.
107b5792 1156$config{cflags} =~ s/([\\\"])/\\\1/g;
b436a982 1157
107b5792
RL		 1158if (defined($config{api})) {
1159 $config{openssl_api_defines} = [ "OPENSSL_MIN_API=".$apitable->{$config{api}} ];
bcb1977b 1160 my $apiflag = sprintf("OPENSSL_API_COMPAT=%s", $apitable->{$config{api}});
bcb1977b 1161 push @{$config{defines}}, $apiflag;
98186eb4
VD		 1162}
1163
0c28f277
DSH		 1164if ($strict_warnings)
1165 {
1166 my $wopt;
f1f07a23
RS		 1167 die "ERROR --strict-warnings requires gcc or clang"
1168 unless $ecc eq 'gcc' || $ecc eq 'clang';
0c28f277
DSH		 1169 foreach $wopt (split /\s+/, $gcc_devteam_warn)
1170 {
d918f9cb 1171 $config{cflags} .= " $wopt" unless ($config{cflags} =~ /(?:^|\s)$wopt(?:\s|$)/)
0c28f277 1172 }
190c8c60
BL		 1173 if ($ecc eq "clang")
1174 {
1175 foreach $wopt (split /\s+/, $clang_devteam_warn)
1176 {
d918f9cb 1177 $config{cflags} .= " $wopt" unless ($config{cflags} =~ /(?:^|\s)$wopt(?:\s|$)/)
190c8c60
BL		 1178 }
1179 }
ef8ca6bd
RL		 1180 }
1181
1182unless ($disabled{"crypto-mdebug-backtrace"})
1183 {
1184 foreach my $wopt (split /\s+/, $memleak_devteam_backtrace)
a1d3f3d1 1185 {
d918f9cb 1186 $config{cflags} .= " $wopt" unless ($config{cflags} =~ /(?:^|\s)$wopt(?:\s|$)/)
ef8ca6bd
RL		 1187 }
1188 if ($target =~ /^BSD-/)
1189 {
1190 $config{ex_libs} .= " -lexecinfo";
291e94df 1191 }
0c28f277
DSH		 1192 }
1193
63994098
RL		 1194if ($user_cflags ne "") { $config{cflags}="$config{cflags}$user_cflags"; }
1195else { $no_user_cflags=1; }
1196if (@user_defines) { $config{defines}=[ @{$config{defines}}, @user_defines ]; }
1197else { $no_user_defines=1; }
1198
1199# ALL MODIFICATIONS TO %config and %target MUST BE DONE FROM HERE ON
1200
79fff39d
RL		 1201unless ($disabled{engine}) {
1202 $config{afalg}="";
1203 if ($target =~ m/^linux/) {
1204 my $minver = 4*10000 + 1*100 + 0;
1205 if ($config{cross_compile_prefix} eq "") {
1206 my $verstr = `uname -r`;
1207 my ($ma, $mi1, $mi2) = split("\\.", $verstr);
1208 ($mi2) = $mi2 =~ /(\d+)/;
1209 my $ver = $ma*10000 + $mi1*100 + $mi2;
1210 if ($ver < $minver) {
1211 $disabled{afalg} = "too-old-kernel";
1212 } else {
1213 push @{$config{engdirs}}, "afalg";
1214 }
6cba4a66 1215 }
79fff39d
RL		 1216 } else {
1217 $disabled{afalg} = "not-linux";
7f458a48 1218 }
1219}
8da00a38
MC		 1220
1221push @{$config{openssl_other_defines}}, "OPENSSL_NO_AFALGENG" if ($disabled{afalg});
7f458a48 1222
9fe2bb77
RL		 1223# If we use the unified build, collect information from build.info files
1224my %unified_info = ();
1225
ddf1847d
RL		 1226if ($builder eq "unified") {
1227 # Store the name of the template file we will build the build file from
1228 # in %config. This may be useful for the build file itself.
1229 my $build_file_template =
1230 catfile($srcdir, "Configurations",
1231 $builder_platform."-".$target{build_file}.".tmpl");
1232 $build_file_template =
1233 catfile($srcdir, "Configurations", $target{build_file}.".tmpl")
1234 if (! -f $build_file_template);
1235 $config{build_file_template} = $build_file_template;
1236
9fe2bb77
RL		 1237 use lib catdir(dirname(__FILE__),"util");
1238 use with_fallback qw(Text::Template);
1239
9fe2bb77 1240 sub cleandir {
2e963849 1241 my $base = shift;
9fe2bb77 1242 my $dir = shift;
2e963849
RL		 1243 my $relativeto = shift || ".";
1244
1245 $dir = catdir($base,$dir) unless isabsolute($dir);
9fe2bb77 1246
ec182ef0
RL		 1247 # Make sure the directories we're building in exists
1248 mkpath($dir);
1249
2e963849 1250 my $res = abs2rel(absolutedir($dir), rel2abs($relativeto));
9fe2bb77
RL		 1251 #print STDERR "DEBUG[cleandir]: $dir , $base => $res\n";
1252 return $res;
1253 }
1254
1255 sub cleanfile {
2e963849 1256 my $base = shift;
9fe2bb77 1257 my $file = shift;
2e963849
RL		 1258 my $relativeto = shift || ".";
1259
1260 $file = catfile($base,$file) unless isabsolute($file);
1261
9fe2bb77
RL		 1262 my $d = dirname($file);
1263 my $f = basename($file);
1264
ec182ef0
RL		 1265 # Make sure the directories we're building in exists
1266 mkpath($d);
1267
2e963849 1268 my $res = abs2rel(catfile(absolutedir($d), $f), rel2abs($relativeto));
9fe2bb77
RL		 1269 #print STDERR "DEBUG[cleanfile]: $d , $f => $res\n";
1270 return $res;
1271 }
1272
1273 my @build_infos = ( [ ".", "build.info" ] );
1274 foreach (@{$config{dirs}}) {
1275 push @build_infos, [ $_, "build.info" ]
1276 if (-f catfile($srcdir, $_, "build.info"));
1277 }
1278 foreach (@{$config{sdirs}}) {
1279 push @build_infos, [ catdir("crypto", $_), "build.info" ]
1280 if (-f catfile($srcdir, "crypto", $_, "build.info"));
1281 }
1282 foreach (@{$config{engdirs}}) {
1283 push @build_infos, [ catdir("engines", $_), "build.info" ]
1284 if (-f catfile($srcdir, "engines", $_, "build.info"));
1285 }
1286
2e0956ba
RL		 1287 $config{build_infos} = [ ];
1288
9fe2bb77
RL		 1289 foreach (@build_infos) {
1290 my $sourced = catdir($srcdir, $_->[0]);
1291 my $buildd = catdir($blddir, $_->[0]);
1292
dca99383 1293 mkpath($buildd);
9fe2bb77
RL		 1294
1295 my $f = $_->[1];
1296 # The basic things we're trying to build
1297 my @programs = ();
1298 my @libraries = ();
1299 my @engines = ();
1300 my @scripts = ();
1301 my @extra = ();
8a67946e 1302 my @overrides = ();
9fe2bb77
RL		 1303 my @intermediates = ();
1304 my @rawlines = ();
1305
1306 my %ordinals = ();
1307 my %sources = ();
1308 my %includes = ();
1309 my %depends = ();
1310 my %renames = ();
1311 my %sharednames = ();
ae4c7450 1312 my %generate = ();
9fe2bb77 1313
2e0956ba 1314 push @{$config{build_infos}}, catfile(abs2rel($sourced, $blddir), $f);
9fe2bb77
RL		 1315 my $template = Text::Template->new(TYPE => 'FILE',
1316 SOURCE => catfile($sourced, $f));
1317 die "Something went wrong with $sourced/$f: $!\n" unless $template;
1318 my @text =
1319 split /^/m,
1320 $template->fill_in(HASH => { config => \%config,
1321 target => \%target,
9e04edf2 1322 disabled => \%disabled,
9fe2bb77
RL		 1323 builddir => abs2rel($buildd, $blddir),
1324 sourcedir => abs2rel($sourced, $blddir),
1325 buildtop => abs2rel($blddir, $blddir),
1326 sourcetop => abs2rel($srcdir, $blddir) },
1327 DELIMITERS => [ "{-", "-}" ]);
1328
1329 # The top item of this stack has the following values
1330 # -2 positive already run and we found ELSE (following ELSIF should fail)
1331 # -1 positive already run (skip until ENDIF)
1332 # 0 negatives so far (if we're at a condition, check it)
1333 # 1 last was positive (don't skip lines until next ELSE, ELSIF or ENDIF)
1334 # 2 positive ELSE (following ELSIF should fail)
1335 my @skip = ();
1336 collect_information(
1337 collect_from_array([ @text ],
1338 qr/\\$/ => sub { my $l1 = shift; my $l2 = shift;
1339 $l1 =~ s/\\$//; $l1.$l2 }),
1340 # Info we're looking for
1341 qr/^\s*IF\[((?:\\.|[^\\\]])*)\]\s*$/
635bd409 1342 => sub {
c5798e0e 1343 if (! @skip || $skip[$#skip] > 0) {
635bd409
RL		 1344 push @skip, !! $1;
1345 } else {
1346 push @skip, -1;
1347 }
1348 },
9fe2bb77
RL		 1349 qr/^\s*ELSIF\[((?:\\.|[^\\\]])*)\]\s*$/
1350 => sub { die "ELSIF out of scope" if ! @skip;
1351 die "ELSIF following ELSE" if abs($skip[$#skip]) == 2;
1352 $skip[$#skip] = -1 if $skip[$#skip] != 0;
1353 $skip[$#skip] = !! $1
1354 if $skip[$#skip] == 0; },
1355 qr/^\s*ELSE\s*$/
1356 => sub { die "ELSE out of scope" if ! @skip;
1357 $skip[$#skip] = -2 if $skip[$#skip] != 0;
1358 $skip[$#skip] = 2 if $skip[$#skip] == 0; },
1359 qr/^\s*ENDIF\s*$/
1360 => sub { die "ENDIF out of scope" if ! @skip;
1361 pop @skip; },
1362 qr/^\s*PROGRAMS\s*=\s*(.*)\s*$/
1363 => sub { push @programs, split(/\s+/, $1)
1364 if !@skip || $skip[$#skip] > 0 },
1365 qr/^\s*LIBS\s*=\s*(.*)\s*$/
1366 => sub { push @libraries, split(/\s+/, $1)
1367 if !@skip || $skip[$#skip] > 0 },
1368 qr/^\s*ENGINES\s*=\s*(.*)\s*$/
1369 => sub { push @engines, split(/\s+/, $1)
1370 if !@skip || $skip[$#skip] > 0 },
1371 qr/^\s*SCRIPTS\s*=\s*(.*)\s*$/
1372 => sub { push @scripts, split(/\s+/, $1)
1373 if !@skip || $skip[$#skip] > 0 },
1374 qr/^\s*EXTRA\s*=\s*(.*)\s*$/
1375 => sub { push @extra, split(/\s+/, $1)
1376 if !@skip || $skip[$#skip] > 0 },
8a67946e
RL		 1377 qr/^\s*OVERRIDES\s*=\s*(.*)\s*$/
1378 => sub { push @overrides, split(/\s+/, $1)
1379 if !@skip || $skip[$#skip] > 0 },
9fe2bb77
RL		 1380
1381 qr/^\s*ORDINALS\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/,
1382 => sub { push @{$ordinals{$1}}, split(/\s+/, $2)
1383 if !@skip || $skip[$#skip] > 0 },
1384 qr/^\s*SOURCE\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1385 => sub { push @{$sources{$1}}, split(/\s+/, $2)
1386 if !@skip || $skip[$#skip] > 0 },
1387 qr/^\s*INCLUDE\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1388 => sub { push @{$includes{$1}}, split(/\s+/, $2)
1389 if !@skip || $skip[$#skip] > 0 },
1390 qr/^\s*DEPEND\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1391 => sub { push @{$depends{$1}}, split(/\s+/, $2)
1392 if !@skip || $skip[$#skip] > 0 },
ae4c7450
RL		 1393 qr/^\s*GENERATE\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1394 => sub { push @{$generate{$1}}, $2
1395 if !@skip || $skip[$#skip] > 0 },
9fe2bb77
RL		 1396 qr/^\s*RENAME\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1397 => sub { push @{$renames{$1}}, split(/\s+/, $2)
1398 if !@skip || $skip[$#skip] > 0 },
1399 qr/^\s*SHARED_NAME\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1400 => sub { push @{$sharednames{$1}}, split(/\s+/, $2)
1401 if !@skip || $skip[$#skip] > 0 },
1402 qr/^\s*BEGINRAW\[((?:\\.|[^\\\]])+)\]\s*$/
1403 => sub {
1404 my $lineiterator = shift;
1405 my $target_kind = $1;
1406 while (defined $lineiterator->()) {
04f171c0 1407 s|\R$||;
9fe2bb77
RL		 1408 if (/^\s*ENDRAW\[((?:\\.|[^\\\]])+)\]\s*$/) {
1409 die "ENDRAW doesn't match BEGINRAW"
1410 if $1 ne $target_kind;
1411 last;
1412 }
1413 next if @skip && $skip[$#skip] <= 0;
1414 push @rawlines, $_
1415 if ($target_kind eq $target{build_file}
ddf1847d 1416 || $target_kind eq $target{build_file}."(".$builder_platform.")");
9fe2bb77
RL		 1417 }
1418 },
1419 qr/^(?:#.*|\s*)$/ => sub { },
1420 "OTHERWISE" => sub { die "Something wrong with this line:\n$_\nat $sourced/$f" }
1421 );
1422 die "runaway IF?" if (@skip);
1423
1424 foreach (keys %renames) {
1425 die "$_ renamed to more than one thing: "
1426 ,join(" ", @{$renames{$_}}),"\n"
1427 if scalar @{$renames{$_}} > 1;
2e963849
RL		 1428 my $dest = cleanfile($buildd, $_, $blddir);
1429 my $to = cleanfile($buildd, $renames{$_}->[0], $blddir);
9fe2bb77
RL		 1430 die "$dest renamed to more than one thing: "
1431 ,$unified_info{rename}->{$dest}, $to
1432 unless !defined($unified_info{rename}->{$dest})
1433 or $unified_info{rename}->{$dest} eq $to;
1434 $unified_info{rename}->{$dest} = $to;
1435 }
1436
1437 foreach (@programs) {
2e963849 1438 my $program = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1439 if ($unified_info{rename}->{$program}) {
1440 $program = $unified_info{rename}->{$program};
1441 }
1442 $unified_info{programs}->{$program} = 1;
1443 }
1444
1445 foreach (@libraries) {
2e963849 1446 my $library = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1447 if ($unified_info{rename}->{$library}) {
1448 $library = $unified_info{rename}->{$library};
1449 }
1450 $unified_info{libraries}->{$library} = 1;
1451 }
1452
343ec2b0 1453 die <<"EOF" if scalar @engines and !$config{dynamic_engines};
19ab5790 1454ENGINES can only be used if configured with 'dynamic-engine'.
9fe2bb77
RL		 1455This is usually a fault in a build.info file.
1456EOF
1457 foreach (@engines) {
2e963849 1458 my $library = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1459 if ($unified_info{rename}->{$library}) {
1460 $library = $unified_info{rename}->{$library};
1461 }
1462 $unified_info{engines}->{$library} = 1;
1463 }
1464
1465 foreach (@scripts) {
2e963849 1466 my $script = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1467 if ($unified_info{rename}->{$script}) {
1468 $script = $unified_info{rename}->{$script};
1469 }
1470 $unified_info{scripts}->{$script} = 1;
1471 }
1472
1473 foreach (@extra) {
2e963849 1474 my $extra = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1475 $unified_info{extra}->{$extra} = 1;
1476 }
1477
8a67946e
RL		 1478 foreach (@overrides) {
1479 my $override = cleanfile($buildd, $_, $blddir);
1480 $unified_info{overrides}->{$override} = 1;
1481 }
1482
9fe2bb77
RL		 1483 push @{$unified_info{rawlines}}, @rawlines;
1484
84af1bae 1485 unless ($disabled{shared}) {
9fe2bb77
RL		 1486 # Check sharednames.
1487 foreach (keys %sharednames) {
2e963849 1488 my $dest = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1489 if ($unified_info{rename}->{$dest}) {
1490 $dest = $unified_info{rename}->{$dest};
1491 }
1492 die "shared_name for $dest with multiple values: "
1493 ,join(" ", @{$sharednames{$_}}),"\n"
1494 if scalar @{$sharednames{$_}} > 1;
2e963849 1495 my $to = cleanfile($buildd, $sharednames{$_}->[0], $blddir);
9fe2bb77
RL		 1496 die "shared_name found for a library $dest that isn't defined\n"
1497 unless $unified_info{libraries}->{$dest};
1498 die "shared_name for $dest with multiple values: "
1499 ,$unified_info{sharednames}->{$dest}, ", ", $to
1500 unless !defined($unified_info{sharednames}->{$dest})
1501 or $unified_info{sharednames}->{$dest} eq $to;
1502 $unified_info{sharednames}->{$dest} = $to;
1503 }
1504
1505 # Additionally, we set up sharednames for libraries that don't
1506 # have any, as themselves.
1507 foreach (keys %{$unified_info{libraries}}) {
1508 if (!defined $unified_info{sharednames}->{$_}) {
1509 $unified_info{sharednames}->{$_} = $_
1510 }
1511 }
1512 }
1513
1514 foreach (keys %ordinals) {
1515 my $dest = $_;
2e963849 1516 my $ddest = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1517 if ($unified_info{rename}->{$ddest}) {
1518 $ddest = $unified_info{rename}->{$ddest};
1519 }
1520 foreach (@{$ordinals{$dest}}) {
1521 my %known_ordinals =
1522 (
1523 crypto =>
6928b617 1524 cleanfile($sourced, catfile("util", "libcrypto.num"), $blddir),
9fe2bb77 1525 ssl =>
6928b617 1526 cleanfile($sourced, catfile("util", "libssl.num"), $blddir)
9fe2bb77
RL		 1527 );
1528 my $o = $known_ordinals{$_};
1529 die "Ordinals for $ddest defined more than once\n"
1530 if $unified_info{ordinals}->{$ddest};
1531 $unified_info{ordinals}->{$ddest} = [ $_, $o ];
1532 }
1533 }
1534
1535 foreach (keys %sources) {
1536 my $dest = $_;
2e963849 1537 my $ddest = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1538 if ($unified_info{rename}->{$ddest}) {
1539 $ddest = $unified_info{rename}->{$ddest};
1540 }
1541 foreach (@{$sources{$dest}}) {
2e963849 1542 my $s = cleanfile($sourced, $_, $blddir);
9fe2bb77
RL		 1543
1544 # If it isn't in the source tree, we assume it's generated
1545 # in the build tree
1546 if (! -f $s) {
2e963849 1547 $s = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1548 }
1549 # We recognise C and asm files
1550 if ($s =~ /\.[csS]\b$/) {
1551 (my $o = $_) =~ s/\.[csS]\b$/.o/;
2e963849 1552 $o = cleanfile($buildd, $o, $blddir);
9fe2bb77
RL		 1553 $unified_info{sources}->{$ddest}->{$o} = 1;
1554 $unified_info{sources}->{$o}->{$s} = 1;
1555 } else {
1556 $unified_info{sources}->{$ddest}->{$s} = 1;
1557 }
1558 }
1559 }
1560
ae4c7450
RL		 1561 foreach (keys %generate) {
1562 my $dest = $_;
1563 my $ddest = cleanfile($buildd, $_, $blddir);
1564 if ($unified_info{rename}->{$ddest}) {
1565 $ddest = $unified_info{rename}->{$ddest};
1566 }
1567 die "more than one generator for $dest: "
1568 ,join(" ", @{$generate{$_}}),"\n"
1569 if scalar @{$generate{$_}} > 1;
1570 my @generator = split /\s+/, $generate{$dest}->[0];
1571 $generator[0] = cleanfile($sourced, $generator[0], $blddir),
1572 $unified_info{generate}->{$ddest} = [ @generator ];
1573 }
1574
9fe2bb77
RL		 1575 foreach (keys %depends) {
1576 my $dest = $_;
2e963849 1577 my $ddest = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1578 if ($unified_info{rename}->{$ddest}) {
1579 $ddest = $unified_info{rename}->{$ddest};
1580 }
1581 foreach (@{$depends{$dest}}) {
2e963849 1582 my $d = cleanfile($sourced, $_, $blddir);
9fe2bb77 1583
e737d7b1
RL		 1584 # If we know it's generated, or assume it is because we can't
1585 # find it in the source tree, we set file we depend on to be
1586 # in the build tree rather than the source tree, and assume
1587 # and that there are lines to build it in a BEGINRAW..ENDRAW
1588 # section or in the Makefile template.
1589 if (! -f $d
1590 || !(grep { $d eq $_ }
1591 map { cleanfile($srcdir, $_, $blddir) }
1592 (@generated_headers, @generated_by_make_headers))) {
2e963849 1593 $d = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1594 }
1595 # Take note if the file to depend on is being renamed
1596 if ($unified_info{rename}->{$d}) {
1597 $d = $unified_info{rename}->{$d};
1598 }
1599 $unified_info{depends}->{$ddest}->{$d} = 1;
1600 # If we depend on a header file, let's make sure it
1601 # can get included
1602 if ($d =~ /\.h$/) {
1603 my $i = dirname($d);
1604 push @{$unified_info{includes}->{$ddest}}, $i
1605 unless grep { $_ eq $i } @{$unified_info{includes}->{$ddest}};
1606 }
1607 }
1608 }
1609
1610 foreach (keys %includes) {
1611 my $dest = $_;
2e963849 1612 my $ddest = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1613 if ($unified_info{rename}->{$ddest}) {
1614 $ddest = $unified_info{rename}->{$ddest};
1615 }
1616 foreach (@{$includes{$dest}}) {
2e963849 1617 my $i = cleandir($sourced, $_, $blddir);
9fe2bb77
RL		 1618 push @{$unified_info{includes}->{$ddest}}, $i
1619 unless grep { $_ eq $i } @{$unified_info{includes}->{$ddest}};
1620 }
1621 }
1622 }
1623
1624 ### Make unified_info a bit more efficient
1625 # One level structures
8a67946e 1626 foreach (("programs", "libraries", "engines", "scripts", "extra", "overrides")) {
9fe2bb77
RL		 1627 $unified_info{$_} = [ sort keys %{$unified_info{$_}} ];
1628 }
1629 # Two level structures
1630 foreach my $l1 (("sources", "ldadd", "depends")) {
1631 foreach my $l2 (sort keys %{$unified_info{$l1}}) {
1632 $unified_info{$l1}->{$l2} =
1633 [ sort keys %{$unified_info{$l1}->{$l2}} ];
1634 }
1635 }
1636}
1637
1638# For the schemes that need it, we provide the old *_obj configs
1639# from the *_asm_obj ones
3a55c92b 1640foreach (grep /_(asm|aux)_src$/, keys %target) {
9fe2bb77 1641 my $src = $_;
3a55c92b 1642 (my $obj = $_) =~ s/_(asm|aux)_src$/_obj/;
9fe2bb77
RL		 1643 ($target{$obj} = $target{$src}) =~ s/\.[csS]\b/.o/g;
1644}
1645
291e94df
RL		 1646# Write down our configuration where it fits #########################
1647
1648open(OUT,">configdata.pm") || die "unable to create configdata.pm: $!\n";
1649print OUT <<"EOF";
1650package configdata;
1651
1652use strict;
1653use warnings;
1654
1655use Exporter;
1656#use vars qw(\@ISA \@EXPORT);
1657our \@ISA = qw(Exporter);
58163021 1658our \@EXPORT = qw(\%config \%target %disabled %withargs %unified_info);
291e94df
RL		 1659
1660EOF
1661print OUT "our %config = (\n";
1662foreach (sort keys %config) {
1663 if (ref($config{$_}) eq "ARRAY") {
1664 print OUT " ", $_, " => [ ", join(", ",
1665 map { quotify("perl", $_) }
1666 @{$config{$_}}), " ],\n";
1667 } else {
1668 print OUT " ", $_, " => ", quotify("perl", $config{$_}), ",\n"
1669 }
1670}
1671print OUT <<"EOF";
1672);
1673
1674EOF
1675print OUT "our %target = (\n";
1676foreach (sort keys %target) {
1677 if (ref($target{$_}) eq "ARRAY") {
1678 print OUT " ", $_, " => [ ", join(", ",
1679 map { quotify("perl", $_) }
1680 @{$target{$_}}), " ],\n";
1681 } else {
1682 print OUT " ", $_, " => ", quotify("perl", $target{$_}), ",\n"
1683 }
1684}
1685print OUT <<"EOF";
1686);
1687
96d2d7bc
RL		 1688EOF
1689print OUT "our \%available_protocols = (\n";
1690print OUT " tls => [ ", join(", ", map { quotify("perl", $_) } @tls), " ],\n";
1691print OUT " dtls => [ ", join(", ", map { quotify("perl", $_) } @dtls), " ],\n";
1692print OUT <<"EOF";
1693);
1694
1695EOF
1696print OUT "our \%disabled = (\n";
1697foreach (sort keys %disabled) {
1698 print OUT " ", quotify("perl", $_), " => ", quotify("perl", $disabled{$_}), ",\n";
1699}
1700print OUT <<"EOF";
1701);
1702
291e94df 1703EOF
107b5792
RL		 1704print OUT "our %withargs = (\n";
1705foreach (sort keys %withargs) {
1706 if (ref($withargs{$_}) eq "ARRAY") {
1707 print OUT " ", $_, " => [ ", join(", ",
1708 map { quotify("perl", $_) }
1709 @{$withargs{$_}}), " ],\n";
1710 } else {
1711 print OUT " ", $_, " => ", quotify("perl", $withargs{$_}), ",\n"
1712 }
1713}
1714print OUT <<"EOF";
1715);
edd4d402 1716
107b5792 1717EOF
ddf1847d 1718if ($builder eq "unified") {
9fe2bb77
RL		 1719 my $recurse;
1720 $recurse = sub {
1721 my $indent = shift;
1722 foreach (@_) {
1723 if (ref $_ eq "ARRAY") {
1724 print OUT " "x$indent, "[\n";
1725 foreach (@$_) {
1726 $recurse->($indent + 4, $_);
1727 }
1728 print OUT " "x$indent, "],\n";
1729 } elsif (ref $_ eq "HASH") {
1730 my %h = %$_;
1731 print OUT " "x$indent, "{\n";
1732 foreach (sort keys %h) {
1733 if (ref $h{$_} eq "") {
1734 print OUT " "x($indent + 4), quotify("perl", $_), " => ", quotify("perl", $h{$_}), ",\n";
1735 } else {
1736 print OUT " "x($indent + 4), quotify("perl", $_), " =>\n";
1737 $recurse->($indent + 8, $h{$_});
1738 }
1739 }
1740 print OUT " "x$indent, "},\n";
1741 } else {
1742 print OUT " "x$indent, quotify("perl", $_), ",\n";
1743 }
1744 }
1745 };
1746 print OUT "our %unified_info = (\n";
1747 foreach (sort keys %unified_info) {
1748 if (ref $unified_info{$_} eq "") {
1749 print OUT " "x4, quotify("perl", $_), " => ", quotify("perl", $unified_info{$_}), ",\n";
1750 } else {
1751 print OUT " "x4, quotify("perl", $_), " =>\n";
1752 $recurse->(8, $unified_info{$_});
1753 }
1754 }
1755 print OUT <<"EOF";
1756);
1757
1758EOF
1759}
1760print OUT "1;\n";
d02b48c6 1761close(OUT);
f2d4be3b 1762
9fe2bb77 1763
ddf1847d 1764print "IsMK1MF =", ($builder eq "mk1mf" ? "yes" : "no"), "\n";
291e94df 1765print "CC =$target{cc}\n";
2952b9b8 1766print "CFLAG =$target{cflags} $config{cflags}\n";
63ee7129 1767print "SHARED_CFLAG =$target{shared_cflag}\n";
2952b9b8 1768print "DEFINES =",join(" ", @{$target{defines}}, @{$config{defines}}),"\n";
940a09ba
RL		 1769print "LFLAG =$target{lflags}\n";
1770print "PLIB_LFLAG =$target{plib_lflags}\n";
2952b9b8 1771print "EX_LIBS =$target{ex_libs} $config{ex_libs}\n";
b756967d 1772print "APPS_OBJ =$target{apps_obj}\n";
291e94df 1773print "CPUID_OBJ =$target{cpuid_obj}\n";
b756967d 1774print "UPLINK_OBJ =$target{uplink_obj}\n";
291e94df
RL		 1775print "BN_ASM =$target{bn_obj}\n";
1776print "EC_ASM =$target{ec_obj}\n";
1777print "DES_ENC =$target{des_obj}\n";
1778print "AES_ENC =$target{aes_obj}\n";
1779print "BF_ENC =$target{bf_obj}\n";
1780print "CAST_ENC =$target{cast_obj}\n";
1781print "RC4_ENC =$target{rc4_obj}\n";
1782print "RC5_ENC =$target{rc5_obj}\n";
1783print "MD5_OBJ_ASM =$target{md5_obj}\n";
1784print "SHA1_OBJ_ASM =$target{sha1_obj}\n";
1785print "RMD160_OBJ_ASM=$target{rmd160_obj}\n";
1786print "CMLL_ENC =$target{cmll_obj}\n";
1787print "MODES_OBJ =$target{modes_obj}\n";
f0bd4686 1788print "PADLOCK_OBJ =$target{padlock_obj}\n";
291e94df
RL		 1789print "CHACHA_ENC =$target{chacha_obj}\n";
1790print "POLY1305_OBJ =$target{poly1305_obj}\n";
2d0b4412 1791print "BLAKE2_OBJ =$target{blake2_obj}\n";
7d130f68 1792print "PROCESSOR =$config{processor}\n";
291e94df
RL		 1793print "RANLIB =$target{ranlib}\n";
1794print "ARFLAGS =$target{arflags}\n";
1795print "PERL =$config{perl}\n";
f0bd4686 1796print "\n";
7d130f68
RL		 1797print "SIXTY_FOUR_BIT_LONG mode\n" if $config{b64l};
1798print "SIXTY_FOUR_BIT mode\n" if $config{b64};
1799print "THIRTY_TWO_BIT mode\n" if $config{b32};
7d130f68
RL		 1800print "BN_LLONG mode\n" if $config{bn_ll};
1801print "RC4 uses $config{rc4_int}\n" if $config{rc4_int} != $def_int;
cba5068d 1802
e737d7b1
RL		 1803for (@generated_headers) {
1804 mkpath(catdir($blddir, dirname($_)));
1805 run_dofile(catfile($blddir, $_),
1806 catfile($srcdir, $_.".in"));
f0bd4686
RL		 1807}
1808
9fe2bb77
RL		 1809###
1810### When the old "unixmake" scheme goes away, so does this function
1811###
1812sub build_Makefile {
1813 run_dofile("Makefile","Makefile.in");
1814
1815 # Copy all Makefile.in to Makefile (except top-level)
1816 use File::Find;
1817 use IO::File;
1818 find(
1819 {
1820 preprocess => sub {
1821 grep(!/^\./, @_);
1822 },
1823 wanted => sub {
1824 return if ($_ ne "Makefile.in" || $File::Find::dir eq ".");
1825 my $in = IO::File->new($_, "r") or
1826 die sprintf "Error reading Makefile.in in %s: !$\n",
1827 $File::Find::dir;
1828 my $out = IO::File->new("Makefile", "w") or
1829 die sprintf "Error writing Makefile in %s: !$\n",
1830 $File::Find::dir;
1831 print $out "# Generated from $_, do not edit\n";
1832 while (my $line = <$in>) { print $out $line }
1833 $in->close() or
1834 die sprintf "Error reading Makefile.in in %s: !$\n",
1835 $File::Find::dir;
1836 $out->close() or
1837 die sprintf "Error writing Makefile in %s: !$\n",
1838 $File::Find::dir;
1839 },
fb36ca12 1840 },
9fe2bb77
RL		 1841 ".");
1842}
d10dac11 1843
88087414 1844my %builders = (
9fe2bb77 1845 unified => sub {
ddf1847d
RL		 1846 run_dofile(catfile($blddir, $target{build_file}),
1847 $config{build_file_template},
1848 catfile($srcdir, "Configurations", "common.tmpl"));
9fe2bb77 1849 },
88087414 1850 unixmake => sub {
9fe2bb77
RL		 1851 build_Makefile();
1852
1853 run_dofile("util/domd", "util/domd.in");
1854 chmod 0755, "util/domd";
88087414
RL		 1855 },
1856 mk1mf => sub {
ddf1847d 1857 my $platform = shift;
9fe2bb77
RL		 1858 # The only reason we do this is to have something to build MINFO from
1859 build_Makefile();
1860
88087414 1861 # create the ms/version32.rc file if needed
7839b735 1862 if ($platform ne "netware") {
88087414 1863 my ($v1, $v2, $v3, $v4);
3fa04f0d 1864 if ($config{version_num} =~ /^0x([0-9a-f]{1})([0-9a-f]{2})([0-9a-f]{2})([0-9a-f]{2})([0-9a-f]{1})L$/i) {
fc6a6a10
DSH		 1865 $v1=hex $1;
1866 $v2=hex $2;
1867 $v3=hex $3;
1868 $v4=hex $4;
88087414
RL		 1869 }
1870 open (OUT,">ms/version32.rc") || die "Can't open ms/version32.rc";
1871 print OUT <<"EOF";
fc6a6a10
DSH		 1872#include <winver.h>
1873
1874LANGUAGE 0x09,0x01
1875
18761 VERSIONINFO
1877 FILEVERSION $v1,$v2,$v3,$v4
1878 PRODUCTVERSION $v1,$v2,$v3,$v4
1879 FILEFLAGSMASK 0x3fL
1880#ifdef _DEBUG
1881 FILEFLAGS 0x01L
1882#else
1883 FILEFLAGS 0x00L
1884#endif
1885 FILEOS VOS__WINDOWS32
1886 FILETYPE VFT_DLL
1887 FILESUBTYPE 0x0L
1888BEGIN
1889 BLOCK "StringFileInfo"
1890 BEGIN
1891 BLOCK "040904b0"
1892 BEGIN
fce0ba5f 1893 // Required:
fc6a6a10
DSH		 1894 VALUE "CompanyName", "The OpenSSL Project, http://www.openssl.org/\\0"
1895 VALUE "FileDescription", "OpenSSL Shared Library\\0"
3fa04f0d 1896 VALUE "FileVersion", "$config{version}\\0"
fc6a6a10 1897#if defined(CRYPTO)
6928b617
RL		 1898 VALUE "InternalName", "libcrypto32\\0"
1899 VALUE "OriginalFilename", "libcrypto32.dll\\0"
fc6a6a10 1900#elif defined(SSL)
6928b617
RL		 1901 VALUE "InternalName", "libssl32\\0"
1902 VALUE "OriginalFilename", "libssl32.dll\\0"
a479d72d 1903#endif
fc6a6a10 1904 VALUE "ProductName", "The OpenSSL Toolkit\\0"
3fa04f0d 1905 VALUE "ProductVersion", "$config{version}\\0"
fc6a6a10
DSH		 1906 // Optional:
1907 //VALUE "Comments", "\\0"
51cbee35 1908 VALUE "LegalCopyright", "Copyright © 1998-2015 The OpenSSL Project. Copyright © 1995-1998 Eric A. Young, Tim J. Hudson. All rights reserved.\\0"
fc6a6a10
DSH		 1909 //VALUE "LegalTrademarks", "\\0"
1910 //VALUE "PrivateBuild", "\\0"
1911 //VALUE "SpecialBuild", "\\0"
1912 END
1913 END
1914 BLOCK "VarFileInfo"
1915 BEGIN
1916 VALUE "Translation", 0x409, 0x4b0
1917 END
1918END
1919EOF
88087414
RL		 1920 close(OUT);
1921 }
1922 },
1923 );
1924
ddf1847d 1925$builders{$builder}->($builder_platform, @builder_opts);
fce0ba5f 1926
76ffb43d 1927print <<"EOF";
63d3f44a 1928
89ec98e0 1929Configured for $target.
63d3f44a 1930EOF
5f8d5c96 1931
9c62a279 1932print <<"EOF" if ($disabled{threads} eq "unavailable");
5f8d5c96
BM		 1933
1934The library could not be configured for supporting multi-threaded
1935applications as the compiler options required on this system are not known.
ff1b7e09 1936See file INSTALL for details if you need multi-threading.
ec577822
BM		 1937EOF
1938
76ffb43d 1939print <<"EOF" if ($no_shared_warn);
2964ba8c 1940
ae48242c
RL		 1941The options 'shared', 'pic' and 'dynamic-engine' aren't supported on this
1942platform, so we will pretend you gave the option 'no-pic', which also disables
1943'shared' and 'dynamic-engine'. If you know how to implement shared libraries
1944or position independent code, please let us know (but please first make sure
1945you have tried with a current version of OpenSSL).
2e31ef03
RS		 1946EOF
1947
d02b48c6
RE		 1948exit(0);
1949
bd5192b1
RL		 1950######################################################################
1951#
1952# Helpers and utility functions
1953#
1954
1955# Configuration file reading #########################################
1956
1957# Helper function to implement conditional inheritance depending on the
00b0d663 1958# value of $disabled{asm}. Used in inherit_from values as follows:
bd5192b1
RL		 1959#
1960# inherit_from => [ "template", asm("asm_tmpl") ]
1961#
1962sub asm {
1963 my @x = @_;
1964 sub {
00b0d663 1965 $disabled{asm} ? () : @x;
bd5192b1
RL		 1966 }
1967}
1968
9c62a279 1969our $add_called = 0;
88087414
RL		 1970# Helper function to implement adding values to already existing configuration
1971# values. It handles elements that are ARRAYs, CODEs and scalars
1972sub _add {
1973 my $separator = shift;
1974
bcb1977b
RL		 1975 # If there's any ARRAY in the collection of values OR the separator
1976 # is undef, we will return an ARRAY of combined values, otherwise a
1977 # string of joined values with $separator as the separator.
1978 my $found_array = !defined($separator);
88087414
RL		 1979
1980 my @values =
1981 map {
b0b92a5b
RL		 1982 my $res = $_;
1983 while (ref($res) eq "CODE") {
1984 $res = $res->();
1985 }
1986 if (defined($res)) {
1987 if (ref($res) eq "ARRAY") {
1988 $found_array = 1;
1989 @$res;
1990 } else {
1991 $res;
1992 }
88087414 1993 } else {
b0b92a5b 1994 ();
88087414
RL		 1995 }
1996 } (@_);
1997
9c62a279
RL		 1998 $add_called = 1;
1999
88087414
RL		 2000 if ($found_array) {
2001 [ @values ];
2002 } else {
b0b92a5b 2003 join($separator, grep { defined($_) && $_ ne "" } @values);
88087414
RL		 2004 }
2005}
2006sub add_before {
bdcd83e1
RL		 2007 my $separator = " ";
2008 if (ref($_[$#_]) eq "HASH") {
2009 my $opts = pop;
2010 $separator = $opts->{separator};
2011 }
88087414
RL		 2012 my @x = @_;
2013 sub { _add($separator, @x, @_) };
2014}
2015sub add {
bdcd83e1
RL		 2016 my $separator = " ";
2017 if (ref($_[$#_]) eq "HASH") {
2018 my $opts = pop;
2019 $separator = $opts->{separator};
2020 }
88087414
RL		 2021 my @x = @_;
2022 sub { _add($separator, @_, @x) };
2023}
2024
bd5192b1
RL		 2025# configuration reader, evaluates the input file as a perl script and expects
2026# it to fill %targets with target configurations. Those are then added to
2027# %table.
2028sub read_config {
2029 my $fname = shift;
2030 open(CONFFILE, "< $fname")
2031 or die "Can't open configuration file '$fname'!\n";
2032 my $x = $/;
2033 undef $/;
2034 my $content = <CONFFILE>;
2035 $/ = $x;
2036 close(CONFFILE);
2037 my %targets = ();
2038 {
2039 local %table = %::table; # Protect %table from tampering
2040
2041 eval $content;
2042 warn $@ if $@;
2043 }
2044
2045 # For each target, check that it's configured with a hash table.
2046 foreach (keys %targets) {
2047 if (ref($targets{$_}) ne "HASH") {
2048 if (ref($targets{$_}) eq "") {
2049 warn "Deprecated target configuration for $_, ignoring...\n";
2050 } else {
2051 warn "Misconfigured target configuration for $_ (should be a hash table), ignoring...\n";
2052 }
2053 delete $targets{$_};
2054 }
2055 }
2056
2057 %table = (%table, %targets);
2058
2059}
2060
2061# configuration resolver. Will only resolve all the lazy evalutation
2062# codeblocks for the chozen target and all those it inherits from,
2063# recursively
2064sub resolve_config {
2065 my $target = shift;
2066 my @breadcrumbs = @_;
2067
c4718849 2068# my $extra_checks = defined($ENV{CONFIGURE_EXTRA_CHECKS});
9c62a279 2069
bd5192b1
RL		 2070 if (grep { $_ eq $target } @breadcrumbs) {
2071 die "inherit_from loop! target backtrace:\n "
2072 ,$target,"\n ",join("\n ", @breadcrumbs),"\n";
2073 }
2074
2075 if (!defined($table{$target})) {
2076 warn "Warning! target $target doesn't exist!\n";
2077 return ();
2078 }
2079 # Recurse through all inheritances. They will be resolved on the
2080 # fly, so when this operation is done, they will all just be a
2081 # bunch of attributes with string values.
2082 # What we get here, though, are keys with references to lists of
2083 # the combined values of them all. We will deal with lists after
2084 # this stage is done.
2085 my %combined_inheritance = ();
2086 if ($table{$target}->{inherit_from}) {
2087 my @inherit_from =
2088 map { ref($_) eq "CODE" ? $_->() : $_ } @{$table{$target}->{inherit_from}};
2089 foreach (@inherit_from) {
2090 my %inherited_config = resolve_config($_, $target, @breadcrumbs);
2091
2092 # 'template' is a marker that's considered private to
2093 # the config that had it.
2094 delete $inherited_config{template};
2095
2096 map {
2097 if (!$combined_inheritance{$_}) {
2098 $combined_inheritance{$_} = [];
2099 }
2100 push @{$combined_inheritance{$_}}, $inherited_config{$_};
2101 } keys %inherited_config;
2102 }
2103 }
2104
2105 # We won't need inherit_from in this target any more, since we've
2106 # resolved all the inheritances that lead to this
2107 delete $table{$target}->{inherit_from};
2108
2109 # Now is the time to deal with those lists. Here's the place to
2110 # decide what shall be done with those lists, all based on the
2111 # values of the target we're currently dealing with.
2112 # - If a value is a coderef, it will be executed with the list of
2113 # inherited values as arguments.
2114 # - If the corresponding key doesn't have a value at all or is the
2115 # emoty string, the inherited value list will be run through the
2116 # default combiner (below), and the result becomes this target's
2117 # value.
2118 # - Otherwise, this target's value is assumed to be a string that
2119 # will simply override the inherited list of values.
a26d8be9 2120 my $default_combiner = add();
bd5192b1
RL		 2121
2122 my %all_keys =
2123 map { $_ => 1 } (keys %combined_inheritance,
2124 keys %{$table{$target}});
b0b92a5b
RL		 2125
2126 sub process_values {
2127 my $object = shift;
2128 my $inherited = shift; # Always a [ list ]
2129 my $target = shift;
2130 my $entry = shift;
2131
9c62a279
RL		 2132 $add_called = 0;
2133
b0b92a5b
RL		 2134 while(ref($object) eq "CODE") {
2135 $object = $object->(@$inherited);
2136 }
2137 if (!defined($object)) {
2138 return ();
2139 }
2140 elsif (ref($object) eq "ARRAY") {
9c62a279 2141 local $add_called; # To make sure recursive calls don't affect it
b0b92a5b
RL		 2142 return [ map { process_values($_, $inherited, $target, $entry) }
2143 @$object ];
2144 } elsif (ref($object) eq "") {
2145 return $object;
2146 } else {
2147 die "cannot handle reference type ",ref($object)
2148 ," found in target ",$target," -> ",$entry,"\n";
2149 }
2150 }
2151
bd5192b1 2152 foreach (sort keys %all_keys) {
9c62a279 2153 my $previous = $combined_inheritance{$_};
bd5192b1
RL		 2154
2155 # Current target doesn't have a value for the current key?
2156 # Assign it the default combiner, the rest of this loop body
2157 # will handle it just like any other coderef.
2158 if (!exists $table{$target}->{$_}) {
2159 $table{$target}->{$_} = $default_combiner;
2160 }
2161
b0b92a5b
RL		 2162 $table{$target}->{$_} = process_values($table{$target}->{$_},
2163 $combined_inheritance{$_},
2164 $target, $_);
2165 unless(defined($table{$target}->{$_})) {
2166 delete $table{$target}->{$_};
2167 }
c4718849
RL		 2168# if ($extra_checks &&
2169# $previous && !($add_called || $previous ~~ $table{$target}->{$_})) {
2170# warn "$_ got replaced in $target\n";
2171# }
bd5192b1
RL		 2172 }
2173
2174 # Finally done, return the result.
2175 return %{$table{$target}};
2176}
2177
462ba4f6 2178sub usage
d02b48c6 2179 {
462ba4f6 2180 print STDERR $usage;
10a926c1 2181 print STDERR "\npick os/compiler from:\n";
1641cb60 2182 my $j=0;
6457ad15 2183 my $i;
10a926c1 2184 my $k=0;
6457ad15 2185 foreach $i (sort keys %table)
d02b48c6 2186 {
bd5192b1 2187 next if $table{$i}->{template};
462ba4f6 2188 next if $i =~ /^debug/;
10a926c1
UM		 2189 $k += length($i) + 1;
2190 if ($k > 78)
2191 {
2192 print STDERR "\n";
2193 $k=length($i);
2194 }
2195 print STDERR $i . " ";
462ba4f6
UM		 2196 }
2197 foreach $i (sort keys %table)
2198 {
bd5192b1 2199 next if $table{$i}->{template};
462ba4f6 2200 next if $i !~ /^debug/;
10a926c1
UM		 2201 $k += length($i) + 1;
2202 if ($k > 78)
2203 {
2204 print STDERR "\n";
2205 $k=length($i);
2206 }
2207 print STDERR $i . " ";
d02b48c6 2208 }
10a926c1 2209 print STDERR "\n\nNOTE: If in doubt, on Unix-ish systems use './config'.\n";
462ba4f6 2210 exit(1);
d02b48c6
RE		 2211 }
2212
107b5792
RL		 2213sub run_dofile()
2214{
107b5792 2215 my $out = shift;
9fe2bb77 2216 my @templates = @_;
107b5792 2217
ced2c2c5
RS		 2218 unlink $out || warn "Can't remove $out, $!"
2219 if -f $out;
9fe2bb77
RL		 2220 foreach (@templates) {
2221 die "Can't open $_, $!" unless -f $_;
2222 }
2223 my $cmd = "$config{perl} \"-I.\" \"-Mconfigdata\" $dofile -o\"Configure\" \"".join("\" \"",@templates)."\" > \"$out.new\"";
2224 #print STDERR "DEBUG[run_dofile]: \$cmd = $cmd\n";
2225 system($cmd);
107b5792
RL		 2226 exit 1 if $? != 0;
2227 rename("$out.new", $out) || die "Can't rename $out.new, $!";
2228}
2229
00ae96ca
RL		 2230# Configuration printer ##############################################
2231
2232sub print_table_entry
2233{
2234 my $target = shift;
2235 my %target = resolve_config($target);
2236 my $type = shift;
2237
2238 # Don't print the templates
2239 return if $target{template};
2240
2241 my @sequence = (
f0bd4686 2242 "sys_id",
00ae96ca
RL		 2243 "cc",
2244 "cflags",
bcb1977b 2245 "defines",
f0bd4686
RL		 2246 "unistd",
2247 "ld",
00ae96ca 2248 "lflags",
c86ddbe6 2249 "plib_lflags",
1740c162 2250 "ex_libs",
00ae96ca
RL		 2251 "bn_ops",
2252 "cpuid_obj",
2253 "bn_obj",
2254 "ec_obj",
2255 "des_obj",
2256 "aes_obj",
2257 "bf_obj",
2258 "md5_obj",
2259 "sha1_obj",
2260 "cast_obj",
2261 "rc4_obj",
2262 "rmd160_obj",
2263 "rc5_obj",
2264 "wp_obj",
2265 "cmll_obj",
2266 "modes_obj",
f0bd4686 2267 "padlock_obj",
9c62a279 2268 "thread_scheme",
00ae96ca
RL		 2269 "perlasm_scheme",
2270 "dso_scheme",
2271 "shared_target",
2272 "shared_cflag",
2273 "shared_ldflag",
64c443e3 2274 "shared_rcflag",
00ae96ca 2275 "shared_extension",
e987f9f2
RL		 2276 "shared_extension_simple",
2277 "shared_import_extension",
2278 "dso_extension",
f0bd4686
RL		 2279 "obj_extension",
2280 "exe_extension",
00ae96ca 2281 "ranlib",
f0bd4686 2282 "ar",
00ae96ca
RL		 2283 "arflags",
2284 "multilib",
f0bd4686 2285 "build_scheme",
00ae96ca
RL		 2286 );
2287
2288 if ($type eq "TABLE") {
2289 print "\n";
2290 print "*** $target\n";
cb212f23
RL		 2291 foreach (@sequence) {
2292 if (ref($target{$_}) eq "ARRAY") {
2293 printf "\$%-12s = %s\n", $_, join(" ", @{$target{$_}});
2294 } else {
2295 printf "\$%-12s = %s\n", $_, $target{$_};
2296 }
2297 }
00ae96ca
RL		 2298 } elsif ($type eq "HASH") {
2299 my $largest =
2300 length((sort { length($a) <=> length($b) } @sequence)[-1]);
2301 print " '$target' => {\n";
2302 foreach (@sequence) {
2303 if ($target{$_}) {
cb212f23
RL		 2304 if (ref($target{$_}) eq "ARRAY") {
2305 print " '",$_,"'"," " x ($largest - length($_))," => [ ",join(", ", map { "'$_'" } @{$target{$_}})," ],\n";
2306 } else {
2307 print " '",$_,"'"," " x ($largest - length($_))," => '",$target{$_},"',\n";
2308 }
00ae96ca
RL		 2309 }
2310 }
2311 print " },\n";
2312 }
2313}
2314
2315# Utility routines ###################################################
2316
2e963849
RL		 2317# On VMS, if the given file is a logical name, File::Spec::Functions
2318# will consider it an absolute path. There are cases when we want a
2319# purely syntactic check without checking the environment.
2320sub isabsolute {
2321 my $file = shift;
2322
2323 # On non-platforms, we just use file_name_is_absolute().
2324 return file_name_is_absolute($file) unless $^O eq "VMS";
2325
2326 # If the file spec includes a device or a directpry spec,
2327 # file_name_is_absolute() is perfectly safe.
2328 return file_name_is_absolute($file) if $file =~ m|[:\[]|;
2329
2330 # Here, we know the given file spec isn't absolute
2331 return 0;
2332}
2333
ec182ef0
RL		 2334# Makes a directory absolute and cleans out /../ in paths like foo/../bar
2335# On some platforms, this uses rel2abs(), while on others, realpath() is used.
2336# realpath() requires that at least all path components except the last is an
2337# existing directory. On VMS, the last component of the directory spec must
2338# exist.
2339sub absolutedir {
2340 my $dir = shift;
2341
2342 # realpath() is quite buggy on VMS. It uses LIB$FID_TO_NAME, which
2343 # will return the volume name for the device, no matter what. Also,
2344 # it will return an incorrect directory spec if the argument is a
2345 # directory that doesn't exist.
2346 if ($^O eq "VMS") {
2347 return rel2abs($dir);
2348 }
2349
2350 # We use realpath() on Unix, since no other will properly clean out
2351 # a directory spec.
2352 use Cwd qw/realpath/;
2353
2354 return realpath($dir);
2355}
2356
99aab161
UM		 2357sub which
2358 {
2359 my($name)=@_;
2360 my $path;
2361 foreach $path (split /:/, $ENV{PATH})
2362 {
09aa263a
RL		 2363 my $fullpath = "$path/$name$target{exe_extension}";
2364 if (-f $fullpath and -x $fullpath)
99aab161 2365 {
09aa263a
RL		 2366 return $fullpath
2367 unless ($name eq "perl" and
2368 system("$fullpath -e " . '\'exit($]<5.0);\''));
99aab161
UM		 2369 }
2370 }
2371 }
2372
fe05264e
RL		 2373sub quotify {
2374 my %processors = (
2375 perl => sub { my $x = shift;
2376 $x =~ s/([\\\$\@"])/\\$1/g;
2377 return '"'.$x.'"'; },
2378 );
2379 my $for = shift;
2380 my $processor =
2381 defined($processors{$for}) ? $processors{$for} : sub { shift; };
2382
2383 map { $processor->($_); } @_;
2384}
107b5792 2385
9fe2bb77
RL		 2386# collect_from_file($filename, $line_concat_cond_re, $line_concat)
2387# $filename is a file name to read from
2388# $line_concat_cond_re is a regexp detecting a line continuation ending
2389# $line_concat is a CODEref that takes care of concatenating two lines
2390sub collect_from_file {
2391 my $filename = shift;
2392 my $line_concat_cond_re = shift;
2393 my $line_concat = shift;
2394
2395 open my $fh, $filename || die "unable to read $filename: $!\n";
2396 return sub {
2397 my $saved_line = "";
2398 $_ = "";
2399 while (<$fh>) {
04f171c0 2400 s|\R$||;
9fe2bb77
RL		 2401 if (defined $line_concat) {
2402 $_ = $line_concat->($saved_line, $_);
2403 $saved_line = "";
2404 }
2405 if (defined $line_concat_cond_re && /$line_concat_cond_re/) {
2406 $saved_line = $_;
2407 next;
2408 }
2409 return $_;
2410 }
2411 die "$filename ending with continuation line\n" if $_;
2412 close $fh;
2413 return undef;
2414 }
2415}
2416
2417# collect_from_array($array, $line_concat_cond_re, $line_concat)
2418# $array is an ARRAYref of lines
2419# $line_concat_cond_re is a regexp detecting a line continuation ending
2420# $line_concat is a CODEref that takes care of concatenating two lines
2421sub collect_from_array {
2422 my $array = shift;
2423 my $line_concat_cond_re = shift;
2424 my $line_concat = shift;
2425 my @array = (@$array);
2426
2427 return sub {
2428 my $saved_line = "";
2429 $_ = "";
2430 while (defined($_ = shift @array)) {
04f171c0 2431 s|\R$||;
9fe2bb77
RL		 2432 if (defined $line_concat) {
2433 $_ = $line_concat->($saved_line, $_);
2434 $saved_line = "";
2435 }
2436 if (defined $line_concat_cond_re && /$line_concat_cond_re/) {
2437 $saved_line = $_;
2438 next;
2439 }
2440 return $_;
2441 }
2442 die "input text ending with continuation line\n" if $_;
2443 return undef;
2444 }
2445}
2446
2447# collect_information($lineiterator, $line_continue, $regexp => $CODEref, ...)
2448# $lineiterator is a CODEref that delivers one line at a time.
107b5792
RL		 2449# All following arguments are regex/CODEref pairs, where the regexp detects a
2450# line and the CODEref does something with the result of the regexp.
2451sub collect_information {
9fe2bb77 2452 my $lineiterator = shift;
107b5792
RL		 2453 my %collectors = @_;
2454
9fe2bb77 2455 while(defined($_ = $lineiterator->())) {
04f171c0 2456 s|\R$||;
9fe2bb77
RL		 2457 my $found = 0;
2458 foreach my $re (keys %collectors) {
2459 if ($re ne "OTHERWISE" && /$re/) {
2460 $collectors{$re}->($lineiterator);
2461 $found = 1;
2462 };
2463 }
2464 if ($collectors{"OTHERWISE"}) {
2465 $collectors{"OTHERWISE"}->($lineiterator, $_)
2466 unless $found || !defined $collectors{"OTHERWISE"};
2467 }
107b5792 2468 }
107b5792 2469}
A mirror of the official openssl repository