BUF_strndup: tidy
[openssl.git] / Configure
1 :
2 eval 'exec perl -S $0 ${1+"$@"}'
3     if $running_under_some_shell;
4 ##
5 ##  Configure -- OpenSSL source tree configuration script
6 ##  If editing this file, run this command before committing
7 ##      make -f Makefile.org TABLE
8 ##
9
10 require 5.000;
11 use strict;
12 use File::Basename;
13 use File::Spec::Functions;
14
15 # see INSTALL for instructions.
16
17 my $usage="Usage: Configure [no-<cipher> ...] [enable-<cipher> ...] [experimental-<cipher> ...] [-Dxxx] [-lxxx] [-Lxxx] [-fxxx] [-Kxxx] [no-hw-xxx|no-hw] [[no-]threads] [[no-]shared] [[no-]zlib|zlib-dynamic] [no-asm] [no-dso] [sctp] [386] [--prefix=DIR] [--openssldir=OPENSSLDIR] [--with-xxx[=vvv]] [--test-sanity] [--config=FILE] os/compiler[:flags]\n";
18
19 # Options:
20 #
21 # --config      add the given configuration file, which will be read after
22 #               any "Configurations*" files that are found in the same
23 #               directory as this script.
24 # --openssldir  install OpenSSL in OPENSSLDIR (Default: DIR/ssl if the
25 #               --prefix option is given; /usr/local/ssl otherwise)
26 # --prefix      prefix for the OpenSSL include, lib and bin directories
27 #               (Default: the OPENSSLDIR directory)
28 #
29 # --install_prefix  Additional prefix for package builders (empty by
30 #               default).  This needn't be set in advance, you can
31 #               just as well use "make INSTALL_PREFIX=/whatever install".
32 #
33 # --test-sanity Make a number of sanity checks on the data in this file.
34 #               This is a debugging tool for OpenSSL developers.
35 #
36 # --cross-compile-prefix Add specified prefix to binutils components.
37 #
38 # no-hw-xxx     do not compile support for specific crypto hardware.
39 #               Generic OpenSSL-style methods relating to this support
40 #               are always compiled but return NULL if the hardware
41 #               support isn't compiled.
42 # no-hw         do not compile support for any crypto hardware.
43 # [no-]threads  [don't] try to create a library that is suitable for
44 #               multithreaded applications (default is "threads" if we
45 #               know how to do it)
46 # [no-]shared   [don't] try to create shared libraries when supported.
47 # no-asm        do not use assembler
48 # no-dso        do not compile in any native shared-library methods. This
49 #               will ensure that all methods just return NULL.
50 # [no-]zlib     [don't] compile support for zlib compression.
51 # zlib-dynamic  Like "zlib", but the zlib library is expected to be a shared
52 #               library and will be loaded in run-time by the OpenSSL library.
53 # sctp          include SCTP support
54 # 386           generate 80386 code
55 # no-sse2       disables IA-32 SSE2 code, above option implies no-sse2
56 # no-<cipher>   build without specified algorithm (rsa, idea, rc5, ...)
57 # -<xxx> +<xxx> compiler options are passed through
58 #
59 # DEBUG_SAFESTACK use type-safe stacks to enforce type-safety on stack items
60 #               provided to stack calls. Generates unique stack functions for
61 #               each possible stack type.
62 # DES_PTR       use pointer lookup vs arrays in the DES in crypto/des/des_locl.h
63 # DES_RISC1     use different DES_ENCRYPT macro that helps reduce register
64 #               dependancies but needs to more registers, good for RISC CPU's
65 # DES_RISC2     A different RISC variant.
66 # DES_UNROLL    unroll the inner DES loop, sometimes helps, somtimes hinders.
67 # DES_INT       use 'int' instead of 'long' for DES_LONG in crypto/des/des.h
68 #               This is used on the DEC Alpha where long is 8 bytes
69 #               and int is 4
70 # BN_LLONG      use the type 'long long' in crypto/bn/bn.h
71 # MD2_CHAR      use 'char' instead of 'int' for MD2_INT in crypto/md2/md2.h
72 # MD2_LONG      use 'long' instead of 'int' for MD2_INT in crypto/md2/md2.h
73 # IDEA_SHORT    use 'short' instead of 'int' for IDEA_INT in crypto/idea/idea.h
74 # IDEA_LONG     use 'long' instead of 'int' for IDEA_INT in crypto/idea/idea.h
75 # RC2_SHORT     use 'short' instead of 'int' for RC2_INT in crypto/rc2/rc2.h
76 # RC2_LONG      use 'long' instead of 'int' for RC2_INT in crypto/rc2/rc2.h
77 # RC4_CHAR      use 'char' instead of 'int' for RC4_INT in crypto/rc4/rc4.h
78 # RC4_LONG      use 'long' instead of 'int' for RC4_INT in crypto/rc4/rc4.h
79 # RC4_INDEX     define RC4_INDEX in crypto/rc4/rc4_locl.h.  This turns on
80 #               array lookups instead of pointer use.
81 # RC4_CHUNK     enables code that handles data aligned at long (natural CPU
82 #               word) boundary.
83 # RC4_CHUNK_LL  enables code that handles data aligned at long long boundary
84 #               (intended for 64-bit CPUs running 32-bit OS).
85 # BF_PTR        use 'pointer arithmatic' for Blowfish (unsafe on Alpha).
86 # BF_PTR2       intel specific version (generic version is more efficient).
87 #
88 # Following are set automatically by this script
89 #
90 # MD5_ASM       use some extra md5 assember,
91 # SHA1_ASM      use some extra sha1 assember, must define L_ENDIAN for x86
92 # RMD160_ASM    use some extra ripemd160 assember,
93 # SHA256_ASM    sha256_block is implemented in assembler
94 # SHA512_ASM    sha512_block is implemented in assembler
95 # AES_ASM       ASE_[en|de]crypt is implemented in assembler
96
97 # Minimum warning options... any contributions to OpenSSL should at least get
98 # past these.
99
100 my $gcc_devteam_warn = "-Wall -pedantic -DPEDANTIC -Wno-long-long -Wsign-compare -Wmissing-prototypes -Wshadow -Wformat -Wtype-limits -Werror -DCRYPTO_MDEBUG_ALL -DCRYPTO_MDEBUG_ABORT -DREF_CHECK -DDEBUG_UNUSED";
101
102 # These are used in addition to $gcc_devteam_warn when the compiler is clang.
103 # TODO(openssl-team): fix problems and investigate if (at least) the
104 # following warnings can also be enabled:
105 # -Wswitch-enum, -Wunused-macros, -Wmissing-field-initializers,
106 # -Wcast-align,
107 # -Wunreachable-code -Wunused-parameter -Wlanguage-extension-token
108 # -Wextended-offsetof
109 my $clang_devteam_warn = "-Wno-unused-parameter -Wno-missing-field-initializers -Wno-language-extension-token -Wno-extended-offsetof -Wconditional-uninitialized -Qunused-arguments -Wincompatible-pointer-types-discards-qualifiers -Wmissing-variable-declarations";
110
111 my $strict_warnings = 0;
112
113 my $x86_gcc_des="DES_PTR DES_RISC1 DES_UNROLL";
114
115 # MD2_CHAR slags pentium pros
116 my $x86_gcc_opts="RC4_INDEX MD2_INT";
117
118 #$bits1="SIXTEEN_BIT ";
119 #$bits2="THIRTY_TWO_BIT ";
120 my $bits1="THIRTY_TWO_BIT ";
121 my $bits2="SIXTY_FOUR_BIT ";
122
123 # As for $BSDthreads. Idea is to maintain "collective" set of flags,
124 # which would cover all BSD flavors. -pthread applies to them all,
125 # but is treated differently. OpenBSD expands is as -D_POSIX_THREAD
126 # -lc_r, which is sufficient. FreeBSD 4.x expands it as -lc_r,
127 # which has to be accompanied by explicit -D_THREAD_SAFE and
128 # sometimes -D_REENTRANT. FreeBSD 5.x expands it as -lc_r, which
129 # seems to be sufficient?
130 my $BSDthreads="-pthread -D_THREAD_SAFE -D_REENTRANT";
131
132 # table of known configurations, read in from files
133 #
134 # The content of each entry can take one of two forms:
135 #
136 # - old style config-string, colon seperated fields with exactly the
137 #   following structure.:
138 #
139 #       $cc : $cflags : $unistd : $thread_cflag : $sys_id : $lflags : $bn_ops : $cpuid_obj : $bn_obj : $ec_obj : $des_obj : $aes_obj : $bf_obj : $md5_obj : $sha1_obj : $cast_obj : $rc4_obj : $rmd160_obj : $rc5_obj : $wp_obj : $cmll_obj : $modes_obj : $engines_obj : $perlasm_scheme : $dso_scheme : $shared_target : $shared_cflag : $shared_ldflag : $shared_extension : $ranlib : $arflags : $multilib
140 #
141 #   We use the stringtohash function - defined below - to combine with the
142 #   fields and form a proper hash table from the string.
143 #
144 # - direct transfer of old style config string to hash table, using the names
145 #   of the fields as keys:
146 #
147 #       {
148 #         cc => $cc,
149 #         cflags => $cflags,
150 #         unistd => $unistd,
151 #         thread_cflag => $thread_cflag,
152 #         sys_id => $sys_id,
153 #         lflags => $lflags,
154 #         bn_ops => $bn_ops,
155 #         cpuid_obj => $cpuid_obj,
156 #         bn_obj => $bn_obj,
157 #         ec_obj => $ec_obj,
158 #         des_obj => $des_obj,
159 #         aes_obj => $aes_obj,
160 #         bf_obj => $bf_obj,
161 #         md5_obj => $md5_obj,
162 #         sha1_obj => $sha1_obj,
163 #         cast_obj => $cast_obj,
164 #         rc4_obj => $rc4_obj,
165 #         rmd160_obj => $rmd160_obj,
166 #         rc5_obj => $rc5_obj,
167 #         wp_obj => $wp_obj,
168 #         cmll_obj => $cmll_obj,
169 #         modes_obj => $modes_obj,
170 #         engines_obj => $engines_obj,
171 #         perlasm_scheme => $perlasm_scheme,
172 #         dso_scheme => $dso_scheme,
173 #         shared_target => $shared_target,
174 #         shared_cflag => $shared_cflag,
175 #         shared_ldflag => $shared_ldflag,
176 #         shared_extension => $shared_extension,
177 #         ranlib => $ranlib,
178 #         arflags => $arflags,
179 #         multilib => $multilib
180 #       }
181 #
182 # - new style config hash table, which has additional attributes for debug
183 #   and non-debug flags to be added to the common flags, for cflags and lflags:
184 #
185 #       {
186 #         cc => $cc,
187 #         cflags => $cflags,
188 #         debug_cflags => $debug_cflags,
189 #         release_cflags => $release_cflags,
190 #         unistd => $unistd,
191 #         thread_cflag => $thread_cflag,
192 #         sys_id => $sys_id,
193 #         lflags => $lflags,
194 #         debug_lflags => $debug_lflags,
195 #         release_lflags => $release_lflags,
196 #         bn_ops => $bn_ops,
197 #         cpuid_obj => $cpuid_obj,
198 #         bn_obj => $bn_obj,
199 #         ec_obj => $ec_obj,
200 #         des_obj => $des_obj,
201 #         aes_obj => $aes_obj,
202 #         bf_obj => $bf_obj,
203 #         md5_obj => $md5_obj,
204 #         sha1_obj => $sha1_obj,
205 #         cast_obj => $cast_obj,
206 #         rc4_obj => $rc4_obj,
207 #         rmd160_obj => $rmd160_obj,
208 #         rc5_obj => $rc5_obj,
209 #         wp_obj => $wp_obj,
210 #         cmll_obj => $cmll_obj,
211 #         modes_obj => $modes_obj,
212 #         engines_obj => $engines_obj,
213 #         dso_scheme => $dso_scheme,
214 #         shared_target => $shared_target,
215 #         shared_cflag => $shared_cflag,
216 #         shared_ldflag => $shared_ldflag,
217 #         shared_extension => $shared_extension,
218 #         ranlib => $ranlib,
219 #         arflags => $arflags,
220 #         multilib => $multilib
221 #       }
222 #
223 # The configuration reader will do what it can to translate everything into
224 # new style config hash tables, including merging $target and debug-$target
225 # if they are similar enough.
226 #
227 # The configuration hashes can refer to templates in two different manners:
228 #
229 # - as part of the hash, one can have a key called 'inherit_from' that
230 #   indicate what other configuration hashes to inherit data from.
231 #   These are resolved recursively.
232 #
233 #   Inheritance works as a set of default values that can be overriden
234 #   by corresponding attribute values in the inheriting configuration.
235 #
236 #   If several configurations are given in the 'inherit_from' array, the
237 #   values of same attribute are concatenated with space separation.
238 #   With this, it's possible to have several smaller templates for
239 #   different configuration aspects that can be combined into a complete
240 #   configuration.
241 #
242 #   Example:
243 #
244 #       "foo" => {
245 #               template => 1,
246 #               haha => "haha",
247 #               hoho => "ho"
248 #       },
249 #       "bar" => {
250 #               template => 1,
251 #               hoho => "ho",
252 #               hehe => "hehe"
253 #       },
254 #       "laughter" => {
255 #               inherit_from => [ "foo", "bar" ],
256 #       }
257 #
258 #       The entry for "foo" will become as follows after processing:
259 #
260 #       "laughter" => {
261 #               haha => "haha",
262 #               hoho => "ho ho",
263 #               hehe => "hehe"
264 #       }
265 #
266 #   Note 1: any entry from the table can be used as a template.
267 #   Note 2: pure templates have the attribute 'template => 1' and cannot
268 #           be used as targets.
269 #
270 # - instead of a string, one can have a code block of the form
271 #   'sub { /* your code here */ }', where the arguments are the list of
272 #   inherited values for that key.  In fact, the concatenation of strings
273 #   is really done by using 'sub { join(" ",@_) }' on the list of inherited
274 #   values.
275 #
276 #   Example:
277 #
278 #       "foo" => {
279 #               template => 1,
280 #               haha => "ha ha",
281 #               hoho => "ho",
282 #               ignored => "This should not appear in the end result",
283 #       },
284 #       "bar" => {
285 #               template => 1,
286 #               haha => "ah",
287 #               hoho => "haho",
288 #               hehe => "hehe"
289 #       },
290 #       "laughter" => {
291 #               inherit_from => [ "foo", "bar" ],
292 #               hehe => sub { join(" ",(@_,"!!!")) },
293 #               ignored => "",
294 #       }
295 #
296 #       The entry for "foo" will become as follows after processing:
297 #
298 #       "laughter" => {
299 #               haha => "ha ha ah",
300 #               hoho => "ho haho",
301 #               hehe => "hehe !!!",
302 #               ignored => ""
303 #       }
304 #
305
306 my %table=(
307
308     # All these templates are merely a translation of the corresponding
309     # variables further up.
310     #
311     # Note: as long as someone might use old style configuration strings,
312     # or we bother supporting that, those variables need to stay
313
314     x86_asm => {
315         template        => 1,
316         cpuid_obj       => "x86cpuid.o",
317         bn_obj          => "bn-586.o co-586.o x86-mont.o x86-gf2m.o",
318         ec_obj          => "ecp_nistz256.o ecp_nistz256-x86.o",
319         des_obj         => "des-586.o crypt586.o",
320         aes_obj         => "aes-586.o vpaes-x86.o aesni-x86.o",
321         bf_obj          => "bf-586.o",
322         md5_obj         => "md5-586.o",
323         sha1_obj        => "sha1-586.o sha256-586.o sha512-586.o",
324         rc4_obj         => "rc4-586.o",
325         rmd160_obj      => "rmd-586.o",
326         rc5_obj         => "rc5-586.o",
327         wp_obj          => "wp_block.o wp-mmx.o",
328         cmll_obj        => "cmll-x86.o",
329         modes_obj       => "ghash-x86.o",
330         engines_obj     => "e_padlock-x86.o"
331     },
332     x86_elf_asm => {
333         template        => 1,
334         inherit_from    => [ "x86_asm" ],
335         perlasm_scheme  => "elf"
336     },
337     x86_64_asm => {
338         template        => 1,
339         cpuid_obj       => "x86_64cpuid.o",
340         bn_obj          => "x86_64-gcc.o x86_64-mont.o x86_64-mont5.o x86_64-gf2m.o rsaz_exp.o rsaz-x86_64.o rsaz-avx2.o",
341         ec_obj          => "ecp_nistz256.o ecp_nistz256-x86_64.o",
342         aes_obj         => "aes-x86_64.o vpaes-x86_64.o bsaes-x86_64.o aesni-x86_64.o aesni-sha1-x86_64.o aesni-sha256-x86_64.o aesni-mb-x86_64.o",
343         md5_obj         => "md5-x86_64.o",
344         sha1_obj        => "sha1-x86_64.o sha256-x86_64.o sha512-x86_64.o sha1-mb-x86_64.o sha256-mb-x86_64.o",
345         rc4_obj         => "rc4-x86_64.o rc4-md5-x86_64.o",
346         wp_obj          => "wp-x86_64.o",
347         cmll_obj        => "cmll-x86_64.o cmll_misc.o",
348         modes_obj       => "ghash-x86_64.o aesni-gcm-x86_64.o",
349         engines_obj     => "e_padlock-x86_64.o"
350     },
351     ia64_asm => {
352         template        => 1,
353         cpuid_obj       => "ia64cpuid.o",
354         bn_obj          => "bn-ia64.o ia64-mont.o",
355         aes_obj         => "aes_core.o aes_cbc.o aes-ia64.o",
356         md5_obj         => "md5-ia64.o",
357         sha1_obj        => "sha1-ia64.o sha256-ia64.o sha512-ia64.o",
358         rc4_obj         => "rc4-ia64.o rc4_skey.o",
359         modes_obj       => "ghash-ia64.o",
360         perlasm_scheme  => "void"
361     },
362     sparcv9_asm => {
363         template        => 1,
364         cpuid_obj       => "sparcv9cap.o sparccpuid.o",
365         bn_obj          => "bn-sparcv9.o sparcv9-mont.o sparcv9a-mont.o vis3-mont.o sparct4-mont.o sparcv9-gf2m.o",
366         ec_obj          => "ecp_nistz256.o ecp_nistz256-sparcv9.o",
367         des_obj         => "des_enc-sparc.o fcrypt_b.o dest4-sparcv9.o",
368         aes_obj         => "aes_core.o aes_cbc.o aes-sparcv9.o aest4-sparcv9.o",
369         md5_obj         => "md5-sparcv9.o",
370         sha1_obj        => "sha1-sparcv9.o sha256-sparcv9.o sha512-sparcv9.o",
371         cmll_obj        => "camellia.o cmll_misc.o cmll_cbc.o cmllt4-sparcv9.o",
372         modes_obj       => "ghash-sparcv9.o",
373         perlasm_scheme  => "void"
374     },
375     sparcv8_asm => {
376         template        => 1,
377         cpuid_obj       => "",
378         bn_obj          => "sparcv8.o",
379         des_obj         => "des_enc-sparc.o fcrypt_b.o",
380         perlasm_scheme  => "void"
381     },
382     alpha_asm => {
383         template        => 1,
384         cpuid_obj       => "alphacpuid.o",
385         bn_obj          => "bn_asm.o alpha-mont.o",
386         sha1_obj        => "sha1-alpha.o",
387         modes_obj       => "ghash-alpha.o",
388         perlasm_scheme  => "void"
389     },
390     mips32_asm => {
391         template        => 1,
392         bn_obj          => "bn-mips.o mips-mont.o",
393         aes_obj         => "aes_cbc.o aes-mips.o",
394         sha1_obj        => "sha1-mips.o sha256-mips.o",
395     },
396     mips64_asm => {
397         inherit_from    => [ "mips32_asm" ],
398         template        => 1,
399         sha1_obj        => sub { join(" ", @_, "sha512-mips.o") }
400     },
401     s390x_asm => {
402         template        => 1,
403         cpuid_obj       => "s390xcap.o s390xcpuid.o",
404         bn_obj          => "bn-s390x.o s390x-mont.o s390x-gf2m.o",
405         aes_obj         => "aes-s390x.o aes-ctr.o aes-xts.o",
406         sha1_obj        => "sha1-s390x.o sha256-s390x.o sha512-s390x.o",
407         rc4_obj         => "rc4-s390x.o",
408         modes_obj       => "ghash-s390x.o",
409     },
410     armv4_asm => {
411         template        => 1,
412         cpuid_obj       => "armcap.o armv4cpuid.o",
413         bn_obj          => "bn_asm.o armv4-mont.o armv4-gf2m.o",
414         ec_obj          => "ecp_nistz256.o ecp_nistz256-armv4.o",
415         aes_obj         => "aes_cbc.o aes-armv4.o bsaes-armv7.o aesv8-armx.o",
416         sha1_obj        => "sha1-armv4-large.o sha256-armv4.o sha512-armv4.o",
417         modes_obj       => "ghash-armv4.o ghashv8-armx.o",
418         perlasm_scheme  => "void"
419     },
420     aarch64_asm => {
421         template        => 1,
422         cpuid_obj       => "armcap.o arm64cpuid.o mem_clr.o",
423         ec_obj          => "ecp_nistz256.o ecp_nistz256-armv8.o",
424         bn_obj          => "bn_asm.o armv8-mont.o",
425         aes_obj         => "aes_core.o aes_cbc.o aesv8-armx.o vpaes-armv8.o",
426         sha1_obj        => "sha1-armv8.o sha256-armv8.o sha512-armv8.o",
427         modes_obj       => "ghashv8-armx.o",
428     },
429     parisc11_asm => {
430         template        => 1,
431         cpuid_obj       => "pariscid.o",
432         bn_obj          => "bn_asm.o parisc-mont.o",
433         aes_obj         => "aes_core.o aes_cbc.o aes-parisc.o",
434         sha1_obj        => "sha1-parisc.o sha256-parisc.o sha512-parisc.o",
435         rc4_obj         => "rc4-parisc.o",
436         modes_obj       => "ghash-parisc.o",
437         perlasm_scheme  => "32"
438     },
439     parisc20_64_asm => {
440         template        => 1,
441         inherit_from    => [ "parisc11_asm" ],
442         bn_obj          => sub { my $r=join(" ",@_); $r=~s/bn_asm/pa-risc2W/; $r; },
443         perlasm_scheme  => "64",
444     },
445     ppc64_asm => {
446         template        => 1,
447         cpuid_obj       => "ppccpuid.o ppccap.o",
448         bn_obj          => "bn-ppc.o ppc-mont.o ppc64-mont.o",
449         aes_obj         => "aes_core.o aes_cbc.o aes-ppc.o vpaes-ppc.o aesp8-ppc.o",
450         sha1_obj        => "sha1-ppc.o sha256-ppc.o sha512-ppc.o sha256p8-ppc.o sha512p8-ppc.o",
451         modes_obj       => "ghashp8-ppc.o",
452     },
453     ppc32_asm => {
454         inherit_from    => [ "ppc64_asm" ],
455         template        => 1
456     },
457 );
458
459 {   my $no_asm_templates=0;
460     foreach (@ARGV) { $no_asm_templates=1 if (/^\-?no\-asm$/); }
461     sub asm { $no_asm_templates?():@_; }
462 }
463
464
465 sub stringtohash {
466     my $in = shift @_;
467     if (ref($in) eq "HASH") {
468         return $in;
469     }
470     my @stringsequence = (
471         "cc",
472         "cflags",
473         "unistd",
474         "thread_cflag",
475         "sys_id",
476         "lflags",
477         "bn_ops",
478         "cpuid_obj",
479         "bn_obj",
480         "ec_obj",
481         "des_obj",
482         "aes_obj",
483         "bf_obj",
484         "md5_obj",
485         "sha1_obj",
486         "cast_obj",
487         "rc4_obj",
488         "rmd160_obj",
489         "rc5_obj",
490         "wp_obj",
491         "cmll_obj",
492         "modes_obj",
493         "engines_obj",
494         "perlasm_scheme",
495         "dso_scheme",
496         "shared_target",
497         "shared_cflag",
498         "shared_ldflag",
499         "shared_extension",
500         "ranlib",
501         "arflags",
502         "multilib",
503         );
504
505     # return a ref to a hash, that's what the outer braces are for.
506     return { map { shift @stringsequence => $_ } split /:/, $in };
507 };
508
509 # Read configuration target stanzas from a file, so that people can have
510 # local files with their own definitions
511 sub read_config {
512         my $fname = shift;
513         open(CONFFILE, "< $fname")
514                 or die "Can't open configuration file '$fname'!\n";
515         my $x = $/;
516         undef $/;
517         my $content = <CONFFILE>;
518         $/ = $x;
519         close(CONFFILE);
520         my %targets = ();
521         eval $content;
522
523         # Make sure we have debug- targets first
524         my @keys =
525             sort {
526                 my $a_nd = $a =~ m/^debug-/ ? $' :$a;
527                 my $b_nd = $b =~ m/^debug-/ ? $' :$b;
528                 my $res = 0;
529
530                 if (($a_nd == $a) == ($b_nd == $b)) {
531                     # they are both debug- or not, compare them as they are
532                     $res = $a cmp $b;
533                 } elsif ($a_nd != $a) {
534                     # $a is debug-, make it lesser
535                     $res = -1;
536                 } else {
537                     # $b is debug-, make $a greater
538                     $res = 1;
539                 }
540                 $res;
541             } keys %targets;
542
543         foreach (@keys) {
544             if (ref($targets{$_}) ne "HASH") {
545                 # Value is assumed to be a string.  Split it up to
546                 # become a hash table of parameters.  Also, try to
547                 # merge debug- variants with the non-debug target.
548
549                 # Start with converting the value from a string to a
550                 # standardised hash of fields.  Using $tohash is safe,
551                 # if the input is already a hash ref, it's just returned
552                 # back.
553                 $targets{$_} = stringtohash($targets{$_});
554
555                 # If the current target is a debug target, there might
556                 # be a corresponding non-debug target that we can merge
557                 # with.  If it isn't a debug- target, we've already done
558                 # as much merging as we can and do not need to bother
559                 # with that any more.
560                 if ($_ =~ m/^debug-/) {
561                     my $debugkey = $_;
562                     my $nondebugkey = $';
563                     my $debug = $targets{$debugkey};
564                     my $nondebug;
565
566                     if ($targets{$nondebugkey}) {
567                         $nondebug = stringtohash($targets{$nondebugkey});
568                     }
569
570                     if ($nondebug) {
571                         # There's both a debug and non-debug variant of
572                         # this target, so we should try to merge them
573                         # together.
574
575                         # First, check that the non-debug variant isn't
576                         # already built up with all it should have.
577                         if ($nondebug->{debug_cflags}
578                             || $nondebug->{release_cflags}
579                             || $nondebug->{debug_lflags}
580                             || $nondebug->{release_lflags}) {
581                             warn "there's a debug target $debugkey to be merged with a target $nondebugkey, but the latter seems to already have both nodebug and debug information.  This requires human intervention.  Skipping $debugkey...";
582                             next;
583                         }
584
585                         # Now, check similarity.
586                         # For keys they have in common, support that
587                         # cflags and lflags can differ, otherwise they
588                         # must have exactly the same values for them
589                         # to be merged into one.
590                         my $similarenough = 1;
591                         for (keys %{$debug}) {
592                             if ($nondebug->{$_} ne $debug->{$_}
593                                 && $_ !~ m/^[cl]flags$/) {
594                                 $similarenough = 0;
595                                 last;
596                             }
597                         }
598
599                         if ($similarenough) {
600                             # Here's where the magic happens, split the
601                             # options in the debug and non-debug variants
602                             # cflags and ldflags into three strings each,
603                             # one with common flags, one with extra debug
604                             # flags and one with extra non-debug flags.
605
606                             # The result ends up in %h_nondebug, which
607                             # becomes the merged variant when we're done.
608                             # for each of cflags and lflags, they are
609                             # replaced with cflags, debug_cflags,
610                             # release_cflags and similar for lflags.
611                             #
612                             # The purpose is that 'cflags' should be
613                             # used together with 'debug_cflags' or
614                             # 'release_cflags' depending on what the
615                             # user asks for.
616                             foreach (("cflags", "lflags")) {
617                                 my @list_d = split /\s+/, $debug->{$_};
618                                 my @list_nd = split /\s+/, $nondebug->{$_};
619                                 my %presence = (); # bitmap
620                                                    # 1: present in @list_d
621                                                    # 2: present in @list_nd
622                                                    # 3: present in both
623                                 map { $presence{$_} += 1; } @list_d;
624                                 map { $presence{$_} += 2; } @list_nd;
625
626                                 delete $nondebug->{$_};
627                                 # Note: we build from the original lists to
628                                 # preserve order, it might be important
629                                 $nondebug->{"debug-".$_} =
630                                     join(" ",
631                                          grep { $presence{$_} == 1 } @list_d);
632                                 $nondebug->{"nodebug-".$_} =
633                                     join(" ",
634                                          grep { $presence{$_} == 2 } @list_nd);
635                                 $nondebug->{$_} =
636                                     join(" ",
637                                          grep { $presence{$_} == 3 } @list_d);
638                             }
639
640                             $targets{$nondebugkey} = $nondebug;
641                             delete $targets{$debugkey};
642                         }
643                     }
644                 }
645             }
646         }
647
648         %table = (%table, %targets);
649
650         # Local function to resolve inheritance
651         my $resolve_inheritance;
652         $resolve_inheritance =
653             sub {
654                 my $target = shift;
655                 my @breadcrumbs = @_;
656
657                 if (grep { $_ eq $target } @breadcrumbs) {
658                     die "inherit_from loop!  target backtrace:\n  "
659                         ,$target,"\n  ",join("\n  ", @breadcrumbs),"\n";
660                 }
661
662                 # Recurse through all inheritances.  They will be resolved on
663                 # the fly, so when this operation is done, they will all just
664                 # be a bunch of attributes with string values.
665                 # What we get here, though, are keys with references to lists
666                 # of the combined values of them all.  We will deal with lists
667                 # after this stage is done.
668                 my %combined_inheritance = ();
669                 if ($table{$target}->{inherit_from}) {
670                     foreach (@{$table{$target}->{inherit_from}}) {
671                         my %inherited_config =
672                             $resolve_inheritance->($_, $target, @breadcrumbs);
673
674                         # 'template' is a marker that's considered private to
675                         # the config that had it.
676                         delete $inherited_config{template};
677
678                         map {
679                             if (!$combined_inheritance{$_}) {
680                                 $combined_inheritance{$_} = [];
681                             }
682                             push @{$combined_inheritance{$_}}, $inherited_config{$_};
683                         } keys %inherited_config;
684                     }
685                 }
686
687                 # We won't need inherit_from in this target any more, since
688                 # we've resolved all the inheritances that lead to this
689                 delete $table{$target}->{inherit_from};
690
691                 # Now is the time to deal with those lists.  Here's the place
692                 # to decide what shall be done with those lists, all based on
693                 # the values of the target we're currently dealing with.
694                 # - If a value is a coderef, it will be executed with the list
695                 #   of inherited values as arguments.
696                 # - If the corresponding key doesn't have a value at all or is
697                 #   the emoty string, the inherited value list will be run
698                 #   through the default combiner (below), and the result
699                 #   becomes this target's value.
700                 # - Otherwise, this target's value is assumed to be a string
701                 #   that will simply override the inherited list of values.
702                 my $default_combiner = sub { join(' ',@_) };
703
704                 my %all_keys =
705                     map { $_ => 1 } (keys %combined_inheritance,
706                                      keys %{$table{$target}});
707                 foreach (sort keys %all_keys) {
708
709                     # Current target doesn't have a value for the current key?
710                     # Assign it the default combiner, the rest of this loop
711                     # body will handle it just like any other coderef.
712                     if (!exists $table{$target}->{$_}) {
713                         $table{$target}->{$_} = $default_combiner;
714                     }
715
716                     my $valuetype = ref($table{$target}->{$_});
717                     if ($valuetype eq "CODE") {
718                         # CODE reference, execute it with the inherited values
719                         # as arguments.
720                         $table{$target}->{$_} =
721                             $table{$target}->{$_}->(@{$combined_inheritance{$_}});
722                     } elsif ($valuetype eq "") {
723                         # Scalar, just leave it as is.
724                     } else {
725                         # Some other type of reference that we don't handle.
726                         # Better to abort at this point.
727                         die "cannot handle reference type $valuetype,"
728                             ," found in target $target -> $_\n";
729                     }
730                 }
731
732                 # Finally done, return the result.
733                 %{$table{$target}};
734         };
735
736         # Go through all new targets and resolve inheritance and template
737         # references.
738         foreach (keys %targets) {
739             # We're ignoring the returned values here, they are only valuable
740             # to the inner recursion of this function.
741             $resolve_inheritance->($_);
742         }
743 }
744
745 my ($vol, $dir, $dummy) = File::Spec->splitpath($0);
746 my $pattern = File::Spec->catpath($vol, $dir, "Configurations/*.conf");
747 foreach (sort glob($pattern) ) {
748     &read_config($_);
749 }
750
751 my @MK1MF_Builds=qw(VC-WIN64I VC-WIN64A
752                     debug-VC-WIN64I debug-VC-WIN64A
753                     VC-NT VC-CE VC-WIN32 debug-VC-WIN32
754                     BC-32
755                     netware-clib netware-clib-bsdsock
756                     netware-libc netware-libc-bsdsock);
757
758 my $prefix="";
759 my $libdir="";
760 my $openssldir="";
761 my $exe_ext="";
762 my $install_prefix= "$ENV{'INSTALL_PREFIX'}";
763 my $cross_compile_prefix="";
764 my $fipslibdir="/usr/local/ssl/fips-2.0/lib/";
765 my $nofipscanistercheck=0;
766 my $baseaddr="0xFB00000";
767 my $no_threads=0;
768 my $threads=0;
769 my $no_shared=0; # but "no-shared" is default
770 my $zlib=1;      # but "no-zlib" is default
771 my $no_rfc3779=0;
772 my $no_asm=0;
773 my $no_dso=0;
774 my $no_gmp=0;
775 my @skip=();
776 my $Makefile="Makefile";
777 my $des_locl="crypto/des/des_locl.h";
778 my $des ="include/openssl/des.h";
779 my $bn  ="include/openssl/bn.h";
780 my $md2 ="include/openssl/md2.h";
781 my $rc4 ="include/openssl/rc4.h";
782 my $rc4_locl="crypto/rc4/rc4_locl.h";
783 my $idea        ="include/openssl/idea.h";
784 my $rc2 ="include/openssl/rc2.h";
785 my $bf  ="crypto/bf/bf_locl.h";
786 my $bn_asm      ="bn_asm.o";
787 my $des_enc="des_enc.o fcrypt_b.o";
788 my $aes_enc="aes_core.o aes_cbc.o";
789 my $bf_enc      ="bf_enc.o";
790 my $cast_enc="c_enc.o";
791 my $rc4_enc="rc4_enc.o rc4_skey.o";
792 my $rc5_enc="rc5_enc.o";
793 my $cmll_enc="camellia.o cmll_misc.o cmll_cbc.o";
794 my $processor="";
795 my $default_ranlib;
796 my $perl;
797 my $fips=0;
798
799 # All of the following is disabled by default (RC5 was enabled before 0.9.8):
800
801 my %disabled = ( # "what"         => "comment" [or special keyword "experimental"]
802                  "deprecated" => "default",
803                  "ec_nistp_64_gcc_128" => "default",
804                  "gmp"            => "default",
805                  "jpake"          => "experimental",
806                  "md2"            => "default",
807                  "rc5"            => "default",
808                  "sctp"       => "default",
809                  "shared"         => "default",
810                  "ssl-trace"      => "default",
811                  "store"          => "experimental",
812                  "unit-test"      => "default",
813                  "zlib"           => "default",
814                  "zlib-dynamic"   => "default"
815                );
816 my @experimental = ();
817
818 # This is what $depflags will look like with the above defaults
819 # (we need this to see if we should advise the user to run "make depend"):
820 my $default_depflags = " -DOPENSSL_NO_DEPRECATED -DOPENSSL_NO_EC_NISTP_64_GCC_128 -DOPENSSL_NO_GMP -DOPENSSL_NO_JPAKE -DOPENSSL_NO_MD2 -DOPENSSL_NO_RC5 -DOPENSSL_NO_SCTP -DOPENSSL_NO_SSL_TRACE -DOPENSSL_NO_STORE -DOPENSSL_NO_UNIT_TEST";
821
822 # Explicit "no-..." options will be collected in %disabled along with the defaults.
823 # To remove something from %disabled, use "enable-foo" (unless it's experimental).
824 # For symmetry, "disable-foo" is a synonym for "no-foo".
825
826 # For features called "experimental" here, a more explicit "experimental-foo" is needed to enable.
827 # We will collect such requests in @experimental.
828 # To avoid accidental use of experimental features, applications will have to use -DOPENSSL_EXPERIMENTAL_FOO.
829
830
831 my $no_sse2=0;
832
833 &usage if ($#ARGV < 0);
834
835 my $flags;
836 my $depflags;
837 my $openssl_experimental_defines;
838 my $openssl_algorithm_defines;
839 my $openssl_thread_defines;
840 my $openssl_sys_defines="";
841 my $openssl_other_defines;
842 my $libs;
843 my $target;
844 my $options;
845 my $make_depend=0;
846 my %withargs=();
847 my $build_prefix = "release_";
848
849 my @argvcopy=@ARGV;
850 my $argvstring="";
851 my $argv_unprocessed=1;
852
853 while($argv_unprocessed)
854         {
855         $flags="";
856         $depflags="";
857         $openssl_experimental_defines="";
858         $openssl_algorithm_defines="";
859         $openssl_thread_defines="";
860         $openssl_sys_defines="";
861         $openssl_other_defines="";
862         $libs="";
863         $target="";
864         $options="";
865
866         $argv_unprocessed=0;
867         $argvstring=join(' ',@argvcopy);
868
869 PROCESS_ARGS:
870         foreach (@argvcopy)
871                 {
872                 s /^-no-/no-/; # some people just can't read the instructions
873
874                 # rewrite some options in "enable-..." form
875                 s /^-?-?shared$/enable-shared/;
876                 s /^sctp$/enable-sctp/;
877                 s /^threads$/enable-threads/;
878                 s /^zlib$/enable-zlib/;
879                 s /^zlib-dynamic$/enable-zlib-dynamic/;
880
881                 if (/^no-(.+)$/ || /^disable-(.+)$/)
882                         {
883                         if (!($disabled{$1} eq "experimental"))
884                                 {
885                                 if ($1 eq "ssl")
886                                         {
887                                         $disabled{"ssl3"} = "option(ssl)";
888                                         }
889                                 elsif ($1 eq "tls")
890                                         {
891                                         $disabled{"tls1"} = "option(tls)"
892                                         }
893                                 elsif ($1 eq "ssl3-method")
894                                         {
895                                         $disabled{"ssl3-method"} = "option(ssl)";
896                                         $disabled{"ssl3"} = "option(ssl)";
897                                         }
898                                 else
899                                         {
900                                         $disabled{$1} = "option";
901                                         }
902                                 }
903                         }
904                 elsif (/^enable-(.+)$/ || /^experimental-(.+)$/)
905                         {
906                         my $algo = $1;
907                         if ($disabled{$algo} eq "experimental")
908                                 {
909                                 die "You are requesting an experimental feature; please say 'experimental-$algo' if you are sure\n"
910                                         unless (/^experimental-/);
911                                 push @experimental, $algo;
912                                 }
913                         delete $disabled{$algo};
914
915                         $threads = 1 if ($algo eq "threads");
916                         }
917                 elsif (/^--test-sanity$/)
918                         {
919                         exit(&test_sanity());
920                         }
921                 elsif (/^--strict-warnings$/)
922                         {
923                         $strict_warnings = 1;
924                         }
925                 elsif (/^--debug$/)
926                         {
927                         $build_prefix = "debug_";
928                         }
929                 elsif (/^--release$/)
930                         {
931                         $build_prefix = "release_";
932                         }
933                 elsif (/^reconfigure/ || /^reconf/)
934                         {
935                         if (open(IN,"<$Makefile"))
936                                 {
937                                 while (<IN>)
938                                         {
939                                         chomp;
940                                         if (/^CONFIGURE_ARGS=(.*)/)
941                                                 {
942                                                 $argvstring=$1;
943                                                 @argvcopy=split(' ',$argvstring);
944                                                 die "Incorrect data to reconfigure, please do a normal configuration\n"
945                                                         if (grep(/^reconf/,@argvcopy));
946                                                 print "Reconfiguring with: $argvstring\n";
947                                                 $argv_unprocessed=1;
948                                                 close(IN);
949                                                 last PROCESS_ARGS;
950                                                 }
951                                         }
952                                 close(IN);
953                                 }
954                         die "Insufficient data to reconfigure, please do a normal configuration\n";
955                         }
956                 elsif (/^386$/)
957                         { $processor=386; }
958                 elsif (/^fips$/)
959                         {
960                         $fips=1;
961                         }
962                 elsif (/^rsaref$/)
963                         {
964                         # No RSAref support any more since it's not needed.
965                         # The check for the option is there so scripts aren't
966                         # broken
967                         }
968                 elsif (/^nofipscanistercheck$/)
969                         {
970                         $fips = 1;
971                         $nofipscanistercheck = 1;
972                         }
973                 elsif (/^[-+]/)
974                         {
975                         if (/^--prefix=(.*)$/)
976                                 {
977                                 $prefix=$1;
978                                 }
979                         elsif (/^--libdir=(.*)$/)
980                                 {
981                                 $libdir=$1;
982                                 }
983                         elsif (/^--openssldir=(.*)$/)
984                                 {
985                                 $openssldir=$1;
986                                 }
987                         elsif (/^--install.prefix=(.*)$/)
988                                 {
989                                 $install_prefix=$1;
990                                 }
991                         elsif (/^--with-zlib-lib=(.*)$/)
992                                 {
993                                 $withargs{"zlib-lib"}=$1;
994                                 }
995                         elsif (/^--with-zlib-include=(.*)$/)
996                                 {
997                                 $withargs{"zlib-include"}="-I$1";
998                                 }
999                         elsif (/^--with-fipslibdir=(.*)$/)
1000                                 {
1001                                 $fipslibdir="$1/";
1002                                 }
1003                         elsif (/^--with-baseaddr=(.*)$/)
1004                                 {
1005                                 $baseaddr="$1";
1006                                 }
1007                         elsif (/^--cross-compile-prefix=(.*)$/)
1008                                 {
1009                                 $cross_compile_prefix=$1;
1010                                 }
1011                         elsif (/^--config=(.*)$/)
1012                                 {
1013                                 read_config $1;
1014                                 }
1015                         elsif (/^-[lL](.*)$/ or /^-Wl,/)
1016                                 {
1017                                 $libs.=$_." ";
1018                                 }
1019                         else    # common if (/^[-+]/), just pass down...
1020                                 {
1021                                 $_ =~ s/%([0-9a-f]{1,2})/chr(hex($1))/gei;
1022                                 $flags.=$_." ";
1023                                 }
1024                         }
1025                 elsif ($_ =~ /^([^:]+):(.+)$/)
1026                         {
1027                         eval "\$table{\$1} = \"$2\""; # allow $xxx constructs in the string
1028                         $target=$1;
1029                         }
1030                 else
1031                         {
1032                         die "target already defined - $target (offending arg: $_)\n" if ($target ne "");
1033                         $target=$_;
1034                         }
1035
1036                 unless ($_ eq $target || /^no-/ || /^disable-/)
1037                         {
1038                         # "no-..." follows later after implied disactivations
1039                         # have been derived.  (Don't take this too seroiusly,
1040                         # we really only write OPTIONS to the Makefile out of
1041                         # nostalgia.)
1042
1043                         if ($options eq "")
1044                                 { $options = $_; }
1045                         else
1046                                 { $options .= " ".$_; }
1047                         }
1048                 }
1049         }
1050
1051
1052
1053 if ($processor eq "386")
1054         {
1055         $disabled{"sse2"} = "forced";
1056         }
1057
1058 if (!defined($disabled{"zlib-dynamic"}))
1059         {
1060         # "zlib-dynamic" was specifically enabled, so enable "zlib"
1061         delete $disabled{"zlib"};
1062         }
1063
1064 if (defined($disabled{"rijndael"}))
1065         {
1066         $disabled{"aes"} = "forced";
1067         }
1068 if (defined($disabled{"des"}))
1069         {
1070         $disabled{"mdc2"} = "forced";
1071         }
1072 if (defined($disabled{"ec"}))
1073         {
1074         $disabled{"ecdsa"} = "forced";
1075         $disabled{"ecdh"} = "forced";
1076         }
1077
1078 # SSL 3.0 and TLS requires MD5 and SHA and either RSA or DSA+DH
1079 if (defined($disabled{"md5"}) || defined($disabled{"sha"})
1080     || (defined($disabled{"rsa"})
1081         && (defined($disabled{"dsa"}) || defined($disabled{"dh"}))))
1082         {
1083         $disabled{"ssl3"} = "forced";
1084         $disabled{"tls1"} = "forced";
1085         }
1086
1087
1088 if (defined($disabled{"ec"}) || defined($disabled{"dsa"})
1089     || defined($disabled{"dh"}))
1090         {
1091         $disabled{"gost"} = "forced";
1092         }
1093
1094
1095 if ($target eq "TABLE") {
1096         foreach $target (sort keys %table) {
1097                 print_table_entry($target, "TABLE");
1098         }
1099         exit 0;
1100 }
1101
1102 if ($target eq "LIST") {
1103         foreach (sort keys %table) {
1104                 print;
1105                 print "\n";
1106         }
1107         exit 0;
1108 }
1109
1110 if ($target eq "HASH") {
1111         print "%table = (\n";
1112         foreach (sort keys %table) {
1113                 print_table_entry($_, "HASH");
1114         }
1115         exit 0;
1116 }
1117
1118 if ($target =~ m/^CygWin32(-.*)$/) {
1119         $target = "Cygwin".$1;
1120 }
1121
1122 print "Configuring for $target\n";
1123
1124 # Support for legacy targets having a name starting with 'debug-'
1125 my ($d, $t) = $target =~ m/^(debug-)?(.*)$/;
1126 if ($d) {
1127     $build_prefix = "debug_";
1128
1129     # If we do not find debug-foo in the table, the target is set to foo,
1130     # but only if the foo target has a noon-empty debug_cflags or debug_lflags
1131     # attribute.
1132     if (!$table{$target} && ($table{$t}->{debug_cflags}
1133                              || $table{$t}->{debug_lflags})) {
1134         $target = $t;
1135     }
1136 }
1137
1138 &usage if (!defined($table{$target})
1139            || $table{$target}->{template}
1140            || ($build_prefix eq "debug_"
1141                && $target !~ /^debug-/
1142                && !($table{$target}->{debug_cflags}
1143                     || $table{$target}->{debug_lflags})));
1144
1145 if ($fips)
1146         {
1147         delete $disabled{"shared"} if ($disabled{"shared"} eq "default");
1148         }
1149
1150 foreach (sort (keys %disabled))
1151         {
1152         $options .= " no-$_";
1153
1154         printf "    no-%-12s %-10s", $_, "[$disabled{$_}]";
1155
1156         if (/^dso$/)
1157                 { $no_dso = 1; }
1158         elsif (/^threads$/)
1159                 { $no_threads = 1; }
1160         elsif (/^shared$/)
1161                 { $no_shared = 1; }
1162         elsif (/^zlib$/)
1163                 { $zlib = 0; }
1164         elsif (/^static-engine$/)
1165                 { }
1166         elsif (/^zlib-dynamic$/)
1167                 { }
1168         elsif (/^sse2$/)
1169                 { $no_sse2 = 1; }
1170         else
1171                 {
1172                 my ($ALGO, $algo);
1173                 ($ALGO = $algo = $_) =~ tr/[\-a-z]/[_A-Z]/;
1174
1175                 if (/^asm$/ || /^err$/ || /^hw$/ || /^hw-/)
1176                         {
1177                         $openssl_other_defines .= "#define OPENSSL_NO_$ALGO\n";
1178                         print " OPENSSL_NO_$ALGO";
1179
1180                         if (/^err$/)    { $flags .= "-DOPENSSL_NO_ERR "; }
1181                         elsif (/^asm$/) { $no_asm = 1; }
1182                         }
1183                 else
1184                         {
1185                         ($ALGO,$algo) = ("RMD160","rmd160") if ($algo eq "ripemd");
1186
1187                         $openssl_algorithm_defines .= "#define OPENSSL_NO_$ALGO\n";
1188                         print " OPENSSL_NO_$ALGO";
1189
1190                         push @skip, $algo;
1191                         # fix-up crypto/directory name(s)
1192                         $skip[$#skip]="whrlpool" if $algo eq "whirlpool";
1193                         $skip[$#skip]="ripemd" if $algo eq "rmd160";
1194
1195                         print " (skip dir)";
1196
1197                         $depflags .= " -DOPENSSL_NO_$ALGO";
1198                         }
1199                 }
1200
1201         print "\n";
1202         }
1203
1204 my $exp_cflags = "";
1205
1206 foreach (sort @experimental)
1207         {
1208         my $ALGO;
1209         ($ALGO = $_) =~ tr/[a-z]/[A-Z]/;
1210
1211         # opensslconf.h will set OPENSSL_NO_... unless OPENSSL_EXPERIMENTAL_... is defined
1212         $openssl_experimental_defines .= "#define OPENSSL_NO_$ALGO\n";
1213         $exp_cflags .= " -DOPENSSL_EXPERIMENTAL_$ALGO";
1214         }
1215
1216 my $IsMK1MF=scalar grep /^$target$/,@MK1MF_Builds;
1217
1218 $exe_ext=".exe" if ($target eq "Cygwin" || $target eq "DJGPP" || $target =~ /^mingw/);
1219 $exe_ext=".nlm" if ($target =~ /netware/);
1220 $exe_ext=".pm"  if ($target =~ /vos/);
1221 $openssldir="/usr/local/ssl" if ($openssldir eq "" and $prefix eq "");
1222 $prefix=$openssldir if $prefix eq "";
1223
1224 $default_ranlib= &which("ranlib") or $default_ranlib="true";
1225 $perl=$ENV{'PERL'} or $perl=&which("perl5") or $perl=&which("perl")
1226   or $perl="perl";
1227 my $make = $ENV{'MAKE'} || "make";
1228
1229 $cross_compile_prefix=$ENV{'CROSS_COMPILE'} if $cross_compile_prefix eq "";
1230
1231 chop $openssldir if $openssldir =~ /\/$/;
1232 chop $prefix if $prefix =~ /.\/$/;
1233
1234 $openssldir=$prefix . "/ssl" if $openssldir eq "";
1235 $openssldir=$prefix . "/" . $openssldir if $openssldir !~ /(^\/|^[a-zA-Z]:[\\\/])/;
1236
1237
1238 print "IsMK1MF=$IsMK1MF\n";
1239
1240 # Allow environment CC to override compiler...
1241 my $cc = $ENV{CC} || $table{$target}->{cc};
1242
1243 # For cflags and lflags, add the debug_ or release_ attributes
1244 # Do it in such a way that no spurious space is appended (hence the grep).
1245 my $cflags = join(" ",
1246                   grep { $_ } ($table{$target}->{cflags},
1247                                $table{$target}->{$build_prefix."cflags"}));
1248 my $lflags = join(" ",
1249                   grep { $_ } ($table{$target}->{lflags},
1250                                $table{$target}->{$build_prefix."lflags"}));
1251
1252 my $unistd = $table{$target}->{unistd};
1253 my $thread_cflag = $table{$target}->{thread_cflag};
1254 my $sys_id = $table{$target}->{sys_id};
1255 my $bn_ops = $table{$target}->{bn_ops};
1256 my $cpuid_obj = $table{$target}->{cpuid_obj};
1257 my $bn_obj = $table{$target}->{bn_obj};
1258 my $ec_obj = $table{$target}->{ec_obj};
1259 my $des_obj = $table{$target}->{des_obj};
1260 my $aes_obj = $table{$target}->{aes_obj};
1261 my $bf_obj = $table{$target}->{bf_obj};
1262 my $md5_obj = $table{$target}->{md5_obj};
1263 my $sha1_obj = $table{$target}->{sha1_obj};
1264 my $cast_obj = $table{$target}->{cast_obj};
1265 my $rc4_obj = $table{$target}->{rc4_obj};
1266 my $rmd160_obj = $table{$target}->{rmd160_obj};
1267 my $rc5_obj = $table{$target}->{rc5_obj};
1268 my $wp_obj = $table{$target}->{wp_obj};
1269 my $cmll_obj = $table{$target}->{cmll_obj};
1270 my $modes_obj = $table{$target}->{modes_obj};
1271 my $engines_obj = $table{$target}->{engines_obj};
1272 my $perlasm_scheme = $table{$target}->{perlasm_scheme};
1273 my $dso_scheme = $table{$target}->{dso_scheme};
1274 my $shared_target = $table{$target}->{shared_target};
1275 my $shared_cflag = $table{$target}->{shared_cflag};
1276 my $shared_ldflag = $table{$target}->{shared_ldflag};
1277 my $shared_extension = $table{$target}->{shared_extension};
1278 my $ranlib = $ENV{'RANLIB'} || $table{$target}->{ranlib};
1279 my $ar = $ENV{'AR'} || "ar";
1280 my $arflags = $table{$target}->{arflags};
1281 my $multilib = $table{$target}->{multilib};
1282
1283 # if $prefix/lib$multilib is not an existing directory, then
1284 # assume that it's not searched by linker automatically, in
1285 # which case adding $multilib suffix causes more grief than
1286 # we're ready to tolerate, so don't...
1287 $multilib="" if !-d "$prefix/lib$multilib";
1288
1289 $libdir="lib$multilib" if $libdir eq "";
1290
1291 $cflags = "$cflags$exp_cflags";
1292
1293 # '%' in $lflags is used to split flags to "pre-" and post-flags
1294 my ($prelflags,$postlflags)=split('%',$lflags);
1295 if (defined($postlflags))       { $lflags=$postlflags;  }
1296 else                            { $lflags=$prelflags; undef $prelflags; }
1297
1298 if ($target =~ /^mingw/ && `$cc --target-help 2>&1` !~ m/\-mno\-cygwin/m)
1299         {
1300         $cflags =~ s/\-mno\-cygwin\s*//;
1301         $shared_ldflag =~ s/\-mno\-cygwin\s*//;
1302         }
1303
1304 if ($target =~ /linux.*\-mips/ && !$no_asm && $flags !~ /\-m(ips|arch=)/) {
1305         # minimally required architecture flags for assembly modules
1306         $cflags="-mips2 $cflags" if ($target =~ /mips32/);
1307         $cflags="-mips3 $cflags" if ($target =~ /mips64/);
1308 }
1309
1310 my $no_shared_warn=0;
1311 my $no_user_cflags=0;
1312
1313 if ($flags ne "")       { $cflags="$flags$cflags"; }
1314 else                    { $no_user_cflags=1;       }
1315
1316 # The DSO code currently always implements all functions so that no
1317 # applications will have to worry about that from a compilation point
1318 # of view. However, the "method"s may return zero unless that platform
1319 # has support compiled in for them. Currently each method is enabled
1320 # by a define "DSO_<name>" ... we translate the "dso_scheme" config
1321 # string entry into using the following logic;
1322 my $dso_cflags;
1323 if (!$no_dso && $dso_scheme ne "")
1324         {
1325         $dso_scheme =~ tr/[a-z]/[A-Z]/;
1326         if ($dso_scheme eq "DLFCN")
1327                 {
1328                 $dso_cflags = "-DDSO_DLFCN -DHAVE_DLFCN_H";
1329                 }
1330         elsif ($dso_scheme eq "DLFCN_NO_H")
1331                 {
1332                 $dso_cflags = "-DDSO_DLFCN";
1333                 }
1334         else
1335                 {
1336                 $dso_cflags = "-DDSO_$dso_scheme";
1337                 }
1338         $cflags = "$dso_cflags $cflags";
1339         }
1340
1341 my $thread_cflags;
1342 my $thread_defines;
1343 if ($thread_cflag ne "(unknown)" && !$no_threads)
1344         {
1345         # If we know how to do it, support threads by default.
1346         $threads = 1;
1347         }
1348 if ($thread_cflag eq "(unknown)" && $threads)
1349         {
1350         # If the user asked for "threads", [s]he is also expected to
1351         # provide any system-dependent compiler options that are
1352         # necessary.
1353         if ($no_user_cflags)
1354                 {
1355                 print "You asked for multi-threading support, but didn't\n";
1356                 print "provide any system-specific compiler options\n";
1357                 exit(1);
1358                 }
1359         $thread_cflags="-DOPENSSL_THREADS $cflags" ;
1360         $thread_defines .= "#define OPENSSL_THREADS\n";
1361         }
1362 else
1363         {
1364         $thread_cflags="-DOPENSSL_THREADS $thread_cflag $cflags";
1365         $thread_defines .= "#define OPENSSL_THREADS\n";
1366 #       my $def;
1367 #       foreach $def (split ' ',$thread_cflag)
1368 #               {
1369 #               if ($def =~ s/^-D// && $def !~ /^_/)
1370 #                       {
1371 #                       $thread_defines .= "#define $def\n";
1372 #                       }
1373 #               }
1374         }
1375
1376 $lflags="$libs$lflags" if ($libs ne "");
1377
1378 if ($no_asm)
1379         {
1380         $cpuid_obj=$bn_obj=$ec_obj=
1381         $des_obj=$aes_obj=$bf_obj=$cast_obj=$rc4_obj=$rc5_obj=$cmll_obj=
1382         $modes_obj=$sha1_obj=$md5_obj=$rmd160_obj=$wp_obj=$engines_obj="";
1383         $cflags=~s/\-D[BL]_ENDIAN//             if ($fips);
1384         $thread_cflags=~s/\-D[BL]_ENDIAN//      if ($fips);
1385         }
1386 elsif (defined($disabled{ec2m}))
1387         {
1388         $bn_obj =~ s/\w+-gf2m.o//;
1389         }
1390
1391 if (!$no_shared)
1392         {
1393         $cast_obj="";   # CAST assembler is not PIC
1394         }
1395
1396 if ($threads)
1397         {
1398         $cflags=$thread_cflags;
1399         $openssl_thread_defines .= $thread_defines;
1400         }
1401
1402 if ($zlib)
1403         {
1404         $cflags = "-DZLIB $cflags";
1405         if (defined($disabled{"zlib-dynamic"}))
1406                 {
1407                 if (defined($withargs{"zlib-lib"}))
1408                         {
1409                         $lflags = "$lflags -L" . $withargs{"zlib-lib"} . " -lz";
1410                         }
1411                 else
1412                         {
1413                         $lflags = "$lflags -lz";
1414                         }
1415                 }
1416         else
1417                 {
1418                 $cflags = "-DZLIB_SHARED $cflags";
1419                 }
1420         }
1421
1422 #Build the library with OPENSSL_USE_DEPRECATED if deprecation is not disabled
1423 if(!defined($disabled{"deprecated"}))
1424         {
1425         $cflags = "-DOPENSSL_USE_DEPRECATED $cflags";
1426         }
1427
1428 # You will find shlib_mark1 and shlib_mark2 explained in Makefile.org
1429 my $shared_mark = "";
1430 if ($shared_target eq "")
1431         {
1432         $no_shared_warn = 1 if !$no_shared && !$fips;
1433         $no_shared = 1;
1434         }
1435 if (!$no_shared)
1436         {
1437         if ($shared_cflag ne "")
1438                 {
1439                 $cflags = "$shared_cflag -DOPENSSL_PIC $cflags";
1440                 }
1441         }
1442
1443 if (!$IsMK1MF)
1444         {
1445         # add {no-}static-engine to options to allow mkdef.pl to work without extra arguments
1446         if ($no_shared)
1447                 {
1448                 $openssl_other_defines.="#define OPENSSL_NO_DYNAMIC_ENGINE\n";
1449                 $options.=" static-engine";
1450                 }
1451         else
1452                 {
1453                 $openssl_other_defines.="#define OPENSSL_NO_STATIC_ENGINE\n";
1454                 $options.=" no-static-engine";
1455                 }
1456         }
1457
1458 $cpuid_obj.=" uplink.o uplink-x86.o" if ($cflags =~ /\-DOPENSSL_USE_APPLINK/);
1459
1460 #
1461 # Platform fix-ups
1462 #
1463 if ($target =~ /\-icc$/)        # Intel C compiler
1464         {
1465         my $iccver=0;
1466         if (open(FD,"$cc -V 2>&1 |"))
1467                 {
1468                 while(<FD>) { $iccver=$1 if (/Version ([0-9]+)\./); }
1469                 close(FD);
1470                 }
1471         if ($iccver>=8)
1472                 {
1473                 $cflags=~s/\-KPIC/-fPIC/;
1474                 # Eliminate unnecessary dependency from libirc.a. This is
1475                 # essential for shared library support, as otherwise
1476                 # apps/openssl can end up in endless loop upon startup...
1477                 $cflags.=" -Dmemcpy=__builtin_memcpy -Dmemset=__builtin_memset";
1478                 }
1479         if ($iccver>=9)
1480                 {
1481                 $lflags.=" -i-static";
1482                 $lflags=~s/\-no_cpprt/-no-cpprt/;
1483                 }
1484         if ($iccver>=10)
1485                 {
1486                 $lflags=~s/\-i\-static/-static-intel/;
1487                 }
1488         if ($iccver>=11)
1489                 {
1490                 $cflags.=" -no-intel-extensions";       # disable Cilk
1491                 $lflags=~s/\-no\-cpprt/-no-cxxlib/;
1492                 }
1493         }
1494
1495 # Unlike other OSes (like Solaris, Linux, Tru64, IRIX) BSD run-time
1496 # linkers (tested OpenBSD, NetBSD and FreeBSD) "demand" RPATH set on
1497 # .so objects. Apparently application RPATH is not global and does
1498 # not apply to .so linked with other .so. Problem manifests itself
1499 # when libssl.so fails to load libcrypto.so. One can argue that we
1500 # should engrave this into Makefile.shared rules or into BSD-* config
1501 # lines above. Meanwhile let's try to be cautious and pass -rpath to
1502 # linker only when --prefix is not /usr.
1503 if ($target =~ /^BSD\-/)
1504         {
1505         $shared_ldflag.=" -Wl,-rpath,\$(LIBRPATH)" if ($prefix !~ m|^/usr[/]*$|);
1506         }
1507
1508 if ($sys_id ne "")
1509         {
1510         #$cflags="-DOPENSSL_SYS_$sys_id $cflags";
1511         $openssl_sys_defines="#define OPENSSL_SYS_$sys_id\n";
1512         }
1513
1514 if ($ranlib eq "")
1515         {
1516         $ranlib = $default_ranlib;
1517         }
1518
1519 #my ($bn1)=split(/\s+/,$bn_obj);
1520 #$bn1 = "" unless defined $bn1;
1521 #$bn1=$bn_asm unless ($bn1 =~ /\.o$/);
1522 #$bn_obj="$bn1";
1523
1524 $cpuid_obj="" if ($processor eq "386");
1525
1526 $bn_obj = $bn_asm unless $bn_obj ne "";
1527 # bn-586 is the only one implementing bn_*_part_words
1528 $cflags.=" -DOPENSSL_BN_ASM_PART_WORDS" if ($bn_obj =~ /bn-586/);
1529 $cflags.=" -DOPENSSL_IA32_SSE2" if (!$no_sse2 && $bn_obj =~ /86/);
1530
1531 $cflags.=" -DOPENSSL_BN_ASM_MONT" if ($bn_obj =~ /-mont/);
1532 $cflags.=" -DOPENSSL_BN_ASM_MONT5" if ($bn_obj =~ /-mont5/);
1533 $cflags.=" -DOPENSSL_BN_ASM_GF2m" if ($bn_obj =~ /-gf2m/);
1534
1535 if ($fips)
1536         {
1537         $openssl_other_defines.="#define OPENSSL_FIPS\n";
1538         }
1539
1540 $cpuid_obj="mem_clr.o"  unless ($cpuid_obj =~ /\.o$/);
1541 $des_obj=$des_enc       unless ($des_obj =~ /\.o$/);
1542 $bf_obj=$bf_enc         unless ($bf_obj =~ /\.o$/);
1543 $cast_obj=$cast_enc     unless ($cast_obj =~ /\.o$/);
1544 $rc4_obj=$rc4_enc       unless ($rc4_obj =~ /\.o$/);
1545 $rc5_obj=$rc5_enc       unless ($rc5_obj =~ /\.o$/);
1546 if ($sha1_obj =~ /\.o$/)
1547         {
1548 #       $sha1_obj=$sha1_enc;
1549         $cflags.=" -DSHA1_ASM"   if ($sha1_obj =~ /sx86/ || $sha1_obj =~ /sha1/);
1550         $cflags.=" -DSHA256_ASM" if ($sha1_obj =~ /sha256/);
1551         $cflags.=" -DSHA512_ASM" if ($sha1_obj =~ /sha512/);
1552         if ($sha1_obj =~ /sse2/)
1553             {   if ($no_sse2)
1554                 {   $sha1_obj =~ s/\S*sse2\S+//;        }
1555                 elsif ($cflags !~ /OPENSSL_IA32_SSE2/)
1556                 {   $cflags.=" -DOPENSSL_IA32_SSE2";    }
1557             }
1558         }
1559 if ($md5_obj =~ /\.o$/)
1560         {
1561 #       $md5_obj=$md5_enc;
1562         $cflags.=" -DMD5_ASM";
1563         }
1564 if ($rmd160_obj =~ /\.o$/)
1565         {
1566 #       $rmd160_obj=$rmd160_enc;
1567         $cflags.=" -DRMD160_ASM";
1568         }
1569 if ($aes_obj =~ /\.o$/)
1570         {
1571         $cflags.=" -DAES_ASM" if ($aes_obj =~ m/\baes\-/);;
1572         # aes-ctr.o is not a real file, only indication that assembler
1573         # module implements AES_ctr32_encrypt...
1574         $cflags.=" -DAES_CTR_ASM" if ($aes_obj =~ s/\s*aes\-ctr\.o//);
1575         # aes-xts.o indicates presence of AES_xts_[en|de]crypt...
1576         $cflags.=" -DAES_XTS_ASM" if ($aes_obj =~ s/\s*aes\-xts\.o//);
1577         $aes_obj =~ s/\s*(vpaes|aesni)\-x86\.o//g if ($no_sse2);
1578         $cflags.=" -DVPAES_ASM" if ($aes_obj =~ m/vpaes/);
1579         $cflags.=" -DBSAES_ASM" if ($aes_obj =~ m/bsaes/);
1580         }
1581 else    {
1582         $aes_obj=$aes_enc;
1583         }
1584 $wp_obj="" if ($wp_obj =~ /mmx/ && $processor eq "386");
1585 if ($wp_obj =~ /\.o$/ && !$disabled{"whirlpool"})
1586         {
1587         $cflags.=" -DWHIRLPOOL_ASM";
1588         }
1589 else    {
1590         $wp_obj="wp_block.o";
1591         }
1592 $cmll_obj=$cmll_enc     unless ($cmll_obj =~ /.o$/);
1593 if ($modes_obj =~ /ghash\-/)
1594         {
1595         $cflags.=" -DGHASH_ASM";
1596         }
1597 if ($ec_obj =~ /ecp_nistz256/)
1598         {
1599         $cflags.=" -DECP_NISTZ256_ASM";
1600         }
1601
1602 # "Stringify" the C flags string.  This permits it to be made part of a string
1603 # and works as well on command lines.
1604 $cflags =~ s/([\\\"])/\\\1/g;
1605
1606 my $version = "unknown";
1607 my $version_num = "unknown";
1608 my $major = "unknown";
1609 my $minor = "unknown";
1610 my $shlib_version_number = "unknown";
1611 my $shlib_version_history = "unknown";
1612 my $shlib_major = "unknown";
1613 my $shlib_minor = "unknown";
1614
1615 open(IN,'<include/openssl/opensslv.h') || die "unable to read opensslv.h:$!\n";
1616 while (<IN>)
1617         {
1618         $version=$1 if /OPENSSL.VERSION.TEXT.*OpenSSL (\S+) /;
1619         $version_num=$1 if /OPENSSL.VERSION.NUMBER.*0x(\S+)/;
1620         $shlib_version_number=$1 if /SHLIB_VERSION_NUMBER *"([^"]+)"/;
1621         $shlib_version_history=$1 if /SHLIB_VERSION_HISTORY *"([^"]*)"/;
1622         }
1623 close(IN);
1624 if ($shlib_version_history ne "") { $shlib_version_history .= ":"; }
1625
1626 if ($version =~ /(^[0-9]*)\.([0-9\.]*)/)
1627         {
1628         $major=$1;
1629         $minor=$2;
1630         }
1631
1632 if ($shlib_version_number =~ /(^[0-9]*)\.([0-9\.]*)/)
1633         {
1634         $shlib_major=$1;
1635         $shlib_minor=$2;
1636         }
1637
1638 if ($strict_warnings)
1639         {
1640         my $ecc = $cc;
1641         $ecc = "clang" if `$cc --version 2>&1` =~ /clang/;
1642         my $wopt;
1643         die "ERROR --strict-warnings requires gcc or clang" unless ($ecc =~ /gcc$/ or $ecc =~ /clang$/);
1644         foreach $wopt (split /\s+/, $gcc_devteam_warn)
1645                 {
1646                 $cflags .= " $wopt" unless ($cflags =~ /$wopt/)
1647                 }
1648         if ($ecc eq "clang")
1649                 {
1650                 foreach $wopt (split /\s+/, $clang_devteam_warn)
1651                         {
1652                         $cflags .= " $wopt" unless ($cflags =~ /$wopt/)
1653                         }
1654                 }
1655         }
1656
1657 open(IN,"<Makefile.org") || die "unable to read Makefile.org:$!\n";
1658 unlink("$Makefile.new") || die "unable to remove old $Makefile.new:$!\n" if -e "$Makefile.new";
1659 open(OUT,">$Makefile.new") || die "unable to create $Makefile.new:$!\n";
1660 print OUT "### Generated automatically from Makefile.org by Configure.\n\n";
1661 my $sdirs=0;
1662
1663 while (<IN>)
1664         {
1665         chomp;
1666         $sdirs = 1 if /^SDIRS=/;
1667         if ($sdirs) {
1668                 my $dir;
1669                 foreach $dir (@skip) {
1670                         s/(\s)$dir /$1/;
1671                         s/\s$dir$//;
1672                         }
1673                 }
1674         $sdirs = 0 unless /\\$/;
1675         s/fips // if (/^DIRS=/ && !$fips);
1676         s/engines // if (/^DIRS=/ && $disabled{"engine"});
1677         s/ccgost// if (/^ENGDIRS=/ && $disabled{"gost"});
1678         s/^VERSION=.*/VERSION=$version/;
1679         s/^MAJOR=.*/MAJOR=$major/;
1680         s/^MINOR=.*/MINOR=$minor/;
1681         s/^SHLIB_VERSION_NUMBER=.*/SHLIB_VERSION_NUMBER=$shlib_version_number/;
1682         s/^SHLIB_VERSION_HISTORY=.*/SHLIB_VERSION_HISTORY=$shlib_version_history/;
1683         s/^SHLIB_MAJOR=.*/SHLIB_MAJOR=$shlib_major/;
1684         s/^SHLIB_MINOR=.*/SHLIB_MINOR=$shlib_minor/;
1685         s/^SHLIB_EXT=.*/SHLIB_EXT=$shared_extension/;
1686         s/^INSTALLTOP=.*$/INSTALLTOP=$prefix/;
1687         s/^MULTILIB=.*$/MULTILIB=$multilib/;
1688         s/^OPENSSLDIR=.*$/OPENSSLDIR=$openssldir/;
1689         s/^LIBDIR=.*$/LIBDIR=$libdir/;
1690         s/^INSTALL_PREFIX=.*$/INSTALL_PREFIX=$install_prefix/;
1691         s/^PLATFORM=.*$/PLATFORM=$target/;
1692         s/^OPTIONS=.*$/OPTIONS=$options/;
1693         s/^CONFIGURE_ARGS=.*$/CONFIGURE_ARGS=$argvstring/;
1694         if ($cross_compile_prefix)
1695                 {
1696                 s/^CC=.*$/CROSS_COMPILE= $cross_compile_prefix\nCC= \$\(CROSS_COMPILE\)$cc/;
1697                 s/^AR=\s*/AR= \$\(CROSS_COMPILE\)/;
1698                 s/^NM=\s*/NM= \$\(CROSS_COMPILE\)/;
1699                 s/^RANLIB=\s*/RANLIB= \$\(CROSS_COMPILE\)/;
1700                 s/^MAKEDEPPROG=.*$/MAKEDEPPROG= \$\(CROSS_COMPILE\)$cc/ if $cc eq "gcc";
1701                 }
1702         else    {
1703                 s/^CC=.*$/CC= $cc/;
1704                 s/^AR=\s*ar/AR= $ar/;
1705                 s/^RANLIB=.*/RANLIB= $ranlib/;
1706                 s/^MAKEDEPPROG=.*$/MAKEDEPPROG= $cc/ if $cc eq "gcc" || ($cc eq 'cc' && $target =~ /darwin/);
1707                 }
1708         s/^CFLAG=.*$/CFLAG= $cflags/;
1709         s/^DEPFLAG=.*$/DEPFLAG=$depflags/;
1710         s/^PEX_LIBS=.*$/PEX_LIBS= $prelflags/;
1711         s/^EX_LIBS=.*$/EX_LIBS= $lflags/;
1712         s/^EXE_EXT=.*$/EXE_EXT= $exe_ext/;
1713         s/^CPUID_OBJ=.*$/CPUID_OBJ= $cpuid_obj/;
1714         s/^BN_ASM=.*$/BN_ASM= $bn_obj/;
1715         s/^EC_ASM=.*$/EC_ASM= $ec_obj/;
1716         s/^DES_ENC=.*$/DES_ENC= $des_obj/;
1717         s/^AES_ENC=.*$/AES_ENC= $aes_obj/;
1718         s/^BF_ENC=.*$/BF_ENC= $bf_obj/;
1719         s/^CAST_ENC=.*$/CAST_ENC= $cast_obj/;
1720         s/^RC4_ENC=.*$/RC4_ENC= $rc4_obj/;
1721         s/^RC5_ENC=.*$/RC5_ENC= $rc5_obj/;
1722         s/^MD5_ASM_OBJ=.*$/MD5_ASM_OBJ= $md5_obj/;
1723         s/^SHA1_ASM_OBJ=.*$/SHA1_ASM_OBJ= $sha1_obj/;
1724         s/^RMD160_ASM_OBJ=.*$/RMD160_ASM_OBJ= $rmd160_obj/;
1725         s/^WP_ASM_OBJ=.*$/WP_ASM_OBJ= $wp_obj/;
1726         s/^CMLL_ENC=.*$/CMLL_ENC= $cmll_obj/;
1727         s/^MODES_ASM_OBJ.=*$/MODES_ASM_OBJ= $modes_obj/;
1728         s/^ENGINES_ASM_OBJ.=*$/ENGINES_ASM_OBJ= $engines_obj/;
1729         s/^PERLASM_SCHEME=.*$/PERLASM_SCHEME= $perlasm_scheme/;
1730         s/^PROCESSOR=.*/PROCESSOR= $processor/;
1731         s/^ARFLAGS=.*/ARFLAGS= $arflags/;
1732         s/^PERL=.*/PERL= $perl/;
1733         s/^LIBZLIB=.*/LIBZLIB=$withargs{"zlib-lib"}/;
1734         s/^ZLIB_INCLUDE=.*/ZLIB_INCLUDE=$withargs{"zlib-include"}/;
1735         s/^FIPSLIBDIR=.*/FIPSLIBDIR=$fipslibdir/;
1736         s/^FIPSCANLIB=.*/FIPSCANLIB=libcrypto/ if $fips;
1737         s/^SHARED_FIPS=.*/SHARED_FIPS=/;
1738         s/^SHLIBDIRS=.*/SHLIBDIRS= crypto ssl/;
1739         s/^BASEADDR=.*/BASEADDR=$baseaddr/;
1740         s/^SHLIB_TARGET=.*/SHLIB_TARGET=$shared_target/;
1741         s/^SHLIB_MARK=.*/SHLIB_MARK=$shared_mark/;
1742         s/^SHARED_LIBS=.*/SHARED_LIBS=\$(SHARED_CRYPTO) \$(SHARED_SSL)/ if (!$no_shared);
1743         if ($shared_extension ne "" && $shared_extension =~ /^\.s([ol])\.[^\.]*$/)
1744                 {
1745                 my $sotmp = $1;
1746                 s/^SHARED_LIBS_LINK_EXTS=.*/SHARED_LIBS_LINK_EXTS=.s$sotmp/;
1747                 }
1748         elsif ($shared_extension ne "" && $shared_extension =~ /^\.[^\.]*\.dylib$/)
1749                 {
1750                 s/^SHARED_LIBS_LINK_EXTS=.*/SHARED_LIBS_LINK_EXTS=.dylib/;
1751                 }
1752         elsif ($shared_extension ne "" && $shared_extension =~ /^\.s([ol])\.[^\.]*\.[^\.]*$/)
1753                 {
1754                 my $sotmp = $1;
1755                 s/^SHARED_LIBS_LINK_EXTS=.*/SHARED_LIBS_LINK_EXTS=.s$sotmp.\$(SHLIB_MAJOR) .s$sotmp/;
1756                 }
1757         elsif ($shared_extension ne "" && $shared_extension =~ /^\.[^\.]*\.[^\.]*\.dylib$/)
1758                 {
1759                 s/^SHARED_LIBS_LINK_EXTS=.*/SHARED_LIBS_LINK_EXTS=.\$(SHLIB_MAJOR).dylib .dylib/;
1760                 }
1761         s/^SHARED_LDFLAGS=.*/SHARED_LDFLAGS=$shared_ldflag/;
1762         print OUT $_."\n";
1763         }
1764 close(IN);
1765 close(OUT);
1766 rename($Makefile,"$Makefile.bak") || die "unable to rename $Makefile\n" if -e $Makefile;
1767 rename("$Makefile.new",$Makefile) || die "unable to rename $Makefile.new\n";
1768
1769 print "CC            =$cc\n";
1770 print "CFLAG         =$cflags\n";
1771 print "EX_LIBS       =$lflags\n";
1772 print "CPUID_OBJ     =$cpuid_obj\n";
1773 print "BN_ASM        =$bn_obj\n";
1774 print "EC_ASM        =$ec_obj\n";
1775 print "DES_ENC       =$des_obj\n";
1776 print "AES_ENC       =$aes_obj\n";
1777 print "BF_ENC        =$bf_obj\n";
1778 print "CAST_ENC      =$cast_obj\n";
1779 print "RC4_ENC       =$rc4_obj\n";
1780 print "RC5_ENC       =$rc5_obj\n";
1781 print "MD5_OBJ_ASM   =$md5_obj\n";
1782 print "SHA1_OBJ_ASM  =$sha1_obj\n";
1783 print "RMD160_OBJ_ASM=$rmd160_obj\n";
1784 print "CMLL_ENC      =$cmll_obj\n";
1785 print "MODES_OBJ     =$modes_obj\n";
1786 print "ENGINES_OBJ   =$engines_obj\n";
1787 print "PROCESSOR     =$processor\n";
1788 print "RANLIB        =$ranlib\n";
1789 print "ARFLAGS       =$arflags\n";
1790 print "PERL          =$perl\n";
1791
1792 my $des_ptr=0;
1793 my $des_risc1=0;
1794 my $des_risc2=0;
1795 my $des_unroll=0;
1796 my $bn_ll=0;
1797 my $def_int=2;
1798 my $rc4_int=$def_int;
1799 my $md2_int=$def_int;
1800 my $idea_int=$def_int;
1801 my $rc2_int=$def_int;
1802 my $rc4_idx=0;
1803 my $rc4_chunk=0;
1804 my $bf_ptr=0;
1805 my @type=("char","short","int","long");
1806 my ($b64l,$b64,$b32,$b16,$b8)=(0,0,1,0,0);
1807 my $export_var_as_fn=0;
1808
1809 my $des_int;
1810
1811 foreach (sort split(/\s+/,$bn_ops))
1812         {
1813         $des_ptr=1 if /DES_PTR/;
1814         $des_risc1=1 if /DES_RISC1/;
1815         $des_risc2=1 if /DES_RISC2/;
1816         $des_unroll=1 if /DES_UNROLL/;
1817         $des_int=1 if /DES_INT/;
1818         $bn_ll=1 if /BN_LLONG/;
1819         $rc4_int=0 if /RC4_CHAR/;
1820         $rc4_int=3 if /RC4_LONG/;
1821         $rc4_idx=1 if /RC4_INDEX/;
1822         $rc4_chunk=1 if /RC4_CHUNK/;
1823         $rc4_chunk=2 if /RC4_CHUNK_LL/;
1824         $md2_int=0 if /MD2_CHAR/;
1825         $md2_int=3 if /MD2_LONG/;
1826         $idea_int=1 if /IDEA_SHORT/;
1827         $idea_int=3 if /IDEA_LONG/;
1828         $rc2_int=1 if /RC2_SHORT/;
1829         $rc2_int=3 if /RC2_LONG/;
1830         $bf_ptr=1 if $_ eq "BF_PTR";
1831         $bf_ptr=2 if $_ eq "BF_PTR2";
1832         ($b64l,$b64,$b32,$b16,$b8)=(0,1,0,0,0) if /SIXTY_FOUR_BIT/;
1833         ($b64l,$b64,$b32,$b16,$b8)=(1,0,0,0,0) if /SIXTY_FOUR_BIT_LONG/;
1834         ($b64l,$b64,$b32,$b16,$b8)=(0,0,1,0,0) if /THIRTY_TWO_BIT/;
1835         ($b64l,$b64,$b32,$b16,$b8)=(0,0,0,1,0) if /SIXTEEN_BIT/;
1836         ($b64l,$b64,$b32,$b16,$b8)=(0,0,0,0,1) if /EIGHT_BIT/;
1837         $export_var_as_fn=1 if /EXPORT_VAR_AS_FN/;
1838         }
1839
1840 open(IN,'<crypto/opensslconf.h.in') || die "unable to read crypto/opensslconf.h.in:$!\n";
1841 unlink("include/openssl/opensslconf.h.new") || die "unable to remove old include/openssl/opensslconf.h.new:$!\n" if -e "include/openssl/opensslconf.h.new";
1842 open(OUT,'>include/openssl/opensslconf.h.new') || die "unable to create include/openssl/opensslconf.h.new:$!\n";
1843 print OUT "/* opensslconf.h */\n";
1844 print OUT "/* WARNING: Generated automatically from opensslconf.h.in by Configure. */\n\n";
1845
1846 print OUT "#ifdef  __cplusplus\n";
1847 print OUT "extern \"C\" {\n";
1848 print OUT "#endif\n";
1849 print OUT "/* OpenSSL was configured with the following options: */\n";
1850 my $openssl_algorithm_defines_trans = $openssl_algorithm_defines;
1851 $openssl_experimental_defines =~ s/^\s*#\s*define\s+OPENSSL_NO_(.*)/#ifndef OPENSSL_EXPERIMENTAL_$1\n# ifndef OPENSSL_NO_$1\n#  define OPENSSL_NO_$1\n# endif\n#endif/mg;
1852 $openssl_algorithm_defines_trans =~ s/^\s*#\s*define\s+OPENSSL_(.*)/# if defined(OPENSSL_$1) \&\& !defined($1)\n#  define $1\n# endif/mg;
1853 $openssl_algorithm_defines =~ s/^\s*#\s*define\s+(.*)/#ifndef $1\n# define $1\n#endif/mg;
1854 $openssl_algorithm_defines = "   /* no ciphers excluded */\n" if $openssl_algorithm_defines eq "";
1855 $openssl_thread_defines =~ s/^\s*#\s*define\s+(.*)/#ifndef $1\n# define $1\n#endif/mg;
1856 $openssl_sys_defines =~ s/^\s*#\s*define\s+(.*)/#ifndef $1\n# define $1\n#endif/mg;
1857 $openssl_other_defines =~ s/^\s*#\s*define\s+(.*)/#ifndef $1\n# define $1\n#endif/mg;
1858 print OUT $openssl_sys_defines;
1859 print OUT "#ifndef OPENSSL_DOING_MAKEDEPEND\n\n";
1860 print OUT $openssl_experimental_defines;
1861 print OUT "\n";
1862 print OUT $openssl_algorithm_defines;
1863 print OUT "\n#endif /* OPENSSL_DOING_MAKEDEPEND */\n\n";
1864 print OUT $openssl_thread_defines;
1865 print OUT $openssl_other_defines,"\n";
1866
1867 print OUT "/* The OPENSSL_NO_* macros are also defined as NO_* if the application\n";
1868 print OUT "   asks for it.  This is a transient feature that is provided for those\n";
1869 print OUT "   who haven't had the time to do the appropriate changes in their\n";
1870 print OUT "   applications.  */\n";
1871 print OUT "#ifdef OPENSSL_ALGORITHM_DEFINES\n";
1872 print OUT $openssl_algorithm_defines_trans;
1873 print OUT "#endif\n\n";
1874
1875 print OUT "#define OPENSSL_CPUID_OBJ\n\n" if ($cpuid_obj ne "mem_clr.o");
1876
1877 while (<IN>)
1878         {
1879         if      (/^#define\s+OPENSSLDIR/)
1880                 {
1881                 my $foo = $openssldir;
1882                 $foo =~ s/\\/\\\\/g;
1883                 print OUT "#define OPENSSLDIR \"$foo\"\n";
1884                 }
1885         elsif   (/^#define\s+ENGINESDIR/)
1886                 {
1887                 my $foo = "$prefix/$libdir/engines";
1888                 $foo =~ s/\\/\\\\/g;
1889                 print OUT "#define ENGINESDIR \"$foo\"\n";
1890                 }
1891         elsif   (/^#((define)|(undef))\s+OPENSSL_EXPORT_VAR_AS_FUNCTION/)
1892                 { printf OUT "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION\n"
1893                         if $export_var_as_fn;
1894                   printf OUT "#%s OPENSSL_EXPORT_VAR_AS_FUNCTION\n",
1895                         ($export_var_as_fn)?"define":"undef"; }
1896         elsif   (/^#define\s+OPENSSL_UNISTD/)
1897                 {
1898                 $unistd = "<unistd.h>" if $unistd eq "";
1899                 print OUT "#define OPENSSL_UNISTD $unistd\n";
1900                 }
1901         elsif   (/^#((define)|(undef))\s+SIXTY_FOUR_BIT_LONG/)
1902                 { printf OUT "#%s SIXTY_FOUR_BIT_LONG\n",($b64l)?"define":"undef"; }
1903         elsif   (/^#((define)|(undef))\s+SIXTY_FOUR_BIT/)
1904                 { printf OUT "#%s SIXTY_FOUR_BIT\n",($b64)?"define":"undef"; }
1905         elsif   (/^#((define)|(undef))\s+THIRTY_TWO_BIT/)
1906                 { printf OUT "#%s THIRTY_TWO_BIT\n",($b32)?"define":"undef"; }
1907         elsif   (/^#((define)|(undef))\s+SIXTEEN_BIT/)
1908                 { printf OUT "#%s SIXTEEN_BIT\n",($b16)?"define":"undef"; }
1909         elsif   (/^#((define)|(undef))\s+EIGHT_BIT/)
1910                 { printf OUT "#%s EIGHT_BIT\n",($b8)?"define":"undef"; }
1911         elsif   (/^#((define)|(undef))\s+BN_LLONG\s*$/)
1912                 { printf OUT "#%s BN_LLONG\n",($bn_ll)?"define":"undef"; }
1913         elsif   (/^\#define\s+DES_LONG\s+.*/)
1914                 { printf OUT "#define DES_LONG unsigned %s\n",
1915                         ($des_int)?'int':'long'; }
1916         elsif   (/^\#(define|undef)\s+DES_PTR/)
1917                 { printf OUT "#%s DES_PTR\n",($des_ptr)?'define':'undef'; }
1918         elsif   (/^\#(define|undef)\s+DES_RISC1/)
1919                 { printf OUT "#%s DES_RISC1\n",($des_risc1)?'define':'undef'; }
1920         elsif   (/^\#(define|undef)\s+DES_RISC2/)
1921                 { printf OUT "#%s DES_RISC2\n",($des_risc2)?'define':'undef'; }
1922         elsif   (/^\#(define|undef)\s+DES_UNROLL/)
1923                 { printf OUT "#%s DES_UNROLL\n",($des_unroll)?'define':'undef'; }
1924         elsif   (/^#define\s+RC4_INT\s/)
1925                 { printf OUT "#define RC4_INT unsigned %s\n",$type[$rc4_int]; }
1926         elsif   (/^#undef\s+RC4_CHUNK/)
1927                 {
1928                 printf OUT "#undef RC4_CHUNK\n" if $rc4_chunk==0;
1929                 printf OUT "#define RC4_CHUNK unsigned long\n" if $rc4_chunk==1;
1930                 printf OUT "#define RC4_CHUNK unsigned long long\n" if $rc4_chunk==2;
1931                 }
1932         elsif   (/^#((define)|(undef))\s+RC4_INDEX/)
1933                 { printf OUT "#%s RC4_INDEX\n",($rc4_idx)?"define":"undef"; }
1934         elsif (/^#(define|undef)\s+I386_ONLY/)
1935                 { printf OUT "#%s I386_ONLY\n", ($processor eq "386")?
1936                         "define":"undef"; }
1937         elsif   (/^#define\s+MD2_INT\s/)
1938                 { printf OUT "#define MD2_INT unsigned %s\n",$type[$md2_int]; }
1939         elsif   (/^#define\s+IDEA_INT\s/)
1940                 {printf OUT "#define IDEA_INT unsigned %s\n",$type[$idea_int];}
1941         elsif   (/^#define\s+RC2_INT\s/)
1942                 {printf OUT "#define RC2_INT unsigned %s\n",$type[$rc2_int];}
1943         elsif (/^#(define|undef)\s+BF_PTR/)
1944                 {
1945                 printf OUT "#undef BF_PTR\n" if $bf_ptr == 0;
1946                 printf OUT "#define BF_PTR\n" if $bf_ptr == 1;
1947                 printf OUT "#define BF_PTR2\n" if $bf_ptr == 2;
1948                 }
1949         else
1950                 { print OUT $_; }
1951         }
1952 close(IN);
1953 print OUT "#ifdef  __cplusplus\n";
1954 print OUT "}\n";
1955 print OUT "#endif\n";
1956 close(OUT);
1957 rename("include/openssl/opensslconf.h","include/openssl/opensslconf.h.bak") || die "unable to rename include/openssl/opensslconf.h\n" if -e "include/openssl/opensslconf.h";
1958 rename("include/openssl/opensslconf.h.new","include/openssl/opensslconf.h") || die "unable to rename include/openssl/opensslconf.h.new\n";
1959
1960
1961 # Fix the date
1962
1963 print "SIXTY_FOUR_BIT_LONG mode\n" if $b64l;
1964 print "SIXTY_FOUR_BIT mode\n" if $b64;
1965 print "THIRTY_TWO_BIT mode\n" if $b32;
1966 print "SIXTEEN_BIT mode\n" if $b16;
1967 print "EIGHT_BIT mode\n" if $b8;
1968 print "DES_PTR used\n" if $des_ptr;
1969 print "DES_RISC1 used\n" if $des_risc1;
1970 print "DES_RISC2 used\n" if $des_risc2;
1971 print "DES_UNROLL used\n" if $des_unroll;
1972 print "DES_INT used\n" if $des_int;
1973 print "BN_LLONG mode\n" if $bn_ll;
1974 print "RC4 uses u$type[$rc4_int]\n" if $rc4_int != $def_int;
1975 print "RC4_INDEX mode\n" if $rc4_idx;
1976 print "RC4_CHUNK is undefined\n" if $rc4_chunk==0;
1977 print "RC4_CHUNK is unsigned long\n" if $rc4_chunk==1;
1978 print "RC4_CHUNK is unsigned long long\n" if $rc4_chunk==2;
1979 print "MD2 uses u$type[$md2_int]\n" if $md2_int != $def_int;
1980 print "IDEA uses u$type[$idea_int]\n" if $idea_int != $def_int;
1981 print "RC2 uses u$type[$rc2_int]\n" if $rc2_int != $def_int;
1982 print "BF_PTR used\n" if $bf_ptr == 1;
1983 print "BF_PTR2 used\n" if $bf_ptr == 2;
1984
1985 {
1986     my $perlguess = $perl =~ m@^/@ ? $perl : '/usr/local/bin/perl';
1987
1988     &dofile("tools/c_rehash",$perlguess,
1989             '^#!/'              => '#!%s',
1990             '^my \$dir;$'       => 'my $dir = "' . $openssldir . '";',
1991             '^my \$prefix;$'    => 'my $prefix = "' . $prefix . '";');
1992     &dofile("apps/CA.pl",$perl,
1993             '^#!/'              => '#!%s');
1994 }
1995 if($IsMK1MF) {
1996         open (OUT,">crypto/buildinf.h") || die "Can't open buildinf.h";
1997         printf OUT <<EOF;
1998 #ifndef MK1MF_BUILD
1999   /* auto-generated by Configure for crypto/cversion.c:
2000    * for Unix builds, crypto/Makefile.ssl generates functional definitions;
2001    * Windows builds (and other mk1mf builds) compile cversion.c with
2002    * -DMK1MF_BUILD and use definitions added to this file by util/mk1mf.pl. */
2003   #error "Windows builds (PLATFORM=$target) use mk1mf.pl-created Makefiles"
2004 #endif
2005 EOF
2006         close(OUT);
2007 } else {
2008         my $make_command = "$make PERL=\'$perl\'";
2009         my $make_targets = "";
2010         $make_targets .= " depend" if $depflags ne $default_depflags && $make_depend;
2011         (system $make_command.$make_targets) == 0 or die "make $make_targets failed"
2012                 if $make_targets ne "";
2013         if ($depflags ne $default_depflags && !$make_depend) {
2014                 print <<EOF;
2015
2016 Since you've disabled or enabled at least one algorithm, you need to do
2017 the following before building:
2018
2019         make depend
2020 EOF
2021         }
2022 }
2023
2024 # create the ms/version32.rc file if needed
2025 if ($IsMK1MF && ($target !~ /^netware/)) {
2026         my ($v1, $v2, $v3, $v4);
2027         if ($version_num =~ /(^[0-9a-f]{1})([0-9a-f]{2})([0-9a-f]{2})([0-9a-f]{2})/i) {
2028                 $v1=hex $1;
2029                 $v2=hex $2;
2030                 $v3=hex $3;
2031                 $v4=hex $4;
2032         }
2033         open (OUT,">ms/version32.rc") || die "Can't open ms/version32.rc";
2034         print OUT <<EOF;
2035 #include <winver.h>
2036
2037 LANGUAGE 0x09,0x01
2038
2039 1 VERSIONINFO
2040   FILEVERSION $v1,$v2,$v3,$v4
2041   PRODUCTVERSION $v1,$v2,$v3,$v4
2042   FILEFLAGSMASK 0x3fL
2043 #ifdef _DEBUG
2044   FILEFLAGS 0x01L
2045 #else
2046   FILEFLAGS 0x00L
2047 #endif
2048   FILEOS VOS__WINDOWS32
2049   FILETYPE VFT_DLL
2050   FILESUBTYPE 0x0L
2051 BEGIN
2052     BLOCK "StringFileInfo"
2053     BEGIN
2054         BLOCK "040904b0"
2055         BEGIN
2056             // Required:
2057             VALUE "CompanyName", "The OpenSSL Project, http://www.openssl.org/\\0"
2058             VALUE "FileDescription", "OpenSSL Shared Library\\0"
2059             VALUE "FileVersion", "$version\\0"
2060 #if defined(CRYPTO)
2061             VALUE "InternalName", "libeay32\\0"
2062             VALUE "OriginalFilename", "libeay32.dll\\0"
2063 #elif defined(SSL)
2064             VALUE "InternalName", "ssleay32\\0"
2065             VALUE "OriginalFilename", "ssleay32.dll\\0"
2066 #endif
2067             VALUE "ProductName", "The OpenSSL Toolkit\\0"
2068             VALUE "ProductVersion", "$version\\0"
2069             // Optional:
2070             //VALUE "Comments", "\\0"
2071             VALUE "LegalCopyright", "Copyright Â© 1998-2005 The OpenSSL Project. Copyright Â© 1995-1998 Eric A. Young, Tim J. Hudson. All rights reserved.\\0"
2072             //VALUE "LegalTrademarks", "\\0"
2073             //VALUE "PrivateBuild", "\\0"
2074             //VALUE "SpecialBuild", "\\0"
2075         END
2076     END
2077     BLOCK "VarFileInfo"
2078     BEGIN
2079         VALUE "Translation", 0x409, 0x4b0
2080     END
2081 END
2082 EOF
2083         close(OUT);
2084   }
2085
2086 print <<EOF;
2087
2088 Configured for $target.
2089 EOF
2090
2091 print <<\EOF if (!$no_threads && !$threads);
2092
2093 The library could not be configured for supporting multi-threaded
2094 applications as the compiler options required on this system are not known.
2095 See file INSTALL for details if you need multi-threading.
2096 EOF
2097
2098 print <<\EOF if ($no_shared_warn);
2099
2100 You gave the option 'shared'.  Normally, that would give you shared libraries.
2101 Unfortunately, the OpenSSL configuration doesn't include shared library support
2102 for this platform yet, so it will pretend you gave the option 'no-shared'.  If
2103 you can inform the developpers (openssl-dev\@openssl.org) how to support shared
2104 libraries on this platform, they will at least look at it and try their best
2105 (but please first make sure you have tried with a current version of OpenSSL).
2106 EOF
2107
2108 exit(0);
2109
2110 sub usage
2111         {
2112         print STDERR $usage;
2113         print STDERR "\npick os/compiler from:\n";
2114         my $j=0;
2115         my $i;
2116         my $k=0;
2117         foreach $i (sort keys %table)
2118                 {
2119                 next if $i =~ /^debug/;
2120                 $k += length($i) + 1;
2121                 if ($k > 78)
2122                         {
2123                         print STDERR "\n";
2124                         $k=length($i);
2125                         }
2126                 print STDERR $i . " ";
2127                 }
2128         foreach $i (sort keys %table)
2129                 {
2130                 next if $i !~ /^debug/;
2131                 $k += length($i) + 1;
2132                 if ($k > 78)
2133                         {
2134                         print STDERR "\n";
2135                         $k=length($i);
2136                         }
2137                 print STDERR $i . " ";
2138                 }
2139         print STDERR "\n\nNOTE: If in doubt, on Unix-ish systems use './config'.\n";
2140         exit(1);
2141         }
2142
2143 sub which
2144         {
2145         my($name)=@_;
2146         my $path;
2147         foreach $path (split /:/, $ENV{PATH})
2148                 {
2149                 if (-f "$path/$name$exe_ext" and -x _)
2150                         {
2151                         return "$path/$name$exe_ext" unless ($name eq "perl" and
2152                          system("$path/$name$exe_ext -e " . '\'exit($]<5.0);\''));
2153                         }
2154                 }
2155         }
2156
2157 sub dofile
2158         {
2159         my $f; my $p; my %m; my @a; my $k; my $ff;
2160         ($f,$p,%m)=@_;
2161
2162         open(IN,"<$f.in") || open(IN,"<$f") || die "unable to open $f:$!\n";
2163         @a=<IN>;
2164         close(IN);
2165         foreach $k (keys %m)
2166                 {
2167                 grep(/$k/ && ($_=sprintf($m{$k}."\n",$p)),@a);
2168                 }
2169         open(OUT,">$f.new") || die "unable to open $f.new:$!\n";
2170         print OUT @a;
2171         close(OUT);
2172         rename($f,"$f.bak") || die "unable to rename $f\n" if -e $f;
2173         rename("$f.new",$f) || die "unable to rename $f.new\n";
2174         }
2175
2176 sub print_table_entry
2177         {
2178         my $target = shift;
2179         my $type = shift;
2180
2181         # Don't print the templates
2182         return if $table{$target}->{template};
2183
2184         if ($type eq "TABLE") {
2185             print <<EOF
2186
2187 *** $target
2188 \$cc           = $table{$target}->{cc}
2189 \$cflags       = $table{$target}->{cflags}
2190 \$debug_cflags   = $table{$target}->{debug_cflags}
2191 \$release_cflags = $table{$target}->{release_cflags}
2192 \$unistd       = $table{$target}->{unistd}
2193 \$thread_cflag = $table{$target}->{thread_cflag}
2194 \$sys_id       = $table{$target}->{sys_id}
2195 \$lflags       = $table{$target}->{lflags}
2196 \$debug_lflags   = $table{$target}->{debug_lflags}
2197 \$release_lflags = $table{$target}->{release_lflags}
2198 \$bn_ops       = $table{$target}->{bn_ops}
2199 \$cpuid_obj    = $table{$target}->{cpuid_obj}
2200 \$bn_obj       = $table{$target}->{bn_obj}
2201 \$ec_obj       = $table{$target}->{ec_obj}
2202 \$des_obj      = $table{$target}->{des_obj}
2203 \$aes_obj      = $table{$target}->{aes_obj}
2204 \$bf_obj       = $table{$target}->{bf_obj}
2205 \$md5_obj      = $table{$target}->{md5_obj}
2206 \$sha1_obj     = $table{$target}->{sha1_obj}
2207 \$cast_obj     = $table{$target}->{cast_obj}
2208 \$rc4_obj      = $table{$target}->{rc4_obj}
2209 \$rmd160_obj   = $table{$target}->{rmd160_obj}
2210 \$rc5_obj      = $table{$target}->{rc5_obj}
2211 \$wp_obj       = $table{$target}->{wp_obj}
2212 \$cmll_obj     = $table{$target}->{cmll_obj}
2213 \$modes_obj    = $table{$target}->{modes_obj}
2214 \$engines_obj  = $table{$target}->{engines_obj}
2215 \$perlasm_scheme = $table{$target}->{perlasm_scheme}
2216 \$dso_scheme   = $table{$target}->{dso_scheme}
2217 \$shared_target= $table{$target}->{shared_target}
2218 \$shared_cflag = $table{$target}->{shared_cflag}
2219 \$shared_ldflag = $table{$target}->{shared_ldflag}
2220 \$shared_extension = $table{$target}->{shared_extension}
2221 \$ranlib       = $table{$target}->{ranlib}
2222 \$arflags      = $table{$target}->{arflags}
2223 \$multilib     = $table{$target}->{multilib}
2224 EOF
2225         } elsif ($type eq "HASH") {
2226             my @sequence = (
2227                 "cc",
2228                 "cflags",
2229                 "debug_cflags",
2230                 "release_cflags",
2231                 "unistd",
2232                 "thread_cflag",
2233                 "sys_id",
2234                 "lflags",
2235                 "debug_lflags",
2236                 "release_lflags",
2237                 "bn_ops",
2238                 "cpuid_obj",
2239                 "bn_obj",
2240                 "ec_obj",
2241                 "des_obj",
2242                 "aes_obj",
2243                 "bf_obj",
2244                 "md5_obj",
2245                 "sha1_obj",
2246                 "cast_obj",
2247                 "rc4_obj",
2248                 "rmd160_obj",
2249                 "rc5_obj",
2250                 "wp_obj",
2251                 "cmll_obj",
2252                 "modes_obj",
2253                 "engines_obj",
2254                 "perlasm_scheme",
2255                 "dso_scheme",
2256                 "shared_target",
2257                 "shared_cflag",
2258                 "shared_ldflag",
2259                 "shared_extension",
2260                 "ranlib",
2261                 "arflags",
2262                 "multilib",
2263                 );
2264             my $largest =
2265                 length((sort { length($a) <=> length($b) } @sequence)[-1]);
2266             print "    '$target' => {\n";
2267             foreach (@sequence) {
2268                 if ($table{$target}->{$_}) {
2269                     print "      '",$_,"'"," " x ($largest - length($_))," => '",$table{$target}->{$_},"',\n";
2270                 }
2271             }
2272             print "    },\n";
2273         }
2274         }
2275
2276 sub test_sanity
2277         {
2278         my $errorcnt = 0;
2279
2280         print STDERR "=" x 70, "\n";
2281         print STDERR "=== SANITY TESTING!\n";
2282         print STDERR "=== No configuration will be done, all other arguments will be ignored!\n";
2283         print STDERR "=" x 70, "\n";
2284
2285         foreach $target (sort keys %table)
2286                 {
2287                 my $pre_dso_scheme = "perlasm_scheme";
2288                 my $dso_scheme = "dso_scheme";
2289                 my $post_dso_scheme = "shared_target";
2290
2291
2292                 if ($table{$target}->{$pre_dso_scheme} =~ /^(beos|dl|dlfcn|win32|vms)$/)
2293                         {
2294                         $errorcnt++;
2295                         print STDERR "SANITY ERROR: '$target' has the dso_scheme values\n";
2296                         print STDERR "              in the previous field\n";
2297                         }
2298                 elsif ($table{$target}->{$post_dso_scheme} =~ /^(beos|dl|dlfcn|win32|vms)$/)
2299                         {
2300                         $errorcnt++;
2301                         print STDERR "SANITY ERROR: '$target' has the dso_scheme values\n";
2302                         print STDERR "              in the following field\n";
2303                         }
2304                 elsif ($table{$target}->{$dso_scheme} !~ /^(beos|dl|dlfcn|win32|vms|)$/)
2305                         {
2306                         $errorcnt++;
2307                         print STDERR "SANITY ERROR: '$target' has the dso_scheme field = ",$table{$target}->{$dso_scheme},"\n";
2308                         print STDERR "              valid values are 'beos', 'dl', 'dlfcn', 'win32' and 'vms'\n";
2309                         }
2310                 }
2311         print STDERR "No sanity errors detected!\n" if $errorcnt == 0;
2312         return $errorcnt;
2313         }