1 $ ! OpenSSL shutdown script
3 $ ! This script deassigns the logical names used by the installation
4 $ ! of OpenSSL. It can do so at any level, defined by P1.
6 $ ! P1 Qualifier(s) for DEASSIGN.
9 $ ! P2 If the value is "NOALIASES", no alias logical names are
12 $ status = %x10000001 ! Generic success
14 $ ! In case there's a problem
15 $ ON CONTROL_Y THEN GOTO bailout
16 $ ON ERROR THEN GOTO bailout
18 $ ! Find the architecture
19 $ IF F$GETSYI("CPU") .LT. 128
23 $ arch := F$EDIT(F$GETSYI("ARCH_NAME"),"UPCASE")
24 $ IF arch .EQS. "" THEN GOTO unknown_arch
27 $ ! Generated information
28 $ VERSION := {- $config{version} -}
29 $ INSTALLTOP := {- $config{INSTALLTOP} -}
30 $ POINTER_SIZE = {- $config{pointersize} -}
33 $ DEAS := DEASSIGN /NOLOG 'P1'
34 $ v = VERSION - "." - "."
37 $ DEAS OSSL$INCLUDE'v'
40 $ DEAS OSSL$ENGINES'v'
42 $ {- join("\n\$ ", map { my $x = uc $_; "DEAS ${x}'v'" } @{$config{shared_libs}}) -}
43 $ IF P2 .NES. "NOALIASES"
52 $ {- join("\n\$ ", map { my $x = uc $_; "DEAS ${x}" } @{$config{shared_libs}}) -}