Mercurial > hg > orthanc
comparison OrthancFramework/Resources/Patches/OpenSSL-ConfigureHeaders.py @ 4702:312e0e29de90 openssl-3.x
compilation using openssl-3.0.0-beta1
author | Sebastien Jodogne <s.jodogne@gmail.com> |
---|---|
date | Tue, 22 Jun 2021 07:09:34 +0200 |
parents | |
children | 0a5d05637701 |
comparison
equal
deleted
inserted
replaced
4701:68635d365a27 | 4702:312e0e29de90 |
---|---|
1 #!/usr/bin/env python | |
2 | |
3 # Orthanc - A Lightweight, RESTful DICOM Store | |
4 # Copyright (C) 2012-2016 Sebastien Jodogne, Medical Physics | |
5 # Department, University Hospital of Liege, Belgium | |
6 # Copyright (C) 2017-2021 Osimis S.A., Belgium | |
7 # | |
8 # This program is free software: you can redistribute it and/or | |
9 # modify it under the terms of the GNU Lesser General Public License | |
10 # as published by the Free Software Foundation, either version 3 of | |
11 # the License, or (at your option) any later version. | |
12 # | |
13 # This program is distributed in the hope that it will be useful, but | |
14 # WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
16 # Lesser General Public License for more details. | |
17 # | |
18 # You should have received a copy of the GNU Lesser General Public | |
19 # License along with this program. If not, see | |
20 # <http://www.gnu.org/licenses/>. | |
21 | |
22 | |
23 import json | |
24 import os | |
25 import re | |
26 import sys | |
27 | |
28 if len(sys.argv) != 2: | |
29 raise Exception('Bad number of arguments') | |
30 | |
31 | |
32 # This emulates "util/perl/OpenSSL/stackhash.pm" | |
33 | |
34 GENERATE_STACK_MACROS = ''' | |
35 SKM_DEFINE_STACK_OF_INTERNAL(${nametype}, ${realtype}, ${plaintype}) | |
36 #define sk_${nametype}_num(sk) OPENSSL_sk_num(ossl_check_const_${nametype}_sk_type(sk)) | |
37 #define sk_${nametype}_value(sk, idx) ((${realtype} *)OPENSSL_sk_value(ossl_check_const_${nametype}_sk_type(sk), (idx))) | |
38 #define sk_${nametype}_new(cmp) ((STACK_OF(${nametype}) *)OPENSSL_sk_new(ossl_check_${nametype}_compfunc_type(cmp))) | |
39 #define sk_${nametype}_new_null() ((STACK_OF(${nametype}) *)OPENSSL_sk_new_null()) | |
40 #define sk_${nametype}_new_reserve(cmp, n) ((STACK_OF(${nametype}) *)OPENSSL_sk_new_reserve(ossl_check_${nametype}_compfunc_type(cmp), (n))) | |
41 #define sk_${nametype}_reserve(sk, n) OPENSSL_sk_reserve(ossl_check_${nametype}_sk_type(sk), (n)) | |
42 #define sk_${nametype}_free(sk) OPENSSL_sk_free(ossl_check_${nametype}_sk_type(sk)) | |
43 #define sk_${nametype}_zero(sk) OPENSSL_sk_zero(ossl_check_${nametype}_sk_type(sk)) | |
44 #define sk_${nametype}_delete(sk, i) ((${realtype} *)OPENSSL_sk_delete(ossl_check_${nametype}_sk_type(sk), (i))) | |
45 #define sk_${nametype}_delete_ptr(sk, ptr) ((${realtype} *)OPENSSL_sk_delete_ptr(ossl_check_${nametype}_sk_type(sk), ossl_check_${nametype}_type(ptr))) | |
46 #define sk_${nametype}_push(sk, ptr) OPENSSL_sk_push(ossl_check_${nametype}_sk_type(sk), ossl_check_${nametype}_type(ptr)) | |
47 #define sk_${nametype}_unshift(sk, ptr) OPENSSL_sk_unshift(ossl_check_${nametype}_sk_type(sk), ossl_check_${nametype}_type(ptr)) | |
48 #define sk_${nametype}_pop(sk) ((${realtype} *)OPENSSL_sk_pop(ossl_check_${nametype}_sk_type(sk))) | |
49 #define sk_${nametype}_shift(sk) ((${realtype} *)OPENSSL_sk_shift(ossl_check_${nametype}_sk_type(sk))) | |
50 #define sk_${nametype}_pop_free(sk, freefunc) OPENSSL_sk_pop_free(ossl_check_${nametype}_sk_type(sk),ossl_check_${nametype}_freefunc_type(freefunc)) | |
51 #define sk_${nametype}_insert(sk, ptr, idx) OPENSSL_sk_insert(ossl_check_${nametype}_sk_type(sk), ossl_check_${nametype}_type(ptr), (idx)) | |
52 #define sk_${nametype}_set(sk, idx, ptr) ((${realtype} *)OPENSSL_sk_set(ossl_check_${nametype}_sk_type(sk), (idx), ossl_check_${nametype}_type(ptr))) | |
53 #define sk_${nametype}_find(sk, ptr) OPENSSL_sk_find(ossl_check_${nametype}_sk_type(sk), ossl_check_${nametype}_type(ptr)) | |
54 #define sk_${nametype}_find_ex(sk, ptr) OPENSSL_sk_find_ex(ossl_check_${nametype}_sk_type(sk), ossl_check_${nametype}_type(ptr)) | |
55 #define sk_${nametype}_find_all(sk, ptr, pnum) OPENSSL_sk_find_all(ossl_check_${nametype}_sk_type(sk), ossl_check_${nametype}_type(ptr), pnum) | |
56 #define sk_${nametype}_sort(sk) OPENSSL_sk_sort(ossl_check_${nametype}_sk_type(sk)) | |
57 #define sk_${nametype}_is_sorted(sk) OPENSSL_sk_is_sorted(ossl_check_const_${nametype}_sk_type(sk)) | |
58 #define sk_${nametype}_dup(sk) ((STACK_OF(${nametype}) *)OPENSSL_sk_dup(ossl_check_const_${nametype}_sk_type(sk))) | |
59 #define sk_${nametype}_deep_copy(sk, copyfunc, freefunc) ((STACK_OF(${nametype}) *)OPENSSL_sk_deep_copy(ossl_check_const_${nametype}_sk_type(sk), ossl_check_${nametype}_copyfunc_type(copyfunc), ossl_check_${nametype}_freefunc_type(freefunc))) | |
60 #define sk_${nametype}_set_cmp_func(sk, cmp) ((sk_${nametype}_compfunc)OPENSSL_sk_set_cmp_func(ossl_check_${nametype}_sk_type(sk), ossl_check_${nametype}_compfunc_type(cmp))) | |
61 ''' | |
62 | |
63 | |
64 GENERATE_LHASH_MACROS = ''' | |
65 DEFINE_LHASH_OF_INTERNAL(${type}); | |
66 #define lh_${type}_new(hfn, cmp) ((LHASH_OF(${type}) *)OPENSSL_LH_new(ossl_check_${type}_lh_hashfunc_type(hfn), ossl_check_${type}_lh_compfunc_type(cmp))) | |
67 #define lh_${type}_free(lh) OPENSSL_LH_free(ossl_check_${type}_lh_type(lh)) | |
68 #define lh_${type}_flush(lh) OPENSSL_LH_flush(ossl_check_${type}_lh_type(lh)) | |
69 #define lh_${type}_insert(lh, ptr) ((${type} *)OPENSSL_LH_insert(ossl_check_${type}_lh_type(lh), ossl_check_${type}_lh_plain_type(ptr))) | |
70 #define lh_${type}_delete(lh, ptr) ((${type} *)OPENSSL_LH_delete(ossl_check_${type}_lh_type(lh), ossl_check_const_${type}_lh_plain_type(ptr))) | |
71 #define lh_${type}_retrieve(lh, ptr) ((${type} *)OPENSSL_LH_retrieve(ossl_check_${type}_lh_type(lh), ossl_check_const_${type}_lh_plain_type(ptr))) | |
72 #define lh_${type}_error(lh) OPENSSL_LH_error(ossl_check_${type}_lh_type(lh)) | |
73 #define lh_${type}_num_items(lh) OPENSSL_LH_num_items(ossl_check_${type}_lh_type(lh)) | |
74 #define lh_${type}_node_stats_bio(lh, out) OPENSSL_LH_node_stats_bio(ossl_check_const_${type}_lh_type(lh), out) | |
75 #define lh_${type}_node_usage_stats_bio(lh, out) OPENSSL_LH_node_usage_stats_bio(ossl_check_const_${type}_lh_type(lh), out) | |
76 #define lh_${type}_stats_bio(lh, out) OPENSSL_LH_stats_bio(ossl_check_const_${type}_lh_type(lh), out) | |
77 #define lh_${type}_get_down_load(lh) OPENSSL_LH_get_down_load(ossl_check_${type}_lh_type(lh)) | |
78 #define lh_${type}_set_down_load(lh, dl) OPENSSL_LH_set_down_load(ossl_check_${type}_lh_type(lh), dl) | |
79 #define lh_${type}_doall(lh, dfn) OPENSSL_LH_doall(ossl_check_${type}_lh_type(lh), ossl_check_${type}_lh_doallfunc_type(dfn)) | |
80 ''' | |
81 | |
82 | |
83 with open(os.path.join(os.path.dirname(os.path.realpath(__file__)), | |
84 'OpenSSL-ExtractProvidersOIDs.json'), 'r') as f: | |
85 OIDS = json.loads(f.read()) | |
86 | |
87 | |
88 CURRENT_HEADER = '' | |
89 | |
90 def Parse(match): | |
91 s = '' | |
92 | |
93 for t in re.findall('generate_stack_macros\("(.+?)"\)', match.group(1)): | |
94 s += (GENERATE_STACK_MACROS | |
95 .replace('${nametype}', t) | |
96 .replace('${realtype}', t) | |
97 .replace('${plaintype}', t)) | |
98 | |
99 for t in re.findall('generate_const_stack_macros\("(.+?)"\)', match.group(1)): | |
100 s += (GENERATE_STACK_MACROS | |
101 .replace('${nametype}', t) | |
102 .replace('${realtype}', 'const %s' % t) | |
103 .replace('${plaintype}', t)) | |
104 | |
105 for t in re.findall('generate_stack_string_macros\(\)', match.group(1)): | |
106 s += (GENERATE_STACK_MACROS | |
107 .replace('${nametype}', 'OPENSSL_STRING') | |
108 .replace('${realtype}', 'char') | |
109 .replace('${plaintype}', 'char')) | |
110 | |
111 for t in re.findall('generate_stack_const_string_macros\(\)', match.group(1)): | |
112 s += (GENERATE_STACK_MACROS | |
113 .replace('${nametype}', 'OPENSSL_CSTRING') | |
114 .replace('${realtype}', 'const char') | |
115 .replace('${plaintype}', 'char')) | |
116 | |
117 for t in re.findall('generate_stack_block_macros\(\)', match.group(1)): | |
118 s += (GENERATE_STACK_MACROS | |
119 .replace('${nametype}', 'OPENSSL_BLOCK') | |
120 .replace('${realtype}', 'void') | |
121 .replace('${plaintype}', 'void')) | |
122 | |
123 for t in re.findall('generate_lhash_macros\("(.+?)"\)', match.group(1)): | |
124 s += GENERATE_LHASH_MACROS.replace('${type}', t) | |
125 | |
126 for t in re.findall('\$config{rc4_int}', match.group(1)): | |
127 s += 'unsigned int' | |
128 | |
129 for t in re.findall('oids_to_c::process_leaves\(.+?\)', match.group(1), re.MULTILINE | re.DOTALL): | |
130 if not CURRENT_HEADER in OIDS: | |
131 raise Exception('Unknown header: %s' % CURRENT_HEADER) | |
132 | |
133 for (name, definition) in OIDS[CURRENT_HEADER].items(): | |
134 s += '#define DER_OID_V_%s %s\n' % (name, ', '.join(definition)) | |
135 s += '#define DER_OID_SZ_%s %d\n' % (name, len(definition)) | |
136 s += 'extern const unsigned char ossl_der_oid_%s[DER_OID_SZ_%s];\n\n' % (name, name) | |
137 | |
138 return s | |
139 | |
140 | |
141 for base in [ 'include/openssl', | |
142 'providers/common/include/prov' ]: | |
143 directory = os.path.join(sys.argv[1], base) | |
144 for source in os.listdir(directory): | |
145 if source.endswith('.h.in'): | |
146 target = re.sub('\.h\.in$', '.h', source) | |
147 | |
148 with open(os.path.join(directory, source), 'r') as f: | |
149 with open(os.path.join(directory, target), 'w') as g: | |
150 CURRENT_HEADER = source | |
151 g.write(re.sub('{-(.*?)-}.*?$', Parse, f.read(), | |
152 flags = re.MULTILINE | re.DOTALL)) | |
153 | |
154 | |
155 with open(os.path.join(sys.argv[1], 'providers/common/der/orthanc_oids_gen.c'), 'w') as f: | |
156 for (header, content) in OIDS.items(): | |
157 f.write('#include "prov/%s"\n' % re.sub('\.h\.in$', '.h', header)) | |
158 | |
159 f.write('\n') | |
160 | |
161 for (header, content) in OIDS.items(): | |
162 for (name, definition) in content.items(): | |
163 f.write('const unsigned char ossl_der_oid_%s[DER_OID_SZ_%s] = { DER_OID_V_%s };\n' % ( | |
164 name, name, name)) |