2
0

curl_startup.com 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100
  1. $! File: curl_Startup.com
  2. $!
  3. $! $Id$
  4. $!
  5. $! Procedure to setup the CURL libraries for use by programs from the
  6. $! VMS SYSTARTUP*.COM procedure.
  7. $!
  8. $! Copyright 2009, John Malmberg
  9. $!
  10. $! Permission to use, copy, modify, and/or distribute this software for any
  11. $! purpose with or without fee is hereby granted, provided that the above
  12. $! copyright notice and this permission notice appear in all copies.
  13. $!
  14. $! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  15. $! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  16. $! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  17. $! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  18. $! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  19. $! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
  20. $! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  21. $!
  22. $! 15-Jun-2009 J. Malmberg
  23. $! 30-Jul-2013 J. Malmberg Update for Curl 7.32
  24. $!========================================================================
  25. $!
  26. $!
  27. $! GNV$GNU if needed.
  28. $ if f$trnlnm("GNV$GNU") .eqs. ""
  29. $ then
  30. $ x = f$trnlnm("GNU","LNM$SYSTEM_TABLE")
  31. $ if x .eqs. ""
  32. $ then
  33. $ write sys$output "GNV must be started up before this procedure.
  34. $ exit 44
  35. $ endif
  36. $ define/system/exec/trans=conc GNV$GNU 'x'
  37. $ endif
  38. $!
  39. $!
  40. $ myproc = f$environment("procedure")
  41. $!
  42. $! ZLIB needed.
  43. $ if f$trnlnm("GNV$LIBZSHR32") .eqs. ""
  44. $ then
  45. $ zlib_startup = f$parse("gnv$zlib_startup.com;0", myproc,,,)
  46. $ if f$search(zlib_startup) .nes. ""
  47. $ then
  48. $ @'zlib_startup
  49. $ else
  50. $ write sys$output "ZLIB package not found and is required."
  51. $ exit 44
  52. $ endif
  53. $ endif
  54. $!
  55. $!
  56. $ curl_ssl_libcrypto32 = ""
  57. $ curl_ssl_libssl32 = ""
  58. $ gnv_ssl_libcrypto32 = "gnv$gnu:[lib]ssl$libcrypto_shr32.exe"
  59. $ gnv_ssl_libssl32 = "gnv$gnu:[lib]ssl$libssl_shr32.exe"
  60. $ if f$search(gnv_ssl_libcrypto32) .nes. ""
  61. $ then
  62. $ curl_ssl_libcrypto32 = gnv_ssl_libcrypto32
  63. $ curl_ssl_libssl32 = gnv_ssl_libssl32
  64. $ else
  65. $ hp_ssl_libcrypto32 = "sys$share:ssl$libcrypto_shr32.exe"
  66. $ hp_ssl_libssl32 = "sys$share:ssl$libssl_shr32.exe"
  67. $ if f$search(hp_ssl_libcrypto32) .nes. ""
  68. $ then
  69. $ curl_ssl_libcrypto32 = hp_ssl_libcrypto32
  70. $ curl_ssl_libssl32 = hp_ssl_libssl32
  71. $ else
  72. $ write sys$output "HP SSL package not found and is required."
  73. $ endif
  74. $ endif
  75. $!
  76. $ define/system/exec gnv$curl_ssl_libcryptoshr32 'curl_ssl_libcrypto32'
  77. $ define/system/exec gnv$curl_ssl_libsslshr32 'curl_ssl_libssl32'
  78. $!
  79. $!
  80. $! CURL setup
  81. $ define/system/exec gnv$libcurl gnv$gnu:[usr.lib]GNV$LIBCURL.EXE
  82. $ define/system/exec gnv$curl_include gnv$gnu:[usr.include.curl]
  83. $ if .not. f$file_attributes("gnv$libcurl", "known")
  84. $ then
  85. $ install ADD gnv$libcurl/OPEN/SHARE/HEADER
  86. $ else
  87. $ install REPLACE gnv$libcurl/OPEN/SHARE/HEADER
  88. $ endif
  89. $!
  90. $!
  91. $ curl_exe = "gnv$gnu:[usr.bin]gnv$curl.exe"
  92. $ if .not. f$file_attributes(curl_exe, "known")
  93. $ then
  94. $ install ADD 'curl_exe'/OPEN/SHARE/HEADER
  95. $ else
  96. $ install REPLACE 'curl_exe'/OPEN/SHARE/HEADER
  97. $ endif
  98. $!
  99. $all_exit:
  100. $ exit