56 lines
1.4 KiB
Text
56 lines
1.4 KiB
Text
$ ! 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", $config{shlib_major}, $config{shlib_minor} -}
|
|
$ 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'
|