1 $ ! OpenSSL shutdown script
3 $ ! This script deassigns the logical names used by the installation
4 $ ! of OpenSSL. It can do so at any level, defined by P1.
6 $ ! P1 Qualifier(s) for DEASSIGN.
9 $ ! P2 If the value is "NOALIASES", no alias logical names are
12 $ status = %x10000001 ! Generic success
14 $ ! In case there's a problem
15 $ ON CONTROL_Y THEN GOTO bailout
16 $ ON ERROR THEN GOTO bailout
18 $ ! Find the architecture
19 $ IF F$GETSYI("CPU") .LT. 128
23 $ arch := F$EDIT(F$GETSYI("ARCH_NAME"),"UPCASE")
24 $ IF arch .EQS. "" THEN GOTO unknown_arch
28 $ DEAS := DEASSIGN /NOLOG 'P1'
29 $ sv := {- sprintf "%02d%02d", split m|\.|, $config{shlib_version_number} -}
30 $ pz := {- $config{pointer_size} -}
37 $ DEAS OSSL$ENGINES'sv'
39 $ DEAS OSSL$LIBCRYPTO'pz'
40 $ DEAS OSSL$LIBSSL'pz'
41 ${- output_off() if $config{no_shared}; "" -}
42 $ DEAS OSSL$LIBCRYPTO'sv'_SHR'pz'
43 $ DEAS OSSL$LIBSSL'sv'_SHR'pz'
44 ${- output_on() if $config{no_shared}; "" -}
47 $ IF P2 .NES. "NOALIASES"
50 ${- output_off() if $config{no_shared}; "" -}
51 $ DEAS OSSL$LIBCRYPTO_SHR'pz'
52 $ DEAS OSSL$LIBSSL_SHR'pz'
53 ${- output_on() if $config{no_shared}; "" -}