projects / thirdparty / openssl.git / blame
| 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 | $ | |
| e84193e4 RL |
27 | $ ! Abbrevs |
| 28 | $ DEAS := DEASSIGN /NOLOG 'P1' | |
| 34d5490a RL |
29 | $ sv := {- sprintf "%02d%02d", $config{shlib_major}, $config{shlib_minor} -} |
| 30 | $ pz := {- $config{pointer_size} -} | |
| e84193e4 | 31 | $ |
| a90f8d76 | 32 | $ DEAS OSSL$DATAROOT |
| e8fb1295 RL |
33 | $ DEAS OSSL$INSTROOT |
| 34 | $ DEAS OSSL$INCLUDE | |
| 35 | $ DEAS OSSL$LIB | |
| 36 | $ DEAS OSSL$SHARE | |
| 37 | $ DEAS OSSL$ENGINES'sv' | |
| 38 | $ DEAS OSSL$EXE | |
| 39 | $ DEAS OSSL$LIBCRYPTO'pz' | |
| 40 | $ DEAS OSSL$LIBSSL'pz' | |
| 8842005e RL |
41 | $ DEAS OSSL$LIBCRYPTO'sv'_SHR'pz' |
| 42 | $ DEAS OSSL$LIBSSL'sv'_SHR'pz' | |
| 794ad952 RL |
43 | $ DEAS OPENSSL |
| 44 | $ | |
| e84193e4 RL |
45 | $ IF P2 .NES. "NOALIASES" |
| 46 | $ THEN | |
| e84193e4 | 47 | $ DEAS OSSL$ENGINES |
| 8842005e RL |
48 | $ DEAS OSSL$LIBCRYPTO_SHR'pz' |
| 49 | $ DEAS OSSL$LIBSSL_SHR'pz' | |
| e84193e4 RL |
50 | $ ENDIF |
| 51 | $ | |
| 52 | $ EXIT 'status' |