]> 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
Don't free NCONF obtained values
[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",
223 "md2", "md4", "md5", "sha", "mdc2", "hmac", "ripemd", "whrlpool", "poly1305",
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
RL		 245 "bf",
246 "camellia",
247 "capieng",
248 "cast",
48f14845 249 "chacha",
8b527be2
RL		 250 "cmac",
251 "cms",
252 "comp",
3e45d393 253 "crypto-mdebug",
ef8ca6bd 254 "crypto-mdebug-backtrace",
8b527be2
RL		 255 "ct",
256 "deprecated",
257 "des",
258 "dgram",
259 "dh",
260 "dsa",
261 "dso",
a5ecdc6a 262 "dtls",
343ec2b0 263 "dynamic-engine",
8b527be2
RL		 264 "ec",
265 "ec2m",
6b01bed2
VD		 266 "ecdh",
267 "ecdsa",
8b527be2 268 "ec_nistp_64_gcc_128",
b31feae6 269 "egd",
8b527be2 270 "engine",
1288f26f 271 "err",
02f7114a 272 "filenames",
8b527be2
RL		 273 "heartbeats",
274 "hmac",
275 "hw(-.+)?",
276 "idea",
1288f26f 277 "locking",
8b527be2
RL		 278 "md2",
279 "md4",
280 "md5",
281 "mdc2",
282 "md[-_]ghost94",
283 "nextprotoneg",
284 "ocb",
285 "ocsp",
ae48242c 286 "pic",
48f14845 287 "poly1305",
8b527be2
RL		 288 "posix-io",
289 "psk",
290 "rc2",
291 "rc4",
292 "rc5",
293 "rdrand",
294 "rfc3779",
295 "rijndael", # Old AES name
1288f26f 296 "ripemd",
8b527be2
RL		 297 "rmd160",
298 "rsa",
299 "scrypt",
300 "sct",
301 "sctp",
302 "seed",
303 "sha",
304 "shared",
305 "sock",
306 "srp",
307 "srtp",
308 "sse2",
309 "ssl",
8b527be2
RL		 310 "ssl-trace",
311 "static-engine",
312 "stdio",
8b527be2
RL		 313 "threads",
314 "tls",
1288f26f
RS		 315 "ts",
316 "ui",
8b527be2
RL		 317 "unit-test",
318 "whirlpool",
8b1a5af3 319 "weak-ssl-ciphers",
8b527be2
RL		 320 "zlib",
321 "zlib-dynamic",
322 );
6b01bed2
VD		 323foreach my $proto ((@tls, @dtls))
324 {
325 push(@disablables, $proto);
326 push(@disablables, "$proto-method");
327 }
8b527be2 328
e80381e1
RL		 329my @deprecated_disablables = (
330 "ssl2",
331 );
332
c9a112f5
BM		 333# All of the following is disabled by default (RC5 was enabled before 0.9.8):
334
9e04edf2
RL		 335our %disabled = ( # "what" => "comment"
336 "ec_nistp_64_gcc_128" => "default",
8b1a5af3
MC		 337 "egd" => "default",
338 "md2" => "default",
339 "rc5" => "default",
340 "sctp" => "default",
341 "shared" => "default",
342 "ssl-trace" => "default",
9829b5ab
KR		 343 "ssl3" => "default",
344 "ssl3-method" => "default",
8b1a5af3
MC		 345 "static-engine" => "default",
346 "unit-test" => "default",
347 "weak-ssl-ciphers" => "default",
348 "zlib" => "default",
349 "zlib-dynamic" => "default",
350 "crypto-mdebug" => "default",
351 "heartbeats" => "default",
9e04edf2 352 );
c9a112f5 353
c569e206
RL		 354# Note: => pair form used for aesthetics, not to truly make a hash table
355my @disable_cascades = (
356 # "what" => [ "cascade", ... ]
7d130f68 357 sub { $config{processor} eq "386" }
c569e206
RL		 358 => [ "sse2" ],
359 "ssl" => [ "ssl3" ],
360 "ssl3-method" => [ "ssl3" ],
361 "zlib" => [ "zlib-dynamic" ],
362 "rijndael" => [ "aes" ],
363 "des" => [ "mdc2" ],
9e4d6fbf 364 "ec" => [ "ecdsa", "ecdh" ],
c569e206
RL		 365
366 "dgram" => [ "dtls" ],
367 "dtls" => [ @dtls ],
368
369 # SSL 3.0, (D)TLS 1.0 and TLS 1.1 require MD5 and SHA
370 "md5" => [ "ssl", "tls1", "tls1_1", "dtls1" ],
371 "sha" => [ "ssl", "tls1", "tls1_1", "dtls1" ],
372
373 # Additionally, SSL 3.0 requires either RSA or DSA+DH
374 sub { $disabled{rsa}
375 && ($disabled{dsa} || $disabled{dh}); }
376 => [ "ssl" ],
377
378 # (D)TLS 1.0 and TLS 1.1 also require either RSA or DSA+DH
379 # or ECDSA + ECDH. (D)TLS 1.2 has this requirement as well.
380 # (XXX: We don't support PSK-only builds).
381 sub { $disabled{rsa}
382 && ($disabled{dsa} || $disabled{dh})
383 && ($disabled{ecdsa} || $disabled{ecdh}); }
384 => [ "tls1", "tls1_1", "tls1_2",
385 "dtls1", "dtls1_2" ],
386
387 "tls" => [ @tls ],
388
389 # SRP and HEARTBEATS require TLSEXT
390 "tlsext" => [ "srp", "heartbeats" ],
ef8ca6bd
RL		 391
392 "crypto-mdebug" => [ "crypto-mdebug-backtrace" ],
343ec2b0
RL		 393
394 # Without DSO, we can't load dynamic engines, so don't build them dynamic
395 "dso" => [ "dynamic-engine" ],
ae48242c
RL		 396
397 # Without position independent code, there can be no shared libraries or DSOs
398 "pic" => [ "shared", "dynamic-engine" ],
c569e206
RL		 399 );
400
401# Avoid protocol support holes. Also disable all versions below N, if version
402# N is disabled while N+1 is enabled.
403#
404my @list = (reverse @tls);
405while ((my $first, my $second) = (shift @list, shift @list)) {
406 last unless @list;
407 push @disable_cascades, ( sub { !$disabled{$first} && $disabled{$second} }
408 => [ @list ] );
409 unshift @list, $second;
410}
411my @list = (reverse @dtls);
412while ((my $first, my $second) = (shift @list, shift @list)) {
413 last unless @list;
414 push @disable_cascades, ( sub { !$disabled{$first} && $disabled{$second} }
415 => [ @list ] );
416 unshift @list, $second;
417}
418
7a762197 419# Explicit "no-..." options will be collected in %disabled along with the defaults.
e4ef2e25 420# To remove something from %disabled, use "enable-foo".
7a762197
BM		 421# For symmetry, "disable-foo" is a synonym for "no-foo".
422
e737d7b1
RL		 423my @generated_headers = (
424 "include/openssl/opensslconf.h",
e987f9f2
RL		 425 "crypto/include/internal/bn_conf.h",
426 "crypto/include/internal/dso_conf.h"
e737d7b1
RL		 427 );
428
429my @generated_by_make_headers = (
430 "crypto/buildinf.h"
431 );
432
ab185b60 433
d0590fe6 434my $no_sse2=0;
b6e4dac2 435
462ba4f6 436&usage if ($#ARGV < 0);
d02b48c6 437
bcb1977b
RL		 438my $user_cflags="";
439my @user_defines=();
242ffb05 440my $unified = 0;
7d130f68
RL		 441$config{openssl_api_defines}=[];
442$config{openssl_algorithm_defines}=[];
443$config{openssl_thread_defines}=[];
444$config{openssl_sys_defines}=[];
445$config{openssl_other_defines}=[];
fe05264e
RL		 446my $libs="";
447my $target="";
3fa04f0d 448$config{options}="";
8864f0de 449$config{build_type} = "release";
c59cb511
RL		 450
451my @argvcopy=@ARGV;
c59cb511 452
fe05264e 453if (grep /^reconf(igure)?$/, @argvcopy) {
642a6138
RL		 454 if (-f "./configdata.pm") {
455 my $file = "./configdata.pm";
456 unless (my $return = do $file) {
457 die "couldn't parse $file: $@" if $@;
458 die "couldn't do $file: $!" unless defined $return;
459 die "couldn't run $file" unless $return;
fe05264e 460 }
642a6138
RL		 461
462 @argvcopy = defined($configdata::config{perlargv}) ?
463 @{$configdata::config{perlargv}} : ();
464 die "Incorrect data to reconfigure, please do a normal configuration\n"
465 if (grep(/^reconf/,@argvcopy));
466 $ENV{CROSS_COMPILE} = $configdata::config{cross_compile_prefix}
467 if defined($configdata::config{cross_compile_prefix});
468 $ENV{CROSS_COMPILE} = $configdata::config{cc}
469 if defined($configdata::config{cc});
470
fe05264e
RL		 471 print "Reconfiguring with: ", join(" ",@argvcopy), "\n";
472 print " CROSS_COMPILE = ",$ENV{CROSS_COMPILE},"\n"
473 if $ENV{CROSS_COMPILE};
474 print " CC = ",$ENV{CC},"\n" if $ENV{CC};
642a6138
RL		 475 } elsif (open IN, "<Makefile") {
476 #
477 # THIS SECTION IS TEMPORARY, it helps transitioning from Makefile
478 # centered information gathering the reading configdata.pm
479 #
480 while (<IN>) {
04f171c0 481 s|\R$||;
642a6138
RL		 482 if (/^CONFIGURE_ARGS=\s*(.*)\s*/) {
483 # Older form, we split the string and hope for the best
484 @argvcopy = split /\s+/, $_;
485 die "Incorrect data to reconfigure, please do a normal configuration\n"
486 if (grep(/^reconf/,@argvcopy));
487 } elsif (/^CROSS_COMPILE=\s*(.*)/) {
488 $ENV{CROSS_COMPILE}=$1;
489 } elsif (/^CC=\s*(?:\$\(CROSS_COMPILE\))?(.*?)$/) {
490 $ENV{CC}=$1;
491 }
492 }
493 #
494 # END OF TEMPORARY SECTION
495 #
fe05264e
RL		 496 } else {
497 die "Insufficient data to reconfigure, please do a normal configuration\n";
498 }
499}
500
642a6138 501$config{perlargv} = [ @argvcopy ];
fe05264e
RL		 502
503my %unsupported_options = ();
e80381e1 504my %deprecated_options = ();
fe05264e 505foreach (@argvcopy)
16b6081e 506 {
7c55e22c
RL		 507 # VMS is a case insensitive environment, and depending on settings
508 # out of our control, we may receive options uppercased. Let's
509 # downcase at least the part before any equal sign.
510 if ($^O eq "VMS")
511 {
512 s/^([^=]*)/lc($1)/e;
513 }
fe05264e 514 s /^-no-/no-/; # some people just can't read the instructions
c9a112f5 515
fe05264e
RL		 516 # rewrite some options in "enable-..." form
517 s /^-?-?shared$/enable-shared/;
518 s /^sctp$/enable-sctp/;
519 s /^threads$/enable-threads/;
520 s /^zlib$/enable-zlib/;
521 s /^zlib-dynamic$/enable-zlib-dynamic/;
c9a112f5 522
e4ef2e25 523 if (/^(no|disable|enable)-(.+)$/)
fe05264e
RL		 524 {
525 my $word = $2;
e80381e1
RL		 526 if (grep { $word =~ /^${_}$/ } @deprecated_disablables)
527 {
528 $deprecated_options{$_} = 1;
529 next;
530 }
531 elsif (!grep { $word =~ /^${_}$/ } @disablables)
8b527be2 532 {
fe05264e
RL		 533 $unsupported_options{$_} = 1;
534 next;
8b527be2 535 }
fe05264e
RL		 536 }
537 if (/^no-(.+)$/ || /^disable-(.+)$/)
538 {
e4ef2e25
RS		 539 foreach my $proto ((@tls, @dtls))
540 {
541 if ($1 eq "$proto-method")
542 {
543 $disabled{"$proto"} = "option($proto-method)";
544 last;
545 }
546 }
547 if ($1 eq "dtls")
548 {
549 foreach my $proto (@dtls)
550 {
551 $disabled{$proto} = "option(dtls)";
552 }
553 }
554 elsif ($1 eq "ssl")
555 {
556 # Last one of its kind
557 $disabled{"ssl3"} = "option(ssl)";
558 }
559 elsif ($1 eq "tls")
560 {
561 # XXX: Tests will fail if all SSL/TLS
562 # protocols are disabled.
563 foreach my $proto (@tls)
564 {
565 $disabled{$proto} = "option(tls)";
566 }
567 }
343ec2b0
RL		 568 elsif ($1 eq "static-engine")
569 {
19ab5790 570 delete $disabled{"dynamic-engine"};
343ec2b0
RL		 571 }
572 elsif ($1 eq "dynamic-engine")
573 {
19ab5790 574 $disabled{"dynamic-engine"} = "option";
343ec2b0 575 }
e4ef2e25
RS		 576 else
577 {
578 $disabled{$1} = "option";
579 }
9c62a279
RL		 580 # No longer an automatic choice
581 $auto_threads = 0 if ($1 eq "threads");
fe05264e 582 }
e4ef2e25 583 elsif (/^enable-(.+)$/)
fe05264e 584 {
343ec2b0
RL		 585 if ($1 eq "static-engine")
586 {
19ab5790 587 $disabled{"dynamic-engine"} = "option";
343ec2b0
RL		 588 }
589 elsif ($1 eq "dynamic-engine")
590 {
19ab5790 591 delete $disabled{"dynamic-engine"};
343ec2b0 592 }
25004db7
RL		 593 elsif ($1 eq "zlib-dynamic")
594 {
595 delete $disabled{"zlib"};
596 }
fe05264e 597 my $algo = $1;
fe05264e 598 delete $disabled{$algo};
c9a112f5 599
9c62a279
RL		 600 # No longer an automatic choice
601 $auto_threads = 0 if ($1 eq "threads");
fe05264e
RL		 602 }
603 elsif (/^--strict-warnings$/)
604 {
605 $strict_warnings = 1;
606 }
607 elsif (/^--debug$/)
608 {
8864f0de 609 $config{build_type} = "debug";
fe05264e
RL		 610 }
611 elsif (/^--release$/)
612 {
8864f0de 613 $config{build_type} = "release";
fe05264e
RL		 614 }
615 elsif (/^386$/)
7d130f68 616 { $config{processor}=386; }
fe05264e
RL		 617 elsif (/^fips$/)
618 {
107b5792 619 $config{fips}=1;
fe05264e
RL		 620 }
621 elsif (/^rsaref$/)
622 {
623 # No RSAref support any more since it's not needed.
624 # The check for the option is there so scripts aren't
625 # broken
626 }
627 elsif (/^nofipscanistercheck$/)
628 {
107b5792 629 $config{fips} = 1;
fe05264e
RL		 630 $nofipscanistercheck = 1;
631 }
632 elsif (/^[-+]/)
633 {
242ffb05
RL		 634 if (/^--unified$/)
635 {
636 $unified=1;
637 }
638 elsif (/^--prefix=(.*)$/)
fe05264e 639 {
291e94df 640 $config{prefix}=$1;
5482dac9
RL		 641 die "Directory given with --prefix MUST be absolute\n"
642 unless file_name_is_absolute($config{prefix});
c9a112f5 643 }
fe05264e 644 elsif (/^--api=(.*)$/)
0c28f277 645 {
107b5792 646 $config{api}=$1;
0c28f277 647 }
fe05264e 648 elsif (/^--libdir=(.*)$/)
9e43c6b5 649 {
107b5792 650 $config{libdir}=$1;
9e43c6b5 651 }
fe05264e 652 elsif (/^--openssldir=(.*)$/)
9e43c6b5 653 {
291e94df 654 $config{openssldir}=$1;
9e43c6b5 655 }
fe05264e 656 elsif (/^--with-zlib-lib=(.*)$/)
9fdb2cc5 657 {
20a5819f 658 $withargs{zlib_lib}=$1;
7d8bb912 659 }
fe05264e 660 elsif (/^--with-zlib-include=(.*)$/)
3eb0ed6d 661 {
20a5819f 662 $withargs{zlib_include}="-I$1";
462ba4f6 663 }
fe05264e 664 elsif (/^--with-fipslibdir=(.*)$/)
1ab2f7f1 665 {
107b5792 666 $config{fipslibdir}="$1/";
1ab2f7f1 667 }
fe05264e 668 elsif (/^--with-baseaddr=(.*)$/)
462ba4f6 669 {
107b5792 670 $config{baseaddr}="$1";
3eb0ed6d 671 }
fe05264e 672 elsif (/^--cross-compile-prefix=(.*)$/)
e5f3045f 673 {
642a6138 674 $config{cross_compile_prefix}=$1;
e5f3045f 675 }
fe05264e 676 elsif (/^--config=(.*)$/)
d02b48c6 677 {
fe05264e 678 read_config $1;
c59cb511 679 }
fe05264e 680 elsif (/^-[lL](.*)$/ or /^-Wl,/)
c9a112f5 681 {
fe05264e 682 $libs.=$_." ";
d02b48c6 683 }
bcb1977b
RL		 684 elsif (/^-D(.*)$/)
685 {
686 push @user_defines, $1;
687 }
fe05264e
RL		 688 else # common if (/^[-+]/), just pass down...
689 {
690 $_ =~ s/%([0-9a-f]{1,2})/chr(hex($1))/gei;
2b91ec75 691 $user_cflags.=" ".$_;
fe05264e
RL		 692 }
693 }
fe05264e
RL		 694 else
695 {
696 die "target already defined - $target (offending arg: $_)\n" if ($target ne "");
697 $target=$_;
698 }
699 unless ($_ eq $target || /^no-/ || /^disable-/)
700 {
701 # "no-..." follows later after implied disactivations
702 # have been derived. (Don't take this too seroiusly,
703 # we really only write OPTIONS to the Makefile out of
704 # nostalgia.)
705
3fa04f0d
RL		 706 if ($config{options} eq "")
707 { $config{options} = $_; }
fe05264e 708 else
3fa04f0d 709 { $config{options} .= " ".$_; }
fbabb752 710 }
489eb740 711
107b5792
RL		 712 if (defined($config{api}) && !exists $apitable->{$config{api}}) {
713 die "***** Unsupported api compatibility level: $config{api}\n",
98186eb4
VD		 714 }
715
e80381e1
RL		 716 if (keys %deprecated_options)
717 {
718 warn "***** Deprecated options: ",
719 join(", ", keys %deprecated_options), "\n";
720 }
489eb740
RL		 721 if (keys %unsupported_options)
722 {
723 die "***** Unsupported options: ",
724 join(", ", keys %unsupported_options), "\n";
725 }
fbabb752 726 }
b6e4dac2 727
107b5792 728if ($config{fips})
a7a14a23 729 {
c569e206 730 delete $disabled{"shared"} if ($disabled{"shared"} =~ /^default/);
6b01bed2 731 }
107b5792
RL		 732else
733 {
734 @{$config{dirs}} = grep !/^fips$/, @{$config{dirs}};
735 }
c9a112f5 736
c569e206
RL		 737my @tocheckfor = (keys %disabled);
738while (@tocheckfor) {
739 my %new_tocheckfor = ();
740 my @cascade_copy = (@disable_cascades);
741 while (@cascade_copy) {
742 my ($test, $descendents) = (shift @cascade_copy, shift @cascade_copy);
743 if (ref($test) eq "CODE" ? $test->() : defined($disabled{$test})) {
744 map {
745 $new_tocheckfor{$_} => 1; $disabled{$_} = "forced";
746 } grep { !defined($disabled{$_}) } @$descendents;
ef236ec3 747 }
c569e206
RL		 748 }
749 @tocheckfor = (keys %new_tocheckfor);
750}
edc032b5 751
436a376b 752if ($target eq "TABLE") {
00ae96ca
RL		 753 foreach (sort keys %table) {
754 print_table_entry($_, "TABLE");
755 }
756 exit 0;
436a376b
BM		 757}
758
10a926c1 759if ($target eq "LIST") {
00ae96ca
RL		 760 foreach (sort keys %table) {
761 print $_,"\n" unless $table{$_}->{template};
762 }
763 exit 0;
10a926c1
UM		 764}
765
aaf878cc 766if ($target eq "HASH") {
00ae96ca
RL		 767 print "%table = (\n";
768 foreach (sort keys %table) {
769 print_table_entry($_, "HASH");
770 }
771 exit 0;
aaf878cc
RL		 772}
773
00ae96ca 774# Backward compatibility?
49e04548 775if ($target =~ m/^CygWin32(-.*)$/) {
00ae96ca 776 $target = "Cygwin".$1;
49e04548
RL		 777}
778
c9a112f5
BM		 779foreach (sort (keys %disabled))
780 {
3fa04f0d 781 $config{options} .= " no-$_";
c9a112f5
BM		 782
783 printf " no-%-12s %-10s", $_, "[$disabled{$_}]";
784
785 if (/^dso$/)
721f9058 786 { }
c9a112f5 787 elsif (/^threads$/)
22bfe05e 788 { }
c9a112f5 789 elsif (/^shared$/)
84af1bae 790 { }
ae48242c
RL		 791 elsif (/^pic$/)
792 { }
c9a112f5 793 elsif (/^zlib$/)
36a30909 794 { }
19ab5790 795 elsif (/^dynamic-engine$/)
fbf002bb 796 { }
c9a112f5
BM		 797 elsif (/^zlib-dynamic$/)
798 { }
c9a112f5
BM		 799 elsif (/^sse2$/)
800 { $no_sse2 = 1; }
107b5792 801 elsif (/^engine$/)
1288f26f
RS		 802 {
803 @{$config{dirs}} = grep !/^engines$/, @{$config{dirs}};
804 @{$config{sdirs}} = grep !/^engine$/, @{$config{sdirs}};
805 push @{$config{openssl_other_defines}}, "OPENSSL_NO_ENGINE";
806 }
c9a112f5
BM		 807 else
808 {
809 my ($ALGO, $algo);
30fafdeb 810 ($ALGO = $algo = $_) =~ tr/[\-a-z]/[_A-Z]/;
c9a112f5 811
316fae2a 812 if (/^asm$/ || /^err$/ || /^hw$/ || /^hw-/ || /^async$/
498abff0 813 || /^autoalginit/ || /^autoerrinit/)
c9a112f5 814 {
7d130f68 815 push @{$config{openssl_other_defines}}, "OPENSSL_NO_$ALGO";
c9a112f5 816 print " OPENSSL_NO_$ALGO";
fce0ba5f 817
bcb1977b 818 if (/^err$/) { push @user_defines, "OPENSSL_NO_ERR"; }
c9a112f5
BM		 819 }
820 else
821 {
2a4af947
AP		 822 ($ALGO,$algo) = ("RMD160","rmd160") if ($algo eq "ripemd");
823
7d130f68 824 push @{$config{openssl_algorithm_defines}}, "OPENSSL_NO_$ALGO";
c9a112f5
BM		 825 print " OPENSSL_NO_$ALGO";
826
e36827f6 827 # fix-up crypto/directory name(s)
107b5792
RL		 828 $algo="whrlpool" if $algo eq "whirlpool";
829 $algo="ripemd" if $algo eq "rmd160";
830 @{$config{sdirs}} = grep { $_ ne $algo} @{$config{sdirs}};
2a4af947 831
e36827f6 832 print " (skip dir)";
c9a112f5
BM		 833 }
834 }
835
836 print "\n";
837 }
838
9e0724a1
RL		 839print "Configuring for $target\n";
840
841# Support for legacy targets having a name starting with 'debug-'
842my ($d, $t) = $target =~ m/^(debug-)?(.*)$/;
843if ($d) {
8864f0de 844 $config{build_type} = "debug";
9e0724a1
RL		 845
846 # If we do not find debug-foo in the table, the target is set to foo.
847 if (!$table{$target}) {
848 $target = $t;
849 }
850}
291e94df 851$config{target} = $target;
79302211 852my %target = resolve_config($target);
9e0724a1
RL		 853
854&usage if (!%target || $target{template});
855
d2b2221a 856%target = ( %{$table{DEFAULTS}}, %target );
79302211 857
107b5792 858$target{exe_extension}="";
f99f91f1
RL		 859$target{exe_extension}=".exe" if ($config{target} eq "DJGPP"
860 || $config{target} =~ /^(?:Cygwin|mingw)/);
107b5792
RL		 861$target{exe_extension}=".nlm" if ($config{target} =~ /netware/);
862$target{exe_extension}=".pm" if ($config{target} =~ /vos/);
462ba4f6 863
e987f9f2
RL		 864($target{shared_extension_simple}=$target{shared_extension})
865 =~ s|\.\$\(SHLIB_MAJOR\)\.\$\(SHLIB_MINOR\)||;
866$target{dso_extension}=$target{shared_extension_simple};
867($target{shared_import_extension}=$target{shared_extension_simple}.".a")
868 if ($config{target} =~ /^(?:Cygwin|mingw)/);
869
870
642a6138
RL		 871$config{cross_compile_prefix} = $ENV{'CROSS_COMPILE'}
872 if $config{cross_compile_prefix} eq "";
f99f41cf 873
b0a1e8bf
RL		 874# Allow overriding the names of some tools. USE WITH CARE
875$config{perl} = $ENV{'PERL'} || which("perl5") || which("perl") || "perl";
876$target{cc} = $ENV{'CC'} || $target{cc} || "cc";
877$target{ranlib} = $ENV{'RANLIB'} || $target{ranlib} || which("ranlib") || "true";
878$target{ar} = $ENV{'AR'} || $target{ar} || "ar";
879$target{nm} = $ENV{'NM'} || $target{nm} || "nm";
aaf878cc 880
bcb1977b
RL		 881# For cflags, lflags, plib_lflags, ex_libs and defines, add the debug_
882# or release_ attributes.
aaf878cc 883# Do it in such a way that no spurious space is appended (hence the grep).
2952b9b8
RL		 884$config{defines} = [];
885$config{cflags} = "";
886$config{ex_libs} = "";
887$config{shared_ldflag} = "";
bd5192b1 888
291e94df
RL		 889# Make sure build_scheme is consistent.
890$target{build_scheme} = [ $target{build_scheme} ]
891 if ref($target{build_scheme}) ne "ARRAY";
892
242ffb05
RL		 893###### TO BE REMOVED BEFORE FINAL RELEASE
894######
895###### If the user has chosen --unified, we give it to them.
95b2ebdf 896###### The same happens if we detect that they try to build out-of-source.
242ffb05
RL		 897if ($target{build_file} eq "Makefile"
898 && $target{build_scheme}->[0] eq "unixmake"
95b2ebdf 899 && ($unified || $srcdir ne $blddir)) {
242ffb05
RL		 900 $target{build_scheme} = [ "unified", "unix" ];
901}
902
ddf1847d
RL		 903my ($builder, $builder_platform, @builder_opts) =
904 @{$target{build_scheme}};
905
68ab559a 906if ($target =~ /^mingw/ && `$target{cc} --target-help 2>&1` =~ m/-mno-cygwin/m)
cbecd29a 907 {
68ab559a 908 $config{cflags} .= " -mno-cygwin";
2952b9b8 909 $config{shared_ldflag} .= " -mno-cygwin";
cbecd29a
AP		 910 }
911
00b0d663 912if ($target =~ /linux.*-mips/ && !$disabled{asm} && $user_cflags !~ /-m(ips|arch=)/) {
63d8834c 913 # minimally required architecture flags for assembly modules
107b5792
RL		 914 $config{cflags}="-mips2 $config{cflags}" if ($target =~ /mips32/);
915 $config{cflags}="-mips3 $config{cflags}" if ($target =~ /mips64/);
63d8834c
AP		 916}
917
2964ba8c 918my $no_shared_warn=0;
14bcdb08 919my $no_user_cflags=0;
bcb1977b 920my $no_user_defines=0;
2964ba8c 921
bc2aadad
GT		 922# The DSO code currently always implements all functions so that no
923# applications will have to worry about that from a compilation point
924# of view. However, the "method"s may return zero unless that platform
925# has support compiled in for them. Currently each method is enabled
926# by a define "DSO_<name>" ... we translate the "dso_scheme" config
927# string entry into using the following logic;
721f9058 928if (!$disabled{dso} && $target{dso_scheme} ne "")
bc2aadad 929 {
291e94df
RL		 930 $target{dso_scheme} =~ tr/[a-z]/[A-Z]/;
931 if ($target{dso_scheme} eq "DLFCN")
bc2aadad 932 {
2952b9b8 933 unshift @{$config{defines}}, "DSO_DLFCN", "HAVE_DLFCN_H";
bc2aadad 934 }
291e94df 935 elsif ($target{dso_scheme} eq "DLFCN_NO_H")
bc2aadad 936 {
2952b9b8 937 unshift @{$config{defines}}, "DSO_DLFCN";
bc2aadad
GT		 938 }
939 else
940 {
2952b9b8 941 unshift @{$config{defines}}, "DSO_$target{dso_scheme}";
bc2aadad
GT		 942 }
943 }
9ec0126e 944
1740c162 945$config{ex_libs}="$libs$config{ex_libs}" if ($libs ne "");
d02b48c6 946
00b0d663 947if ($disabled{asm})
dfeab068 948 {
2952b9b8
RL		 949 if ($config{fips})
950 {
951 @{$config{defines}} = grep !/^[BL]_ENDIAN$/, @{$config{defines}};
952 @{$target{defines}} = grep !/^[BL]_ENDIAN$/, @{$target{defines}};
953 }
dfeab068 954 }
6f7ac8e1 955
9c62a279
RL		 956# If threads aren't disabled, check how possible they are
957unless ($disabled{threads}) {
958 if ($auto_threads) {
959 # Enabled by default, disable it forcibly if unavailable
960 if ($target{thread_scheme} eq "(unknown)") {
961 $disabled{threads} = "unavailable";
962 }
963 } else {
964 # The user chose to enable threads explicitely, let's see
965 # if there's a chance that's possible
966 if ($target{thread_scheme} eq "(unknown)") {
967 # If the user asked for "threads" and we don't have internal
968 # knowledge how to do it, [s]he is expected to provide any
969 # system-dependent compiler options that are necessary. We
970 # can't truly check that the given options are correct, but
971 # we expect the user to know what [s]He is doing.
972 if ($no_user_cflags && $no_user_defines) {
973 die "You asked for multi-threading support, but didn't\n"
974 ,"provide any system-specific compiler options\n";
975 }
976 }
977 }
978}
979
980# If threads still aren't disabled, add a C macro to ensure the source
981# code knows about it. Any other flag is taken care of by the configs.
982unless($disabled{threads}) {
983 foreach (("defines", "openssl_thread_defines")) {
984 push @{$config{$_}}, "OPENSSL_THREADS";
985 }
986}
e452de9d 987
98186eb4
VD		 988# With "deprecated" disable all deprecated features.
989if (defined($disabled{"deprecated"})) {
107b5792 990 $config{api} = $maxapi;
98186eb4 991}
07c4c14c 992
291e94df 993if ($target{shared_target} eq "")
6f7ac8e1 994 {
ae48242c 995 $no_shared_warn = 1
84af1bae 996 if ((!$disabled{shared} || !$disabled{"dynamic-engine"})
ae48242c 997 && !$config{fips});
84af1bae 998 $disabled{shared} = "no-shared-target";
ae48242c
RL		 999 $disabled{pic} = $disabled{shared} = $disabled{"dynamic-engine"} =
1000 "no-shared-target";
6f7ac8e1 1001 }
b436a982 1002
19ab5790 1003if ($disabled{"dynamic-engine"}) {
343ec2b0
RL		 1004 push @{$config{defines}}, "OPENSSL_NO_DYNAMIC_ENGINE";
1005 $config{dynamic_engines} = 0;
19ab5790
RL		 1006} else {
1007 push @{$config{defines}}, "OPENSSL_NO_STATIC_ENGINE";
1008 $config{dynamic_engines} = 1;
343ec2b0 1009}
ecd45314 1010
c313e32a
AP		 1011#
1012# Platform fix-ups
1013#
ae48242c
RL		 1014
1015# This saves the build files from having to check
1016if ($disabled{pic})
1017 {
1018 $target{shared_cflag} = $target{shared_ldflag} =
1019 $target{shared_rcflag} = "";
1020 }
4f16039e
RL		 1021else
1022 {
1023 push @{$config{defines}}, "OPENSSL_PIC";
1024 }
ae48242c 1025
291e94df 1026if ($target{sys_id} ne "")
cf1b7d96 1027 {
642a6138 1028 push @{$config{openssl_sys_defines}}, "OPENSSL_SYS_$target{sys_id}";
cf1b7d96
RL		 1029 }
1030
00b0d663 1031unless ($disabled{asm}) {
d2b2221a 1032 $target{cpuid_asm_src}=$table{DEFAULTS}->{cpuid_asm_src} if ($config{processor} eq "386");
9fe2bb77 1033 $target{bn_asm_src} =~ s/\w+-gf2m.c// if (defined($disabled{ec2m}));
f8c469de 1034
9e0724a1 1035 # bn-586 is the only one implementing bn_*_part_words
bcb1977b
RL		 1036 push @{$config{defines}}, "OPENSSL_BN_ASM_PART_WORDS" if ($target{bn_asm_src} =~ /bn-586/);
1037 push @{$config{defines}}, "OPENSSL_IA32_SSE2" if (!$no_sse2 && $target{bn_asm_src} =~ /86/);
dfeab068 1038
bcb1977b
RL		 1039 push @{$config{defines}}, "OPENSSL_BN_ASM_MONT" if ($target{bn_asm_src} =~ /-mont/);
1040 push @{$config{defines}}, "OPENSSL_BN_ASM_MONT5" if ($target{bn_asm_src} =~ /-mont5/);
1041 push @{$config{defines}}, "OPENSSL_BN_ASM_GF2m" if ($target{bn_asm_src} =~ /-gf2m/);
5ac7bde7 1042
107b5792 1043 if ($config{fips}) {
7d130f68 1044 push @{$config{openssl_other_defines}}, "OPENSSL_FIPS";
9e0724a1 1045 }
1ab2f7f1 1046
9fe2bb77 1047 if ($target{sha1_asm_src}) {
bcb1977b
RL		 1048 push @{$config{defines}}, "SHA1_ASM" if ($target{sha1_asm_src} =~ /sx86/ || $target{sha1_asm_src} =~ /sha1/);
1049 push @{$config{defines}}, "SHA256_ASM" if ($target{sha1_asm_src} =~ /sha256/);
1050 push @{$config{defines}}, "SHA512_ASM" if ($target{sha1_asm_src} =~ /sha512/);
9e0724a1 1051 }
9fe2bb77 1052 if ($target{md5_asm_src}) {
bcb1977b 1053 push @{$config{defines}}, "MD5_ASM";
9e0724a1 1054 }
d2b2221a 1055 $target{cast_asm_src}=$table{DEFAULTS}->{cast_asm_src} unless $disabled{pic}; # CAST assembler is not PIC
9fe2bb77 1056 if ($target{rmd160_asm_src}) {
bcb1977b 1057 push @{$config{defines}}, "RMD160_ASM";
9e0724a1 1058 }
9fe2bb77 1059 if ($target{aes_asm_src}) {
bcb1977b 1060 push @{$config{defines}}, "AES_ASM" if ($target{aes_asm_src} =~ m/\baes-/);;
9fe2bb77 1061 # aes-ctr.fake is not a real file, only indication that assembler
874a3757 1062 # module implements AES_ctr32_encrypt...
bcb1977b 1063 push @{$config{defines}}, "AES_CTR_ASM" if ($target{aes_asm_src} =~ s/\s*aes-ctr\.fake//);
9fe2bb77 1064 # aes-xts.fake indicates presence of AES_xts_[en|de]crypt...
bcb1977b 1065 push @{$config{defines}}, "AES_XTS_ASM" if ($target{aes_asm_src} =~ s/\s*aes-xts\.fake//);
9fe2bb77 1066 $target{aes_asm_src} =~ s/\s*(vpaes|aesni)-x86\.s//g if ($no_sse2);
bcb1977b
RL		 1067 push @{$config{defines}}, "VPAES_ASM" if ($target{aes_asm_src} =~ m/vpaes/);
1068 push @{$config{defines}}, "BSAES_ASM" if ($target{aes_asm_src} =~ m/bsaes/);
9e0724a1 1069 }
9fe2bb77 1070 if ($target{wp_asm_src} =~ /mmx/) {
46d4d865 1071 if ($config{processor} eq "386") {
d2b2221a 1072 $target{wp_asm_src}=$table{DEFAULTS}->{wp_asm_src};
46d4d865 1073 } elsif (!$disabled{"whirlpool"}) {
2952b9b8 1074 push @{$config{defines}}, "WHIRLPOOL_ASM";
46d4d865 1075 }
9e0724a1 1076 }
9fe2bb77 1077 if ($target{modes_asm_src} =~ /ghash-/) {
bcb1977b 1078 push @{$config{defines}}, "GHASH_ASM";
9e0724a1 1079 }
9fe2bb77 1080 if ($target{ec_asm_src} =~ /ecp_nistz256/) {
bcb1977b 1081 push @{$config{defines}}, "ECP_NISTZ256_ASM";
9e0724a1 1082 }
9fe2bb77 1083 if ($target{poly1305_asm_src} ne "") {
bcb1977b 1084 push @{$config{defines}}, "POLY1305_ASM";
9e0724a1
RL		 1085 }
1086}
d02b48c6 1087
8ed40b83 1088my $ecc = $target{cc};
a583fc45
RL		 1089if ($^O ne "VMS") {
1090 # Is the compiler gcc or clang? $ecc is used below to see if
1091 # error-checking can be turned on.
1092 my $ccpcc = "$config{cross_compile_prefix}$target{cc}";
1093 $config{makedepprog} = 'makedepend';
1094 open(PIPE, "$ccpcc --version 2>&1 | head -2 |");
1095 while ( <PIPE> ) {
1096 $config{makedepprog} = $ccpcc if /clang|gcc/;
1097 $ecc = "clang" if /clang/;
1098 $ecc = "gcc" if /gcc/;
1099 }
1100 close(PIPE);
f1f07a23 1101}
8ed40b83 1102
7d130f68
RL		 1103
1104# Deal with bn_ops ###################################################
1105
7d130f68 1106$config{bn_ll} =0;
7d130f68
RL		 1107$config{export_var_as_fn} =0;
1108my $def_int="unsigned int";
1109$config{rc4_int} =$def_int;
b4f35e5e 1110($config{b64l},$config{b64},$config{b32})=(0,0,1);
7d130f68 1111
94af0cd7 1112my $count = 0;
7d130f68 1113foreach (sort split(/\s+/,$target{bn_ops})) {
94af0cd7
RS		 1114 $count++ if /SIXTY_FOUR_BIT|SIXTY_FOUR_BIT_LONG|THIRTY_TWO_BIT/;
1115 $config{export_var_as_fn}=1 if $_ eq 'EXPORT_VAR_AS_FN';
1116 $config{bn_ll}=1 if $_ eq 'BN_LLONG';
1117 $config{rc4_int}="unsigned char" if $_ eq 'RC4_CHAR';
1118 ($config{b64l},$config{b64},$config{b32})
1119 =(0,1,0) if $_ eq 'SIXTY_FOUR_BIT';
1120 ($config{b64l},$config{b64},$config{b32})
1121 =(1,0,0) if $_ eq 'SIXTY_FOUR_BIT_LONG';
1122 ($config{b64l},$config{b64},$config{b32})
1123 =(0,0,1) if $_ eq 'THIRTY_TWO_BIT';
7d130f68 1124}
94af0cd7
RS		 1125die "Exactly one of SIXTY_FOUR_BIT|SIXTY_FOUR_BIT_LONG|THIRTY_TWO_BIT can be set in bn_ops\n"
1126 if $count > 1;
7d130f68
RL		 1127
1128
1129# Hack cflags for better warnings (dev option) #######################
1130
1ed0c662
RL		 1131# "Stringify" the C flags string. This permits it to be made part of a string
1132# and works as well on command lines.
107b5792 1133$config{cflags} =~ s/([\\\"])/\\\1/g;
b436a982 1134
107b5792
RL		 1135if (defined($config{api})) {
1136 $config{openssl_api_defines} = [ "OPENSSL_MIN_API=".$apitable->{$config{api}} ];
bcb1977b 1137 my $apiflag = sprintf("OPENSSL_API_COMPAT=%s", $apitable->{$config{api}});
bcb1977b 1138 push @{$config{defines}}, $apiflag;
98186eb4
VD		 1139}
1140
0c28f277
DSH		 1141if ($strict_warnings)
1142 {
1143 my $wopt;
f1f07a23
RS		 1144 die "ERROR --strict-warnings requires gcc or clang"
1145 unless $ecc eq 'gcc' || $ecc eq 'clang';
0c28f277
DSH		 1146 foreach $wopt (split /\s+/, $gcc_devteam_warn)
1147 {
d918f9cb 1148 $config{cflags} .= " $wopt" unless ($config{cflags} =~ /(?:^|\s)$wopt(?:\s|$)/)
0c28f277 1149 }
190c8c60
BL		 1150 if ($ecc eq "clang")
1151 {
1152 foreach $wopt (split /\s+/, $clang_devteam_warn)
1153 {
d918f9cb 1154 $config{cflags} .= " $wopt" unless ($config{cflags} =~ /(?:^|\s)$wopt(?:\s|$)/)
190c8c60
BL		 1155 }
1156 }
ef8ca6bd
RL		 1157 }
1158
1159unless ($disabled{"crypto-mdebug-backtrace"})
1160 {
1161 foreach my $wopt (split /\s+/, $memleak_devteam_backtrace)
a1d3f3d1 1162 {
d918f9cb 1163 $config{cflags} .= " $wopt" unless ($config{cflags} =~ /(?:^|\s)$wopt(?:\s|$)/)
ef8ca6bd
RL		 1164 }
1165 if ($target =~ /^BSD-/)
1166 {
1167 $config{ex_libs} .= " -lexecinfo";
291e94df 1168 }
0c28f277
DSH		 1169 }
1170
63994098
RL		 1171if ($user_cflags ne "") { $config{cflags}="$config{cflags}$user_cflags"; }
1172else { $no_user_cflags=1; }
1173if (@user_defines) { $config{defines}=[ @{$config{defines}}, @user_defines ]; }
1174else { $no_user_defines=1; }
1175
1176# ALL MODIFICATIONS TO %config and %target MUST BE DONE FROM HERE ON
1177
7f458a48 1178$config{afalg}="";
1179if ($target =~ m/^linux/) {
1180 my $minver = 4*10000 + 1*100 + 0;
1181 if ($config{cross_compile_prefix} eq "") {
1182 my $verstr = `uname -r`;
1183 my ($ma, $mi1, $mi2) = split("\\.", $verstr);
1184 ($mi2) = $mi2 =~ /(\d+)/;
1185 my $ver = $ma*10000 + $mi1*100 + $mi2;
8da00a38
MC		 1186 if ($ver < $minver) {
1187 $disabled{afalg} = "too-old-kernel";
6cba4a66 1188 } else {
8da00a38 1189 push @{$config{engdirs}}, "afalg";
6cba4a66 1190 }
7f458a48 1191 }
8da00a38
MC		 1192} else {
1193 $disabled{afalg} = "not-linux";
7f458a48 1194}
8da00a38
MC		 1195
1196push @{$config{openssl_other_defines}}, "OPENSSL_NO_AFALGENG" if ($disabled{afalg});
7f458a48 1197
9fe2bb77
RL		 1198# If we use the unified build, collect information from build.info files
1199my %unified_info = ();
1200
ddf1847d
RL		 1201if ($builder eq "unified") {
1202 # Store the name of the template file we will build the build file from
1203 # in %config. This may be useful for the build file itself.
1204 my $build_file_template =
1205 catfile($srcdir, "Configurations",
1206 $builder_platform."-".$target{build_file}.".tmpl");
1207 $build_file_template =
1208 catfile($srcdir, "Configurations", $target{build_file}.".tmpl")
1209 if (! -f $build_file_template);
1210 $config{build_file_template} = $build_file_template;
1211
9fe2bb77
RL		 1212 use lib catdir(dirname(__FILE__),"util");
1213 use with_fallback qw(Text::Template);
1214
9fe2bb77 1215 sub cleandir {
2e963849 1216 my $base = shift;
9fe2bb77 1217 my $dir = shift;
2e963849
RL		 1218 my $relativeto = shift || ".";
1219
1220 $dir = catdir($base,$dir) unless isabsolute($dir);
9fe2bb77 1221
ec182ef0
RL		 1222 # Make sure the directories we're building in exists
1223 mkpath($dir);
1224
2e963849 1225 my $res = abs2rel(absolutedir($dir), rel2abs($relativeto));
9fe2bb77
RL		 1226 #print STDERR "DEBUG[cleandir]: $dir , $base => $res\n";
1227 return $res;
1228 }
1229
1230 sub cleanfile {
2e963849 1231 my $base = shift;
9fe2bb77 1232 my $file = shift;
2e963849
RL		 1233 my $relativeto = shift || ".";
1234
1235 $file = catfile($base,$file) unless isabsolute($file);
1236
9fe2bb77
RL		 1237 my $d = dirname($file);
1238 my $f = basename($file);
1239
ec182ef0
RL		 1240 # Make sure the directories we're building in exists
1241 mkpath($d);
1242
2e963849 1243 my $res = abs2rel(catfile(absolutedir($d), $f), rel2abs($relativeto));
9fe2bb77
RL		 1244 #print STDERR "DEBUG[cleanfile]: $d , $f => $res\n";
1245 return $res;
1246 }
1247
1248 my @build_infos = ( [ ".", "build.info" ] );
1249 foreach (@{$config{dirs}}) {
1250 push @build_infos, [ $_, "build.info" ]
1251 if (-f catfile($srcdir, $_, "build.info"));
1252 }
1253 foreach (@{$config{sdirs}}) {
1254 push @build_infos, [ catdir("crypto", $_), "build.info" ]
1255 if (-f catfile($srcdir, "crypto", $_, "build.info"));
1256 }
1257 foreach (@{$config{engdirs}}) {
1258 push @build_infos, [ catdir("engines", $_), "build.info" ]
1259 if (-f catfile($srcdir, "engines", $_, "build.info"));
1260 }
1261
2e0956ba
RL		 1262 $config{build_infos} = [ ];
1263
9fe2bb77
RL		 1264 foreach (@build_infos) {
1265 my $sourced = catdir($srcdir, $_->[0]);
1266 my $buildd = catdir($blddir, $_->[0]);
1267
dca99383 1268 mkpath($buildd);
9fe2bb77
RL		 1269
1270 my $f = $_->[1];
1271 # The basic things we're trying to build
1272 my @programs = ();
1273 my @libraries = ();
1274 my @engines = ();
1275 my @scripts = ();
1276 my @extra = ();
8a67946e 1277 my @overrides = ();
9fe2bb77
RL		 1278 my @intermediates = ();
1279 my @rawlines = ();
1280
1281 my %ordinals = ();
1282 my %sources = ();
1283 my %includes = ();
1284 my %depends = ();
1285 my %renames = ();
1286 my %sharednames = ();
ae4c7450 1287 my %generate = ();
9fe2bb77 1288
2e0956ba 1289 push @{$config{build_infos}}, catfile(abs2rel($sourced, $blddir), $f);
9fe2bb77
RL		 1290 my $template = Text::Template->new(TYPE => 'FILE',
1291 SOURCE => catfile($sourced, $f));
1292 die "Something went wrong with $sourced/$f: $!\n" unless $template;
1293 my @text =
1294 split /^/m,
1295 $template->fill_in(HASH => { config => \%config,
1296 target => \%target,
9e04edf2 1297 disabled => \%disabled,
9fe2bb77
RL		 1298 builddir => abs2rel($buildd, $blddir),
1299 sourcedir => abs2rel($sourced, $blddir),
1300 buildtop => abs2rel($blddir, $blddir),
1301 sourcetop => abs2rel($srcdir, $blddir) },
1302 DELIMITERS => [ "{-", "-}" ]);
1303
1304 # The top item of this stack has the following values
1305 # -2 positive already run and we found ELSE (following ELSIF should fail)
1306 # -1 positive already run (skip until ENDIF)
1307 # 0 negatives so far (if we're at a condition, check it)
1308 # 1 last was positive (don't skip lines until next ELSE, ELSIF or ENDIF)
1309 # 2 positive ELSE (following ELSIF should fail)
1310 my @skip = ();
1311 collect_information(
1312 collect_from_array([ @text ],
1313 qr/\\$/ => sub { my $l1 = shift; my $l2 = shift;
1314 $l1 =~ s/\\$//; $l1.$l2 }),
1315 # Info we're looking for
1316 qr/^\s*IF\[((?:\\.|[^\\\]])*)\]\s*$/
1317 => sub { push @skip, !! $1; },
1318 qr/^\s*ELSIF\[((?:\\.|[^\\\]])*)\]\s*$/
1319 => sub { die "ELSIF out of scope" if ! @skip;
1320 die "ELSIF following ELSE" if abs($skip[$#skip]) == 2;
1321 $skip[$#skip] = -1 if $skip[$#skip] != 0;
1322 $skip[$#skip] = !! $1
1323 if $skip[$#skip] == 0; },
1324 qr/^\s*ELSE\s*$/
1325 => sub { die "ELSE out of scope" if ! @skip;
1326 $skip[$#skip] = -2 if $skip[$#skip] != 0;
1327 $skip[$#skip] = 2 if $skip[$#skip] == 0; },
1328 qr/^\s*ENDIF\s*$/
1329 => sub { die "ENDIF out of scope" if ! @skip;
1330 pop @skip; },
1331 qr/^\s*PROGRAMS\s*=\s*(.*)\s*$/
1332 => sub { push @programs, split(/\s+/, $1)
1333 if !@skip || $skip[$#skip] > 0 },
1334 qr/^\s*LIBS\s*=\s*(.*)\s*$/
1335 => sub { push @libraries, split(/\s+/, $1)
1336 if !@skip || $skip[$#skip] > 0 },
1337 qr/^\s*ENGINES\s*=\s*(.*)\s*$/
1338 => sub { push @engines, split(/\s+/, $1)
1339 if !@skip || $skip[$#skip] > 0 },
1340 qr/^\s*SCRIPTS\s*=\s*(.*)\s*$/
1341 => sub { push @scripts, split(/\s+/, $1)
1342 if !@skip || $skip[$#skip] > 0 },
1343 qr/^\s*EXTRA\s*=\s*(.*)\s*$/
1344 => sub { push @extra, split(/\s+/, $1)
1345 if !@skip || $skip[$#skip] > 0 },
8a67946e
RL		 1346 qr/^\s*OVERRIDES\s*=\s*(.*)\s*$/
1347 => sub { push @overrides, split(/\s+/, $1)
1348 if !@skip || $skip[$#skip] > 0 },
9fe2bb77
RL		 1349
1350 qr/^\s*ORDINALS\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/,
1351 => sub { push @{$ordinals{$1}}, split(/\s+/, $2)
1352 if !@skip || $skip[$#skip] > 0 },
1353 qr/^\s*SOURCE\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1354 => sub { push @{$sources{$1}}, split(/\s+/, $2)
1355 if !@skip || $skip[$#skip] > 0 },
1356 qr/^\s*INCLUDE\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1357 => sub { push @{$includes{$1}}, split(/\s+/, $2)
1358 if !@skip || $skip[$#skip] > 0 },
1359 qr/^\s*DEPEND\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1360 => sub { push @{$depends{$1}}, split(/\s+/, $2)
1361 if !@skip || $skip[$#skip] > 0 },
ae4c7450
RL		 1362 qr/^\s*GENERATE\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1363 => sub { push @{$generate{$1}}, $2
1364 if !@skip || $skip[$#skip] > 0 },
9fe2bb77
RL		 1365 qr/^\s*RENAME\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1366 => sub { push @{$renames{$1}}, split(/\s+/, $2)
1367 if !@skip || $skip[$#skip] > 0 },
1368 qr/^\s*SHARED_NAME\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1369 => sub { push @{$sharednames{$1}}, split(/\s+/, $2)
1370 if !@skip || $skip[$#skip] > 0 },
1371 qr/^\s*BEGINRAW\[((?:\\.|[^\\\]])+)\]\s*$/
1372 => sub {
1373 my $lineiterator = shift;
1374 my $target_kind = $1;
1375 while (defined $lineiterator->()) {
04f171c0 1376 s|\R$||;
9fe2bb77
RL		 1377 if (/^\s*ENDRAW\[((?:\\.|[^\\\]])+)\]\s*$/) {
1378 die "ENDRAW doesn't match BEGINRAW"
1379 if $1 ne $target_kind;
1380 last;
1381 }
1382 next if @skip && $skip[$#skip] <= 0;
1383 push @rawlines, $_
1384 if ($target_kind eq $target{build_file}
ddf1847d 1385 || $target_kind eq $target{build_file}."(".$builder_platform.")");
9fe2bb77
RL		 1386 }
1387 },
1388 qr/^(?:#.*|\s*)$/ => sub { },
1389 "OTHERWISE" => sub { die "Something wrong with this line:\n$_\nat $sourced/$f" }
1390 );
1391 die "runaway IF?" if (@skip);
1392
1393 foreach (keys %renames) {
1394 die "$_ renamed to more than one thing: "
1395 ,join(" ", @{$renames{$_}}),"\n"
1396 if scalar @{$renames{$_}} > 1;
2e963849
RL		 1397 my $dest = cleanfile($buildd, $_, $blddir);
1398 my $to = cleanfile($buildd, $renames{$_}->[0], $blddir);
9fe2bb77
RL		 1399 die "$dest renamed to more than one thing: "
1400 ,$unified_info{rename}->{$dest}, $to
1401 unless !defined($unified_info{rename}->{$dest})
1402 or $unified_info{rename}->{$dest} eq $to;
1403 $unified_info{rename}->{$dest} = $to;
1404 }
1405
1406 foreach (@programs) {
2e963849 1407 my $program = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1408 if ($unified_info{rename}->{$program}) {
1409 $program = $unified_info{rename}->{$program};
1410 }
1411 $unified_info{programs}->{$program} = 1;
1412 }
1413
1414 foreach (@libraries) {
2e963849 1415 my $library = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1416 if ($unified_info{rename}->{$library}) {
1417 $library = $unified_info{rename}->{$library};
1418 }
1419 $unified_info{libraries}->{$library} = 1;
1420 }
1421
343ec2b0 1422 die <<"EOF" if scalar @engines and !$config{dynamic_engines};
19ab5790 1423ENGINES can only be used if configured with 'dynamic-engine'.
9fe2bb77
RL		 1424This is usually a fault in a build.info file.
1425EOF
1426 foreach (@engines) {
2e963849 1427 my $library = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1428 if ($unified_info{rename}->{$library}) {
1429 $library = $unified_info{rename}->{$library};
1430 }
1431 $unified_info{engines}->{$library} = 1;
1432 }
1433
1434 foreach (@scripts) {
2e963849 1435 my $script = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1436 if ($unified_info{rename}->{$script}) {
1437 $script = $unified_info{rename}->{$script};
1438 }
1439 $unified_info{scripts}->{$script} = 1;
1440 }
1441
1442 foreach (@extra) {
2e963849 1443 my $extra = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1444 $unified_info{extra}->{$extra} = 1;
1445 }
1446
8a67946e
RL		 1447 foreach (@overrides) {
1448 my $override = cleanfile($buildd, $_, $blddir);
1449 $unified_info{overrides}->{$override} = 1;
1450 }
1451
9fe2bb77
RL		 1452 push @{$unified_info{rawlines}}, @rawlines;
1453
84af1bae 1454 unless ($disabled{shared}) {
9fe2bb77
RL		 1455 # Check sharednames.
1456 foreach (keys %sharednames) {
2e963849 1457 my $dest = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1458 if ($unified_info{rename}->{$dest}) {
1459 $dest = $unified_info{rename}->{$dest};
1460 }
1461 die "shared_name for $dest with multiple values: "
1462 ,join(" ", @{$sharednames{$_}}),"\n"
1463 if scalar @{$sharednames{$_}} > 1;
2e963849 1464 my $to = cleanfile($buildd, $sharednames{$_}->[0], $blddir);
9fe2bb77
RL		 1465 die "shared_name found for a library $dest that isn't defined\n"
1466 unless $unified_info{libraries}->{$dest};
1467 die "shared_name for $dest with multiple values: "
1468 ,$unified_info{sharednames}->{$dest}, ", ", $to
1469 unless !defined($unified_info{sharednames}->{$dest})
1470 or $unified_info{sharednames}->{$dest} eq $to;
1471 $unified_info{sharednames}->{$dest} = $to;
1472 }
1473
1474 # Additionally, we set up sharednames for libraries that don't
1475 # have any, as themselves.
1476 foreach (keys %{$unified_info{libraries}}) {
1477 if (!defined $unified_info{sharednames}->{$_}) {
1478 $unified_info{sharednames}->{$_} = $_
1479 }
1480 }
1481 }
1482
1483 foreach (keys %ordinals) {
1484 my $dest = $_;
2e963849 1485 my $ddest = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1486 if ($unified_info{rename}->{$ddest}) {
1487 $ddest = $unified_info{rename}->{$ddest};
1488 }
1489 foreach (@{$ordinals{$dest}}) {
1490 my %known_ordinals =
1491 (
1492 crypto =>
6928b617 1493 cleanfile($sourced, catfile("util", "libcrypto.num"), $blddir),
9fe2bb77 1494 ssl =>
6928b617 1495 cleanfile($sourced, catfile("util", "libssl.num"), $blddir)
9fe2bb77
RL		 1496 );
1497 my $o = $known_ordinals{$_};
1498 die "Ordinals for $ddest defined more than once\n"
1499 if $unified_info{ordinals}->{$ddest};
1500 $unified_info{ordinals}->{$ddest} = [ $_, $o ];
1501 }
1502 }
1503
1504 foreach (keys %sources) {
1505 my $dest = $_;
2e963849 1506 my $ddest = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1507 if ($unified_info{rename}->{$ddest}) {
1508 $ddest = $unified_info{rename}->{$ddest};
1509 }
1510 foreach (@{$sources{$dest}}) {
2e963849 1511 my $s = cleanfile($sourced, $_, $blddir);
9fe2bb77
RL		 1512
1513 # If it isn't in the source tree, we assume it's generated
1514 # in the build tree
1515 if (! -f $s) {
2e963849 1516 $s = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1517 }
1518 # We recognise C and asm files
1519 if ($s =~ /\.[csS]\b$/) {
1520 (my $o = $_) =~ s/\.[csS]\b$/.o/;
2e963849 1521 $o = cleanfile($buildd, $o, $blddir);
9fe2bb77
RL		 1522 $unified_info{sources}->{$ddest}->{$o} = 1;
1523 $unified_info{sources}->{$o}->{$s} = 1;
1524 } else {
1525 $unified_info{sources}->{$ddest}->{$s} = 1;
1526 }
1527 }
1528 }
1529
ae4c7450
RL		 1530 foreach (keys %generate) {
1531 my $dest = $_;
1532 my $ddest = cleanfile($buildd, $_, $blddir);
1533 if ($unified_info{rename}->{$ddest}) {
1534 $ddest = $unified_info{rename}->{$ddest};
1535 }
1536 die "more than one generator for $dest: "
1537 ,join(" ", @{$generate{$_}}),"\n"
1538 if scalar @{$generate{$_}} > 1;
1539 my @generator = split /\s+/, $generate{$dest}->[0];
1540 $generator[0] = cleanfile($sourced, $generator[0], $blddir),
1541 $unified_info{generate}->{$ddest} = [ @generator ];
1542 }
1543
9fe2bb77
RL		 1544 foreach (keys %depends) {
1545 my $dest = $_;
2e963849 1546 my $ddest = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1547 if ($unified_info{rename}->{$ddest}) {
1548 $ddest = $unified_info{rename}->{$ddest};
1549 }
1550 foreach (@{$depends{$dest}}) {
2e963849 1551 my $d = cleanfile($sourced, $_, $blddir);
9fe2bb77 1552
e737d7b1
RL		 1553 # If we know it's generated, or assume it is because we can't
1554 # find it in the source tree, we set file we depend on to be
1555 # in the build tree rather than the source tree, and assume
1556 # and that there are lines to build it in a BEGINRAW..ENDRAW
1557 # section or in the Makefile template.
1558 if (! -f $d
1559 || !(grep { $d eq $_ }
1560 map { cleanfile($srcdir, $_, $blddir) }
1561 (@generated_headers, @generated_by_make_headers))) {
2e963849 1562 $d = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1563 }
1564 # Take note if the file to depend on is being renamed
1565 if ($unified_info{rename}->{$d}) {
1566 $d = $unified_info{rename}->{$d};
1567 }
1568 $unified_info{depends}->{$ddest}->{$d} = 1;
1569 # If we depend on a header file, let's make sure it
1570 # can get included
1571 if ($d =~ /\.h$/) {
1572 my $i = dirname($d);
1573 push @{$unified_info{includes}->{$ddest}}, $i
1574 unless grep { $_ eq $i } @{$unified_info{includes}->{$ddest}};
1575 }
1576 }
1577 }
1578
1579 foreach (keys %includes) {
1580 my $dest = $_;
2e963849 1581 my $ddest = cleanfile($buildd, $_, $blddir);
9fe2bb77
RL		 1582 if ($unified_info{rename}->{$ddest}) {
1583 $ddest = $unified_info{rename}->{$ddest};
1584 }
1585 foreach (@{$includes{$dest}}) {
2e963849 1586 my $i = cleandir($sourced, $_, $blddir);
9fe2bb77
RL		 1587 push @{$unified_info{includes}->{$ddest}}, $i
1588 unless grep { $_ eq $i } @{$unified_info{includes}->{$ddest}};
1589 }
1590 }
1591 }
1592
1593 ### Make unified_info a bit more efficient
1594 # One level structures
8a67946e 1595 foreach (("programs", "libraries", "engines", "scripts", "extra", "overrides")) {
9fe2bb77
RL		 1596 $unified_info{$_} = [ sort keys %{$unified_info{$_}} ];
1597 }
1598 # Two level structures
1599 foreach my $l1 (("sources", "ldadd", "depends")) {
1600 foreach my $l2 (sort keys %{$unified_info{$l1}}) {
1601 $unified_info{$l1}->{$l2} =
1602 [ sort keys %{$unified_info{$l1}->{$l2}} ];
1603 }
1604 }
1605}
1606
1607# For the schemes that need it, we provide the old *_obj configs
1608# from the *_asm_obj ones
3a55c92b 1609foreach (grep /_(asm|aux)_src$/, keys %target) {
9fe2bb77 1610 my $src = $_;
3a55c92b 1611 (my $obj = $_) =~ s/_(asm|aux)_src$/_obj/;
9fe2bb77
RL		 1612 ($target{$obj} = $target{$src}) =~ s/\.[csS]\b/.o/g;
1613}
1614
291e94df
RL		 1615# Write down our configuration where it fits #########################
1616
1617open(OUT,">configdata.pm") || die "unable to create configdata.pm: $!\n";
1618print OUT <<"EOF";
1619package configdata;
1620
1621use strict;
1622use warnings;
1623
1624use Exporter;
1625#use vars qw(\@ISA \@EXPORT);
1626our \@ISA = qw(Exporter);
58163021 1627our \@EXPORT = qw(\%config \%target %disabled %withargs %unified_info);
291e94df
RL		 1628
1629EOF
1630print OUT "our %config = (\n";
1631foreach (sort keys %config) {
1632 if (ref($config{$_}) eq "ARRAY") {
1633 print OUT " ", $_, " => [ ", join(", ",
1634 map { quotify("perl", $_) }
1635 @{$config{$_}}), " ],\n";
1636 } else {
1637 print OUT " ", $_, " => ", quotify("perl", $config{$_}), ",\n"
1638 }
1639}
1640print OUT <<"EOF";
1641);
1642
1643EOF
1644print OUT "our %target = (\n";
1645foreach (sort keys %target) {
1646 if (ref($target{$_}) eq "ARRAY") {
1647 print OUT " ", $_, " => [ ", join(", ",
1648 map { quotify("perl", $_) }
1649 @{$target{$_}}), " ],\n";
1650 } else {
1651 print OUT " ", $_, " => ", quotify("perl", $target{$_}), ",\n"
1652 }
1653}
1654print OUT <<"EOF";
1655);
1656
96d2d7bc
RL		 1657EOF
1658print OUT "our \%available_protocols = (\n";
1659print OUT " tls => [ ", join(", ", map { quotify("perl", $_) } @tls), " ],\n";
1660print OUT " dtls => [ ", join(", ", map { quotify("perl", $_) } @dtls), " ],\n";
1661print OUT <<"EOF";
1662);
1663
1664EOF
1665print OUT "our \%disabled = (\n";
1666foreach (sort keys %disabled) {
1667 print OUT " ", quotify("perl", $_), " => ", quotify("perl", $disabled{$_}), ",\n";
1668}
1669print OUT <<"EOF";
1670);
1671
291e94df 1672EOF
107b5792
RL		 1673print OUT "our %withargs = (\n";
1674foreach (sort keys %withargs) {
1675 if (ref($withargs{$_}) eq "ARRAY") {
1676 print OUT " ", $_, " => [ ", join(", ",
1677 map { quotify("perl", $_) }
1678 @{$withargs{$_}}), " ],\n";
1679 } else {
1680 print OUT " ", $_, " => ", quotify("perl", $withargs{$_}), ",\n"
1681 }
1682}
1683print OUT <<"EOF";
1684);
edd4d402 1685
107b5792 1686EOF
ddf1847d 1687if ($builder eq "unified") {
9fe2bb77
RL		 1688 my $recurse;
1689 $recurse = sub {
1690 my $indent = shift;
1691 foreach (@_) {
1692 if (ref $_ eq "ARRAY") {
1693 print OUT " "x$indent, "[\n";
1694 foreach (@$_) {
1695 $recurse->($indent + 4, $_);
1696 }
1697 print OUT " "x$indent, "],\n";
1698 } elsif (ref $_ eq "HASH") {
1699 my %h = %$_;
1700 print OUT " "x$indent, "{\n";
1701 foreach (sort keys %h) {
1702 if (ref $h{$_} eq "") {
1703 print OUT " "x($indent + 4), quotify("perl", $_), " => ", quotify("perl", $h{$_}), ",\n";
1704 } else {
1705 print OUT " "x($indent + 4), quotify("perl", $_), " =>\n";
1706 $recurse->($indent + 8, $h{$_});
1707 }
1708 }
1709 print OUT " "x$indent, "},\n";
1710 } else {
1711 print OUT " "x$indent, quotify("perl", $_), ",\n";
1712 }
1713 }
1714 };
1715 print OUT "our %unified_info = (\n";
1716 foreach (sort keys %unified_info) {
1717 if (ref $unified_info{$_} eq "") {
1718 print OUT " "x4, quotify("perl", $_), " => ", quotify("perl", $unified_info{$_}), ",\n";
1719 } else {
1720 print OUT " "x4, quotify("perl", $_), " =>\n";
1721 $recurse->(8, $unified_info{$_});
1722 }
1723 }
1724 print OUT <<"EOF";
1725);
1726
1727EOF
1728}
1729print OUT "1;\n";
d02b48c6 1730close(OUT);
f2d4be3b 1731
9fe2bb77 1732
ddf1847d 1733print "IsMK1MF =", ($builder eq "mk1mf" ? "yes" : "no"), "\n";
291e94df 1734print "CC =$target{cc}\n";
2952b9b8
RL		 1735print "CFLAG =$target{cflags} $config{cflags}\n";
1736print "DEFINES =",join(" ", @{$target{defines}}, @{$config{defines}}),"\n";
940a09ba
RL		 1737print "LFLAG =$target{lflags}\n";
1738print "PLIB_LFLAG =$target{plib_lflags}\n";
2952b9b8 1739print "EX_LIBS =$target{ex_libs} $config{ex_libs}\n";
b756967d 1740print "APPS_OBJ =$target{apps_obj}\n";
291e94df 1741print "CPUID_OBJ =$target{cpuid_obj}\n";
b756967d 1742print "UPLINK_OBJ =$target{uplink_obj}\n";
291e94df
RL		 1743print "BN_ASM =$target{bn_obj}\n";
1744print "EC_ASM =$target{ec_obj}\n";
1745print "DES_ENC =$target{des_obj}\n";
1746print "AES_ENC =$target{aes_obj}\n";
1747print "BF_ENC =$target{bf_obj}\n";
1748print "CAST_ENC =$target{cast_obj}\n";
1749print "RC4_ENC =$target{rc4_obj}\n";
1750print "RC5_ENC =$target{rc5_obj}\n";
1751print "MD5_OBJ_ASM =$target{md5_obj}\n";
1752print "SHA1_OBJ_ASM =$target{sha1_obj}\n";
1753print "RMD160_OBJ_ASM=$target{rmd160_obj}\n";
1754print "CMLL_ENC =$target{cmll_obj}\n";
1755print "MODES_OBJ =$target{modes_obj}\n";
f0bd4686 1756print "PADLOCK_OBJ =$target{padlock_obj}\n";
291e94df
RL		 1757print "CHACHA_ENC =$target{chacha_obj}\n";
1758print "POLY1305_OBJ =$target{poly1305_obj}\n";
7d130f68 1759print "PROCESSOR =$config{processor}\n";
291e94df
RL		 1760print "RANLIB =$target{ranlib}\n";
1761print "ARFLAGS =$target{arflags}\n";
1762print "PERL =$config{perl}\n";
f0bd4686 1763print "\n";
7d130f68
RL		 1764print "SIXTY_FOUR_BIT_LONG mode\n" if $config{b64l};
1765print "SIXTY_FOUR_BIT mode\n" if $config{b64};
1766print "THIRTY_TWO_BIT mode\n" if $config{b32};
7d130f68
RL		 1767print "BN_LLONG mode\n" if $config{bn_ll};
1768print "RC4 uses $config{rc4_int}\n" if $config{rc4_int} != $def_int;
cba5068d 1769
e737d7b1
RL		 1770for (@generated_headers) {
1771 mkpath(catdir($blddir, dirname($_)));
1772 run_dofile(catfile($blddir, $_),
1773 catfile($srcdir, $_.".in"));
f0bd4686
RL		 1774}
1775
9fe2bb77
RL		 1776###
1777### When the old "unixmake" scheme goes away, so does this function
1778###
1779sub build_Makefile {
1780 run_dofile("Makefile","Makefile.in");
1781
1782 # Copy all Makefile.in to Makefile (except top-level)
1783 use File::Find;
1784 use IO::File;
1785 find(
1786 {
1787 preprocess => sub {
1788 grep(!/^\./, @_);
1789 },
1790 wanted => sub {
1791 return if ($_ ne "Makefile.in" || $File::Find::dir eq ".");
1792 my $in = IO::File->new($_, "r") or
1793 die sprintf "Error reading Makefile.in in %s: !$\n",
1794 $File::Find::dir;
1795 my $out = IO::File->new("Makefile", "w") or
1796 die sprintf "Error writing Makefile in %s: !$\n",
1797 $File::Find::dir;
1798 print $out "# Generated from $_, do not edit\n";
1799 while (my $line = <$in>) { print $out $line }
1800 $in->close() or
1801 die sprintf "Error reading Makefile.in in %s: !$\n",
1802 $File::Find::dir;
1803 $out->close() or
1804 die sprintf "Error writing Makefile in %s: !$\n",
1805 $File::Find::dir;
1806 },
fb36ca12 1807 },
9fe2bb77
RL		 1808 ".");
1809}
d10dac11 1810
88087414 1811my %builders = (
9fe2bb77 1812 unified => sub {
ddf1847d
RL		 1813 run_dofile(catfile($blddir, $target{build_file}),
1814 $config{build_file_template},
1815 catfile($srcdir, "Configurations", "common.tmpl"));
9fe2bb77 1816 },
88087414 1817 unixmake => sub {
9fe2bb77
RL		 1818 build_Makefile();
1819
1820 run_dofile("util/domd", "util/domd.in");
1821 chmod 0755, "util/domd";
88087414
RL		 1822 },
1823 mk1mf => sub {
ddf1847d 1824 my $platform = shift;
9fe2bb77
RL		 1825 # The only reason we do this is to have something to build MINFO from
1826 build_Makefile();
1827
88087414 1828 # create the ms/version32.rc file if needed
7839b735 1829 if ($platform ne "netware") {
88087414 1830 my ($v1, $v2, $v3, $v4);
3fa04f0d 1831 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		 1832 $v1=hex $1;
1833 $v2=hex $2;
1834 $v3=hex $3;
1835 $v4=hex $4;
88087414
RL		 1836 }
1837 open (OUT,">ms/version32.rc") || die "Can't open ms/version32.rc";
1838 print OUT <<"EOF";
fc6a6a10
DSH		 1839#include <winver.h>
1840
1841LANGUAGE 0x09,0x01
1842
18431 VERSIONINFO
1844 FILEVERSION $v1,$v2,$v3,$v4
1845 PRODUCTVERSION $v1,$v2,$v3,$v4
1846 FILEFLAGSMASK 0x3fL
1847#ifdef _DEBUG
1848 FILEFLAGS 0x01L
1849#else
1850 FILEFLAGS 0x00L
1851#endif
1852 FILEOS VOS__WINDOWS32
1853 FILETYPE VFT_DLL
1854 FILESUBTYPE 0x0L
1855BEGIN
1856 BLOCK "StringFileInfo"
1857 BEGIN
1858 BLOCK "040904b0"
1859 BEGIN
fce0ba5f 1860 // Required:
fc6a6a10
DSH		 1861 VALUE "CompanyName", "The OpenSSL Project, http://www.openssl.org/\\0"
1862 VALUE "FileDescription", "OpenSSL Shared Library\\0"
3fa04f0d 1863 VALUE "FileVersion", "$config{version}\\0"
fc6a6a10 1864#if defined(CRYPTO)
6928b617
RL		 1865 VALUE "InternalName", "libcrypto32\\0"
1866 VALUE "OriginalFilename", "libcrypto32.dll\\0"
fc6a6a10 1867#elif defined(SSL)
6928b617
RL		 1868 VALUE "InternalName", "libssl32\\0"
1869 VALUE "OriginalFilename", "libssl32.dll\\0"
a479d72d 1870#endif
fc6a6a10 1871 VALUE "ProductName", "The OpenSSL Toolkit\\0"
3fa04f0d 1872 VALUE "ProductVersion", "$config{version}\\0"
fc6a6a10
DSH		 1873 // Optional:
1874 //VALUE "Comments", "\\0"
51cbee35 1875 VALUE "LegalCopyright", "Copyright © 1998-2015 The OpenSSL Project. Copyright © 1995-1998 Eric A. Young, Tim J. Hudson. All rights reserved.\\0"
fc6a6a10
DSH		 1876 //VALUE "LegalTrademarks", "\\0"
1877 //VALUE "PrivateBuild", "\\0"
1878 //VALUE "SpecialBuild", "\\0"
1879 END
1880 END
1881 BLOCK "VarFileInfo"
1882 BEGIN
1883 VALUE "Translation", 0x409, 0x4b0
1884 END
1885END
1886EOF
88087414
RL		 1887 close(OUT);
1888 }
1889 },
1890 );
1891
ddf1847d 1892$builders{$builder}->($builder_platform, @builder_opts);
fce0ba5f 1893
76ffb43d 1894print <<"EOF";
63d3f44a 1895
89ec98e0 1896Configured for $target.
63d3f44a 1897EOF
5f8d5c96 1898
9c62a279 1899print <<"EOF" if ($disabled{threads} eq "unavailable");
5f8d5c96
BM		 1900
1901The library could not be configured for supporting multi-threaded
1902applications as the compiler options required on this system are not known.
ff1b7e09 1903See file INSTALL for details if you need multi-threading.
ec577822
BM		 1904EOF
1905
76ffb43d 1906print <<"EOF" if ($no_shared_warn);
2964ba8c 1907
ae48242c
RL		 1908The options 'shared', 'pic' and 'dynamic-engine' aren't supported on this
1909platform, so we will pretend you gave the option 'no-pic', which also disables
1910'shared' and 'dynamic-engine'. If you know how to implement shared libraries
1911or position independent code, please let us know (but please first make sure
1912you have tried with a current version of OpenSSL).
2e31ef03
RS		 1913EOF
1914
242ffb05
RL		 1915###### TO BE REMOVED BEFORE FINAL RELEASE
1916######
1917###### If the user hasn't chosen --unified, try to nudge them.
1918if ($target{build_file} eq "Makefile"
1919 && $target{build_scheme}->[0] eq "unixmake"
1920 && !$unified) {
1921
1922 my $plausible_builddir =
1923 abs2rel(rel2abs("../_openssl-build_$target"),rel2abs("."));
1924 my $plausible_to_sourcedir =
1925 abs2rel(rel2abs("."),rel2abs("../_openssl-build_$target"));
1926 print <<"EOF";
1927
1928----------------------------------------------------------------------
1929Please consider configuring with the flag --unified .
1930It's to test out a new "unified" building system.
1931
1932One cool feature is that you can have your build directory elsewhere,
1933for example:
1934
1935 make clean # Clean the current configuration away
1936 mkdir $plausible_builddir
1937 cd $plausible_builddir
1938 $plausible_to_sourcedir/config --unified
1939 make
1940 make test
1941
1942Please report any problem you have.
1943----------------------------------------------------------------------
1944
1945EOF
1946}
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
9c62a279
RL		 2068 my $extra_checks = defined($ENV{CONFIGURE_EXTRA_CHECKS});
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 }
9c62a279
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 {
107b5792 2363 if (-f "$path/$name$target{exe_extension}" and -x _)
99aab161 2364 {
107b5792
RL		 2365 return "$path/$name$target{exe_extension}" unless ($name eq "perl" and
2366 system("$path/$name$target{exe_extension} -e " . '\'exit($]<5.0);\''));
99aab161
UM		 2367 }
2368 }
2369 }
2370
fe05264e
RL		 2371sub quotify {
2372 my %processors = (
2373 perl => sub { my $x = shift;
2374 $x =~ s/([\\\$\@"])/\\$1/g;
2375 return '"'.$x.'"'; },
2376 );
2377 my $for = shift;
2378 my $processor =
2379 defined($processors{$for}) ? $processors{$for} : sub { shift; };
2380
2381 map { $processor->($_); } @_;
2382}
107b5792 2383
9fe2bb77
RL		 2384# collect_from_file($filename, $line_concat_cond_re, $line_concat)
2385# $filename is a file name to read from
2386# $line_concat_cond_re is a regexp detecting a line continuation ending
2387# $line_concat is a CODEref that takes care of concatenating two lines
2388sub collect_from_file {
2389 my $filename = shift;
2390 my $line_concat_cond_re = shift;
2391 my $line_concat = shift;
2392
2393 open my $fh, $filename || die "unable to read $filename: $!\n";
2394 return sub {
2395 my $saved_line = "";
2396 $_ = "";
2397 while (<$fh>) {
04f171c0 2398 s|\R$||;
9fe2bb77
RL		 2399 if (defined $line_concat) {
2400 $_ = $line_concat->($saved_line, $_);
2401 $saved_line = "";
2402 }
2403 if (defined $line_concat_cond_re && /$line_concat_cond_re/) {
2404 $saved_line = $_;
2405 next;
2406 }
2407 return $_;
2408 }
2409 die "$filename ending with continuation line\n" if $_;
2410 close $fh;
2411 return undef;
2412 }
2413}
2414
2415# collect_from_array($array, $line_concat_cond_re, $line_concat)
2416# $array is an ARRAYref of lines
2417# $line_concat_cond_re is a regexp detecting a line continuation ending
2418# $line_concat is a CODEref that takes care of concatenating two lines
2419sub collect_from_array {
2420 my $array = shift;
2421 my $line_concat_cond_re = shift;
2422 my $line_concat = shift;
2423 my @array = (@$array);
2424
2425 return sub {
2426 my $saved_line = "";
2427 $_ = "";
2428 while (defined($_ = shift @array)) {
04f171c0 2429 s|\R$||;
9fe2bb77
RL		 2430 if (defined $line_concat) {
2431 $_ = $line_concat->($saved_line, $_);
2432 $saved_line = "";
2433 }
2434 if (defined $line_concat_cond_re && /$line_concat_cond_re/) {
2435 $saved_line = $_;
2436 next;
2437 }
2438 return $_;
2439 }
2440 die "input text ending with continuation line\n" if $_;
2441 return undef;
2442 }
2443}
2444
2445# collect_information($lineiterator, $line_continue, $regexp => $CODEref, ...)
2446# $lineiterator is a CODEref that delivers one line at a time.
107b5792
RL		 2447# All following arguments are regex/CODEref pairs, where the regexp detects a
2448# line and the CODEref does something with the result of the regexp.
2449sub collect_information {
9fe2bb77 2450 my $lineiterator = shift;
107b5792
RL		 2451 my %collectors = @_;
2452
9fe2bb77 2453 while(defined($_ = $lineiterator->())) {
04f171c0 2454 s|\R$||;
9fe2bb77
RL		 2455 my $found = 0;
2456 foreach my $re (keys %collectors) {
2457 if ($re ne "OTHERWISE" && /$re/) {
2458 $collectors{$re}->($lineiterator);
2459 $found = 1;
2460 };
2461 }
2462 if ($collectors{"OTHERWISE"}) {
2463 $collectors{"OTHERWISE"}->($lineiterator, $_)
2464 unless $found || !defined $collectors{"OTHERWISE"};
2465 }
107b5792 2466 }
107b5792 2467}
A mirror of the official openssl repository