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 101