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 $       ! Generated information
  28 $       VERSION := {- $config{version} -}
  29 $       INSTALLTOP := {- $config{INSTALLTOP} -}
  30 $       POINTER_SIZE = {- $config{pointersize} -}
  31 $
  32 $       ! Abbrevs
  33 $       DEAS := DEASSIGN /NOLOG 'P1'
  34 $       v    =  VERSION - "." - "."
  35 $
  36 $       DEAS OSSL$ROOT'v'
  37 $       DEAS OSSL$INCLUDE'v'
  38 $       DEAS OSSL$LIB'v'
  39 $       DEAS OSSL$SHARE'v'
  40 $       DEAS OSSL$ENGINES'v'
  41 $       DEAS OSSL$EXE'v'
  42 $       {- output_off() if $disabled{shared} -}
  43 $       {- join("\n\$       ", map { "DEAS $_'v'" } map { $unified_info{sharednames}->{$_} || () } @{$unified_info{libraries}}) -}
  44 $       {- output_on() -}
  45 $       IF P2 .NES. "NOALIASES"
  46 $       THEN
  47 $           DEAS OSSL$ROOT
  48 $           DEAS OSSL$INCLUDE
  49 $           DEAS OSSL$LIB
  50 $           DEAS OSSL$SHARE
  51 $           DEAS OSSL$ENGINES
  52 $           DEAS OSSL$EXE
  53 $           DEAS OPENSSL
  54 $           {- output_off() if $disabled{shared} -}
  55 $           {- join("\n\$           ", map { "DEAS $_" } map { $unified_info{sharednames}->{$_} || () } @{$unified_info{libraries}}) -}
  56 $           {- output_on() -}
  57 $       ENDIF
  58 $
  59 $       EXIT 'status'