upd: openssl to 1.1.0

[cassiopeia.git] / lib / openssl / VMS / openssl_shutdown.com.in

diff --git a/lib/openssl/VMS/openssl_shutdown.com.in b/lib/openssl/VMS/openssl_shutdown.com.in
new file mode 100644 (file)
index 0000000..f0df1c1
--- /dev/null
+++ b/lib/openssl/VMS/openssl_shutdown.com.in
@@ -0,0 +1,56 @@
+$      ! 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   := {- sprintf "%02d%02d", $config{shlib_major}, $config{shlib_minor} -}
+$      pz   := {- $config{pointer_size} -}
+$
+$      DEAS OSSL$DATAROOT
+$      DEAS OSSL$INSTROOT
+$      DEAS OSSL$INCLUDE
+$      DEAS OSSL$LIB
+$      DEAS OSSL$SHARE
+$      DEAS OSSL$ENGINES'sv'
+$      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
+${- 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'