• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
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