2
0

generate_vax_transfer.com 8.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274
  1. $! File: generate_vax_transfer.com
  2. $!
  3. $! $Id$
  4. $!
  5. $! File to generate and compile the VAX transfer vectors from reading in the
  6. $! Alpha/Itanium gnv_libcurl_symbols.opt file.
  7. $!
  8. $! This procedure patches the VAX Macro32 assembler to be case sensitive
  9. $! and then compiles the generated
  10. $!
  11. $! The output of this procedure is:
  12. $! gnv_libcurl_xfer.mar_exact
  13. $! gnv_libcurl_xfer.obj
  14. $! gnv_libcurl_xfer.opt
  15. $! macro32_exactcase.exe
  16. $!
  17. $! Copyright 2013 - 2020, John Malmberg
  18. $!
  19. $! Permission to use, copy, modify, and/or distribute this software for any
  20. $! purpose with or without fee is hereby granted, provided that the above
  21. $! copyright notice and this permission notice appear in all copies.
  22. $!
  23. $! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  24. $! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  25. $! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  26. $! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  27. $! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  28. $! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
  29. $! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  30. $!
  31. $! 20-Jul-2013 J. Malmberg
  32. $!============================================================================
  33. $!
  34. $! Save this so we can get back.
  35. $ default_dir = f$environment("default")
  36. $!
  37. $ on warning then goto all_exit
  38. $!
  39. $! Want hard tabs in the generated file.
  40. $ tab[0,8] = 9
  41. $!
  42. $! This procedure is used on VAX only
  43. $ if (f$getsyi("HW_MODEL") .ge. 1024)
  44. $ then
  45. $ write sys$output "This procedure is only used on VAX."
  46. $ goto all_exit
  47. $ endif
  48. $!
  49. $!
  50. $! Get the libcurl version to generate the ident string.
  51. $! ident string is max of 31 characters.
  52. $!
  53. $ ident_string = "unknown"
  54. $ open/read cver [-.-.include.curl]curlver.h
  55. $cver_loop:
  56. $ read/end=cver_loop_end cver line_in
  57. $ line_in = f$edit(line_in, "COMPRESS,TRIM")
  58. $ if line_in .eqs. "" then goto cver_loop
  59. $ code = f$extract(0, 1, line_in)
  60. $ if code .nes. "#" then goto cver_loop
  61. $ directive = f$element(0, " ", line_in)
  62. $ if directive .nes. "#define" then goto cver_loop
  63. $ name = f$element(1, " ", line_in)
  64. $ if name .nes. "LIBCURL_VERSION" then goto cver_loop
  65. $ ident_string = f$element(2, " ", line_in) - "" - ""
  66. $cver_loop_end:
  67. $ close cver
  68. $!
  69. $ open/read aopt gnv_libcurl_symbols.opt
  70. $!
  71. $! Write out the header
  72. $ gosub do_header
  73. $!
  74. $ open/append vopt gnv_libcurl_xfer.mar_exact
  75. $ write vopt tab,".IDENT /", ident_string, "/"
  76. $!
  77. $ write vopt tab, ".PSECT LIBCURL_XFERVECTORS -"
  78. $ write vopt tab,tab,tab, "PIC,USR,CON,REL,GBL,SHR,EXE,RD,NOWRT,QUAD"
  79. $ write vopt ""
  80. $ write vopt tab, "SPARE", tab, "; never delete this spare"
  81. $ write vopt ";"
  82. $ write vopt ";", tab, "Exact case and upper case transfer vectors"
  83. $!
  84. $ alias_count = 0
  85. $vector_loop:
  86. $!
  87. $! Read in symbol_vector
  88. $!
  89. $ read/end=vector_loop_end aopt line_in
  90. $ line = f$edit(line_in, "UNCOMMENT,COMPRESS,TRIM")
  91. $ if line .eqs. "" then goto vector_loop
  92. $!
  93. $ line_u = f$edit(line, "UPCASE")
  94. $ key = f$element(0, "=", line_u)
  95. $ if (key .eqs. "SYMBOL_VECTOR")
  96. $ then
  97. $ symbol_string = f$element(1, "=", line) - "("
  98. $ symbol_type = f$element(2, "=", line_u) - ")"
  99. $ symbol_name = f$element(1, "/", symbol_string)
  100. $ if symbol_type .nes. "PROCEDURE"
  101. $ then
  102. $ write sys$output "%CURLBUILD-W-NOTPROC, " + -
  103. $ "This procedure can only handle procedure vectors"
  104. $ write sys$output -
  105. "Data vectors require manual construction for which this procedure or"
  106. $ write sys$output -
  107. "the shared library needs to be updated to resolve."
  108. $ write sys$output -
  109. "the preferred solution is to have a procedure return the address of the "
  110. $ write sys$output -
  111. "the variable instead of having a variable, as if the size of the variable "
  112. write sys$output -
  113. "changes, the symbol vector is no longer backwards compatible."
  114. $ endif
  115. $ if (symbol_name .eqs. "/")
  116. $ then
  117. $ symbol_name = symbol_string
  118. $ write vopt tab, symbol_type, tab, symbol_name
  119. $ else
  120. $ alias_count = alias_count + 1
  121. $ symbol_alias = f$element(0, "/", symbol_string)
  122. $ write vopt -
  123. tab, "''symbol_type_U", tab, symbol_name, tab, symbol_alias
  124. $ endif
  125. $ endif
  126. $ goto vector_loop
  127. $vector_loop_end:
  128. $!
  129. $! End of pass one, second pass needed if aliases exist
  130. $ close aopt
  131. $!
  132. $ if alias_count .eq. 0 then goto finish_file
  133. $!
  134. $! Start pass 2, write stub routine header
  135. $!
  136. $ open/read aopt gnv_libcurl_symbols.opt
  137. $!
  138. $alias_loop:
  139. $!
  140. $! Read in symbol_vector
  141. $!
  142. $ read/end=alias_loop_end aopt line_in
  143. $ line = f$edit(line_in, "UNCOMMENT,COMPRESS,TRIM")
  144. $ if line .eqs. "" then goto alias_loop
  145. $!
  146. $ line_u = f$edit(line, "UPCASE")
  147. $ key = f$element(0, "=", line_u)
  148. $ if (key .eqs. "SYMBOL_VECTOR")
  149. $ then
  150. $ symbol_string = f$element(1, "=", line) - "("
  151. $ symbol_type = f$element(2, "=", line_u) - ")"
  152. $ symbol_name = f$element(1, "/", symbol_string)
  153. $ if (symbol_name .eqs. "/")
  154. $ then
  155. $ symbol_name = symbol_string
  156. $ else
  157. $ alias_count = alias_count + 1
  158. $ symbol_alias = f$element(0, "/", symbol_string)
  159. $ write vopt tab, ".ENTRY", tab, symbol_alias, ", ^M<>"
  160. $ endif
  161. $ endif
  162. $ goto alias_loop
  163. $! read in symbol_vector
  164. $! if not alias, then loop
  165. $! write out subroutine name
  166. $!
  167. $alias_loop_end:
  168. $!
  169. $ write vopt tab, "MOVL #1, R0"
  170. $ write vopt tab, "RET"
  171. $!
  172. $finish_file:
  173. $!
  174. $ write vopt ""
  175. $ write vopt tab, ".END"
  176. $!
  177. $ close aopt
  178. $ close vopt
  179. $!
  180. $! Patch the Macro32 compiler
  181. $!----------------------------
  182. $ patched_macro = "sys$disk:[]macro32_exactcase.exe"
  183. $ if f$search(patched_macro) .eqs. ""
  184. $ then
  185. $ copy sys$system:macro32.exe 'patched_macro'
  186. $ patch @macro32_exactcase.patch
  187. $ endif
  188. $ define/user macro32 'patched_macro'
  189. $ macro/object=gnv_libcurl_xfer.obj gnv_libcurl_xfer.mar_exact
  190. $!
  191. $! Create the option file for linking the shared image.
  192. $ create gnv_libcurl_xfer.opt
  193. $ open/append lco gnv_libcurl_xfer.opt
  194. $ write lco "gsmatch=lequal,1,1"
  195. $ write lco "cluster=transfer_vector,,,''default_dir'gnv_libcurl_xfer"
  196. $ write lco "collect=libcurl_global, libcurl_xfervectors"
  197. $ close lco
  198. $!
  199. $!
  200. $ goto all_exit
  201. $!
  202. $! Process the header
  203. $do_header:
  204. $!
  205. $! Force the mode of the file to same as text editor generated.
  206. $ create gnv_libcurl_xfer.mar_exact
  207. $deck
  208. ; File: gnv_libcurl_xfer.mar_exact
  209. ;
  210. ; VAX transfer vectors
  211. ;
  212. ; This needs to be compiled with a specialized patch on Macro32 to make it
  213. ; preserve the case of symbols instead of converting it to uppercase.
  214. ;
  215. ; This patched Macro32 requires all directives to be in upper case.
  216. ;
  217. ; There are three sets of symbols for transfer vectors here.
  218. ;
  219. ; The first for upper case which matches the tradition method of generating
  220. ; VAX transfer vectors.
  221. ;
  222. ; The second is the exact case for compatibility with open source C programs
  223. ; that expect exact case symbols in images. These are separated because a
  224. ; previous kit had only upper case symbols.
  225. ;
  226. ; The third is the routine stub that is used to resolve part of the upper
  227. ; case transfer vectors, with exact case entry symbols.
  228. ;
  229. ; When you add routines, you need to add them after the second set of transfer
  230. ; vectors for both upper and exact case, and then additional entry points
  231. ; in upper case added to stub routines.
  232. ;
  233. ;*************************************************************************
  234. .TITLE libcurl_xfer - Transfer vector for libcurl
  235. .DISABLE GLOBAL
  236. ;
  237. ; Macro to generate a transfer vector entry
  238. ;
  239. .MACRO PROCEDURE NAME
  240. .EXTRN 'NAME
  241. .ALIGN QUAD
  242. .TRANSFER 'NAME
  243. .MASK 'NAME
  244. JMP 'NAME+2
  245. .ENDM
  246. .MACRO PROCEDUREU NAME NAMEU
  247. .EXTRN 'NAME
  248. .ALIGN QUAD
  249. .TRANSFER 'NAMEU
  250. .MASK 'NAME
  251. JMP 'NAME+2
  252. .ENDM
  253. ;
  254. ;
  255. ; Macro to reserve a spare entry.
  256. ;
  257. .MACRO SPARE
  258. .ALIGN QUAD
  259. .ALIGN QUAD
  260. .QUAD 0
  261. .ENDM
  262. $EOD
  263. $!
  264. $!
  265. $ return
  266. $!
  267. $all_exit:
  268. $set def 'default_dir'
  269. $exit '$status'