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