]>
Commit | Line | Data |
---|---|---|
e84193e4 RL |
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' | |
84af1bae | 42 | $ {- output_off() if $disabled{shared} -} |
e84193e4 RL |
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 | |
84af1bae | 54 | $ {- output_off() if $disabled{shared} -} |
e84193e4 RL |
55 | $ {- join("\n\$ ", map { "DEAS $_" } map { $unified_info{sharednames}->{$_} || () } @{$unified_info{libraries}}) -} |
56 | $ {- output_on() -} | |
57 | $ ENDIF | |
58 | $ | |
59 | $ EXIT 'status' |