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