build_curl-config_script.com 4.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154
  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