Remove a pointless "#if 0" block from BN_mul.
[openssl.git] / Configure
1 #! /usr/bin/env perl
2 # -*- mode: perl; -*-
3 # Copyright 2016-2017 The OpenSSL Project Authors. All Rights Reserved.
4 #
5 # Licensed under the OpenSSL license (the "License").  You may not use
6 # this file except in compliance with the License.  You can obtain a copy
7 # in the file LICENSE in the source distribution or at
8 # https://www.openssl.org/source/license.html
9
10 ##  Configure -- OpenSSL source tree configuration script
11
12 use 5.10.0;
13 use strict;
14 use Config;
15 use File::Basename;
16 use File::Spec::Functions qw/:DEFAULT abs2rel rel2abs/;
17 use File::Path qw/mkpath/;
18 use if $^O ne "VMS", 'File::Glob' => qw/glob/;
19
20 # see INSTALL for instructions.
21
22 my $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";
23
24 # Options:
25 #
26 # --config      add the given configuration file, which will be read after
27 #               any "Configurations*" files that are found in the same
28 #               directory as this script.
29 # --prefix      prefix for the OpenSSL installation, which includes the
30 #               directories bin, lib, include, share/man, share/doc/openssl
31 #               This becomes the value of INSTALLTOP in Makefile
32 #               (Default: /usr/local)
33 # --openssldir  OpenSSL data area, such as openssl.cnf, certificates and keys.
34 #               If it's a relative directory, it will be added on the directory
35 #               given with --prefix.
36 #               This becomes the value of OPENSSLDIR in Makefile and in C.
37 #               (Default: PREFIX/ssl)
38 #
39 # --cross-compile-prefix Add specified prefix to binutils components.
40 #
41 # --api         One of 0.9.8, 1.0.0 or 1.1.0.  Do not compile support for
42 #               interfaces deprecated as of the specified OpenSSL version.
43 #
44 # no-hw-xxx     do not compile support for specific crypto hardware.
45 #               Generic OpenSSL-style methods relating to this support
46 #               are always compiled but return NULL if the hardware
47 #               support isn't compiled.
48 # no-hw         do not compile support for any crypto hardware.
49 # [no-]threads  [don't] try to create a library that is suitable for
50 #               multithreaded applications (default is "threads" if we
51 #               know how to do it)
52 # [no-]shared   [don't] try to create shared libraries when supported.
53 # [no-]pic      [don't] try to build position independent code when supported.
54 #               If disabled, it also disables shared and dynamic-engine.
55 # no-asm        do not use assembler
56 # no-dso        do not compile in any native shared-library methods. This
57 #               will ensure that all methods just return NULL.
58 # no-egd        do not compile support for the entropy-gathering daemon APIs
59 # [no-]zlib     [don't] compile support for zlib compression.
60 # zlib-dynamic  Like "zlib", but the zlib library is expected to be a shared
61 #               library and will be loaded in run-time by the OpenSSL library.
62 # sctp          include SCTP support
63 # enable-weak-ssl-ciphers
64 #               Enable weak ciphers that are disabled by default. This currently
65 #               only includes RC4 based ciphers.
66 # 386           generate 80386 code in assembly modules
67 # no-sse2       disables IA-32 SSE2 code in assembly modules, the above
68 #               mentioned '386' option implies this one
69 # no-<cipher>   build without specified algorithm (rsa, idea, rc5, ...)
70 # -<xxx> +<xxx> compiler options are passed through
71 # -static       while -static is also a pass-through compiler option (and
72 #               as such is limited to environments where it's actually
73 #               meaningful), it triggers a number configuration options,
74 #               namely no-dso, no-pic, no-shared and no-threads. It is
75 #               argued that the only reason to produce statically linked
76 #               binaries (and in context it means executables linked with
77 #               -static flag, and not just executables linked with static
78 #               libcrypto.a) is to eliminate dependency on specific run-time,
79 #               a.k.a. libc version. The mentioned config options are meant
80 #               to achieve just that. Unfortunately on Linux it's impossible
81 #               to eliminate the dependency completely for openssl executable
82 #               because of getaddrinfo and gethostbyname calls, which can
83 #               invoke dynamically loadable library facility anyway to meet
84 #               the lookup requests. For this reason on Linux statically
85 #               linked openssl executable has rather debugging value than
86 #               production quality.
87 #
88 # DEBUG_SAFESTACK use type-safe stacks to enforce type-safety on stack items
89 #               provided to stack calls. Generates unique stack functions for
90 #               each possible stack type.
91 # BN_LLONG      use the type 'long long' in crypto/bn/bn.h
92 # RC4_CHAR      use 'char' instead of 'int' for RC4_INT in crypto/rc4/rc4.h
93 # Following are set automatically by this script
94 #
95 # MD5_ASM       use some extra md5 assembler,
96 # SHA1_ASM      use some extra sha1 assembler, must define L_ENDIAN for x86
97 # RMD160_ASM    use some extra ripemd160 assembler,
98 # SHA256_ASM    sha256_block is implemented in assembler
99 # SHA512_ASM    sha512_block is implemented in assembler
100 # AES_ASM       AES_[en|de]crypt is implemented in assembler
101
102 # Minimum warning options... any contributions to OpenSSL should at least get
103 # past these.
104
105 # DEBUG_UNUSED enables __owur (warn unused result) checks.
106 # -DPEDANTIC complements -pedantic and is meant to mask code that
107 # is not strictly standard-compliant and/or implementation-specific,
108 # e.g. inline assembly, disregards to alignment requirements, such
109 # that -pedantic would complain about. Incidentally -DPEDANTIC has
110 # to be used even in sanitized builds, because sanitizer too is
111 # supposed to and does take notice of non-standard behaviour. Then
112 # -pedantic with pre-C9x compiler would also complain about 'long
113 # long' not being supported. As 64-bit algorithms are common now,
114 # it grew impossible to resolve this without sizeable additional
115 # code, so we just tell compiler to be pedantic about everything
116 # but 'long long' type.
117
118 my $gcc_devteam_warn = "-DDEBUG_UNUSED"
119         . " -Wswitch"
120         . " -DPEDANTIC -pedantic -Wno-long-long"
121         . " -Wall"
122         . " -Wextra"
123         . " -Wno-unused-parameter"
124         . " -Wno-missing-field-initializers"
125         . " -Wsign-compare"
126         . " -Wmissing-prototypes"
127         . " -Wshadow"
128         . " -Wformat"
129         . " -Wtype-limits"
130         . " -Wundef"
131         . " -Werror"
132         ;
133
134 # These are used in addition to $gcc_devteam_warn when the compiler is clang.
135 # TODO(openssl-team): fix problems and investigate if (at least) the
136 # following warnings can also be enabled:
137 #       -Wcast-align
138 #       -Wunreachable-code -- no, too ugly/compiler-specific
139 #       -Wlanguage-extension-token -- no, we use asm()
140 #       -Wunused-macros -- no, too tricky for BN and _XOPEN_SOURCE etc
141 #       -Wextended-offsetof -- no, needed in CMS ASN1 code
142 my $clang_devteam_warn = ""
143         . " -Qunused-arguments"
144         . " -Wswitch-default"
145         . " -Wno-parentheses-equality"
146         . " -Wno-language-extension-token"
147         . " -Wno-extended-offsetof"
148         . " -Wconditional-uninitialized"
149         . " -Wincompatible-pointer-types-discards-qualifiers"
150         . " -Wmissing-variable-declarations"
151         ;
152
153 # This adds backtrace information to the memory leak info.  Is only used
154 # when crypto-mdebug-backtrace is enabled.
155 my $memleak_devteam_backtrace = "-rdynamic";
156
157 my $strict_warnings = 0;
158
159 # As for $BSDthreads. Idea is to maintain "collective" set of flags,
160 # which would cover all BSD flavors. -pthread applies to them all,
161 # but is treated differently. OpenBSD expands is as -D_POSIX_THREAD
162 # -lc_r, which is sufficient. FreeBSD 4.x expands it as -lc_r,
163 # which has to be accompanied by explicit -D_THREAD_SAFE and
164 # sometimes -D_REENTRANT. FreeBSD 5.x expands it as -lc_r, which
165 # seems to be sufficient?
166 our $BSDthreads="-pthread -D_THREAD_SAFE -D_REENTRANT";
167
168 #
169 # API compatibility name to version number mapping.
170 #
171 my $maxapi = "1.1.0";           # API for "no-deprecated" builds
172 my $apitable = {
173     "1.1.0" => "0x10100000L",
174     "1.0.0" => "0x10000000L",
175     "0.9.8" => "0x00908000L",
176 };
177
178 our %table = ();
179 our %config = ();
180 our %withargs = ();
181
182 # Forward declarations ###############################################
183
184 # read_config(filename)
185 #
186 # Reads a configuration file and populates %table with the contents
187 # (which the configuration file places in %targets).
188 sub read_config;
189
190 # resolve_config(target)
191 #
192 # Resolves all the late evaluations, inheritances and so on for the
193 # chosen target and any target it inherits from.
194 sub resolve_config;
195
196
197 # Information collection #############################################
198
199 # Unified build supports separate build dir
200 my $srcdir = catdir(absolutedir(dirname($0))); # catdir ensures local syntax
201 my $blddir = catdir(absolutedir("."));         # catdir ensures local syntax
202 my $dofile = abs2rel(catfile($srcdir, "util/dofile.pl"));
203
204 my $local_config_envname = 'OPENSSL_LOCAL_CONFIG_DIR';
205
206 $config{sourcedir} = abs2rel($srcdir);
207 $config{builddir} = abs2rel($blddir);
208
209 # Collect reconfiguration information if needed
210 my @argvcopy=@ARGV;
211
212 if (grep /^reconf(igure)?$/, @argvcopy) {
213     if (-f "./configdata.pm") {
214         my $file = "./configdata.pm";
215         unless (my $return = do $file) {
216             die "couldn't parse $file: $@" if $@;
217             die "couldn't do $file: $!"    unless defined $return;
218             die "couldn't run $file"       unless $return;
219         }
220
221         @argvcopy = defined($configdata::config{perlargv}) ?
222             @{$configdata::config{perlargv}} : ();
223         die "Incorrect data to reconfigure, please do a normal configuration\n"
224             if (grep(/^reconf/,@argvcopy));
225         $ENV{CROSS_COMPILE} = $configdata::config{cross_compile_prefix}
226             if defined($configdata::config{cross_compile_prefix});
227         $ENV{CC} = $configdata::config{cc}
228             if defined($configdata::config{cc});
229         $ENV{CXX} = $configdata::config{cxx}
230             if defined($configdata::config{cxx});
231         $ENV{BUILDFILE} = $configdata::config{build_file}
232             if defined($configdata::config{build_file});
233         $ENV{$local_config_envname} = $configdata::config{local_config_dir}
234             if defined($configdata::config{local_config_dir});
235
236         print "Reconfiguring with: ", join(" ",@argvcopy), "\n";
237         print "    CROSS_COMPILE = ",$ENV{CROSS_COMPILE},"\n"
238             if $ENV{CROSS_COMPILE};
239         print "    CC = ",$ENV{CC},"\n" if $ENV{CC};
240         print "    CXX = ",$ENV{CXX},"\n" if $ENV{CXX};
241         print "    BUILDFILE = ",$ENV{BUILDFILE},"\n" if $ENV{BUILDFILE};
242         print "    $local_config_envname = ",$ENV{$local_config_envname},"\n"
243             if $ENV{$local_config_envname};
244     } else {
245         die "Insufficient data to reconfigure, please do a normal configuration\n";
246     }
247 }
248
249 $config{perlargv} = [ @argvcopy ];
250
251 # Collect version numbers
252 $config{version} = "unknown";
253 $config{version_num} = "unknown";
254 $config{shlib_version_number} = "unknown";
255 $config{shlib_version_history} = "unknown";
256
257 collect_information(
258     collect_from_file(catfile($srcdir,'include/openssl/opensslv.h')),
259     qr/OPENSSL.VERSION.TEXT.*OpenSSL (\S+) / => sub { $config{version} = $1; },
260     qr/OPENSSL.VERSION.NUMBER.*(0x\S+)/      => sub { $config{version_num}=$1 },
261     qr/SHLIB_VERSION_NUMBER *"([^"]+)"/      => sub { $config{shlib_version_number}=$1 },
262     qr/SHLIB_VERSION_HISTORY *"([^"]*)"/     => sub { $config{shlib_version_history}=$1 }
263     );
264 if ($config{shlib_version_history} ne "") { $config{shlib_version_history} .= ":"; }
265
266 ($config{major}, $config{minor})
267     = ($config{version} =~ /^([0-9]+)\.([0-9\.]+)/);
268 ($config{shlib_major}, $config{shlib_minor})
269     = ($config{shlib_version_number} =~ /^([0-9]+)\.([0-9\.]+)/);
270 die "erroneous version information in opensslv.h: ",
271     "$config{major}, $config{minor}, $config{shlib_major}, $config{shlib_minor}\n"
272     if ($config{major} eq "" || $config{minor} eq ""
273         || $config{shlib_major} eq "" ||  $config{shlib_minor} eq "");
274
275 # Collect target configurations
276
277 my $pattern = catfile(dirname($0), "Configurations", "*.conf");
278 foreach (sort glob($pattern)) {
279     &read_config($_);
280 }
281
282 if (defined $ENV{$local_config_envname}) {
283     if ($^O eq 'VMS') {
284         # VMS environment variables are logical names,
285         # which can be used as is
286         $pattern = $local_config_envname . ':' . '*.conf';
287     } else {
288         $pattern = catfile($ENV{$local_config_envname}, '*.conf');
289     }
290
291     foreach (sort glob($pattern)) {
292         &read_config($_);
293     }
294 }
295
296 $config{prefix}="";
297 $config{openssldir}="";
298 $config{processor}="";
299 $config{libdir}="";
300 $config{cross_compile_prefix}="";
301 my $auto_threads=1;    # enable threads automatically? true by default
302 my $default_ranlib;
303
304 # Top level directories to build
305 $config{dirs} = [ "crypto", "ssl", "engines", "apps", "test", "util", "tools", "fuzz" ];
306 # crypto/ subdirectories to build
307 $config{sdirs} = [
308     "objects",
309     "md2", "md4", "md5", "sha", "mdc2", "hmac", "ripemd", "whrlpool", "poly1305", "blake2", "siphash",
310     "des", "aes", "rc2", "rc4", "rc5", "idea", "aria", "bf", "cast", "camellia", "seed", "chacha", "modes",
311     "bn", "ec", "rsa", "dsa", "dh", "dso", "engine",
312     "buffer", "bio", "stack", "lhash", "rand", "err",
313     "evp", "asn1", "pem", "x509", "x509v3", "conf", "txt_db", "pkcs7", "pkcs12", "comp", "ocsp", "ui",
314     "cms", "ts", "srp", "cmac", "ct", "async", "kdf"
315     ];
316 # test/ subdirectories to build
317 $config{tdirs} = [ "ossl_shim" ];
318
319 # Known TLS and DTLS protocols
320 my @tls = qw(ssl3 tls1 tls1_1 tls1_2 tls1_3);
321 my @dtls = qw(dtls1 dtls1_2);
322
323 # Explicitly known options that are possible to disable.  They can
324 # be regexps, and will be used like this: /^no-${option}$/
325 # For developers: keep it sorted alphabetically
326
327 my @disablables = (
328     "afalgeng",
329     "aria",
330     "asan",
331     "asm",
332     "async",
333     "autoalginit",
334     "autoerrinit",
335     "bf",
336     "blake2",
337     "camellia",
338     "capieng",
339     "cast",
340     "chacha",
341     "cmac",
342     "cms",
343     "comp",
344     "crypto-mdebug",
345     "crypto-mdebug-backtrace",
346     "ct",
347     "deprecated",
348     "des",
349     "dgram",
350     "dh",
351     "dsa",
352     "dso",
353     "dtls",
354     "dynamic-engine",
355     "ec",
356     "ec2m",
357     "ecdh",
358     "ecdsa",
359     "ec_nistp_64_gcc_128",
360     "egd",
361     "engine",
362     "err",
363     "external-tests",
364     "filenames",
365     "fuzz-libfuzzer",
366     "fuzz-afl",
367     "gost",
368     "heartbeats",
369     "hw(-.+)?",
370     "idea",
371     "makedepend",
372     "md2",
373     "md4",
374     "mdc2",
375     "msan",
376     "multiblock",
377     "nextprotoneg",
378     "ocb",
379     "ocsp",
380     "pic",
381     "poly1305",
382     "posix-io",
383     "psk",
384     "rc2",
385     "rc4",
386     "rc5",
387     "rdrand",
388     "rfc3779",
389     "rmd160",
390     "scrypt",
391     "sctp",
392     "seed",
393     "shared",
394     "siphash",
395     "sock",
396     "srp",
397     "srtp",
398     "sse2",
399     "ssl",
400     "ssl-trace",
401     "static-engine",
402     "stdio",
403     "tests",
404     "threads",
405     "tls",
406     "tls13downgrade",
407     "ts",
408     "ubsan",
409     "ui",
410     "unit-test",
411     "whirlpool",
412     "weak-ssl-ciphers",
413     "zlib",
414     "zlib-dynamic",
415     );
416 foreach my $proto ((@tls, @dtls))
417         {
418         push(@disablables, $proto);
419         push(@disablables, "$proto-method");
420         }
421
422 my %deprecated_disablables = (
423     "ssl2" => undef,
424     "buf-freelists" => undef,
425     "ripemd" => "rmd160"
426     );
427
428 # All of the following is disabled by default (RC5 was enabled before 0.9.8):
429
430 our %disabled = ( # "what"         => "comment"
431                   "aria"                => "default",
432                   "asan"                => "default",
433                   "crypto-mdebug"       => "default",
434                   "crypto-mdebug-backtrace" => "default",
435                   "ec_nistp_64_gcc_128" => "default",
436                   "egd"                 => "default",
437                   "external-tests"      => "default",
438                   "fuzz-libfuzzer"      => "default",
439                   "fuzz-afl"            => "default",
440                   "heartbeats"          => "default",
441                   "md2"                 => "default",
442                   "msan"                => "default",
443                   "rc5"                 => "default",
444                   "sctp"                => "default",
445                   "ssl-trace"           => "default",
446                   "ssl3"                => "default",
447                   "ssl3-method"         => "default",
448                   "ubsan"               => "default",
449           #TODO(TLS1.3): Temporarily disabled while this is a WIP
450                   "tls1_3"              => "default",
451                   "tls13downgrade"      => "default",
452                   "unit-test"           => "default",
453                   "weak-ssl-ciphers"    => "default",
454                   "zlib"                => "default",
455                   "zlib-dynamic"        => "default",
456                 );
457
458 # Note: => pair form used for aesthetics, not to truly make a hash table
459 my @disable_cascades = (
460     # "what"            => [ "cascade", ... ]
461     sub { $config{processor} eq "386" }
462                         => [ "sse2" ],
463     "ssl"               => [ "ssl3" ],
464     "ssl3-method"       => [ "ssl3" ],
465     "zlib"              => [ "zlib-dynamic" ],
466     "des"               => [ "mdc2" ],
467     "ec"                => [ "ecdsa", "ecdh" ],
468
469     "dgram"             => [ "dtls", "sctp" ],
470     "sock"              => [ "dgram" ],
471     "dtls"              => [ @dtls ],
472     sub { 0 == scalar grep { !$disabled{$_} } @dtls }
473                         => [ "dtls" ],
474
475     # SSL 3.0, (D)TLS 1.0 and TLS 1.1 require MD5 and SHA
476     "md5"               => [ "ssl", "tls1", "tls1_1", "dtls1" ],
477     "sha"               => [ "ssl", "tls1", "tls1_1", "dtls1" ],
478
479     # Additionally, SSL 3.0 requires either RSA or DSA+DH
480     sub { $disabled{rsa}
481           && ($disabled{dsa} || $disabled{dh}); }
482                         => [ "ssl" ],
483
484     # (D)TLS 1.0 and TLS 1.1 also require either RSA or DSA+DH
485     # or ECDSA + ECDH.  (D)TLS 1.2 has this requirement as well.
486     # (XXX: We don't support PSK-only builds).
487     sub { $disabled{rsa}
488           && ($disabled{dsa} || $disabled{dh})
489           && ($disabled{ecdsa} || $disabled{ecdh}); }
490                         => [ "tls1", "tls1_1", "tls1_2", "tls1_3",
491                              "dtls1", "dtls1_2" ],
492
493     "tls"               => [ @tls ],
494     sub { 0 == scalar grep { !$disabled{$_} } @tls }
495                         => [ "tls" ],
496
497     # SRP and HEARTBEATS require TLSEXT
498     "tlsext"            => [ "srp", "heartbeats" ],
499
500     "crypto-mdebug"     => [ "crypto-mdebug-backtrace" ],
501
502     # Without DSO, we can't load dynamic engines, so don't build them dynamic
503     "dso"               => [ "dynamic-engine" ],
504
505     # Without position independent code, there can be no shared libraries or DSOs
506     "pic"               => [ "shared" ],
507     "shared"            => [ "dynamic-engine" ],
508     "engine"            => [ "afalgeng" ],
509
510     # no-autoalginit is only useful when building non-shared
511     "autoalginit"       => [ "shared", "apps" ],
512
513     "stdio"             => [ "apps", "capieng" ],
514     "apps"              => [ "tests" ],
515     "comp"              => [ "zlib" ],
516     "ec"                => [ "tls1_3" ],
517     sub { !$disabled{"unit-test"} } => [ "heartbeats" ],
518
519     sub { !$disabled{"msan"} } => [ "asm" ],
520     );
521
522 # Avoid protocol support holes.  Also disable all versions below N, if version
523 # N is disabled while N+1 is enabled.
524 #
525 my @list = (reverse @tls);
526 while ((my $first, my $second) = (shift @list, shift @list)) {
527     last unless @list;
528     push @disable_cascades, ( sub { !$disabled{$first} && $disabled{$second} }
529                               => [ @list ] );
530     unshift @list, $second;
531 }
532 my @list = (reverse @dtls);
533 while ((my $first, my $second) = (shift @list, shift @list)) {
534     last unless @list;
535     push @disable_cascades, ( sub { !$disabled{$first} && $disabled{$second} }
536                               => [ @list ] );
537     unshift @list, $second;
538 }
539
540 # Explicit "no-..." options will be collected in %disabled along with the defaults.
541 # To remove something from %disabled, use "enable-foo".
542 # For symmetry, "disable-foo" is a synonym for "no-foo".
543
544 my $no_sse2=0;
545
546 &usage if ($#ARGV < 0);
547
548 my $user_cflags="";
549 my @user_defines=();
550 $config{openssl_api_defines}=[];
551 $config{openssl_algorithm_defines}=[];
552 $config{openssl_thread_defines}=[];
553 $config{openssl_sys_defines}=[];
554 $config{openssl_other_defines}=[];
555 my $libs="";
556 my $target="";
557 $config{options}="";
558 $config{build_type} = "release";
559
560 my %unsupported_options = ();
561 my %deprecated_options = ();
562 while (@argvcopy)
563         {
564         $_ = shift @argvcopy;
565         # VMS is a case insensitive environment, and depending on settings
566         # out of our control, we may receive options uppercased.  Let's
567         # downcase at least the part before any equal sign.
568         if ($^O eq "VMS")
569                 {
570                 s/^([^=]*)/lc($1)/e;
571                 }
572         s /^-no-/no-/; # some people just can't read the instructions
573
574         # rewrite some options in "enable-..." form
575         s /^-?-?shared$/enable-shared/;
576         s /^sctp$/enable-sctp/;
577         s /^threads$/enable-threads/;
578         s /^zlib$/enable-zlib/;
579         s /^zlib-dynamic$/enable-zlib-dynamic/;
580
581         if (/^(no|disable|enable)-(.+)$/)
582                 {
583                 my $word = $2;
584                 if (!exists $deprecated_disablables{$word}
585                         && !grep { $word =~ /^${_}$/ } @disablables)
586                         {
587                         $unsupported_options{$_} = 1;
588                         next;
589                         }
590                 }
591         if (/^no-(.+)$/ || /^disable-(.+)$/)
592                 {
593                 foreach my $proto ((@tls, @dtls))
594                         {
595                         if ($1 eq "$proto-method")
596                                 {
597                                 $disabled{"$proto"} = "option($proto-method)";
598                                 last;
599                                 }
600                         }
601                 if ($1 eq "dtls")
602                         {
603                         foreach my $proto (@dtls)
604                                 {
605                                 $disabled{$proto} = "option(dtls)";
606                                 }
607                         $disabled{"dtls"} = "option(dtls)";
608                         }
609                 elsif ($1 eq "ssl")
610                         {
611                         # Last one of its kind
612                         $disabled{"ssl3"} = "option(ssl)";
613                         }
614                 elsif ($1 eq "tls")
615                         {
616                         # XXX: Tests will fail if all SSL/TLS
617                         # protocols are disabled.
618                         foreach my $proto (@tls)
619                                 {
620                                 $disabled{$proto} = "option(tls)";
621                                 }
622                         }
623                 elsif ($1 eq "static-engine")
624                         {
625                         delete $disabled{"dynamic-engine"};
626                         }
627                 elsif ($1 eq "dynamic-engine")
628                         {
629                         $disabled{"dynamic-engine"} = "option";
630                         }
631                 elsif (exists $deprecated_disablables{$1})
632                         {
633                         $deprecated_options{$_} = 1;
634                         if (defined $deprecated_disablables{$1})
635                                 {
636                                 $disabled{$deprecated_disablables{$1}} = "option";
637                                 }
638                         }
639                 else
640                         {
641                         $disabled{$1} = "option";
642                         }
643                 # No longer an automatic choice
644                 $auto_threads = 0 if ($1 eq "threads");
645                 }
646         elsif (/^enable-(.+)$/)
647                 {
648                 if ($1 eq "static-engine")
649                         {
650                         $disabled{"dynamic-engine"} = "option";
651                         }
652                 elsif ($1 eq "dynamic-engine")
653                         {
654                         delete $disabled{"dynamic-engine"};
655                         }
656                 elsif ($1 eq "zlib-dynamic")
657                         {
658                         delete $disabled{"zlib"};
659                         }
660                 my $algo = $1;
661                 delete $disabled{$algo};
662
663                 # No longer an automatic choice
664                 $auto_threads = 0 if ($1 eq "threads");
665                 }
666         elsif (/^--strict-warnings$/)
667                 {
668                 $strict_warnings = 1;
669                 }
670         elsif (/^--debug$/)
671                 {
672                 $config{build_type} = "debug";
673                 }
674         elsif (/^--release$/)
675                 {
676                 $config{build_type} = "release";
677                 }
678         elsif (/^386$/)
679                 { $config{processor}=386; }
680         elsif (/^fips$/)
681                 {
682                 die "FIPS mode not supported\n";
683                 }
684         elsif (/^rsaref$/)
685                 {
686                 # No RSAref support any more since it's not needed.
687                 # The check for the option is there so scripts aren't
688                 # broken
689                 }
690         elsif (/^nofipscanistercheck$/)
691                 {
692                 die "FIPS mode not supported\n";
693                 }
694         elsif (/^[-+]/)
695                 {
696                 if (/^--prefix=(.*)$/)
697                         {
698                         $config{prefix}=$1;
699                         die "Directory given with --prefix MUST be absolute\n"
700                                 unless file_name_is_absolute($config{prefix});
701                         }
702                 elsif (/^--api=(.*)$/)
703                         {
704                         $config{api}=$1;
705                         }
706                 elsif (/^--libdir=(.*)$/)
707                         {
708                         $config{libdir}=$1;
709                         }
710                 elsif (/^--openssldir=(.*)$/)
711                         {
712                         $config{openssldir}=$1;
713                         }
714                 elsif (/^--with-zlib-lib=(.*)$/)
715                         {
716                         $withargs{zlib_lib}=$1;
717                         }
718                 elsif (/^--with-zlib-include=(.*)$/)
719                         {
720                         $withargs{zlib_include}=$1;
721                         }
722                 elsif (/^--with-fuzzer-lib=(.*)$/)
723                         {
724                         $withargs{fuzzer_lib}=$1;
725                         }
726                 elsif (/^--with-fuzzer-include=(.*)$/)
727                         {
728                         $withargs{fuzzer_include}=$1;
729                         }
730                 elsif (/^--cross-compile-prefix=(.*)$/)
731                         {
732                         $config{cross_compile_prefix}=$1;
733                         }
734                 elsif (/^--config=(.*)$/)
735                         {
736                         read_config $1;
737                         }
738                 elsif (/^-[lL](.*)$/ or /^-Wl,/)
739                         {
740                         $libs.=$_." ";
741                         }
742                 elsif (/^-framework$/)
743                         {
744                         $libs.=$_." ".shift(@argvcopy)." ";
745                         }
746                 elsif (/^-rpath$/ or /^-R$/)
747                         # -rpath is the OSF1 rpath flag
748                         # -R is the old Solaris rpath flag
749                         {
750                         my $rpath = shift(@argvcopy) || "";
751                         $rpath .= " " if $rpath ne "";
752                         $libs.=$_." ".$rpath;
753                         }
754                 elsif (/^-static$/)
755                         {
756                         $libs.=$_." ";
757                         $disabled{"dso"} = "forced";
758                         $disabled{"pic"} = "forced";
759                         $disabled{"shared"} = "forced";
760                         $disabled{"threads"} = "forced";
761                         }
762                 elsif (/^-D(.*)$/)
763                         {
764                         push @user_defines, $1;
765                         }
766                 else    # common if (/^[-+]/), just pass down...
767                         {
768                         $_ =~ s/%([0-9a-f]{1,2})/chr(hex($1))/gei;
769                         $user_cflags.=" ".$_;
770                         }
771                 }
772         else
773                 {
774                 die "target already defined - $target (offending arg: $_)\n" if ($target ne "");
775                 $target=$_;
776                 }
777         unless ($_ eq $target || /^no-/ || /^disable-/)
778                 {
779                 # "no-..." follows later after implied disactivations
780                 # have been derived.  (Don't take this too seriously,
781                 # we really only write OPTIONS to the Makefile out of
782                 # nostalgia.)
783
784                 if ($config{options} eq "")
785                         { $config{options} = $_; }
786                 else
787                         { $config{options} .= " ".$_; }
788                 }
789
790         if (defined($config{api}) && !exists $apitable->{$config{api}}) {
791                 die "***** Unsupported api compatibility level: $config{api}\n",
792         }
793
794         if (keys %deprecated_options)
795                 {
796                 warn "***** Deprecated options: ",
797                         join(", ", keys %deprecated_options), "\n";
798                 }
799         if (keys %unsupported_options)
800                 {
801                 die "***** Unsupported options: ",
802                         join(", ", keys %unsupported_options), "\n";
803                 }
804         }
805
806 if ($libs =~ /(^|\s)-Wl,-rpath,/
807     && !$disabled{shared}
808     && !($disabled{asan} && $disabled{msan} && $disabled{ubsan})) {
809     die "***** Cannot simultaneously use -rpath, shared libraries, and\n",
810         "***** any of asan, msan or ubsan\n";
811 }
812
813 my @tocheckfor = (keys %disabled);
814 while (@tocheckfor) {
815     my %new_tocheckfor = ();
816     my @cascade_copy = (@disable_cascades);
817     while (@cascade_copy) {
818         my ($test, $descendents) = (shift @cascade_copy, shift @cascade_copy);
819         if (ref($test) eq "CODE" ? $test->() : defined($disabled{$test})) {
820             foreach(grep { !defined($disabled{$_}) } @$descendents) {
821                 $new_tocheckfor{$_} = 1; $disabled{$_} = "forced";
822             }
823         }
824     }
825     @tocheckfor = (keys %new_tocheckfor);
826 }
827
828 our $die = sub { die @_; };
829 if ($target eq "TABLE") {
830     local $die = sub { warn @_; };
831     foreach (sort keys %table) {
832         print_table_entry($_, "TABLE");
833     }
834     exit 0;
835 }
836
837 if ($target eq "LIST") {
838     foreach (sort keys %table) {
839         print $_,"\n" unless $table{$_}->{template};
840     }
841     exit 0;
842 }
843
844 if ($target eq "HASH") {
845     local $die = sub { warn @_; };
846     print "%table = (\n";
847     foreach (sort keys %table) {
848         print_table_entry($_, "HASH");
849     }
850     exit 0;
851 }
852
853 print "Configuring OpenSSL version $config{version} ($config{version_num})\n";
854 print "for $target\n";
855
856 # Backward compatibility?
857 if ($target =~ m/^CygWin32(-.*)$/) {
858     $target = "Cygwin".$1;
859 }
860
861 foreach (sort (keys %disabled))
862         {
863         $config{options} .= " no-$_";
864
865         printf "    no-%-12s %-10s", $_, "[$disabled{$_}]";
866
867         if (/^dso$/)
868                 { }
869         elsif (/^threads$/)
870                 { }
871         elsif (/^shared$/)
872                 { }
873         elsif (/^pic$/)
874                 { }
875         elsif (/^zlib$/)
876                 { }
877         elsif (/^dynamic-engine$/)
878                 { }
879         elsif (/^makedepend$/)
880                 { }
881         elsif (/^zlib-dynamic$/)
882                 { }
883         elsif (/^sse2$/)
884                 { $no_sse2 = 1; }
885         elsif (/^engine$/)
886                 {
887                 @{$config{dirs}} = grep !/^engines$/, @{$config{dirs}};
888                 @{$config{sdirs}} = grep !/^engine$/, @{$config{sdirs}};
889                 push @{$config{openssl_other_defines}}, "OPENSSL_NO_ENGINE";
890                 print " OPENSSL_NO_ENGINE (skip engines)";
891                 }
892         else
893                 {
894                 my ($WHAT, $what);
895
896                 ($WHAT = $what = $_) =~ tr/[\-a-z]/[_A-Z]/;
897
898                 # Fix up C macro end names
899                 $WHAT = "RMD160" if $what eq "ripemd";
900
901                 # fix-up crypto/directory name(s)
902                 $what = "ripemd" if $what eq "rmd160";
903                 $what = "whrlpool" if $what eq "whirlpool";
904
905                 if ($what ne "async" && $what ne "err"
906                     && grep { $_ eq $what } @{$config{sdirs}})
907                         {
908                         push @{$config{openssl_algorithm_defines}}, "OPENSSL_NO_$WHAT";
909                         @{$config{sdirs}} = grep { $_ ne $what} @{$config{sdirs}};
910
911                         print " OPENSSL_NO_$WHAT (skip dir)";
912                         }
913                 else
914                         {
915                         push @{$config{openssl_other_defines}}, "OPENSSL_NO_$WHAT";
916                         print " OPENSSL_NO_$WHAT";
917
918                         if (/^err$/)    { push @user_defines, "OPENSSL_NO_ERR"; }
919                         }
920                 }
921
922         print "\n";
923         }
924
925 # Support for legacy targets having a name starting with 'debug-'
926 my ($d, $t) = $target =~ m/^(debug-)?(.*)$/;
927 if ($d) {
928     $config{build_type} = "debug";
929
930     # If we do not find debug-foo in the table, the target is set to foo.
931     if (!$table{$target}) {
932         $target = $t;
933     }
934 }
935 $config{target} = $target;
936 my %target = resolve_config($target);
937
938 &usage if (!%target || $target{template});
939
940 my %conf_files = map { $_ => 1 } (@{$target{_conf_fname_int}});
941 $config{conf_files} = [ sort keys %conf_files ];
942 %target = ( %{$table{DEFAULTS}}, %target );
943
944 $target{cxxflags}=$target{cflags} unless defined $target{cxxflags};
945 $target{exe_extension}="";
946 $target{exe_extension}=".exe" if ($config{target} eq "DJGPP"
947                                   || $config{target} =~ /^(?:Cygwin|mingw)/);
948 $target{exe_extension}=".pm"  if ($config{target} =~ /vos/);
949
950 ($target{shared_extension_simple}=$target{shared_extension})
951     =~ s|\.\$\(SHLIB_MAJOR\)\.\$\(SHLIB_MINOR\)||;
952 $target{dso_extension}=$target{shared_extension_simple};
953 ($target{shared_import_extension}=$target{shared_extension_simple}.".a")
954     if ($config{target} =~ /^(?:Cygwin|mingw)/);
955
956
957 $config{cross_compile_prefix} = $ENV{'CROSS_COMPILE'}
958     if $config{cross_compile_prefix} eq "";
959
960 # Allow overriding the names of some tools.  USE WITH CARE
961 # Note: only Unix cares about HASHBANGPERL...  that explains
962 # the default string.
963 $config{perl} =    ($^O ne "VMS" ? $^X : "perl");
964 $config{hashbangperl} =
965     $ENV{'HASHBANGPERL'}           || $ENV{'PERL'}     || "/usr/bin/env perl";
966 $target{cc} =      $ENV{'CC'}      || $target{cc}      || "cc";
967 $target{cxx} =     $ENV{'CXX'}     || $target{cxx}     || "c++";
968 $target{ranlib} =  $ENV{'RANLIB'}  || $target{ranlib}  ||
969                    (which("$config{cross_compile_prefix}ranlib") ?
970                           "\$(CROSS_COMPILE)ranlib" : "true");
971 $target{ar} =      $ENV{'AR'}      || $target{ar}      || "ar";
972 $target{nm} =      $ENV{'NM'}      || $target{nm}      || "nm";
973 $target{rc} =
974     $ENV{'RC'}  || $ENV{'WINDRES'} || $target{rc}      || "windres";
975
976 # Allow overriding the build file name
977 $target{build_file} = $ENV{BUILDFILE} || $target{build_file} || "Makefile";
978
979 # Cache information necessary for reconfiguration
980 $config{cc} = $target{cc};
981 $config{cxx} = $target{cxx};
982 $config{build_file} = $target{build_file};
983
984 # For cflags, lflags, plib_lflags, ex_libs and defines, add the debug_
985 # or release_ attributes.
986 # Do it in such a way that no spurious space is appended (hence the grep).
987 $config{defines} = [];
988 $config{cflags} = "";
989 $config{cxxflags} = "";
990 $config{ex_libs} = "";
991 $config{shared_ldflag} = "";
992
993 # Make sure build_scheme is consistent.
994 $target{build_scheme} = [ $target{build_scheme} ]
995     if ref($target{build_scheme}) ne "ARRAY";
996
997 my ($builder, $builder_platform, @builder_opts) =
998     @{$target{build_scheme}};
999
1000 foreach my $checker (($builder_platform."-".$target{build_file}."-checker.pm",
1001                       $builder_platform."-checker.pm")) {
1002     my $checker_path = catfile($srcdir, "Configurations", $checker);
1003     if (-f $checker_path) {
1004         my $fn = $ENV{CONFIGURE_CHECKER_WARN}
1005             ? sub { warn $@; } : sub { die $@; };
1006         if (! do $checker_path) {
1007             if ($@) {
1008                 $fn->($@);
1009             } elsif ($!) {
1010                 $fn->($!);
1011             } else {
1012                 $fn->("The detected tools didn't match the platform\n");
1013             }
1014         }
1015         last;
1016     }
1017 }
1018
1019 push @{$config{defines}}, "NDEBUG"    if $config{build_type} eq "release";
1020
1021 if ($target =~ /^mingw/ && `$target{cc} --target-help 2>&1` =~ m/-mno-cygwin/m)
1022         {
1023         $config{cflags} .= " -mno-cygwin";
1024         $config{shared_ldflag} .= " -mno-cygwin";
1025         }
1026
1027 if ($target =~ /linux.*-mips/ && !$disabled{asm} && $user_cflags !~ /-m(ips|arch=)/) {
1028         # minimally required architecture flags for assembly modules
1029         $config{cflags}="-mips2 $config{cflags}" if ($target =~ /mips32/);
1030         $config{cflags}="-mips3 $config{cflags}" if ($target =~ /mips64/);
1031 }
1032
1033 my $no_shared_warn=0;
1034 my $no_user_cflags=0;
1035 my $no_user_defines=0;
1036
1037 # The DSO code currently always implements all functions so that no
1038 # applications will have to worry about that from a compilation point
1039 # of view. However, the "method"s may return zero unless that platform
1040 # has support compiled in for them. Currently each method is enabled
1041 # by a define "DSO_<name>" ... we translate the "dso_scheme" config
1042 # string entry into using the following logic;
1043 if (!$disabled{dso} && $target{dso_scheme} ne "")
1044         {
1045         $target{dso_scheme} =~ tr/[a-z]/[A-Z]/;
1046         if ($target{dso_scheme} eq "DLFCN")
1047                 {
1048                 unshift @{$config{defines}}, "DSO_DLFCN", "HAVE_DLFCN_H";
1049                 }
1050         elsif ($target{dso_scheme} eq "DLFCN_NO_H")
1051                 {
1052                 unshift @{$config{defines}}, "DSO_DLFCN";
1053                 }
1054         else
1055                 {
1056                 unshift @{$config{defines}}, "DSO_$target{dso_scheme}";
1057                 }
1058         }
1059
1060 $config{ex_libs}="$libs$config{ex_libs}" if ($libs ne "");
1061
1062 # If threads aren't disabled, check how possible they are
1063 unless ($disabled{threads}) {
1064     if ($auto_threads) {
1065         # Enabled by default, disable it forcibly if unavailable
1066         if ($target{thread_scheme} eq "(unknown)") {
1067             $disabled{threads} = "unavailable";
1068         }
1069     } else {
1070         # The user chose to enable threads explicitly, let's see
1071         # if there's a chance that's possible
1072         if ($target{thread_scheme} eq "(unknown)") {
1073             # If the user asked for "threads" and we don't have internal
1074             # knowledge how to do it, [s]he is expected to provide any
1075             # system-dependent compiler options that are necessary.  We
1076             # can't truly check that the given options are correct, but
1077             # we expect the user to know what [s]He is doing.
1078             if ($no_user_cflags && $no_user_defines) {
1079                 die "You asked for multi-threading support, but didn't\n"
1080                     ,"provide any system-specific compiler options\n";
1081             }
1082         }
1083     }
1084 }
1085
1086 # If threads still aren't disabled, add a C macro to ensure the source
1087 # code knows about it.  Any other flag is taken care of by the configs.
1088 unless($disabled{threads}) {
1089     foreach (("defines", "openssl_thread_defines")) {
1090         push @{$config{$_}}, "OPENSSL_THREADS";
1091     }
1092 }
1093
1094 # With "deprecated" disable all deprecated features.
1095 if (defined($disabled{"deprecated"})) {
1096         $config{api} = $maxapi;
1097 }
1098
1099 if ($target{shared_target} eq "")
1100         {
1101         $no_shared_warn = 1
1102             if (!$disabled{shared} || !$disabled{"dynamic-engine"});
1103         $disabled{shared} = "no-shared-target";
1104         $disabled{pic} = $disabled{shared} = $disabled{"dynamic-engine"} =
1105             "no-shared-target";
1106         }
1107
1108 if ($disabled{"dynamic-engine"}) {
1109         push @{$config{defines}}, "OPENSSL_NO_DYNAMIC_ENGINE";
1110         $config{dynamic_engines} = 0;
1111 } else {
1112         push @{$config{defines}}, "OPENSSL_NO_STATIC_ENGINE";
1113         $config{dynamic_engines} = 1;
1114 }
1115
1116 unless ($disabled{asan}) {
1117     $config{cflags} .= "-fsanitize=address ";
1118 }
1119
1120 unless ($disabled{ubsan}) {
1121     # -DPEDANTIC or -fnosanitize=alignment may also be required on some
1122     # platforms.
1123     $config{cflags} .= "-fsanitize=undefined -fno-sanitize-recover=all ";
1124 }
1125
1126 unless ($disabled{msan}) {
1127   $config{cflags} .= "-fsanitize=memory ";
1128 }
1129
1130 unless ($disabled{"fuzz-libfuzzer"} && $disabled{"fuzz-afl"}
1131         && $disabled{asan} && $disabled{ubsan} && $disabled{msan}) {
1132     $config{cflags} .= "-fno-omit-frame-pointer -g ";
1133 }
1134 #
1135 # Platform fix-ups
1136 #
1137
1138 # This saves the build files from having to check
1139 if ($disabled{pic})
1140         {
1141         $target{shared_cflag} = $target{shared_ldflag} =
1142                 $target{shared_rcflag} = "";
1143         }
1144 else
1145         {
1146         push @{$config{defines}}, "OPENSSL_PIC";
1147         }
1148
1149 if ($target{sys_id} ne "")
1150         {
1151         push @{$config{openssl_sys_defines}}, "OPENSSL_SYS_$target{sys_id}";
1152         }
1153
1154 unless ($disabled{asm}) {
1155     $target{cpuid_asm_src}=$table{DEFAULTS}->{cpuid_asm_src} if ($config{processor} eq "386");
1156     $target{bn_asm_src} =~ s/\w+-gf2m.c// if (defined($disabled{ec2m}));
1157
1158     # bn-586 is the only one implementing bn_*_part_words
1159     push @{$config{defines}}, "OPENSSL_BN_ASM_PART_WORDS" if ($target{bn_asm_src} =~ /bn-586/);
1160     push @{$config{defines}}, "OPENSSL_IA32_SSE2" if (!$no_sse2 && $target{bn_asm_src} =~ /86/);
1161
1162     push @{$config{defines}}, "OPENSSL_BN_ASM_MONT" if ($target{bn_asm_src} =~ /-mont/);
1163     push @{$config{defines}}, "OPENSSL_BN_ASM_MONT5" if ($target{bn_asm_src} =~ /-mont5/);
1164     push @{$config{defines}}, "OPENSSL_BN_ASM_GF2m" if ($target{bn_asm_src} =~ /-gf2m/);
1165
1166     if ($target{sha1_asm_src}) {
1167         push @{$config{defines}}, "SHA1_ASM"   if ($target{sha1_asm_src} =~ /sx86/ || $target{sha1_asm_src} =~ /sha1/);
1168         push @{$config{defines}}, "SHA256_ASM" if ($target{sha1_asm_src} =~ /sha256/);
1169         push @{$config{defines}}, "SHA512_ASM" if ($target{sha1_asm_src} =~ /sha512/);
1170     }
1171     if ($target{rc4_asm_src} ne $table{DEFAULTS}->{rc4_asm_src}) {
1172         push @{$config{defines}}, "RC4_ASM";
1173     }
1174     if ($target{md5_asm_src}) {
1175         push @{$config{defines}}, "MD5_ASM";
1176     }
1177     $target{cast_asm_src}=$table{DEFAULTS}->{cast_asm_src} unless $disabled{pic}; # CAST assembler is not PIC
1178     if ($target{rmd160_asm_src}) {
1179         push @{$config{defines}}, "RMD160_ASM";
1180     }
1181     if ($target{aes_asm_src}) {
1182         push @{$config{defines}}, "AES_ASM" if ($target{aes_asm_src} =~ m/\baes-/);;
1183         # aes-ctr.fake is not a real file, only indication that assembler
1184         # module implements AES_ctr32_encrypt...
1185         push @{$config{defines}}, "AES_CTR_ASM" if ($target{aes_asm_src} =~ s/\s*aes-ctr\.fake//);
1186         # aes-xts.fake indicates presence of AES_xts_[en|de]crypt...
1187         push @{$config{defines}}, "AES_XTS_ASM" if ($target{aes_asm_src} =~ s/\s*aes-xts\.fake//);
1188         $target{aes_asm_src} =~ s/\s*(vpaes|aesni)-x86\.s//g if ($no_sse2);
1189         push @{$config{defines}}, "VPAES_ASM" if ($target{aes_asm_src} =~ m/vpaes/);
1190         push @{$config{defines}}, "BSAES_ASM" if ($target{aes_asm_src} =~ m/bsaes/);
1191     }
1192     if ($target{wp_asm_src} =~ /mmx/) {
1193         if ($config{processor} eq "386") {
1194             $target{wp_asm_src}=$table{DEFAULTS}->{wp_asm_src};
1195         } elsif (!$disabled{"whirlpool"}) {
1196             push @{$config{defines}}, "WHIRLPOOL_ASM";
1197         }
1198     }
1199     if ($target{modes_asm_src} =~ /ghash-/) {
1200         push @{$config{defines}}, "GHASH_ASM";
1201     }
1202     if ($target{ec_asm_src} =~ /ecp_nistz256/) {
1203         push @{$config{defines}}, "ECP_NISTZ256_ASM";
1204     }
1205     if ($target{padlock_asm_src} ne $table{DEFAULTS}->{padlock_asm_src}) {
1206         push @{$config{defines}}, "PADLOCK_ASM";
1207     }
1208     if ($target{poly1305_asm_src} ne "") {
1209         push @{$config{defines}}, "POLY1305_ASM";
1210     }
1211 }
1212
1213 my $ecc = $target{cc};
1214 if ($^O ne "VMS" && !$disabled{makedepend}) {
1215     # Is the compiler gcc or clang?  $ecc is used below to see if
1216     # error-checking can be turned on.
1217     my $ccpcc = "$config{cross_compile_prefix}$target{cc}";
1218     open(PIPE, "$ccpcc --version 2>&1 |");
1219     my $lines = 2;
1220     while ( <PIPE> ) {
1221         # Find the version number and save the major.
1222         m|(?:.*)\b(\d+)\.\d+\.\d+\b(?:.*)|;
1223         my $compiler_major = $1;
1224         # We know that GNU C version 3 and up as well as all clang
1225         # versions support dependency generation
1226         $config{makedepprog} = $ccpcc
1227             if (/clang/ || (/gcc/ && $compiler_major >= 3));
1228         $ecc = "clang" if /clang/;
1229         $ecc = "gcc" if /gcc/;
1230         last if ($config{makedepprog} || !$lines--);
1231     }
1232     close(PIPE);
1233
1234     $config{makedepprog} = which('makedepend') unless $config{makedepprog};
1235     $disabled{makedepend} = "unavailable" unless $config{makedepprog};
1236 }
1237
1238
1239
1240 # Deal with bn_ops ###################################################
1241
1242 $config{bn_ll}                  =0;
1243 $config{export_var_as_fn}       =0;
1244 my $def_int="unsigned int";
1245 $config{rc4_int}                =$def_int;
1246 ($config{b64l},$config{b64},$config{b32})=(0,0,1);
1247
1248 my $count = 0;
1249 foreach (sort split(/\s+/,$target{bn_ops})) {
1250     $count++ if /SIXTY_FOUR_BIT|SIXTY_FOUR_BIT_LONG|THIRTY_TWO_BIT/;
1251     $config{export_var_as_fn}=1                 if $_ eq 'EXPORT_VAR_AS_FN';
1252     $config{bn_ll}=1                            if $_ eq 'BN_LLONG';
1253     $config{rc4_int}="unsigned char"            if $_ eq 'RC4_CHAR';
1254     ($config{b64l},$config{b64},$config{b32})
1255         =(0,1,0)                                if $_ eq 'SIXTY_FOUR_BIT';
1256     ($config{b64l},$config{b64},$config{b32})
1257         =(1,0,0)                                if $_ eq 'SIXTY_FOUR_BIT_LONG';
1258     ($config{b64l},$config{b64},$config{b32})
1259         =(0,0,1)                                if $_ eq 'THIRTY_TWO_BIT';
1260 }
1261 die "Exactly one of SIXTY_FOUR_BIT|SIXTY_FOUR_BIT_LONG|THIRTY_TWO_BIT can be set in bn_ops\n"
1262     if $count > 1;
1263
1264
1265 # Hack cflags for better warnings (dev option) #######################
1266
1267 # "Stringify" the C flags string.  This permits it to be made part of a string
1268 # and works as well on command lines.
1269 $config{cflags} =~ s/([\\\"])/\\$1/g;
1270
1271 if (defined($config{api})) {
1272     $config{openssl_api_defines} = [ "OPENSSL_MIN_API=".$apitable->{$config{api}} ];
1273     my $apiflag = sprintf("OPENSSL_API_COMPAT=%s", $apitable->{$config{api}});
1274     push @{$config{defines}}, $apiflag;
1275 }
1276
1277 if ($strict_warnings)
1278         {
1279         my $wopt;
1280         die "ERROR --strict-warnings requires gcc or clang"
1281             unless $ecc eq 'gcc' || $ecc eq 'clang';
1282         foreach $wopt (split /\s+/, $gcc_devteam_warn)
1283                 {
1284                 $config{cflags} .= " $wopt" unless ($config{cflags} =~ /(?:^|\s)$wopt(?:\s|$)/)
1285                 }
1286         if ($ecc eq "clang")
1287                 {
1288                 foreach $wopt (split /\s+/, $clang_devteam_warn)
1289                         {
1290                         $config{cflags} .= " $wopt" unless ($config{cflags} =~ /(?:^|\s)$wopt(?:\s|$)/)
1291                         }
1292                 }
1293         }
1294
1295 unless ($disabled{"crypto-mdebug-backtrace"})
1296         {
1297         foreach my $wopt (split /\s+/, $memleak_devteam_backtrace)
1298                 {
1299                 $config{cflags} .= " $wopt" unless ($config{cflags} =~ /(?:^|\s)$wopt(?:\s|$)/)
1300                 }
1301         if ($target =~ /^BSD-/)
1302                 {
1303                 $config{ex_libs} .= " -lexecinfo";
1304                 }
1305         }
1306
1307 if ($user_cflags ne "") { $config{cflags}="$config{cflags}$user_cflags"; $config{cxxflags}="$config{cxxflags}$user_cflags";}
1308 else                    { $no_user_cflags=1;  }
1309 if (@user_defines) { $config{defines}=[ @{$config{defines}}, @user_defines ]; }
1310 else               { $no_user_defines=1;    }
1311
1312 # ALL MODIFICATIONS TO %config and %target MUST BE DONE FROM HERE ON
1313
1314 unless ($disabled{afalgeng}) {
1315     $config{afalgeng}="";
1316     if ($target =~ m/^linux/) {
1317         my $minver = 4*10000 + 1*100 + 0;
1318         if ($config{cross_compile_prefix} eq "") {
1319             my $verstr = `uname -r`;
1320             my ($ma, $mi1, $mi2) = split("\\.", $verstr);
1321             ($mi2) = $mi2 =~ /(\d+)/;
1322             my $ver = $ma*10000 + $mi1*100 + $mi2;
1323             if ($ver < $minver) {
1324                 $disabled{afalgeng} = "too-old-kernel";
1325             } else {
1326                 push @{$config{engdirs}}, "afalg";
1327             }
1328         } else {
1329             $disabled{afalgeng} = "cross-compiling";
1330         }
1331     } else {
1332         $disabled{afalgeng}  = "not-linux";
1333     }
1334 }
1335
1336 push @{$config{openssl_other_defines}}, "OPENSSL_NO_AFALGENG" if ($disabled{afalgeng});
1337
1338 # If we use the unified build, collect information from build.info files
1339 my %unified_info = ();
1340
1341 my $buildinfo_debug = defined($ENV{CONFIGURE_DEBUG_BUILDINFO});
1342 if ($builder eq "unified") {
1343     use lib catdir(dirname(__FILE__),"util");
1344     use with_fallback qw(Text::Template);
1345
1346     sub cleandir {
1347         my $base = shift;
1348         my $dir = shift;
1349         my $relativeto = shift || ".";
1350
1351         $dir = catdir($base,$dir) unless isabsolute($dir);
1352
1353         # Make sure the directories we're building in exists
1354         mkpath($dir);
1355
1356         my $res = abs2rel(absolutedir($dir), rel2abs($relativeto));
1357         #print STDERR "DEBUG[cleandir]: $dir , $base => $res\n";
1358         return $res;
1359     }
1360
1361     sub cleanfile {
1362         my $base = shift;
1363         my $file = shift;
1364         my $relativeto = shift || ".";
1365
1366         $file = catfile($base,$file) unless isabsolute($file);
1367
1368         my $d = dirname($file);
1369         my $f = basename($file);
1370
1371         # Make sure the directories we're building in exists
1372         mkpath($d);
1373
1374         my $res = abs2rel(catfile(absolutedir($d), $f), rel2abs($relativeto));
1375         #print STDERR "DEBUG[cleanfile]: $d , $f => $res\n";
1376         return $res;
1377     }
1378
1379     # Store the name of the template file we will build the build file from
1380     # in %config.  This may be useful for the build file itself.
1381     my @build_file_template_names =
1382         ( $builder_platform."-".$target{build_file}.".tmpl",
1383           $target{build_file}.".tmpl" );
1384     my @build_file_templates = ();
1385
1386     # First, look in the user provided directory, if given
1387     if (defined $ENV{$local_config_envname}) {
1388         @build_file_templates =
1389             map {
1390                 if ($^O eq 'VMS') {
1391                     # VMS environment variables are logical names,
1392                     # which can be used as is
1393                     $local_config_envname . ':' . $_;
1394                 } else {
1395                     catfile($ENV{$local_config_envname}, $_);
1396                 }
1397             }
1398             @build_file_template_names;
1399     }
1400     # Then, look in our standard directory
1401     push @build_file_templates,
1402         ( map { cleanfile($srcdir, catfile("Configurations", $_), $blddir) }
1403           @build_file_template_names );
1404
1405     my $build_file_template;
1406     for $_ (@build_file_templates) {
1407         $build_file_template = $_;
1408         last if -f $build_file_template;
1409
1410         $build_file_template = undef;
1411     }
1412     if (!defined $build_file_template) {
1413         die "*** Couldn't find any of:\n", join("\n", @build_file_templates), "\n";
1414     }
1415     $config{build_file_templates}
1416       = [ $build_file_template,
1417           cleanfile($srcdir, catfile("Configurations", "common.tmpl"),
1418                     $blddir) ];
1419
1420     my @build_infos = ( [ ".", "build.info" ] );
1421     foreach (@{$config{dirs}}) {
1422         push @build_infos, [ $_, "build.info" ]
1423             if (-f catfile($srcdir, $_, "build.info"));
1424     }
1425     foreach (@{$config{sdirs}}) {
1426         push @build_infos, [ catdir("crypto", $_), "build.info" ]
1427             if (-f catfile($srcdir, "crypto", $_, "build.info"));
1428     }
1429     foreach (@{$config{engdirs}}) {
1430         push @build_infos, [ catdir("engines", $_), "build.info" ]
1431             if (-f catfile($srcdir, "engines", $_, "build.info"));
1432     }
1433     foreach (@{$config{tdirs}}) {
1434         push @build_infos, [ catdir("test", $_), "build.info" ]
1435             if (-f catfile($srcdir, "test", $_, "build.info"));
1436     }
1437
1438     $config{build_infos} = [ ];
1439
1440     foreach (@build_infos) {
1441         my $sourced = catdir($srcdir, $_->[0]);
1442         my $buildd = catdir($blddir, $_->[0]);
1443
1444         mkpath($buildd);
1445
1446         my $f = $_->[1];
1447         # The basic things we're trying to build
1448         my @programs = ();
1449         my @programs_install = ();
1450         my @libraries = ();
1451         my @libraries_install = ();
1452         my @engines = ();
1453         my @engines_install = ();
1454         my @scripts = ();
1455         my @scripts_install = ();
1456         my @extra = ();
1457         my @overrides = ();
1458         my @intermediates = ();
1459         my @rawlines = ();
1460
1461         my %ordinals = ();
1462         my %sources = ();
1463         my %shared_sources = ();
1464         my %includes = ();
1465         my %depends = ();
1466         my %renames = ();
1467         my %sharednames = ();
1468         my %generate = ();
1469
1470         push @{$config{build_infos}}, catfile(abs2rel($sourced, $blddir), $f);
1471         my $template = Text::Template->new(TYPE => 'FILE',
1472                                            SOURCE => catfile($sourced, $f));
1473         die "Something went wrong with $sourced/$f: $!\n" unless $template;
1474         my @text =
1475             split /^/m,
1476             $template->fill_in(HASH => { config => \%config,
1477                                          target => \%target,
1478                                          disabled => \%disabled,
1479                                          withargs => \%withargs,
1480                                          builddir => abs2rel($buildd, $blddir),
1481                                          sourcedir => abs2rel($sourced, $blddir),
1482                                          buildtop => abs2rel($blddir, $blddir),
1483                                          sourcetop => abs2rel($srcdir, $blddir) },
1484                                DELIMITERS => [ "{-", "-}" ]);
1485
1486         # The top item of this stack has the following values
1487         # -2 positive already run and we found ELSE (following ELSIF should fail)
1488         # -1 positive already run (skip until ENDIF)
1489         # 0 negatives so far (if we're at a condition, check it)
1490         # 1 last was positive (don't skip lines until next ELSE, ELSIF or ENDIF)
1491         # 2 positive ELSE (following ELSIF should fail)
1492         my @skip = ();
1493         collect_information(
1494             collect_from_array([ @text ],
1495                                qr/\\$/ => sub { my $l1 = shift; my $l2 = shift;
1496                                                 $l1 =~ s/\\$//; $l1.$l2 }),
1497             # Info we're looking for
1498             qr/^\s*IF\[((?:\\.|[^\\\]])*)\]\s*$/
1499             => sub {
1500                 if (! @skip || $skip[$#skip] > 0) {
1501                     push @skip, !! $1;
1502                 } else {
1503                     push @skip, -1;
1504                 }
1505             },
1506             qr/^\s*ELSIF\[((?:\\.|[^\\\]])*)\]\s*$/
1507             => sub { die "ELSIF out of scope" if ! @skip;
1508                      die "ELSIF following ELSE" if abs($skip[$#skip]) == 2;
1509                      $skip[$#skip] = -1 if $skip[$#skip] != 0;
1510                      $skip[$#skip] = !! $1
1511                          if $skip[$#skip] == 0; },
1512             qr/^\s*ELSE\s*$/
1513             => sub { die "ELSE out of scope" if ! @skip;
1514                      $skip[$#skip] = -2 if $skip[$#skip] != 0;
1515                      $skip[$#skip] = 2 if $skip[$#skip] == 0; },
1516             qr/^\s*ENDIF\s*$/
1517             => sub { die "ENDIF out of scope" if ! @skip;
1518                      pop @skip; },
1519             qr/^\s*PROGRAMS(_NO_INST)?\s*=\s*(.*)\s*$/
1520             => sub {
1521                 if (!@skip || $skip[$#skip] > 0) {
1522                     my $install = $1;
1523                     my @x = tokenize($2);
1524                     push @programs, @x;
1525                     push @programs_install, @x unless $install;
1526                 }
1527             },
1528             qr/^\s*LIBS(_NO_INST)?\s*=\s*(.*)\s*$/
1529             => sub {
1530                 if (!@skip || $skip[$#skip] > 0) {
1531                     my $install = $1;
1532                     my @x = tokenize($2);
1533                     push @libraries, @x;
1534                     push @libraries_install, @x unless $install;
1535                 }
1536             },
1537             qr/^\s*ENGINES(_NO_INST)?\s*=\s*(.*)\s*$/
1538             => sub {
1539                 if (!@skip || $skip[$#skip] > 0) {
1540                     my $install = $1;
1541                     my @x = tokenize($2);
1542                     push @engines, @x;
1543                     push @engines_install, @x unless $install;
1544                 }
1545             },
1546             qr/^\s*SCRIPTS(_NO_INST)?\s*=\s*(.*)\s*$/
1547             => sub {
1548                 if (!@skip || $skip[$#skip] > 0) {
1549                     my $install = $1;
1550                     my @x = tokenize($2);
1551                     push @scripts, @x;
1552                     push @scripts_install, @x unless $install;
1553                 }
1554             },
1555             qr/^\s*EXTRA\s*=\s*(.*)\s*$/
1556             => sub { push @extra, tokenize($1)
1557                          if !@skip || $skip[$#skip] > 0 },
1558             qr/^\s*OVERRIDES\s*=\s*(.*)\s*$/
1559             => sub { push @overrides, tokenize($1)
1560                          if !@skip || $skip[$#skip] > 0 },
1561
1562             qr/^\s*ORDINALS\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/,
1563             => sub { push @{$ordinals{$1}}, tokenize($2)
1564                          if !@skip || $skip[$#skip] > 0 },
1565             qr/^\s*SOURCE\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1566             => sub { push @{$sources{$1}}, tokenize($2)
1567                          if !@skip || $skip[$#skip] > 0 },
1568             qr/^\s*SHARED_SOURCE\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1569             => sub { push @{$shared_sources{$1}}, tokenize($2)
1570                          if !@skip || $skip[$#skip] > 0 },
1571             qr/^\s*INCLUDE\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1572             => sub { push @{$includes{$1}}, tokenize($2)
1573                          if !@skip || $skip[$#skip] > 0 },
1574             qr/^\s*DEPEND\[((?:\\.|[^\\\]])*)\]\s*=\s*(.*)\s*$/
1575             => sub { push @{$depends{$1}}, tokenize($2)
1576                          if !@skip || $skip[$#skip] > 0 },
1577             qr/^\s*GENERATE\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1578             => sub { push @{$generate{$1}}, $2
1579                          if !@skip || $skip[$#skip] > 0 },
1580             qr/^\s*RENAME\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1581             => sub { push @{$renames{$1}}, tokenize($2)
1582                          if !@skip || $skip[$#skip] > 0 },
1583             qr/^\s*SHARED_NAME\[((?:\\.|[^\\\]])+)\]\s*=\s*(.*)\s*$/
1584             => sub { push @{$sharednames{$1}}, tokenize($2)
1585                          if !@skip || $skip[$#skip] > 0 },
1586             qr/^\s*BEGINRAW\[((?:\\.|[^\\\]])+)\]\s*$/
1587             => sub {
1588                 my $lineiterator = shift;
1589                 my $target_kind = $1;
1590                 while (defined $lineiterator->()) {
1591                     s|\R$||;
1592                     if (/^\s*ENDRAW\[((?:\\.|[^\\\]])+)\]\s*$/) {
1593                         die "ENDRAW doesn't match BEGINRAW"
1594                             if $1 ne $target_kind;
1595                         last;
1596                     }
1597                     next if @skip && $skip[$#skip] <= 0;
1598                     push @rawlines,  $_
1599                         if ($target_kind eq $target{build_file}
1600                             || $target_kind eq $target{build_file}."(".$builder_platform.")");
1601                 }
1602             },
1603             qr/^\s*(?:#.*)?$/ => sub { },
1604             "OTHERWISE" => sub { die "Something wrong with this line:\n$_\nat $sourced/$f" },
1605             "BEFORE" => sub {
1606                 if ($buildinfo_debug) {
1607                     print STDERR "DEBUG: Parsing ",join(" ", @_),"\n";
1608                     print STDERR "DEBUG: ... before parsing, skip stack is ",join(" ", map { int($_) } @skip),"\n";
1609                 }
1610             },
1611             "AFTER" => sub {
1612                 if ($buildinfo_debug) {
1613                     print STDERR "DEBUG: .... after parsing, skip stack is ",join(" ", map { int($_) } @skip),"\n";
1614                 }
1615             },
1616             );
1617         die "runaway IF?" if (@skip);
1618
1619         foreach (keys %renames) {
1620             die "$_ renamed to more than one thing: "
1621                 ,join(" ", @{$renames{$_}}),"\n"
1622                 if scalar @{$renames{$_}} > 1;
1623             my $dest = cleanfile($buildd, $_, $blddir);
1624             my $to = cleanfile($buildd, $renames{$_}->[0], $blddir);
1625             die "$dest renamed to more than one thing: "
1626                 ,$unified_info{rename}->{$dest}, $to
1627                 unless !defined($unified_info{rename}->{$dest})
1628                 or $unified_info{rename}->{$dest} eq $to;
1629             $unified_info{rename}->{$dest} = $to;
1630         }
1631
1632         foreach (@programs) {
1633             my $program = cleanfile($buildd, $_, $blddir);
1634             if ($unified_info{rename}->{$program}) {
1635                 $program = $unified_info{rename}->{$program};
1636             }
1637             $unified_info{programs}->{$program} = 1;
1638         }
1639
1640         foreach (@programs_install) {
1641             my $program = cleanfile($buildd, $_, $blddir);
1642             if ($unified_info{rename}->{$program}) {
1643                 $program = $unified_info{rename}->{$program};
1644             }
1645             $unified_info{install}->{programs}->{$program} = 1;
1646         }
1647
1648         foreach (@libraries) {
1649             my $library = cleanfile($buildd, $_, $blddir);
1650             if ($unified_info{rename}->{$library}) {
1651                 $library = $unified_info{rename}->{$library};
1652             }
1653             $unified_info{libraries}->{$library} = 1;
1654         }
1655
1656         foreach (@libraries_install) {
1657             my $library = cleanfile($buildd, $_, $blddir);
1658             if ($unified_info{rename}->{$library}) {
1659                 $library = $unified_info{rename}->{$library};
1660             }
1661             $unified_info{install}->{libraries}->{$library} = 1;
1662         }
1663
1664         die <<"EOF" if scalar @engines and !$config{dynamic_engines};
1665 ENGINES can only be used if configured with 'dynamic-engine'.
1666 This is usually a fault in a build.info file.
1667 EOF
1668         foreach (@engines) {
1669             my $library = cleanfile($buildd, $_, $blddir);
1670             if ($unified_info{rename}->{$library}) {
1671                 $library = $unified_info{rename}->{$library};
1672             }
1673             $unified_info{engines}->{$library} = 1;
1674         }
1675
1676         foreach (@engines_install) {
1677             my $library = cleanfile($buildd, $_, $blddir);
1678             if ($unified_info{rename}->{$library}) {
1679                 $library = $unified_info{rename}->{$library};
1680             }
1681             $unified_info{install}->{engines}->{$library} = 1;
1682         }
1683
1684         foreach (@scripts) {
1685             my $script = cleanfile($buildd, $_, $blddir);
1686             if ($unified_info{rename}->{$script}) {
1687                 $script = $unified_info{rename}->{$script};
1688             }
1689             $unified_info{scripts}->{$script} = 1;
1690         }
1691
1692         foreach (@scripts_install) {
1693             my $script = cleanfile($buildd, $_, $blddir);
1694             if ($unified_info{rename}->{$script}) {
1695                 $script = $unified_info{rename}->{$script};
1696             }
1697             $unified_info{install}->{scripts}->{$script} = 1;
1698         }
1699
1700         foreach (@extra) {
1701             my $extra = cleanfile($buildd, $_, $blddir);
1702             $unified_info{extra}->{$extra} = 1;
1703         }
1704
1705         foreach (@overrides) {
1706             my $override = cleanfile($buildd, $_, $blddir);
1707             $unified_info{overrides}->{$override} = 1;
1708         }
1709
1710         push @{$unified_info{rawlines}}, @rawlines;
1711
1712         unless ($disabled{shared}) {
1713             # Check sharednames.
1714             foreach (keys %sharednames) {
1715                 my $dest = cleanfile($buildd, $_, $blddir);
1716                 if ($unified_info{rename}->{$dest}) {
1717                     $dest = $unified_info{rename}->{$dest};
1718                 }
1719                 die "shared_name for $dest with multiple values: "
1720                     ,join(" ", @{$sharednames{$_}}),"\n"
1721                     if scalar @{$sharednames{$_}} > 1;
1722                 my $to = cleanfile($buildd, $sharednames{$_}->[0], $blddir);
1723                 die "shared_name found for a library $dest that isn't defined\n"
1724                     unless $unified_info{libraries}->{$dest};
1725                 die "shared_name for $dest with multiple values: "
1726                     ,$unified_info{sharednames}->{$dest}, ", ", $to
1727                     unless !defined($unified_info{sharednames}->{$dest})
1728                     or $unified_info{sharednames}->{$dest} eq $to;
1729                 $unified_info{sharednames}->{$dest} = $to;
1730             }
1731
1732             # Additionally, we set up sharednames for libraries that don't
1733             # have any, as themselves.  Only for libraries that aren't
1734             # explicitely static.
1735             foreach (grep !/\.a$/, keys %{$unified_info{libraries}}) {
1736                 if (!defined $unified_info{sharednames}->{$_}) {
1737                     $unified_info{sharednames}->{$_} = $_
1738                 }
1739             }
1740
1741             # Check that we haven't defined any library as both shared and
1742             # explicitely static.  That is forbidden.
1743             my @doubles = ();
1744             foreach (grep /\.a$/, keys %{$unified_info{libraries}}) {
1745                 (my $l = $_) =~ s/\.a$//;
1746                 push @doubles, $l if defined $unified_info{sharednames}->{$l};
1747             }
1748             die "these libraries are both explicitely static and shared:\n  ",
1749                 join(" ", @doubles), "\n"
1750                 if @doubles;
1751         }
1752
1753         foreach (keys %ordinals) {
1754             my $dest = $_;
1755             my $ddest = cleanfile($buildd, $_, $blddir);
1756             if ($unified_info{rename}->{$ddest}) {
1757                 $ddest = $unified_info{rename}->{$ddest};
1758             }
1759             foreach (@{$ordinals{$dest}}) {
1760                 my %known_ordinals =
1761                     (
1762                      crypto =>
1763                      cleanfile($sourced, catfile("util", "libcrypto.num"), $blddir),
1764                      ssl =>
1765                      cleanfile($sourced, catfile("util", "libssl.num"), $blddir)
1766                     );
1767                 my $o = $known_ordinals{$_};
1768                 die "Ordinals for $ddest defined more than once\n"
1769                     if $unified_info{ordinals}->{$ddest};
1770                 $unified_info{ordinals}->{$ddest} = [ $_, $o ];
1771             }
1772         }
1773
1774         foreach (keys %sources) {
1775             my $dest = $_;
1776             my $ddest = cleanfile($buildd, $_, $blddir);
1777             if ($unified_info{rename}->{$ddest}) {
1778                 $ddest = $unified_info{rename}->{$ddest};
1779             }
1780             foreach (@{$sources{$dest}}) {
1781                 my $s = cleanfile($sourced, $_, $blddir);
1782
1783                 # If it isn't in the source tree, we assume it's generated
1784                 # in the build tree
1785                 if (! -f $s) {
1786                     $s = cleanfile($buildd, $_, $blddir);
1787                 }
1788                 # We recognise C++, C and asm files
1789                 if ($s =~ /\.(cc|cpp|c|s|S)$/) {
1790                     my $o = $_;
1791                     $o =~ s/\.[csS]$/.o/; # C and assembler
1792                     $o =~ s/\.(cc|cpp)$/_cc.o/; # C++
1793                     $o = cleanfile($buildd, $o, $blddir);
1794                     $unified_info{sources}->{$ddest}->{$o} = 1;
1795                     $unified_info{sources}->{$o}->{$s} = 1;
1796                 } else {
1797                     $unified_info{sources}->{$ddest}->{$s} = 1;
1798                 }
1799             }
1800         }
1801
1802         foreach (keys %shared_sources) {
1803             my $dest = $_;
1804             my $ddest = cleanfile($buildd, $_, $blddir);
1805             if ($unified_info{rename}->{$ddest}) {
1806                 $ddest = $unified_info{rename}->{$ddest};
1807             }
1808             foreach (@{$shared_sources{$dest}}) {
1809                 my $s = cleanfile($sourced, $_, $blddir);
1810
1811                 # If it isn't in the source tree, we assume it's generated
1812                 # in the build tree
1813                 if (! -f $s) {
1814                     $s = cleanfile($buildd, $_, $blddir);
1815                 }
1816                 # We recognise C++, C and asm files
1817                 if ($s =~ /\.(cc|cpp|c|s|S)$/) {
1818                     my $o = $_;
1819                     $o =~ s/\.[csS]$/.o/; # C and assembler
1820                     $o =~ s/\.(cc|cpp)$/_cc.o/; # C++
1821                     $o = cleanfile($buildd, $o, $blddir);
1822                     $unified_info{shared_sources}->{$ddest}->{$o} = 1;
1823                     $unified_info{sources}->{$o}->{$s} = 1;
1824                 } else {
1825                     die "unrecognised source file type for shared library: $s\n";
1826                 }
1827             }
1828         }
1829
1830         foreach (keys %generate) {
1831             my $dest = $_;
1832             my $ddest = cleanfile($buildd, $_, $blddir);
1833             if ($unified_info{rename}->{$ddest}) {
1834                 $ddest = $unified_info{rename}->{$ddest};
1835             }
1836             die "more than one generator for $dest: "
1837                     ,join(" ", @{$generate{$_}}),"\n"
1838                     if scalar @{$generate{$_}} > 1;
1839             my @generator = split /\s+/, $generate{$dest}->[0];
1840             $generator[0] = cleanfile($sourced, $generator[0], $blddir),
1841             $unified_info{generate}->{$ddest} = [ @generator ];
1842         }
1843
1844         foreach (keys %depends) {
1845             my $dest = $_;
1846             my $ddest = $dest eq "" ? "" : cleanfile($sourced, $_, $blddir);
1847
1848             # If the destination doesn't exist in source, it can only be
1849             # a generated file in the build tree.
1850             if ($ddest ne "" && ! -f $ddest) {
1851                 $ddest = cleanfile($buildd, $_, $blddir);
1852                 if ($unified_info{rename}->{$ddest}) {
1853                     $ddest = $unified_info{rename}->{$ddest};
1854                 }
1855             }
1856             foreach (@{$depends{$dest}}) {
1857                 my $d = cleanfile($sourced, $_, $blddir);
1858
1859                 # If we know it's generated, or assume it is because we can't
1860                 # find it in the source tree, we set file we depend on to be
1861                 # in the build tree rather than the source tree, and assume
1862                 # and that there are lines to build it in a BEGINRAW..ENDRAW
1863                 # section or in the Makefile template.
1864                 if (! -f $d
1865                     || (grep { $d eq $_ }
1866                         map { cleanfile($srcdir, $_, $blddir) }
1867                         grep { /\.h$/ } keys %{$unified_info{generate}})) {
1868                     $d = cleanfile($buildd, $_, $blddir);
1869                 }
1870                 # Take note if the file to depend on is being renamed
1871                 # Take extra care with files ending with .a, they should
1872                 # be treated without that extension, and the extension
1873                 # should be added back after treatment.
1874                 $d =~ /(\.a)?$/;
1875                 my $e = $1 // "";
1876                 $d = $`;
1877                 if ($unified_info{rename}->{$d}) {
1878                     $d = $unified_info{rename}->{$d};
1879                 }
1880                 $d .= $e;
1881                 $unified_info{depends}->{$ddest}->{$d} = 1;
1882                 # If we depend on a header file or a perl module, let's make
1883                 # sure it can get included
1884                 if ($dest ne "" && $d =~ /\.(h|pm)$/) {
1885                     my $i = dirname($d);
1886                     push @{$unified_info{includes}->{$ddest}->{source}}, $i
1887                         unless grep { $_ eq $i } @{$unified_info{includes}->{$ddest}->{source}};
1888                 }
1889             }
1890         }
1891
1892         foreach (keys %includes) {
1893             my $dest = $_;
1894             my $ddest = cleanfile($sourced, $_, $blddir);
1895
1896             # If the destination doesn't exist in source, it can only be
1897             # a generated file in the build tree.
1898             if (! -f $ddest) {
1899                 $ddest = cleanfile($buildd, $_, $blddir);
1900                 if ($unified_info{rename}->{$ddest}) {
1901                     $ddest = $unified_info{rename}->{$ddest};
1902                 }
1903             }
1904             foreach (@{$includes{$dest}}) {
1905                 my $is = cleandir($sourced, $_, $blddir);
1906                 my $ib = cleandir($buildd, $_, $blddir);
1907                 push @{$unified_info{includes}->{$ddest}->{source}}, $is
1908                     unless grep { $_ eq $is } @{$unified_info{includes}->{$ddest}->{source}};
1909                 push @{$unified_info{includes}->{$ddest}->{build}}, $ib
1910                     unless grep { $_ eq $ib } @{$unified_info{includes}->{$ddest}->{build}};
1911             }
1912         }
1913     }
1914
1915     ### Make unified_info a bit more efficient
1916     # One level structures
1917     foreach (("programs", "libraries", "engines", "scripts", "extra", "overrides")) {
1918         $unified_info{$_} = [ sort keys %{$unified_info{$_}} ];
1919     }
1920     # Two level structures
1921     foreach my $l1 (("install", "sources", "shared_sources", "ldadd", "depends")) {
1922         foreach my $l2 (sort keys %{$unified_info{$l1}}) {
1923             $unified_info{$l1}->{$l2} =
1924                 [ sort keys %{$unified_info{$l1}->{$l2}} ];
1925         }
1926     }
1927     # Includes
1928     foreach my $dest (sort keys %{$unified_info{includes}}) {
1929         if (defined($unified_info{includes}->{$dest}->{build})) {
1930             my @source_includes =
1931                 ( @{$unified_info{includes}->{$dest}->{source}} );
1932             $unified_info{includes}->{$dest} =
1933                 [ @{$unified_info{includes}->{$dest}->{build}} ];
1934             foreach my $inc (@source_includes) {
1935                 push @{$unified_info{includes}->{$dest}}, $inc
1936                     unless grep { $_ eq $inc } @{$unified_info{includes}->{$dest}};
1937             }
1938         } else {
1939             $unified_info{includes}->{$dest} =
1940                 [ @{$unified_info{includes}->{$dest}->{source}} ];
1941         }
1942     }
1943 }
1944
1945 # For the schemes that need it, we provide the old *_obj configs
1946 # from the *_asm_obj ones
1947 foreach (grep /_(asm|aux)_src$/, keys %target) {
1948     my $src = $_;
1949     (my $obj = $_) =~ s/_(asm|aux)_src$/_obj/;
1950     $target{$obj} = $target{$src};
1951     $target{$obj} =~ s/\.[csS]\b/.o/g; # C and assembler
1952     $target{$obj} =~ s/\.(cc|cpp)\b/_cc.o/g; # C++
1953 }
1954
1955 # Write down our configuration where it fits #########################
1956
1957 open(OUT,">configdata.pm") || die "unable to create configdata.pm: $!\n";
1958 print OUT <<"EOF";
1959 package configdata;
1960
1961 use strict;
1962 use warnings;
1963
1964 use Exporter;
1965 #use vars qw(\@ISA \@EXPORT);
1966 our \@ISA = qw(Exporter);
1967 our \@EXPORT = qw(\%config \%target \%disabled \%withargs \%unified_info \@disablables);
1968
1969 EOF
1970 print OUT "our %config = (\n";
1971 foreach (sort keys %config) {
1972     if (ref($config{$_}) eq "ARRAY") {
1973         print OUT "  ", $_, " => [ ", join(", ",
1974                                            map { quotify("perl", $_) }
1975                                            @{$config{$_}}), " ],\n";
1976     } else {
1977         print OUT "  ", $_, " => ", quotify("perl", $config{$_}), ",\n"
1978     }
1979 }
1980 print OUT <<"EOF";
1981 );
1982
1983 EOF
1984 print OUT "our %target = (\n";
1985 foreach (sort keys %target) {
1986     if (ref($target{$_}) eq "ARRAY") {
1987         print OUT "  ", $_, " => [ ", join(", ",
1988                                            map { quotify("perl", $_) }
1989                                            @{$target{$_}}), " ],\n";
1990     } else {
1991         print OUT "  ", $_, " => ", quotify("perl", $target{$_}), ",\n"
1992     }
1993 }
1994 print OUT <<"EOF";
1995 );
1996
1997 EOF
1998 print OUT "our \%available_protocols = (\n";
1999 print OUT "  tls => [ ", join(", ", map { quotify("perl", $_) } @tls), " ],\n";
2000 print OUT "  dtls => [ ", join(", ", map { quotify("perl", $_) } @dtls), " ],\n";
2001 print OUT <<"EOF";
2002 );
2003
2004 EOF
2005 print OUT "our \@disablables = (\n";
2006 foreach (@disablables) {
2007     print OUT "  ", quotify("perl", $_), ",\n";
2008 }
2009 print OUT <<"EOF";
2010 );
2011
2012 EOF
2013 print OUT "our \%disabled = (\n";
2014 foreach (sort keys %disabled) {
2015     print OUT "  ", quotify("perl", $_), " => ", quotify("perl", $disabled{$_}), ",\n";
2016 }
2017 print OUT <<"EOF";
2018 );
2019
2020 EOF
2021 print OUT "our %withargs = (\n";
2022 foreach (sort keys %withargs) {
2023     if (ref($withargs{$_}) eq "ARRAY") {
2024         print OUT "  ", $_, " => [ ", join(", ",
2025                                            map { quotify("perl", $_) }
2026                                            @{$withargs{$_}}), " ],\n";
2027     } else {
2028         print OUT "  ", $_, " => ", quotify("perl", $withargs{$_}), ",\n"
2029     }
2030 }
2031 print OUT <<"EOF";
2032 );
2033
2034 EOF
2035 if ($builder eq "unified") {
2036     my $recurse;
2037     $recurse = sub {
2038         my $indent = shift;
2039         foreach (@_) {
2040             if (ref $_ eq "ARRAY") {
2041                 print OUT " "x$indent, "[\n";
2042                 foreach (@$_) {
2043                     $recurse->($indent + 4, $_);
2044                 }
2045                 print OUT " "x$indent, "],\n";
2046             } elsif (ref $_ eq "HASH") {
2047                 my %h = %$_;
2048                 print OUT " "x$indent, "{\n";
2049                 foreach (sort keys %h) {
2050                     if (ref $h{$_} eq "") {
2051                         print OUT " "x($indent + 4), quotify("perl", $_), " => ", quotify("perl", $h{$_}), ",\n";
2052                     } else {
2053                         print OUT " "x($indent + 4), quotify("perl", $_), " =>\n";
2054                         $recurse->($indent + 8, $h{$_});
2055                     }
2056                 }
2057                 print OUT " "x$indent, "},\n";
2058             } else {
2059                 print OUT " "x$indent, quotify("perl", $_), ",\n";
2060             }
2061         }
2062     };
2063     print OUT "our %unified_info = (\n";
2064     foreach (sort keys %unified_info) {
2065         if (ref $unified_info{$_} eq "") {
2066             print OUT " "x4, quotify("perl", $_), " => ", quotify("perl", $unified_info{$_}), ",\n";
2067         } else {
2068             print OUT " "x4, quotify("perl", $_), " =>\n";
2069             $recurse->(8, $unified_info{$_});
2070         }
2071     }
2072     print OUT <<"EOF";
2073 );
2074
2075 EOF
2076 }
2077 print OUT "1;\n";
2078 close(OUT);
2079
2080 print "\n";
2081 print "PROCESSOR     =$config{processor}\n" if $config{processor};
2082 print "PERL          =$config{perl}\n";
2083 print "PERLVERSION   =$Config{version} for $Config{archname}\n";
2084 print "HASHBANGPERL  =$config{hashbangperl}\n";
2085 print "CC            =$config{cross_compile_prefix}$target{cc}\n";
2086 print "CFLAG         =$target{cflags} $config{cflags}\n";
2087 print "CXX           =$config{cross_compile_prefix}$target{cxx}\n"
2088     if defined $target{cxx};
2089 print "CXXFLAG       =$target{cxxflags} $config{cxxflags}\n"
2090     if defined $target{cxx};
2091 print "DEFINES       =",join(" ", @{$target{defines}}, @{$config{defines}}),"\n";
2092 #print "RANLIB        =", $target{ranlib} eq '$(CROSS_COMPILE)ranlib' ?
2093 #                             "$config{cross_compile_prefix}ranlib" :
2094 #                             "$target{ranlib}", "\n";
2095 print "EX_LIBS       =$target{ex_libs} $config{ex_libs}\n";
2096
2097 my %builders = (
2098     unified => sub {
2099         run_dofile(catfile($blddir, $target{build_file}),
2100                    @{$config{build_file_templates}});
2101     },
2102     );
2103
2104 $builders{$builder}->($builder_platform, @builder_opts);
2105
2106 print <<"EOF" if ($disabled{threads} eq "unavailable");
2107
2108 The library could not be configured for supporting multi-threaded
2109 applications as the compiler options required on this system are not known.
2110 See file INSTALL for details if you need multi-threading.
2111 EOF
2112
2113 print <<"EOF" if ($no_shared_warn);
2114
2115 The options 'shared', 'pic' and 'dynamic-engine' aren't supported on this
2116 platform, so we will pretend you gave the option 'no-pic', which also disables
2117 'shared' and 'dynamic-engine'.  If you know how to implement shared libraries
2118 or position independent code, please let us know (but please first make sure
2119 you have tried with a current version of OpenSSL).
2120 EOF
2121
2122 print <<"EOF" if (-f catfile($srcdir, "configdata.pm") && $srcdir ne $blddir);
2123
2124 WARNING: there are indications that another build was made in the source
2125 directory.  This build may have picked up artifacts from that build, the
2126 safest course of action is to clean the source directory and redo this
2127 configuration.
2128 EOF
2129
2130 exit(0);
2131
2132 ######################################################################
2133 #
2134 # Helpers and utility functions
2135 #
2136
2137 # Configuration file reading #########################################
2138
2139 # Note: All of the helper functions are for lazy evaluation.  They all
2140 # return a CODE ref, which will return the intended value when evaluated.
2141 # Thus, whenever there's mention of a returned value, it's about that
2142 # intended value.
2143
2144 # Helper function to implement conditional inheritance depending on the
2145 # value of $disabled{asm}.  Used in inherit_from values as follows:
2146 #
2147 #      inherit_from => [ "template", asm("asm_tmpl") ]
2148 #
2149 sub asm {
2150     my @x = @_;
2151     sub {
2152         $disabled{asm} ? () : @x;
2153     }
2154 }
2155
2156 # Helper function to implement conditional value variants, with a default
2157 # plus additional values based on the value of $config{build_type}.
2158 # Arguments are given in hash table form:
2159 #
2160 #       picker(default => "Basic string: ",
2161 #              debug   => "debug",
2162 #              release => "release")
2163 #
2164 # When configuring with --debug, the resulting string will be
2165 # "Basic string: debug", and when not, it will be "Basic string: release"
2166 #
2167 # This can be used to create variants of sets of flags according to the
2168 # build type:
2169 #
2170 #       cflags => picker(default => "-Wall",
2171 #                        debug   => "-g -O0",
2172 #                        release => "-O3")
2173 #
2174 sub picker {
2175     my %opts = @_;
2176     return sub { add($opts{default} || (),
2177                      $opts{$config{build_type}} || ())->(); }
2178 }
2179
2180 # Helper function to combine several values of different types into one.
2181 # This is useful if you want to combine a string with the result of a
2182 # lazy function, such as:
2183 #
2184 #       cflags => combine("-Wall", sub { $disabled{zlib} ? () : "-DZLIB" })
2185 #
2186 sub combine {
2187     my @stuff = @_;
2188     return sub { add(@stuff)->(); }
2189 }
2190
2191 # Helper function to implement conditional values depending on the value
2192 # of $disabled{threads}.  Can be used as follows:
2193 #
2194 #       cflags => combine("-Wall", threads("-pthread"))
2195 #
2196 sub threads {
2197     my @flags = @_;
2198     return sub { add($disabled{threads} ? () : @flags)->(); }
2199 }
2200
2201
2202
2203 our $add_called = 0;
2204 # Helper function to implement adding values to already existing configuration
2205 # values.  It handles elements that are ARRAYs, CODEs and scalars
2206 sub _add {
2207     my $separator = shift;
2208
2209     # If there's any ARRAY in the collection of values OR the separator
2210     # is undef, we will return an ARRAY of combined values, otherwise a
2211     # string of joined values with $separator as the separator.
2212     my $found_array = !defined($separator);
2213
2214     my @values =
2215         map {
2216             my $res = $_;
2217             while (ref($res) eq "CODE") {
2218                 $res = $res->();
2219             }
2220             if (defined($res)) {
2221                 if (ref($res) eq "ARRAY") {
2222                     $found_array = 1;
2223                     @$res;
2224                 } else {
2225                     $res;
2226                 }
2227             } else {
2228                 ();
2229             }
2230     } (@_);
2231
2232     $add_called = 1;
2233
2234     if ($found_array) {
2235         [ @values ];
2236     } else {
2237         join($separator, grep { defined($_) && $_ ne "" } @values);
2238     }
2239 }
2240 sub add_before {
2241     my $separator = " ";
2242     if (ref($_[$#_]) eq "HASH") {
2243         my $opts = pop;
2244         $separator = $opts->{separator};
2245     }
2246     my @x = @_;
2247     sub { _add($separator, @x, @_) };
2248 }
2249 sub add {
2250     my $separator = " ";
2251     if (ref($_[$#_]) eq "HASH") {
2252         my $opts = pop;
2253         $separator = $opts->{separator};
2254     }
2255     my @x = @_;
2256     sub { _add($separator, @_, @x) };
2257 }
2258
2259 # configuration reader, evaluates the input file as a perl script and expects
2260 # it to fill %targets with target configurations.  Those are then added to
2261 # %table.
2262 sub read_config {
2263     my $fname = shift;
2264     open(CONFFILE, "< $fname")
2265         or die "Can't open configuration file '$fname'!\n";
2266     my $x = $/;
2267     undef $/;
2268     my $content = <CONFFILE>;
2269     $/ = $x;
2270     close(CONFFILE);
2271     my %targets = ();
2272     {
2273         # Protect certain tables from tampering
2274         local %table = %::table;
2275
2276         eval $content;
2277         warn $@ if $@;
2278     }
2279
2280     # For each target, check that it's configured with a hash table.
2281     foreach (keys %targets) {
2282         if (ref($targets{$_}) ne "HASH") {
2283             if (ref($targets{$_}) eq "") {
2284                 warn "Deprecated target configuration for $_, ignoring...\n";
2285             } else {
2286                 warn "Misconfigured target configuration for $_ (should be a hash table), ignoring...\n";
2287             }
2288             delete $targets{$_};
2289         } else {
2290             $targets{$_}->{_conf_fname_int} = add([ $fname ]);
2291         }
2292     }
2293
2294     %table = (%table, %targets);
2295
2296 }
2297
2298 # configuration resolver.  Will only resolve all the lazy evaluation
2299 # codeblocks for the chosen target and all those it inherits from,
2300 # recursively
2301 sub resolve_config {
2302     my $target = shift;
2303     my @breadcrumbs = @_;
2304
2305 #    my $extra_checks = defined($ENV{CONFIGURE_EXTRA_CHECKS});
2306
2307     if (grep { $_ eq $target } @breadcrumbs) {
2308         die "inherit_from loop!  target backtrace:\n  "
2309             ,$target,"\n  ",join("\n  ", @breadcrumbs),"\n";
2310     }
2311
2312     if (!defined($table{$target})) {
2313         warn "Warning! target $target doesn't exist!\n";
2314         return ();
2315     }
2316     # Recurse through all inheritances.  They will be resolved on the
2317     # fly, so when this operation is done, they will all just be a
2318     # bunch of attributes with string values.
2319     # What we get here, though, are keys with references to lists of
2320     # the combined values of them all.  We will deal with lists after
2321     # this stage is done.
2322     my %combined_inheritance = ();
2323     if ($table{$target}->{inherit_from}) {
2324         my @inherit_from =
2325             map { ref($_) eq "CODE" ? $_->() : $_ } @{$table{$target}->{inherit_from}};
2326         foreach (@inherit_from) {
2327             my %inherited_config = resolve_config($_, $target, @breadcrumbs);
2328
2329             # 'template' is a marker that's considered private to
2330             # the config that had it.
2331             delete $inherited_config{template};
2332
2333             foreach (keys %inherited_config) {
2334                 if (!$combined_inheritance{$_}) {
2335                     $combined_inheritance{$_} = [];
2336                 }
2337                 push @{$combined_inheritance{$_}}, $inherited_config{$_};
2338             }
2339         }
2340     }
2341
2342     # We won't need inherit_from in this target any more, since we've
2343     # resolved all the inheritances that lead to this
2344     delete $table{$target}->{inherit_from};
2345
2346     # Now is the time to deal with those lists.  Here's the place to
2347     # decide what shall be done with those lists, all based on the
2348     # values of the target we're currently dealing with.
2349     # - If a value is a coderef, it will be executed with the list of
2350     #   inherited values as arguments.
2351     # - If the corresponding key doesn't have a value at all or is the
2352     #   empty string, the inherited value list will be run through the
2353     #   default combiner (below), and the result becomes this target's
2354     #   value.
2355     # - Otherwise, this target's value is assumed to be a string that
2356     #   will simply override the inherited list of values.
2357     my $default_combiner = add();
2358
2359     my %all_keys =
2360         map { $_ => 1 } (keys %combined_inheritance,
2361                          keys %{$table{$target}});
2362
2363     sub process_values {
2364         my $object    = shift;
2365         my $inherited = shift;  # Always a [ list ]
2366         my $target    = shift;
2367         my $entry     = shift;
2368
2369         $add_called = 0;
2370
2371         while(ref($object) eq "CODE") {
2372             $object = $object->(@$inherited);
2373         }
2374         if (!defined($object)) {
2375             return ();
2376         }
2377         elsif (ref($object) eq "ARRAY") {
2378             local $add_called;  # To make sure recursive calls don't affect it
2379             return [ map { process_values($_, $inherited, $target, $entry) }
2380                      @$object ];
2381         } elsif (ref($object) eq "") {
2382             return $object;
2383         } else {
2384             die "cannot handle reference type ",ref($object)
2385                 ," found in target ",$target," -> ",$entry,"\n";
2386         }
2387     }
2388
2389     foreach (sort keys %all_keys) {
2390         my $previous = $combined_inheritance{$_};
2391
2392         # Current target doesn't have a value for the current key?
2393         # Assign it the default combiner, the rest of this loop body
2394         # will handle it just like any other coderef.
2395         if (!exists $table{$target}->{$_}) {
2396             $table{$target}->{$_} = $default_combiner;
2397         }
2398
2399         $table{$target}->{$_} = process_values($table{$target}->{$_},
2400                                                $combined_inheritance{$_},
2401                                                $target, $_);
2402         unless(defined($table{$target}->{$_})) {
2403             delete $table{$target}->{$_};
2404         }
2405 #        if ($extra_checks &&
2406 #            $previous && !($add_called ||  $previous ~~ $table{$target}->{$_})) {
2407 #            warn "$_ got replaced in $target\n";
2408 #        }
2409     }
2410
2411     # Finally done, return the result.
2412     return %{$table{$target}};
2413 }
2414
2415 sub usage
2416         {
2417         print STDERR $usage;
2418         print STDERR "\npick os/compiler from:\n";
2419         my $j=0;
2420         my $i;
2421         my $k=0;
2422         foreach $i (sort keys %table)
2423                 {
2424                 next if $table{$i}->{template};
2425                 next if $i =~ /^debug/;
2426                 $k += length($i) + 1;
2427                 if ($k > 78)
2428                         {
2429                         print STDERR "\n";
2430                         $k=length($i);
2431                         }
2432                 print STDERR $i . " ";
2433                 }
2434         foreach $i (sort keys %table)
2435                 {
2436                 next if $table{$i}->{template};
2437                 next if $i !~ /^debug/;
2438                 $k += length($i) + 1;
2439                 if ($k > 78)
2440                         {
2441                         print STDERR "\n";
2442                         $k=length($i);
2443                         }
2444                 print STDERR $i . " ";
2445                 }
2446         print STDERR "\n\nNOTE: If in doubt, on Unix-ish systems use './config'.\n";
2447         exit(1);
2448         }
2449
2450 sub run_dofile
2451 {
2452     my $out = shift;
2453     my @templates = @_;
2454
2455     unlink $out || warn "Can't remove $out, $!"
2456         if -f $out;
2457     foreach (@templates) {
2458         die "Can't open $_, $!" unless -f $_;
2459     }
2460     my $perlcmd = (quotify("maybeshell", $config{perl}))[0];
2461     my $cmd = "$perlcmd \"-I.\" \"-Mconfigdata\" \"$dofile\" -o\"Configure\" \"".join("\" \"",@templates)."\" > \"$out.new\"";
2462     #print STDERR "DEBUG[run_dofile]: \$cmd = $cmd\n";
2463     system($cmd);
2464     exit 1 if $? != 0;
2465     rename("$out.new", $out) || die "Can't rename $out.new, $!";
2466 }
2467
2468 sub which
2469 {
2470     my ($name)=@_;
2471
2472     if (eval { require IPC::Cmd; 1; }) {
2473         IPC::Cmd->import();
2474         return scalar IPC::Cmd::can_run($name);
2475     } else {
2476         # if there is $directories component in splitpath,
2477         # then it's not something to test with $PATH...
2478         return $name if (File::Spec->splitpath($name))[1];
2479
2480         foreach (File::Spec->path()) {
2481             my $fullpath = catfile($_, "$name$target{exe_extension}");
2482             if (-f $fullpath and -x $fullpath) {
2483                 return $fullpath;
2484             }
2485         }
2486     }
2487 }
2488
2489 # Configuration printer ##############################################
2490
2491 sub print_table_entry
2492 {
2493     my $target = shift;
2494     my %target = resolve_config($target);
2495     my $type = shift;
2496
2497     # Don't print the templates
2498     return if $target{template};
2499
2500     my @sequence = (
2501         "sys_id",
2502         "cc",
2503         "cflags",
2504         "defines",
2505         "unistd",
2506         "ld",
2507         "lflags",
2508         "loutflag",
2509         "plib_lflags",
2510         "ex_libs",
2511         "bn_ops",
2512         "apps_aux_src",
2513         "cpuid_asm_src",
2514         "uplink_aux_src",
2515         "bn_asm_src",
2516         "ec_asm_src",
2517         "des_asm_src",
2518         "aes_asm_src",
2519         "bf_asm_src",
2520         "md5_asm_src",
2521         "cast_asm_src",
2522         "sha1_asm_src",
2523         "rc4_asm_src",
2524         "rmd160_asm_src",
2525         "rc5_asm_src",
2526         "wp_asm_src",
2527         "cmll_asm_src",
2528         "modes_asm_src",
2529         "padlock_asm_src",
2530         "chacha_asm_src",
2531         "poly1035_asm_src",
2532         "thread_scheme",
2533         "perlasm_scheme",
2534         "dso_scheme",
2535         "shared_target",
2536         "shared_cflag",
2537         "shared_defines",
2538         "shared_ldflag",
2539         "shared_rcflag",
2540         "shared_extension",
2541         "dso_extension",
2542         "obj_extension",
2543         "exe_extension",
2544         "ranlib",
2545         "ar",
2546         "arflags",
2547         "aroutflag",
2548         "rc",
2549         "rcflags",
2550         "rcoutflag",
2551         "mt",
2552         "mtflags",
2553         "mtinflag",
2554         "mtoutflag",
2555         "multilib",
2556         "build_scheme",
2557         );
2558
2559     if ($type eq "TABLE") {
2560         print "\n";
2561         print "*** $target\n";
2562         foreach (@sequence) {
2563             if (ref($target{$_}) eq "ARRAY") {
2564                 printf "\$%-12s = %s\n", $_, join(" ", @{$target{$_}});
2565             } else {
2566                 printf "\$%-12s = %s\n", $_, $target{$_};
2567             }
2568         }
2569     } elsif ($type eq "HASH") {
2570         my $largest =
2571             length((sort { length($a) <=> length($b) } @sequence)[-1]);
2572         print "    '$target' => {\n";
2573         foreach (@sequence) {
2574             if ($target{$_}) {
2575                 if (ref($target{$_}) eq "ARRAY") {
2576                     print "      '",$_,"'"," " x ($largest - length($_))," => [ ",join(", ", map { "'$_'" } @{$target{$_}})," ],\n";
2577                 } else {
2578                     print "      '",$_,"'"," " x ($largest - length($_))," => '",$target{$_},"',\n";
2579                 }
2580             }
2581         }
2582         print "    },\n";
2583     }
2584 }
2585
2586 # Utility routines ###################################################
2587
2588 # On VMS, if the given file is a logical name, File::Spec::Functions
2589 # will consider it an absolute path.  There are cases when we want a
2590 # purely syntactic check without checking the environment.
2591 sub isabsolute {
2592     my $file = shift;
2593
2594     # On non-platforms, we just use file_name_is_absolute().
2595     return file_name_is_absolute($file) unless $^O eq "VMS";
2596
2597     # If the file spec includes a device or a directory spec,
2598     # file_name_is_absolute() is perfectly safe.
2599     return file_name_is_absolute($file) if $file =~ m|[:\[]|;
2600
2601     # Here, we know the given file spec isn't absolute
2602     return 0;
2603 }
2604
2605 # Makes a directory absolute and cleans out /../ in paths like foo/../bar
2606 # On some platforms, this uses rel2abs(), while on others, realpath() is used.
2607 # realpath() requires that at least all path components except the last is an
2608 # existing directory.  On VMS, the last component of the directory spec must
2609 # exist.
2610 sub absolutedir {
2611     my $dir = shift;
2612
2613     # realpath() is quite buggy on VMS.  It uses LIB$FID_TO_NAME, which
2614     # will return the volume name for the device, no matter what.  Also,
2615     # it will return an incorrect directory spec if the argument is a
2616     # directory that doesn't exist.
2617     if ($^O eq "VMS") {
2618         return rel2abs($dir);
2619     }
2620
2621     # We use realpath() on Unix, since no other will properly clean out
2622     # a directory spec.
2623     use Cwd qw/realpath/;
2624
2625     return realpath($dir);
2626 }
2627
2628 sub quotify {
2629     my %processors = (
2630         perl    => sub { my $x = shift;
2631                          $x =~ s/([\\\$\@"])/\\$1/g;
2632                          return '"'.$x.'"'; },
2633         maybeshell => sub { my $x = shift;
2634                             (my $y = $x) =~ s/([\\\"])/\\$1/g;
2635                             if ($x ne $y || $x =~ m|\s|) {
2636                                 return '"'.$y.'"';
2637                             } else {
2638                                 return $x;
2639                             }
2640                         },
2641         );
2642     my $for = shift;
2643     my $processor =
2644         defined($processors{$for}) ? $processors{$for} : sub { shift; };
2645
2646     return map { $processor->($_); } @_;
2647 }
2648
2649 # collect_from_file($filename, $line_concat_cond_re, $line_concat)
2650 # $filename is a file name to read from
2651 # $line_concat_cond_re is a regexp detecting a line continuation ending
2652 # $line_concat is a CODEref that takes care of concatenating two lines
2653 sub collect_from_file {
2654     my $filename = shift;
2655     my $line_concat_cond_re = shift;
2656     my $line_concat = shift;
2657
2658     open my $fh, $filename || die "unable to read $filename: $!\n";
2659     return sub {
2660         my $saved_line = "";
2661         $_ = "";
2662         while (<$fh>) {
2663             s|\R$||;
2664             if (defined $line_concat) {
2665                 $_ = $line_concat->($saved_line, $_);
2666                 $saved_line = "";
2667             }
2668             if (defined $line_concat_cond_re && /$line_concat_cond_re/) {
2669                 $saved_line = $_;
2670                 next;
2671             }
2672             return $_;
2673         }
2674         die "$filename ending with continuation line\n" if $_;
2675         close $fh;
2676         return undef;
2677     }
2678 }
2679
2680 # collect_from_array($array, $line_concat_cond_re, $line_concat)
2681 # $array is an ARRAYref of lines
2682 # $line_concat_cond_re is a regexp detecting a line continuation ending
2683 # $line_concat is a CODEref that takes care of concatenating two lines
2684 sub collect_from_array {
2685     my $array = shift;
2686     my $line_concat_cond_re = shift;
2687     my $line_concat = shift;
2688     my @array = (@$array);
2689
2690     return sub {
2691         my $saved_line = "";
2692         $_ = "";
2693         while (defined($_ = shift @array)) {
2694             s|\R$||;
2695             if (defined $line_concat) {
2696                 $_ = $line_concat->($saved_line, $_);
2697                 $saved_line = "";
2698             }
2699             if (defined $line_concat_cond_re && /$line_concat_cond_re/) {
2700                 $saved_line = $_;
2701                 next;
2702             }
2703             return $_;
2704         }
2705         die "input text ending with continuation line\n" if $_;
2706         return undef;
2707     }
2708 }
2709
2710 # collect_information($lineiterator, $line_continue, $regexp => $CODEref, ...)
2711 # $lineiterator is a CODEref that delivers one line at a time.
2712 # All following arguments are regex/CODEref pairs, where the regexp detects a
2713 # line and the CODEref does something with the result of the regexp.
2714 sub collect_information {
2715     my $lineiterator = shift;
2716     my %collectors = @_;
2717
2718     while(defined($_ = $lineiterator->())) {
2719         s|\R$||;
2720         my $found = 0;
2721         if ($collectors{"BEFORE"}) {
2722             $collectors{"BEFORE"}->($_);
2723         }
2724         foreach my $re (keys %collectors) {
2725             if ($re !~ /^OTHERWISE|BEFORE|AFTER$/ && /$re/) {
2726                 $collectors{$re}->($lineiterator);
2727                 $found = 1;
2728             };
2729         }
2730         if ($collectors{"OTHERWISE"}) {
2731             $collectors{"OTHERWISE"}->($lineiterator, $_)
2732                 unless $found || !defined $collectors{"OTHERWISE"};
2733         }
2734         if ($collectors{"AFTER"}) {
2735             $collectors{"AFTER"}->($_);
2736         }
2737     }
2738 }
2739
2740 # tokenize($line)
2741 # $line is a line of text to split up into tokens
2742 # returns a list of tokens
2743 #
2744 # Tokens are divided by spaces.  If the tokens include spaces, they
2745 # have to be quoted with single or double quotes.  Double quotes
2746 # inside a double quoted token must be escaped.  Escaping is done
2747 # with backslash.
2748 # Basically, the same quoting rules apply for " and ' as in any
2749 # Unix shell.
2750 sub tokenize {
2751     my $line = my $debug_line = shift;
2752     my @result = ();
2753
2754     while ($line =~ s|^\s+||, $line ne "") {
2755         my $token = "";
2756         while ($line ne "" && $line !~ m|^\s|) {
2757             if ($line =~ m/^"((?:[^"\\]+|\\.)*)"/) {
2758                 $token .= $1;
2759                 $line = $';
2760             } elsif ($line =~ m/^'([^']*)'/) {
2761                 $token .= $1;
2762                 $line = $';
2763             } elsif ($line =~ m/^(\S+)/) {
2764                 $token .= $1;
2765                 $line = $';
2766             }
2767         }
2768         push @result, $token;
2769     }
2770
2771     if ($ENV{CONFIGURE_DEBUG_TOKENIZE}) {
2772         print STDERR "DEBUG[tokenize]: Parsed '$debug_line' into:\n";
2773         print STDERR "DEBUG[tokenize]: ('", join("', '", @result), "')\n";
2774     }
2775     return @result;
2776 }