Teach mkshared.com to have a look for disabled algorithms in opensslconf.h
Richard Levitte
12 years ago
| 5 | 5 | $! |
| 6 | 6 | $! Input: [.UTIL]LIBEAY.NUM,[.xxx.EXE.CRYPTO]SSL_LIBCRYPTO[32].OLB |
| 7 | 7 | $! [.UTIL]SSLEAY.NUM,[.xxx.EXE.SSL]SSL_LIBSSL[32].OLB |
| 8 | $! [.CRYPTO.xxx]OPENSSLCONF.H | |
| 8 | 9 | $! Output: [.xxx.EXE.CRYPTO]SSL_LIBCRYPTO_SHR[32].OPT,.MAP,.EXE |
| 9 | 10 | $! [.xxx.EXE.SSL]SSL_LIBSSL_SRH[32].OPT,.MAP,.EXE |
| 10 | 11 | $! |
| 68 | 69 | $ endif |
| 69 | 70 | $ endif |
| 70 | 71 | $ endif |
| 72 | $! | |
| 73 | $! ----- Prepare info for processing: disabled algorithms info | |
| 74 | $ gosub read_disabled_algorithms_info | |
| 71 | 75 | $! |
| 72 | 76 | $ ZLIB = p2 |
| 73 | 77 | $ zlib_lib = "" |
| 383 | 387 | $ if alg_entry .eqs. "" then goto loop2 |
| 384 | 388 | $ if alg_entry .nes. "," |
| 385 | 389 | $ then |
| 386 | $ if alg_entry .eqs. "KRB5" then goto loop ! Special for now | |
| 387 | $ if alg_entry .eqs. "STATIC_ENGINE" then goto loop ! Special for now | |
| 390 | $ if disabled_algorithms - ("," + alg_entry + ",") .nes disabled_algorithms then goto loop | |
| 388 | 391 | $ if f$trnlnm("OPENSSL_NO_"+alg_entry) .nes. "" then goto loop |
| 389 | 392 | $ goto loop2 |
| 390 | 393 | $ endif |
| 451 | 454 | $ endloop_rvi: |
| 452 | 455 | $ close vf |
| 453 | 456 | $ return |
| 457 | $ | |
| 458 | $! The disabled algorithms reader | |
| 459 | $ read_disabled_algorithms_info: | |
| 460 | $ disabled_algorithms = "," | |
| 461 | $ open /read cf [.CRYPTO.'ARCH']OPENSSLCONF.H | |
| 462 | $ loop_rci: | |
| 463 | $ read/err=endloop_rci/end=endloop_rci cf rci_line | |
| 464 | $ rci_line = f$edit(rci_line,"TRIM,COMPRESS") | |
| 465 | $ rci_ei = 0 | |
| 466 | $ if f$extract(0,9,rci_line) .eqs. "# define " then rci_ei = 2 | |
| 467 | $ if f$extract(0,8,rci_line) .eqs. "#define " then rci_ei = 1 | |
| 468 | $ if rci_ei .eq. 0 then goto loop_rci | |
| 469 | $ rci_e = f$element(rci_ei," ",rci_line) | |
| 470 | $ if f$extract(0,11,rci_e) .nes. "OPENSSL_NO_" then goto loop_rci | |
| 471 | $ disabled_algorithms = disabled_algorithms + f$extract(11,999,rci_e) + "," | |
| 472 | $ goto loop_rci | |
| 473 | $ endloop_rci: | |
| 474 | $ close cf | |
| 475 | $ return | |