Revision fdaad3f1b31df6827554c378dd8385695a1deed4 authored by Richard Levitte on 09 May 2020, 08:11:14 UTC, committed by Richard Levitte on 12 May 2020, 09:32:40 UTC
This started with adding forward declarations of all provider side interface functions, and fixing all compiler errors. Furthermore, diminish the faulty assumption that the provider context is and always will be just a library context. That means adding a teardown function in all providers that aren't necessarily built into libcrypto. Reviewed-by: Shane Lontis <shane.lontis@oracle.com> (Merged from https://github.com/openssl/openssl/pull/11777)
1 parent b0f3c59
config.com
$ ! OpenSSL config: determine the architecture and run Configure
$ ! Copyright 2016-2018 The OpenSSL Project Authors. All Rights Reserved.
$ !
$ ! Licensed under the Apache License 2.0 (the "License"). You may not use
$ ! this file except in compliance with the License. You can obtain a
$ ! copy in the file LICENSE in the source distribution or at
$ ! https://www.openssl.org/source/license.html
$ !
$ ! Very simple for the moment, it will take the following arguments:
$ !
$ ! -32 or 32 sets /POINTER_SIZE=32
$ ! -64 or 64 sets /POINTER_SIZE=64
$ ! -d sets debugging
$ ! -h prints a usage and exits
$ ! -t test mode, doesn't run Configure
$
$ arch = f$edit( f$getsyi( "arch_name"), "lowercase")
$ pointer_size = ""
$ dryrun = 0
$ verbose = 0
$ here = F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"),,,"SYNTAX_ONLY") - "A.;"
$
$ collected_args = ""
$ P_index = 0
$ LOOP1:
$ P_index = P_index + 1
$ IF P_index .GT. 8 THEN GOTO ENDLOOP1
$ P = F$EDIT(P1,"TRIM,LOWERCASE")
$ IF P .EQS. "-h"
$ THEN
$ dryrun = 1
$ P = ""
$ TYPE SYS$INPUT
$ DECK
Usage: @config [options]
-32 or 32 Build with 32-bit pointer size.
-64 or 64 Build with 64-bit pointer size.
-d Build with debugging.
-t Test mode, do not run the Configure perl script.
-v Verbose mode, show the exact Configure call that is being made.
-h This help.
Any other text will be passed to the Configure perl script.
See INSTALL for instructions.
$ EOD
$ ENDIF
$ IF P .EQS. "-t"
$ THEN
$ dryrun = 1
$ verbose = 1
$ P = ""
$ ENDIF
$ IF P .EQS. "-v"
$ THEN
$ verbose = 1
$ P = ""
$ ENDIF
$ IF P .EQS. "-32" .OR. P .EQS. "32"
$ THEN
$ pointer_size = "-P32"
$ P = ""
$ ENDIF
$ IF P .EQS. "-64" .OR. P .EQS. "64"
$ THEN
$ pointer_size = "-P64"
$ P = ""
$ ENDIF
$ IF P .EQS. "-d"
$ THEN
$ collected_args = collected_args + " --debug"
$ P = ""
$ ENDIF
$ IF P .NES. "" THEN -
collected_args = collected_args + " """ + P1 + """"
$ P1 = P2
$ P2 = P3
$ P3 = P4
$ P4 = P5
$ P5 = P6
$ P6 = P7
$ P7 = P8
$ P8 = ""
$ GOTO LOOP1
$ ENDLOOP1:
$
$ target = "vms-''arch'''pointer_size'"
$ IF verbose THEN -
WRITE SYS$OUTPUT "PERL ''here'Configure ""''target'""",collected_args
$ IF .not. dryrun THEN -
PERL 'here'Configure "''target'"'collected_args'
$ EXIT $STATUS
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...