$ ! 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 $disabled{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 $disabled{shared} -} $ {- join("\n\$ ", map { "DEAS $_" } map { $unified_info{sharednames}->{$_} || () } @{$unified_info{libraries}}) -} $ {- output_on() -} $ ENDIF $ $ EXIT 'status'