packages/vms/build_curl-config_script.com

   1 $! build_curl-config_script.com
   2 $!
   3 $! This generates the curl-config. script from the curl-config.in file.
   4 $!
   5 $! Copyright 2014, John Malmberg
   6 $!
   7 $! Permission to use, copy, modify, and/or distribute this software for any
   8 $! purpose with or without fee is hereby granted, provided that the above
   9 $! copyright notice and this permission notice appear in all copies.
  10 $!
  11 $! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  12 $! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  13 $! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  14 $! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  15 $! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  16 $! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
  17 $! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  18 $!
  19 $!
  20 $! 16-Dec-2014  J. Malmberg
  21 $!
  22 $!===========================================================================
  23 $!
  24 $! Skip this if the curl-config. already exists.
  25 $ if f$search("[--]curl-config.") .nes. "" then goto all_exit
  26 $!
  27 $ if (f$getsyi("HW_MODEL") .lt. 1024)
  28 $ then
  29 $    arch_name = "VAX"
  30 $ else
  31 $    arch_name = ""
  32 $    arch_name = arch_name + f$edit(f$getsyi("ARCH_NAME"), "UPCASE")
  33 $    if (arch_name .eqs. "") then arch_name = "UNK"
  34 $ endif
  35 $!
  36 $ x_prefix = "/usr"
  37 $ x_exec_prefix = "/usr"
  38 $ x_includedir = "${prefix}/include"
  39 $ x_cppflag_curl_staticlib = "-DCURL_STATICLIB"
  40 $ x_enabled_shared = "no"
  41 $ x_curl_ca_bundle = ""
  42 $ x_cc = "cc"
  43 $ x_support_features = "SSL IPv6 libz NTLM"
  44 $ x_support_protocols1 = "DICT FILE FTP FTPS GOPHER HTTP HTTPS IMAP IMAPS LDAP"
  45 $ x_support_protocols2 = " LDAPS POP3 POP3S RTSP SMTP SMTPS TELNET TFTP"
  46 $ x_support_protocols = x_support_protocols1 + x_support_protocols2
  47 $ x_curlversion = "0.0.0.0"
  48 $ x_versionnum = ""
  49 $ x_libdir = "${prefix}/lib"
  50 $ x_require_lib_deps = ""
  51 $ x_enable_static = ""
  52 $ x_ldflags = ""
  53 $ part1 = "-L/usr/lib -L/SSL_LIB -lssl -lcrypto -lz"
  54 $ if arch_name .eqs. "VAX"
  55 $ then
  56 $   x_libcurl_libs = part1
  57 $ else
  58 $   x_libcurl_libs = part1 + " -lgssapi"
  59 $ endif
  60 $ x_libext = "a"
  61 $!
  62 $! Get the version number
  63 $!-----------------------
  64 $ i = 0
  65 $ open/read/error=version_loop_end vhf [--.include.curl]curlver.h
  66 $ version_loop:
  67 $   read/end=version_loop_end vhf line_in
  68 $   if line_in .eqs. "" then goto version_loop
  69 $   if f$locate("#define LIBCURL_VERSION ", line_in) .eq. 0
  70 $   then
  71 $       x_curlversion = f$element(2," ", line_in) - """" - """"
  72 $       i = i + 1
  73 $   endif
  74 $   if f$locate("#define LIBCURL_VERSION_NUM ", line_in) .eq. 0
  75 $   then
  76 $       x_versionnum = f$element(2," ", line_in) - """" - """"
  77 $       i = i + 1
  78 $   endif
  79 $   if i .lt 2 then goto version_loop
  80 $ version_loop_end:
  81 $ close vhf
  82 $!
  83 $ kit_type = "V"
  84 $ if f$locate("-", x_curlversion) .lt. f$length(x_curlversion)
  85 $ then
  86 $   kit_type = "D"
  87 $   x_prefix = "/beta"
  88 $   x_exec_prefix = "/beta"
  89 $ endif
  90 $!
  91 $ if kit_type .nes. "D"
  92 $ then
  93 $    part1 = "        echo "" '--prefix=/usr' '--exec-prefix=/usr' "
  94 $ else
  95 $    part1 = "        echo "" '--prefix=/beta' '--exec_prefix=/beta' "
  96 $ endif
  97 $ if arch_name .eqs. "VAX"
  98 $ then
  99 $    part3 = ""
 100 $ else
 101 $    part3 = "'--with-gssapi' "
 102 $ endif
 103 $ part2 = "'--disable-dependency-tracking' '--disable-libtool-lock' "
 104 $ part4 = "'--disable-ntlm-wb' '--with-ca-path=gnv$curl_ca_path'"""
 105 $!
 106 $ x_configure_options = part1 + part2 + part3 + part4
 107 $!
 108 $!
 109 $ open/read/error=read_loop_end c_c_in sys$disk:[--]curl-config.in
 110 $ create sys$disk:[--]curl-config.
 111 $ open/append c_c_out sys$disk:[--]curl-config.
 112 $read_loop:
 113 $   read/end=read_loop_end c_c_in line_in
 114 $   line_in_len = f$length(line_in)
 115 $   if f$locate("@", line_in) .ge. line_in_len
 116 $   then
 117 $       write c_c_out line_in
 118 $       goto read_loop
 119 $   endif
 120 $   i = 0
 121 $   line_out = ""
 122 $sub_loop:
 123 $       ! Replace between pairs of @ by alternating the elements.
 124 $       ! If mis-matched pairs, do not substitute anything.
 125 $       section1 = f$element(i, "@", line_in)
 126 $       if section1 .eqs. "@"
 127 $       then
 128 $           goto sub_loop_end
 129 $       endif
 130 $       i = i + 1
 131 $       section2 = f$element(i, "@", line_in)
 132 $       if section2 .eqs. "@"
 133 $       then
 134 $           goto sub_loop_end
 135 $       endif
 136 $       i = i + 1
 137 $       section3 = f$element(i, "@", line_in)
 138 $       if section3 .eqs. "@"
 139 $       then
 140 $           if line_out .eqs. "" then line_out = line_in
 141 $           goto sub_loop_end
 142 $       endif
 143 $       line_out = line_out + section1
 144 $       if f$type(x_'section2') .eqs. "STRING"
 145 $       then
 146 $           line_out = line_out + x_'section2'
 147 $       endif
 148 $       goto sub_loop
 149 $sub_loop_end:
 150 $   write c_c_out line_out
 151 $   goto read_loop
 152 $read_loop_end:
 153 $ close c_c_in
 154 $ close c_c_out