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