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 $config{no_shared}; "" -} 43$ DEAS OSSL$LIBCRYPTO'sv'_SHR'pz' 44$ DEAS OSSL$LIBSSL'sv'_SHR'pz' 45${- output_on() if $config{no_shared}; "" -} 46$ DEAS OPENSSL 47$ 48$ IF P2 .NES. "NOALIASES" 49$ THEN 50$ DEAS OSSL$ENGINES'pz' 51${- output_off() if $config{no_shared}; "" -} 52$ DEAS OSSL$LIBCRYPTO_SHR'pz' 53$ DEAS OSSL$LIBSSL_SHR'pz' 54${- output_on() if $config{no_shared}; "" -} 55$ ENDIF 56$ 57$ EXIT 'status' 58
