packages/vms/curl_startup.com

   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