1*e0c4386eSCy Schubert$ ! OpenSSL shutdown script 2*e0c4386eSCy Schubert$ ! 3*e0c4386eSCy Schubert$ ! This script deassigns the logical names used by the installation 4*e0c4386eSCy Schubert$ ! of OpenSSL. It can do so at any level, defined by P1. 5*e0c4386eSCy Schubert$ ! 6*e0c4386eSCy Schubert$ ! P1 Qualifier(s) for DEASSIGN. 7*e0c4386eSCy Schubert$ ! Default: /PROCESS 8*e0c4386eSCy Schubert$ ! 9*e0c4386eSCy Schubert$ ! P2 If the value is "NOALIASES", no alias logical names are 10*e0c4386eSCy Schubert$ ! deassigned. 11*e0c4386eSCy Schubert$ 12*e0c4386eSCy Schubert$ status = %x10000001 ! Generic success 13*e0c4386eSCy Schubert$ 14*e0c4386eSCy Schubert$ ! In case there's a problem 15*e0c4386eSCy Schubert$ ON CONTROL_Y THEN GOTO bailout 16*e0c4386eSCy Schubert$ ON ERROR THEN GOTO bailout 17*e0c4386eSCy Schubert$ 18*e0c4386eSCy Schubert$ ! Find the architecture 19*e0c4386eSCy Schubert$ IF F$GETSYI("CPU") .LT. 128 20*e0c4386eSCy Schubert$ THEN 21*e0c4386eSCy Schubert$ arch := VAX 22*e0c4386eSCy Schubert$ ELSE 23*e0c4386eSCy Schubert$ arch := F$EDIT(F$GETSYI("ARCH_NAME"),"UPCASE") 24*e0c4386eSCy Schubert$ IF arch .EQS. "" THEN GOTO unknown_arch 25*e0c4386eSCy Schubert$ ENDIF 26*e0c4386eSCy Schubert$ 27*e0c4386eSCy Schubert$ ! Abbrevs 28*e0c4386eSCy Schubert$ DEAS := DEASSIGN /NOLOG 'P1' 29*e0c4386eSCy Schubert$ sv := {- platform->shlib_version_as_filename(); -} 30*e0c4386eSCy Schubert$ pz := {- $target{pointer_size} -} 31*e0c4386eSCy Schubert$ 32*e0c4386eSCy Schubert$ DEAS OSSL$DATAROOT 33*e0c4386eSCy Schubert$ DEAS OSSL$INSTROOT 34*e0c4386eSCy Schubert$ DEAS OSSL$INCLUDE 35*e0c4386eSCy Schubert$ DEAS OSSL$LIB 36*e0c4386eSCy Schubert$ DEAS OSSL$SHARE 37*e0c4386eSCy Schubert$ DEAS OSSL$ENGINES'sv''pz' 38*e0c4386eSCy Schubert$ DEAS OSSL$MODULES'pz' 39*e0c4386eSCy Schubert$ DEAS OSSL$EXE 40*e0c4386eSCy Schubert$ DEAS OSSL$LIBCRYPTO'pz' 41*e0c4386eSCy Schubert$ DEAS OSSL$LIBSSL'pz' 42*e0c4386eSCy Schubert${- output_off() if $disabled{shared}; "" -} 43*e0c4386eSCy Schubert$ DEAS OSSL$LIBCRYPTO'sv'_SHR'pz' 44*e0c4386eSCy Schubert$ DEAS OSSL$LIBSSL'sv'_SHR'pz' 45*e0c4386eSCy Schubert${- output_on() if $disabled{shared}; "" -} 46*e0c4386eSCy Schubert$ DEAS OPENSSL 47*e0c4386eSCy Schubert$ 48*e0c4386eSCy Schubert$ IF P2 .NES. "NOALIASES" 49*e0c4386eSCy Schubert$ THEN 50*e0c4386eSCy Schubert$ DEAS OSSL$ENGINES'pz' 51*e0c4386eSCy Schubert${- output_off() if $disabled{shared}; "" -} 52*e0c4386eSCy Schubert$ DEAS OSSL$LIBCRYPTO_SHR'pz' 53*e0c4386eSCy Schubert$ DEAS OSSL$LIBSSL_SHR'pz' 54*e0c4386eSCy Schubert${- output_on() if $disabled{shared}; "" -} 55*e0c4386eSCy Schubert$ ENDIF 56*e0c4386eSCy Schubert$ 57*e0c4386eSCy Schubert$ EXIT 'status' 58