Return to curl_startup.com CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / curl / packages / vms

Annotation of embedaddon/curl/packages/vms/curl_startup.com, revision 1.1.1.1

1.1       misho       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 - 2020, 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