VMS/openssl_shutdown.com.in

   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   := {- sprintf "%02d%02d", $config{shlib_major}, $config{shlib_minor} -}
  30 $       pz   := {- $config{pointer_size} -}
  31 $
  32 $       DEAS OSSL$INSTROOT
  33 $       DEAS OSSL$INCLUDE
  34 $       DEAS OSSL$LIB
  35 $       DEAS OSSL$SHARE
  36 $       DEAS OSSL$ENGINES'sv'
  37 $       DEAS OSSL$EXE
  38 $       DEAS OSSL$LIBCRYPTO'pz'
  39 $       DEAS OSSL$LIBSSL'pz'
  40 $       DEAS OSSL$LIBCRYPTO'sv'_SHR'pz'
  41 $       DEAS OSSL$LIBSSL'sv'_SHR'pz'
  42 $       DEAS OPENSSL
  43 $
  44 $       IF P2 .NES. "NOALIASES"
  45 $       THEN
  46 $           DEAS OSSL$ENGINES
  47 $           DEAS OSSL$LIBCRYPTO_SHR'pz'
  48 $           DEAS OSSL$LIBSSL_SHR'pz'
  49 $       ENDIF
  50 $
  51 $       EXIT 'status'