diff options
Diffstat (limited to 'VMS/openssl_shutdown.com.in')
-rw-r--r-- | VMS/openssl_shutdown.com.in | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/VMS/openssl_shutdown.com.in b/VMS/openssl_shutdown.com.in new file mode 100644 index 0000000000..85cc26da3b --- /dev/null +++ b/VMS/openssl_shutdown.com.in @@ -0,0 +1,59 @@ +$ ! 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 +$ +$ ! Generated information +$ VERSION := {- $config{version} -} +$ INSTALLTOP := {- $config{INSTALLTOP} -} +$ POINTER_SIZE = {- $config{pointersize} -} +$ +$ ! Abbrevs +$ DEAS := DEASSIGN /NOLOG 'P1' +$ v = VERSION - "." - "." +$ +$ DEAS OSSL$ROOT'v' +$ DEAS OSSL$INCLUDE'v' +$ DEAS OSSL$LIB'v' +$ DEAS OSSL$SHARE'v' +$ DEAS OSSL$ENGINES'v' +$ DEAS OSSL$EXE'v' +$ {- output_off() if $config{no_shared} -} +$ {- join("\n\$ ", map { "DEAS $_'v'" } map { $unified_info{sharednames}->{$_} || () } @{$unified_info{libraries}}) -} +$ {- output_on() -} +$ IF P2 .NES. "NOALIASES" +$ THEN +$ DEAS OSSL$ROOT +$ DEAS OSSL$INCLUDE +$ DEAS OSSL$LIB +$ DEAS OSSL$SHARE +$ DEAS OSSL$ENGINES +$ DEAS OSSL$EXE +$ DEAS OPENSSL +$ {- output_off() if $config{no_shared} -} +$ {- join("\n\$ ", map { "DEAS $_" } map { $unified_info{sharednames}->{$_} || () } @{$unified_info{libraries}}) -} +$ {- output_on() -} +$ ENDIF +$ +$ EXIT 'status' |