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