$ ! 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", split m|\.|, $config{shlib_version_number} -} $ 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'