2
0

openssl_shutdown.com.in 1.4 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556
  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. $ ! Abbrevs
  28. $ DEAS := DEASSIGN /NOLOG 'P1'
  29. $ sv := {- sprintf "%02d%02d", split m|\.|, $config{shlib_version} -}
  30. $ pz := {- $config{pointer_size} -}
  31. $
  32. $ DEAS OSSL$DATAROOT
  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'
  41. ${- output_off() if $config{no_shared}; "" -}
  42. $ DEAS OSSL$LIBCRYPTO'sv'_SHR'pz'
  43. $ DEAS OSSL$LIBSSL'sv'_SHR'pz'
  44. ${- output_on() if $config{no_shared}; "" -}
  45. $ DEAS OPENSSL
  46. $
  47. $ IF P2 .NES. "NOALIASES"
  48. $ THEN
  49. $ DEAS OSSL$ENGINES
  50. ${- output_off() if $config{no_shared}; "" -}
  51. $ DEAS OSSL$LIBCRYPTO_SHR'pz'
  52. $ DEAS OSSL$LIBSSL_SHR'pz'
  53. ${- output_on() if $config{no_shared}; "" -}
  54. $ ENDIF
  55. $
  56. $ EXIT 'status'