openssl_shutdown.com.in 1.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657
  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 := {- platform->shlib_version_as_filename(); -}
  30. $ pz := {- $target{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''pz'
  38. $ DEAS OSSL$MODULES'pz'
  39. $ DEAS OSSL$EXE
  40. $ DEAS OSSL$LIBCRYPTO'pz'
  41. $ DEAS OSSL$LIBSSL'pz'
  42. ${- output_off() if $config{no_shared}; "" -}
  43. $ DEAS OSSL$LIBCRYPTO'sv'_SHR'pz'
  44. $ DEAS OSSL$LIBSSL'sv'_SHR'pz'
  45. ${- output_on() if $config{no_shared}; "" -}
  46. $ DEAS OPENSSL
  47. $
  48. $ IF P2 .NES. "NOALIASES"
  49. $ THEN
  50. $ DEAS OSSL$ENGINES'pz'
  51. ${- output_off() if $config{no_shared}; "" -}
  52. $ DEAS OSSL$LIBCRYPTO_SHR'pz'
  53. $ DEAS OSSL$LIBSSL_SHR'pz'
  54. ${- output_on() if $config{no_shared}; "" -}
  55. $ ENDIF
  56. $
  57. $ EXIT 'status'