| blob | b0d1fdaac33d73fefe522b277ed9a1ecd45ac9e4 |
1 $! MKSHARED.COM -- Create shareable images.
2 $!
3 $! P1: "64" for 64-bit pointers.
4 $!
5 $! P2: Zlib object library path (optional).
6 $!
7 $! Input: [.UTIL]LIBEAY.NUM,[.xxx.EXE.CRYPTO]SSL_LIBCRYPTO[32].OLB
8 $! [.UTIL]SSLEAY.NUM,[.xxx.EXE.SSL]SSL_LIBSSL[32].OLB
9 $! [.CRYPTO.xxx]OPENSSLCONF.H
10 $! Output: [.xxx.EXE.CRYPTO]SSL_LIBCRYPTO_SHR[32].OPT,.MAP,.EXE
11 $! [.xxx.EXE.SSL]SSL_LIBSSL_SRH[32].OPT,.MAP,.EXE
12 $!
13 $! So far, tests have only been made on VMS for Alpha. VAX will come in time.
14 $! ===========================================================================
15 $!
16 $! Announce/identify.
17 $!
18 $ proc = f$environment( "procedure")
19 $ write sys$output "@@@ "+ -
20 f$parse( proc, , , "name")+ f$parse( proc, , , "type")
21 $!
22 $! Save the original default device:[directory].
23 $!
24 $ def_orig = f$environment( "default")
25 $ on error then goto tidy
26 $ on control_c then goto tidy
27 $!
28 $! SET DEFAULT to the main kit directory.
29 $!
30 $ proc = f$environment("procedure")
31 $ proc = f$parse( "A.;", proc)- "A.;"
32 $ set default 'proc'
33 $ set default [-]
34 $!
35 $! ----- Prepare info for processing: version number and file info
36 $ gosub read_version_info
37 $ if libver .eqs. ""
38 $ then
39 $ write sys$error "ERROR: Couldn't find any library version info..."
40 $ go to tidy:
41 $ endif
42 $
43 $ if (f$getsyi("cpu") .lt. 128)
44 $ then
45 $ arch_vax = 1
46 $ arch = "VAX"
47 $ else
48 $ arch_vax = 0
49 $ arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE")
50 $ if (arch .eqs. "") then arch = "UNK"
51 $ endif
52 $!
53 $ archd = arch
54 $ lib32 = "32"
55 $ shr = "SHR32"
56 $!
57 $ if (p1 .nes. "")
58 $ then
59 $ if (p1 .eqs. "64")
60 $ then
61 $ archd = arch+ "_64"
62 $ lib32 = ""
63 $ shr = "SHR"
64 $ else
65 $ if (p1 .nes. "32")
66 $ then
67 $ write sys$output "Second argument invalid."
68 $ write sys$output "It should be "32", "64", or nothing."
69 $ exit
70 $ endif
71 $ endif
72 $ endif
73 $!
74 $! ----- Prepare info for processing: disabled algorithms info
75 $ gosub read_disabled_algorithms_info
76 $!
77 $ ZLIB = p2
78 $ zlib_lib = ""
79 $ if (ZLIB .nes. "")
80 $ then
81 $ file2 = f$parse( ZLIB, "libz.olb", , , "syntax_only")
82 $ if (f$search( file2) .eqs. "")
83 $ then
84 $ write sys$output ""
85 $ write sys$output "The Option ", ZLIB, " Is Invalid."
86 $ write sys$output " Can't find library: ''file2'"
87 $ write sys$output ""
88 $ goto tidy
89 $ endif
90 $ zlib_lib = ", ''file2' /library"
91 $ endif
92 $!
93 $ if (arch_vax)
94 $ then
95 $ libtit = "CRYPTO_TRANSFER_VECTOR"
96 $ libid = "Crypto"
97 $ libnum = "[.UTIL]LIBEAY.NUM"
98 $ libdir = "[.''ARCHD'.EXE.CRYPTO]"
99 $ libmar = "''libdir'SSL_LIBCRYPTO_''shr'.MAR"
100 $ libolb = "''libdir'SSL_LIBCRYPTO''lib32'.OLB"
101 $ libopt = "''libdir'SSL_LIBCRYPTO_''shr'.OPT"
102 $ libobj = "''libdir'SSL_LIBCRYPTO_''shr'.OBJ"
103 $ libmap = "''libdir'SSL_LIBCRYPTO_''shr'.MAP"
104 $ libgoal= "''libdir'SSL_LIBCRYPTO_''shr'.EXE"
105 $ libref = ""
106 $ libvec = "LIBCRYPTO"
107 $ if f$search( libolb) .nes. "" then gosub create_vax_shr
108 $ libtit = "SSL_TRANSFER_VECTOR"
109 $ libid = "SSL"
110 $ libnum = "[.UTIL]SSLEAY.NUM"
111 $ libdir = "[.''ARCHD'.EXE.SSL]"
112 $ libmar = "''libdir'SSL_LIBSSL_''shr'.MAR"
113 $ libolb = "''libdir'SSL_LIBSSL''lib32'.OLB"
114 $ libopt = "''libdir'SSL_LIBSSL_''shr'.OPT"
115 $ libobj = "''libdir'SSL_LIBSSL_''shr'.OBJ"
116 $ libmap = "''libdir'SSL_LIBSSL_''shr'.MAP"
117 $ libgoal= "''libdir'SSL_LIBSSL_''shr'.EXE"
118 $ libref = "[.''ARCHD'.EXE.CRYPTO]SSL_LIBCRYPTO_''shr'.EXE"
119 $ libvec = "LIBSSL"
120 $ if f$search( libolb) .nes. "" then gosub create_vax_shr
121 $ else
122 $ libid = "Crypto"
123 $ libnum = "[.UTIL]LIBEAY.NUM"
124 $ libdir = "[.''ARCHD'.EXE.CRYPTO]"
125 $ libolb = "''libdir'SSL_LIBCRYPTO''lib32'.OLB"
126 $ libopt = "''libdir'SSL_LIBCRYPTO_''shr'.OPT"
127 $ libmap = "''libdir'SSL_LIBCRYPTO_''shr'.MAP"
128 $ libgoal= "''libdir'SSL_LIBCRYPTO_''shr'.EXE"
129 $ libref = ""
130 $ if f$search( libolb) .nes. "" then gosub create_nonvax_shr
131 $ libid = "SSL"
132 $ libnum = "[.UTIL]SSLEAY.NUM"
133 $ libdir = "[.''ARCHD'.EXE.SSL]"
134 $ libolb = "''libdir'SSL_LIBSSL''lib32'.OLB"
135 $ libopt = "''libdir'SSL_LIBSSL_''shr'.OPT"
136 $ libmap = "''libdir'SSL_LIBSSL_''shr'.MAP"
137 $ libgoal= "''libdir'SSL_LIBSSL_''shr'.EXE"
138 $ libref = "[.''ARCHD'.EXE.CRYPTO]SSL_LIBCRYPTO_''shr'.EXE"
139 $ if f$search( libolb) .nes. "" then gosub create_nonvax_shr
140 $ endif
141 $!
142 $ tidy:
143 $!
144 $! Close any open files.
145 $!
146 $ if (f$trnlnm( "libnum", "LNM$PROCESS", 0, "SUPERVISOR") .nes. "") then -
147 close libnum
148 $!
149 $ if (f$trnlnm( "mar", "LNM$PROCESS", 0, "SUPERVISOR") .nes. "") then -
150 close mar
151 $!
152 $ if (f$trnlnm( "opt", "LNM$PROCESS", 0, "SUPERVISOR") .nes. "") then -
153 close opt
154 $!
155 $ if (f$trnlnm( "vf", "LNM$PROCESS", 0, "SUPERVISOR") .nes. "") then -
156 close vf
157 $!
158 $! Restore the original default device:[directory].
159 $!
160 $ set default 'def_orig'
161 $ exit
162 $
163 $! ----- Subroutines to build the shareable libraries
164 $! For each supported architecture, there's a main shareable library
165 $! creator, which is called from the main code above.
166 $! The creator will define a number of variables to tell the next levels of
167 $! subroutines what routines to use to write to the option files, call the
168 $! main processor, read_func_num, and when that is done, it will write version
169 $! data at the end of the .opt file, close it, and link the library.
170 $!
171 $! read_func_num reads through a .num file and calls the writer routine for
172 $! each line. It's also responsible for checking that order is properly kept
173 $! in the .num file, check that each line applies to VMS and the architecture,
174 $! and to fill in "holes" with dummy entries.
175 $!
176 $! The creator routines depend on the following variables:
177 $! libnum The name of the .num file to use as input
178 $! libolb The name of the object library to build from
179 $! libid The identification string of the shareable library
180 $! libopt The name of the .opt file to write
181 $! libtit The title of the assembler transfer vector file (VAX only)
182 $! libmar The name of the assembler transfer vector file (VAX only)
183 $! libmap The name of the map file to write
184 $! libgoal The name of the shareable library to write
185 $! libref The name of a shareable library to link in
186 $!
187 $! read_func_num depends on the following variables from the creator:
188 $! libwriter The name of the writer routine to call for each .num file line
189 $! -----
190 $
191 $! ----- Subroutines for non-VAX
192 $! -----
193 $! The creator routine
194 $ create_nonvax_shr:
195 $ open /write opt 'libopt'
196 $ write opt "identification=""",libid," ",libverstr,""""
197 $ write opt libolb, " /library"
198 $ if libref .nes. "" then write opt libref,"/SHARE"
199 $ write opt "SYMBOL_VECTOR=(-"
200 $ libfirstentry := true
201 $ libwrch := opt
202 $ libwriter := write_nonvax_transfer_entry
203 $ textcount = 0
204 $ gosub read_func_num
205 $ write opt ")"
206 $ write opt "GSMATCH=",libvmatch,",",libver
207 $ close opt
208 $ link /map = 'libmap' /full /share = 'libgoal' 'libopt' /options -
209 'zlib_lib'
210 $ return
211 $
212 $! The record writer routine
213 $ write_nonvax_transfer_entry:
214 $ if libentry .eqs. ".dummy" then return
215 $ if info_kind .eqs. "VARIABLE"
216 $ then
217 $ pr:=DATA
218 $ else
219 $ pr:=PROCEDURE
220 $ endif
221 $ textcount_this = f$length(pr) + f$length(libentry) + 5
222 $ if textcount + textcount_this .gt. 1024
223 $ then
224 $ write opt ")"
225 $ write opt "SYMBOL_VECTOR=(-"
226 $ textcount = 16
227 $ libfirstentry := true
228 $ endif
229 $ if libfirstentry
230 $ then
231 $ write 'libwrch' " ",libentry,"=",pr," -"
232 $ else
233 $ write 'libwrch' " ,",libentry,"=",pr," -"
234 $ endif
235 $ libfirstentry := false
236 $ textcount = textcount + textcount_this
237 $ return
238 $
239 $! ----- Subroutines for VAX
240 $! -----
241 $! The creator routine
242 $ create_vax_shr:
243 $ open /write mar 'libmar'
244 $ type sys$input:/out=mar:
245 ;
246 ; Transfer vector for VAX shareable image
247 ;
248 $ write mar " .TITLE ",libtit
249 $ write mar " .IDENT /",libid,"/"
250 $ type sys$input:/out=mar:
251 ;
252 ; Define macro to assist in building transfer vector entries. Each entry
253 ; should take no more than 8 bytes.
254 ;
255 .MACRO FTRANSFER_ENTRY routine
256 .ALIGN QUAD
257 .TRANSFER routine
258 .MASK routine
259 JMP routine+2
260 .ENDM FTRANSFER_ENTRY
261 ;
262 ; Place entries in own program section.
263 ;
264 $ write mar " .PSECT $$",libvec,",QUAD,PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT"
265 $ write mar libvec,"_xfer:"
266 $ libwrch := mar
267 $ libwriter := write_vax_ftransfer_entry
268 $ gosub read_func_num
269 $ type sys$input:/out=mar:
270 ;
271 ; Allocate extra storage at end of vector to allow for expansion.
272 ;
273 $ write mar " .BLKB 32768-<.-",libvec,"_xfer> ; 64 pages total."
274 $! libwriter := write_vax_vtransfer_entry
275 $! gosub read_func_num
276 $ write mar " .END"
277 $ close mar
278 $ open /write opt 'libopt'
279 $ write opt "identification=""",libid," ",libverstr,""""
280 $ write opt libobj
281 $ write opt libolb, " /library"
282 $ if libref .nes. "" then write opt libref,"/SHARE"
283 $ type sys$input:/out=opt:
284 !
285 ! Ensure transfer vector is at beginning of image
286 !
287 CLUSTER=FIRST
288 $ write opt "COLLECT=FIRST,$$",libvec
289 $ write opt "GSMATCH=",libvmatch,",",libver
290 $ type sys$input:/out=opt:
291 !
292 ! make psects nonshareable so image can be installed.
293 !
294 PSECT_ATTR=$CHAR_STRING_CONSTANTS,NOWRT
295 $ libwrch := opt
296 $ libwriter := write_vax_psect_attr
297 $ gosub read_func_num
298 $ close opt
299 $ macro/obj='libobj' 'libmar'
300 $ link /map = 'libmap' /full /share = 'libgoal' 'libopt' /options -
301 'zlib_lib'
302 $ return
303 $
304 $! The record writer routine for VAX functions
305 $ write_vax_ftransfer_entry:
306 $ if info_kind .nes. "FUNCTION" then return
307 $ if libentry .eqs ".dummy"
308 $ then
309 $ write 'libwrch' " .BLKB 8" ! Dummy is zeroes...
310 $ else
311 $ write 'libwrch' " FTRANSFER_ENTRY ",libentry
312 $ endif
313 $ return
314 $! The record writer routine for VAX variables (should never happen!)
315 $ write_vax_psect_attr:
316 $ if info_kind .nes. "VARIABLE" then return
317 $ if libentry .eqs ".dummy" then return
318 $ write 'libwrch' "PSECT_ATTR=",libentry,",NOSHR"
319 $ return
320 $
321 $! ----- Common subroutines
322 $! -----
323 $! The .num file reader. This one has great responsibility.
324 $ read_func_num:
325 $ open /read libnum 'libnum'
326 $ goto read_nums
327 $
328 $ read_nums:
329 $ libentrynum=0
330 $ liblastentry:=false
331 $ entrycount=0
332 $ loop:
333 $ read /end=loop_end /err=loop_end libnum line
334 $ lin = f$edit( line, "COMPRESS,TRIM")
335 $! Skip a "#" comment line.
336 $ if (f$extract( 0, 1, lin) .eqs. "#") then goto loop
337 $ entrynum = f$int(f$element( 1, " ", lin))
338 $ entryinfo = f$element( 2, " ", lin)
339 $ curentry = f$element( 0, " ", lin)
340 $ info_exist = f$element( 0, ":", entryinfo)
341 $ info_platforms = ","+ f$element(1, ":", entryinfo)+ ","
342 $ info_kind = f$element( 2, ":", entryinfo)
343 $ info_algorithms = ","+ f$element( 3, ":", entryinfo)+ ","
344 $ if info_exist .eqs. "NOEXIST" then goto loop
345 $ truesum = 0
346 $ falsesum = 0
347 $ negatives = 1
348 $ plat_i = 0
349 $ loop1:
350 $ plat_entry = f$element( plat_i, ",", info_platforms)
351 $ plat_i = plat_i + 1
352 $ if plat_entry .eqs. "" then goto loop1
353 $ if plat_entry .nes. ","
354 $ then
355 $ if f$extract(0,1,plat_entry) .nes. "!" then negatives = 0
356 $ if (arch_vax)
357 $ then
358 $ if plat_entry .eqs. "EXPORT_VAR_AS_FUNCTION" then -
359 $ truesum = truesum + 1
360 $ if plat_entry .eqs. "!EXPORT_VAR_AS_FUNCTION" then -
361 $ falsesum = falsesum + 1
362 $ endif
363 $!
364 $ if ((plat_entry .eqs. "VMS") .or. -
365 ((plat_entry .eqs. "ZLIB") .and. (ZLIB .nes. "")) .or. -
366 (arch_vax .and. (plat_entry .eqs. "VMSVAX"))) then -
367 truesum = truesum + 1
368 $!
369 $ if ((plat_entry .eqs. "!VMS") .or. -
370 (arch_vax .and. (plat_entry .eqs. "!VMSVAX"))) then -
371 falsesum = falsesum + 1
372 $!
373 $ goto loop1
374 $ endif
375 $ endloop1:
376 $!DEBUG!$ if info_platforms - "EXPORT_VAR_AS_FUNCTION" .nes. info_platforms
377 $!DEBUG!$ then
378 $!DEBUG!$ write sys$output line
379 $!DEBUG!$ write sys$output " truesum = ",truesum,-
380 $!DEBUG! ", negatives = ",negatives,", falsesum = ",falsesum
381 $!DEBUG!$ endif
382 $ if falsesum .ne. 0 then goto loop
383 $ if truesum+negatives .eq. 0 then goto loop
384 $ alg_i = 0
385 $ loop2:
386 $ alg_entry = f$element(alg_i,",",info_algorithms)
387 $ alg_i = alg_i + 1
388 $ if alg_entry .eqs. "" then goto loop2
389 $ if alg_entry .nes. ","
390 $ then
391 $ if disabled_algorithms - ("," + alg_entry + ",") .nes disabled_algorithms then goto loop
392 $ if f$trnlnm("OPENSSL_NO_"+alg_entry) .nes. "" then goto loop
393 $ goto loop2
394 $ endif
395 $ endloop2:
396 $ if info_platforms - "EXPORT_VAR_AS_FUNCTION" .nes. info_platforms
397 $ then
398 $!DEBUG!$ write sys$output curentry," ; ",entrynum," ; ",entryinfo
399 $ endif
400 $ redo:
401 $ next:=loop
402 $ tolibentry=curentry
403 $ if libentrynum .ne. entrynum
404 $ then
405 $ entrycount=entrycount+1
406 $ if entrycount .lt. entrynum
407 $ then
408 $!DEBUG!$ write sys$output "Info: entrycount: ''entrycount', entrynum: ''entrynum' => 0"
409 $ tolibentry=".dummy"
410 $ next:=redo
411 $ endif
412 $ if entrycount .gt. entrynum
413 $ then
414 $ write sys$error "Decreasing library entry numbers! Can't continue"
415 $ write sys$error """",line,""""
416 $ close libnum
417 $ return
418 $ endif
419 $ libentry=tolibentry
420 $!DEBUG!$ write sys$output entrycount," ",libentry," ",entryinfo
421 $ if libentry .nes. "" .and. libwriter .nes. "" then gosub 'libwriter'
422 $ else
423 $ write sys$error "Info: ""''curentry'"" is an alias for ""''libentry'"". Overriding..."
424 $ endif
425 $ libentrynum=entrycount
426 $ goto 'next'
427 $ loop_end:
428 $ close libnum
429 $ return
430 $
431 $! The version number reader
432 $ read_version_info:
433 $ libver = ""
434 $ open /read vf [.CRYPTO]OPENSSLV.H
435 $ loop_rvi:
436 $ read/err=endloop_rvi/end=endloop_rvi vf rvi_line
437 $ if rvi_line - "SHLIB_VERSION_NUMBER """ .eqs. rvi_line then -
438 goto loop_rvi
439 $ libverstr = f$element(1,"""",rvi_line)
440 $ libvmajor = f$element(0,".",libverstr)
441 $ libvminor = f$element(1,".",libverstr)
442 $ libvedit = f$element(2,".",libverstr)
443 $ libvpatch = f$cvui(0,8,f$extract(1,1,libvedit)+"@")-f$cvui(0,8,"@")
444 $ libvedit = f$extract(0,1,libvedit)
445 $ libver = f$string(f$int(libvmajor)*100)+","+-
446 f$string(f$int(libvminor)*100+f$int(libvedit)*10+f$int(libvpatch))
447 $ if libvmajor .eqs. "0"
448 $ then
449 $ libvmatch = "EQUAL"
450 $ else
451 $ ! Starting with the 1.0 release, backward compatibility should be
452 $ ! kept, so switch over to the following
453 $ libvmatch = "LEQUAL"
454 $ endif
455 $ endloop_rvi:
456 $ close vf
457 $ return
458 $
459 $! The disabled algorithms reader
460 $ read_disabled_algorithms_info:
461 $ disabled_algorithms = ","
462 $ open /read cf [.CRYPTO.'ARCH']OPENSSLCONF.H
463 $ loop_rci:
464 $ read/err=endloop_rci/end=endloop_rci cf rci_line
465 $ rci_line = f$edit(rci_line,"TRIM,COMPRESS")
466 $ rci_ei = 0
467 $ if f$extract(0,9,rci_line) .eqs. "# define " then rci_ei = 2
468 $ if f$extract(0,8,rci_line) .eqs. "#define " then rci_ei = 1
469 $ if rci_ei .eq. 0 then goto loop_rci
470 $ rci_e = f$element(rci_ei," ",rci_line)
471 $ if f$extract(0,11,rci_e) .nes. "OPENSSL_NO_" then goto loop_rci
472 $ disabled_algorithms = disabled_algorithms + f$extract(11,999,rci_e) + ","
473 $ goto loop_rci
474 $ endloop_rci:
475 $ close cf
476 $ return