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   := {- sprintf "%02d%02d", split m|\.|, $config{shlib_version_number} -}
     30 $	pz   := {- $config{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'
     38 $	DEAS OSSL$EXE
     39 $	DEAS OSSL$LIBCRYPTO'pz'
     40 $	DEAS OSSL$LIBSSL'pz'
     41 ${- output_off() if $config{no_shared}; "" -}
     42 $	DEAS OSSL$LIBCRYPTO'sv'_SHR'pz'
     43 $	DEAS OSSL$LIBSSL'sv'_SHR'pz'
     44 ${- output_on() if $config{no_shared}; "" -}
     45 $	DEAS OPENSSL
     46 $
     47 $	IF P2 .NES. "NOALIASES"
     48 $	THEN
     49 $	    DEAS OSSL$ENGINES
     50 ${- output_off() if $config{no_shared}; "" -}
     51 $	    DEAS OSSL$LIBCRYPTO_SHR'pz'
     52 $	    DEAS OSSL$LIBSSL_SHR'pz'
     53 ${- output_on() if $config{no_shared}; "" -}
     54 $	ENDIF
     55 $
     56 $	EXIT 'status'
     57