summaryrefslogtreecommitdiffstats
path: root/VMS/openssl_shutdown.com.in
blob: 4193c900f9e99e10ac1752c5228f17edcbdf50cb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
$	! OpenSSL shutdown script
$	!
$	! This script deassigns the logical names used by the installation
$	! of OpenSSL.  It can do so at any level, defined by P1.
$	!
$	! P1	Qualifier(s) for DEASSIGN.
$	!	Default: /PROCESS
$	!
$	! P2	If the value is "NOALIASES", no alias logical names are
$	!	deassigned.
$
$	status = %x10000001	! Generic success
$
$	! In case there's a problem
$	ON CONTROL_Y THEN GOTO bailout
$	ON ERROR THEN GOTO bailout
$
$	! Find the architecture
$	IF F$GETSYI("CPU") .LT. 128
$	THEN
$	    arch := VAX
$	ELSE
$	    arch := F$EDIT(F$GETSYI("ARCH_NAME"),"UPCASE")
$	    IF arch .EQS. "" THEN GOTO unknown_arch
$	ENDIF
$
$	! Abbrevs
$	DEAS := DEASSIGN /NOLOG 'P1'
$	sv   := {- platform->shlib_version_as_filename(); -}
$	pz   := {- $target{pointer_size} -}
$
$	DEAS OSSL$DATAROOT
$	DEAS OSSL$INSTROOT
$	DEAS OSSL$INCLUDE
$	DEAS OSSL$LIB
$	DEAS OSSL$SHARE
$	DEAS OSSL$ENGINES'sv''pz'
$	DEAS OSSL$MODULES'pz'
$	DEAS OSSL$EXE
$	DEAS OSSL$LIBCRYPTO'pz'
$	DEAS OSSL$LIBSSL'pz'
${- output_off() if $config{no_shared}; "" -}
$	DEAS OSSL$LIBCRYPTO'sv'_SHR'pz'
$	DEAS OSSL$LIBSSL'sv'_SHR'pz'
${- output_on() if $config{no_shared}; "" -}
$	DEAS OPENSSL
$
$	IF P2 .NES. "NOALIASES"
$	THEN
$	    DEAS OSSL$ENGINES'pz'
${- output_off() if $config{no_shared}; "" -}
$	    DEAS OSSL$LIBCRYPTO_SHR'pz'
$	    DEAS OSSL$LIBSSL_SHR'pz'
${- output_on() if $config{no_shared}; "" -}
$	ENDIF
$
$	EXIT 'status'