]>
Commit | Line | Data |
---|---|---|
6ac1cd10 MC |
1 | #! /usr/bin/env perl |
2 | # Copyright 2020 The OpenSSL Project Authors. All Rights Reserved. | |
3 | # | |
4 | # Licensed under the Apache License 2.0 (the "License"). You may not use | |
5 | # this file except in compliance with the License. You can obtain a copy | |
6 | # in the file LICENSE in the source distribution or at | |
7 | # https://www.openssl.org/source/license.html | |
8 | ||
9 | package OpenSSL::stackhash; | |
10 | ||
11 | use strict; | |
12 | use warnings; | |
13 | ||
14 | require Exporter; | |
15 | our @ISA = qw(Exporter); | |
24c4ea95 MC |
16 | our @EXPORT_OK = qw(generate_stack_macros generate_const_stack_macros |
17 | generate_stack_string_macros | |
18 | generate_stack_const_string_macros | |
726b3293 MC |
19 | generate_stack_block_macros |
20 | generate_lhash_macros); | |
6ac1cd10 MC |
21 | |
22 | sub generate_stack_macros_int { | |
23 | my $nametype = shift; | |
24 | my $realtype = shift; | |
25 | my $plaintype = shift; | |
26 | ||
27 | my $macros = <<END_MACROS; | |
c6029dea | 28 | SKM_DEFINE_STACK_OF_INTERNAL(${nametype}, ${realtype}, ${plaintype}) |
6ac1cd10 MC |
29 | #define sk_${nametype}_num(sk) OPENSSL_sk_num(ossl_check_const_${nametype}_sk_type(sk)) |
30 | #define sk_${nametype}_value(sk, idx) ((${realtype} *)OPENSSL_sk_value(ossl_check_const_${nametype}_sk_type(sk), (idx))) | |
31 | #define sk_${nametype}_new(cmp) ((STACK_OF(${nametype}) *)OPENSSL_sk_new(ossl_check_${nametype}_compfunc_type(cmp))) | |
32 | #define sk_${nametype}_new_null() ((STACK_OF(${nametype}) *)OPENSSL_sk_new_null()) | |
33 | #define sk_${nametype}_new_reserve(cmp, n) ((STACK_OF(${nametype}) *)OPENSSL_sk_new_reserve(ossl_check_${nametype}_compfunc_type(cmp), (n))) | |
34 | #define sk_${nametype}_reserve(sk, n) OPENSSL_sk_reserve(ossl_check_${nametype}_sk_type(sk), (n)) | |
35 | #define sk_${nametype}_free(sk) OPENSSL_sk_free(ossl_check_${nametype}_sk_type(sk)) | |
36 | #define sk_${nametype}_zero(sk) OPENSSL_sk_zero(ossl_check_${nametype}_sk_type(sk)) | |
37 | #define sk_${nametype}_delete(sk, i) ((${realtype} *)OPENSSL_sk_delete(ossl_check_${nametype}_sk_type(sk), (i))) | |
38 | #define sk_${nametype}_delete_ptr(sk, ptr) ((${realtype} *)OPENSSL_sk_delete_ptr(ossl_check_${nametype}_sk_type(sk), ossl_check_${nametype}_type(ptr))) | |
39 | #define sk_${nametype}_push(sk, ptr) OPENSSL_sk_push(ossl_check_${nametype}_sk_type(sk), ossl_check_${nametype}_type(ptr)) | |
40 | #define sk_${nametype}_unshift(sk, ptr) OPENSSL_sk_unshift(ossl_check_${nametype}_sk_type(sk), ossl_check_${nametype}_type(ptr)) | |
41 | #define sk_${nametype}_pop(sk) ((${realtype} *)OPENSSL_sk_pop(ossl_check_${nametype}_sk_type(sk))) | |
42 | #define sk_${nametype}_shift(sk) ((${realtype} *)OPENSSL_sk_shift(ossl_check_${nametype}_sk_type(sk))) | |
43 | #define sk_${nametype}_pop_free(sk, freefunc) OPENSSL_sk_pop_free(ossl_check_${nametype}_sk_type(sk),ossl_check_${nametype}_freefunc_type(freefunc)) | |
44 | #define sk_${nametype}_insert(sk, ptr, idx) OPENSSL_sk_insert(ossl_check_${nametype}_sk_type(sk), ossl_check_${nametype}_type(ptr), (idx)) | |
45 | #define sk_${nametype}_set(sk, idx, ptr) ((${realtype} *)OPENSSL_sk_set(ossl_check_${nametype}_sk_type(sk), (idx), ossl_check_${nametype}_type(ptr))) | |
46 | #define sk_${nametype}_find(sk, ptr) OPENSSL_sk_find(ossl_check_${nametype}_sk_type(sk), ossl_check_${nametype}_type(ptr)) | |
47 | #define sk_${nametype}_find_ex(sk, ptr) OPENSSL_sk_find_ex(ossl_check_${nametype}_sk_type(sk), ossl_check_${nametype}_type(ptr)) | |
48 | #define sk_${nametype}_sort(sk) OPENSSL_sk_sort(ossl_check_${nametype}_sk_type(sk)) | |
49 | #define sk_${nametype}_is_sorted(sk) OPENSSL_sk_is_sorted(ossl_check_const_${nametype}_sk_type(sk)) | |
50 | #define sk_${nametype}_dup(sk) ((STACK_OF(${nametype}) *)OPENSSL_sk_dup(ossl_check_const_${nametype}_sk_type(sk))) | |
51 | #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))) | |
52 | #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))) | |
53 | END_MACROS | |
54 | ||
55 | return $macros; | |
56 | } | |
57 | ||
58 | sub generate_stack_macros { | |
59 | my $type = shift; | |
60 | ||
61 | return generate_stack_macros_int($type, $type, $type); | |
62 | } | |
63 | ||
64 | sub generate_const_stack_macros { | |
65 | my $type = shift; | |
66 | ||
67 | return generate_stack_macros_int($type, "const $type", $type); | |
68 | } | |
24c4ea95 MC |
69 | |
70 | sub generate_stack_string_macros { | |
71 | return generate_stack_macros_int("OPENSSL_STRING", "char", "char"); | |
72 | } | |
73 | ||
74 | sub generate_stack_const_string_macros { | |
75 | return generate_stack_macros_int("OPENSSL_CSTRING", "const char", "char"); | |
76 | } | |
77 | ||
78 | sub generate_stack_block_macros { | |
79 | return generate_stack_macros_int("OPENSSL_BLOCK", "void", "void"); | |
80 | } | |
726b3293 MC |
81 | |
82 | sub generate_lhash_macros { | |
83 | my $type = shift; | |
84 | ||
85 | my $macros = <<END_MACROS; | |
86 | DEFINE_LHASH_OF_INTERNAL(${type}); | |
87 | #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))) | |
88 | #define lh_${type}_free(lh) OPENSSL_LH_free(ossl_check_${type}_lh_type(lh)) | |
89 | #define lh_${type}_flush(lh) OPENSSL_LH_flush(ossl_check_${type}_lh_type(lh)) | |
90 | #define lh_${type}_insert(lh, ptr) ((${type} *)OPENSSL_LH_insert(ossl_check_${type}_lh_type(lh), ossl_check_${type}_lh_plain_type(ptr))) | |
91 | #define lh_${type}_delete(lh, ptr) ((${type} *)OPENSSL_LH_delete(ossl_check_${type}_lh_type(lh), ossl_check_const_${type}_lh_plain_type(ptr))) | |
92 | #define lh_${type}_retrieve(lh, ptr) ((${type} *)OPENSSL_LH_retrieve(ossl_check_${type}_lh_type(lh), ossl_check_const_${type}_lh_plain_type(ptr))) | |
93 | #define lh_${type}_error(lh) OPENSSL_LH_error(ossl_check_${type}_lh_type(lh)) | |
94 | #define lh_${type}_num_items(lh) OPENSSL_LH_num_items(ossl_check_${type}_lh_type(lh)) | |
95 | #define lh_${type}_node_stats_bio(lh, out) OPENSSL_LH_node_stats_bio(ossl_check_const_${type}_lh_type(lh), out) | |
96 | #define lh_${type}_node_usage_stats_bio(lh, out) OPENSSL_LH_node_usage_stats_bio(ossl_check_const_${type}_lh_type(lh), out) | |
97 | #define lh_${type}_stats_bio(lh, out) OPENSSL_LH_stats_bio(ossl_check_const_${type}_lh_type(lh), out) | |
98 | #define lh_${type}_get_down_load(lh) OPENSSL_LH_get_down_load(ossl_check_${type}_lh_type(lh)) | |
99 | #define lh_${type}_set_down_load(lh, dl) OPENSSL_LH_set_down_load(ossl_check_${type}_lh_type(lh), dl) | |
100 | #define lh_${type}_doall(lh, dfn) OPENSSL_LH_doall(ossl_check_${type}_lh_type(lh), ossl_check_${type}_lh_doallfunc_type(dfn)) | |
101 | END_MACROS | |
102 | ||
103 | return $macros; | |
104 | } | |
6ac1cd10 | 105 | 1; |