make update
[openssl.git] / VMS / openssl_shutdown.com.in
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 $       ! Generated information
28 $       VERSION := {- $config{version} -}
29 $       INSTALLTOP := {- $config{INSTALLTOP} -}
30 $       POINTER_SIZE = {- $config{pointersize} -}
31 $
32 $       ! Abbrevs
33 $       DEAS := DEASSIGN /NOLOG 'P1'
34 $       v    =  VERSION - "." - "."
35 $
36 $       DEAS OSSL$ROOT'v'
37 $       DEAS OSSL$INCLUDE'v'
38 $       DEAS OSSL$LIB'v'
39 $       DEAS OSSL$SHARE'v'
40 $       DEAS OSSL$ENGINES'v'
41 $       DEAS OSSL$EXE'v'
42 $       {- output_off() if $disabled{shared} -}
43 $       {- join("\n\$       ", map { "DEAS $_'v'" } map { $unified_info{sharednames}->{$_} || () } @{$unified_info{libraries}}) -}
44 $       {- output_on() -}
45 $       IF P2 .NES. "NOALIASES"
46 $       THEN
47 $           DEAS OSSL$ROOT
48 $           DEAS OSSL$INCLUDE
49 $           DEAS OSSL$LIB
50 $           DEAS OSSL$SHARE
51 $           DEAS OSSL$ENGINES
52 $           DEAS OSSL$EXE
53 $           DEAS OPENSSL
54 $           {- output_off() if $disabled{shared} -}
55 $           {- join("\n\$           ", map { "DEAS $_" } map { $unified_info{sharednames}->{$_} || () } @{$unified_info{libraries}}) -}
56 $           {- output_on() -}
57 $       ENDIF
58 $
59 $       EXIT 'status'