CORE: Add an internal function to distinguish the global default context
[openssl.git] / include / internal / cryptlib.h
1 /*
2  * Copyright 1995-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
10 #ifndef OSSL_INTERNAL_CRYPTLIB_H
11 # define OSSL_INTERNAL_CRYPTLIB_H
12
13 # include <stdlib.h>
14 # include <string.h>
15
16 # ifdef OPENSSL_USE_APPLINK
17 #  define BIO_FLAGS_UPLINK_INTERNAL 0x8000
18 #  include "ms/uplink.h"
19 # else
20 #  define BIO_FLAGS_UPLINK_INTERNAL 0
21 # endif
22
23 # include <openssl/crypto.h>
24 # include <openssl/buffer.h>
25 # include <openssl/bio.h>
26 # include <openssl/asn1.h>
27 # include <openssl/err.h>
28 # include "internal/nelem.h"
29
30 #ifdef NDEBUG
31 # define ossl_assert(x) ((x) != 0)
32 #else
33 __owur static ossl_inline int ossl_assert_int(int expr, const char *exprstr,
34                                               const char *file, int line)
35 {
36     if (!expr)
37         OPENSSL_die(exprstr, file, line);
38
39     return expr;
40 }
41
42 # define ossl_assert(x) ossl_assert_int((x) != 0, "Assertion failed: "#x, \
43                                          __FILE__, __LINE__)
44
45 #endif
46
47 /*
48  * Use this inside a union with the field that needs to be aligned to a
49  * reasonable boundary for the platform.  The most pessimistic alignment
50  * of the listed types will be used by the compiler.
51  */
52 # define OSSL_UNION_ALIGN       \
53     double align;               \
54     ossl_uintmax_t align_int;   \
55     void *align_ptr
56
57 typedef struct ex_callback_st EX_CALLBACK;
58 DEFINE_STACK_OF(EX_CALLBACK)
59
60 typedef struct mem_st MEM;
61 DEFINE_LHASH_OF(MEM);
62
63 # define OPENSSL_CONF             "openssl.cnf"
64
65 # ifndef OPENSSL_SYS_VMS
66 #  define X509_CERT_AREA          OPENSSLDIR
67 #  define X509_CERT_DIR           OPENSSLDIR "/certs"
68 #  define X509_CERT_FILE          OPENSSLDIR "/cert.pem"
69 #  define X509_PRIVATE_DIR        OPENSSLDIR "/private"
70 #  define CTLOG_FILE              OPENSSLDIR "/ct_log_list.cnf"
71 # else
72 #  define X509_CERT_AREA          "OSSL$DATAROOT:[000000]"
73 #  define X509_CERT_DIR           "OSSL$DATAROOT:[CERTS]"
74 #  define X509_CERT_FILE          "OSSL$DATAROOT:[000000]cert.pem"
75 #  define X509_PRIVATE_DIR        "OSSL$DATAROOT:[PRIVATE]"
76 #  define CTLOG_FILE              "OSSL$DATAROOT:[000000]ct_log_list.cnf"
77 # endif
78
79 # define X509_CERT_DIR_EVP        "SSL_CERT_DIR"
80 # define X509_CERT_FILE_EVP       "SSL_CERT_FILE"
81 # define CTLOG_FILE_EVP           "CTLOG_FILE"
82
83 /* size of string representations */
84 # define DECIMAL_SIZE(type)      ((sizeof(type)*8+2)/3+1)
85 # define HEX_SIZE(type)          (sizeof(type)*2)
86
87 void OPENSSL_cpuid_setup(void);
88 #if defined(__i386)   || defined(__i386__)   || defined(_M_IX86) || \
89     defined(__x86_64) || defined(__x86_64__) || \
90     defined(_M_AMD64) || defined(_M_X64)
91 extern unsigned int OPENSSL_ia32cap_P[];
92 #endif
93 void OPENSSL_showfatal(const char *fmta, ...);
94 int do_ex_data_init(OPENSSL_CTX *ctx);
95 void crypto_cleanup_all_ex_data_int(OPENSSL_CTX *ctx);
96 int openssl_init_fork_handlers(void);
97 int openssl_get_fork_id(void);
98
99 char *ossl_safe_getenv(const char *name);
100
101 extern CRYPTO_RWLOCK *memdbg_lock;
102 int openssl_strerror_r(int errnum, char *buf, size_t buflen);
103 # if !defined(OPENSSL_NO_STDIO)
104 FILE *openssl_fopen(const char *filename, const char *mode);
105 # else
106 void *openssl_fopen(const char *filename, const char *mode);
107 # endif
108
109 uint32_t OPENSSL_rdtsc(void);
110 size_t OPENSSL_instrument_bus(unsigned int *, size_t);
111 size_t OPENSSL_instrument_bus2(unsigned int *, size_t, size_t);
112
113 /* ex_data structures */
114
115 /*
116  * Each structure type (sometimes called a class), that supports
117  * exdata has a stack of callbacks for each instance.
118  */
119 struct ex_callback_st {
120     long argl;                  /* Arbitrary long */
121     void *argp;                 /* Arbitrary void * */
122     CRYPTO_EX_new *new_func;
123     CRYPTO_EX_free *free_func;
124     CRYPTO_EX_dup *dup_func;
125 };
126
127 /*
128  * The state for each class.  This could just be a typedef, but
129  * a structure allows future changes.
130  */
131 typedef struct ex_callbacks_st {
132     STACK_OF(EX_CALLBACK) *meth;
133 } EX_CALLBACKS;
134
135 typedef struct ossl_ex_data_global_st {
136     CRYPTO_RWLOCK *ex_data_lock;
137     EX_CALLBACKS ex_data[CRYPTO_EX_INDEX__COUNT];
138 } OSSL_EX_DATA_GLOBAL;
139
140
141 /* OPENSSL_CTX */
142
143 # define OPENSSL_CTX_PROVIDER_STORE_RUN_ONCE_INDEX          0
144 # define OPENSSL_CTX_DEFAULT_METHOD_STORE_RUN_ONCE_INDEX    1
145 # define OPENSSL_CTX_METHOD_STORE_RUN_ONCE_INDEX            2
146 # define OPENSSL_CTX_MAX_RUN_ONCE                           3
147
148 # define OPENSSL_CTX_EVP_METHOD_STORE_INDEX         0
149 # define OPENSSL_CTX_PROVIDER_STORE_INDEX           1
150 # define OPENSSL_CTX_PROPERTY_DEFN_INDEX            2
151 # define OPENSSL_CTX_PROPERTY_STRING_INDEX          3
152 # define OPENSSL_CTX_NAMEMAP_INDEX                  4
153 # define OPENSSL_CTX_DRBG_INDEX                     5
154 # define OPENSSL_CTX_DRBG_NONCE_INDEX               6
155 # define OPENSSL_CTX_RAND_CRNGT_INDEX               7
156 # define OPENSSL_CTX_THREAD_EVENT_HANDLER_INDEX     8
157 # define OPENSSL_CTX_FIPS_PROV_INDEX                9
158 # define OPENSSL_CTX_SERIALIZER_STORE_INDEX        10
159 # define OPENSSL_CTX_SELF_TEST_CB_INDEX            11
160 # define OPENSSL_CTX_BIO_PROV_INDEX                12
161 # define OPENSSL_CTX_GLOBAL_PROPERTIES             13
162 # define OPENSSL_CTX_MAX_INDEXES                   14
163
164 typedef struct openssl_ctx_method {
165     void *(*new_func)(OPENSSL_CTX *ctx);
166     void (*free_func)(void *);
167 } OPENSSL_CTX_METHOD;
168
169 OPENSSL_CTX *openssl_ctx_get_concrete(OPENSSL_CTX *ctx);
170 int openssl_ctx_is_default(OPENSSL_CTX *ctx);
171 int openssl_ctx_is_global_default(OPENSSL_CTX *ctx);
172
173 /* Functions to retrieve pointers to data by index */
174 void *openssl_ctx_get_data(OPENSSL_CTX *, int /* index */,
175                            const OPENSSL_CTX_METHOD * ctx);
176
177 void openssl_ctx_default_deinit(void);
178 OSSL_EX_DATA_GLOBAL *openssl_ctx_get_ex_data_global(OPENSSL_CTX *ctx);
179 typedef int (openssl_ctx_run_once_fn)(OPENSSL_CTX *ctx);
180 typedef void (openssl_ctx_onfree_fn)(OPENSSL_CTX *ctx);
181
182 int openssl_ctx_run_once(OPENSSL_CTX *ctx, unsigned int idx,
183                          openssl_ctx_run_once_fn run_once_fn);
184 int openssl_ctx_onfree(OPENSSL_CTX *ctx, openssl_ctx_onfree_fn onfreefn);
185
186 OPENSSL_CTX *crypto_ex_data_get_openssl_ctx(const CRYPTO_EX_DATA *ad);
187 int crypto_new_ex_data_ex(OPENSSL_CTX *ctx, int class_index, void *obj,
188                           CRYPTO_EX_DATA *ad);
189 int crypto_get_ex_new_index_ex(OPENSSL_CTX *ctx, int class_index,
190                                long argl, void *argp,
191                                CRYPTO_EX_new *new_func,
192                                CRYPTO_EX_dup *dup_func,
193                                CRYPTO_EX_free *free_func);
194 int crypto_free_ex_index_ex(OPENSSL_CTX *ctx, int class_index, int idx);
195
196 /* Function for simple binary search */
197
198 /* Flags */
199 # define OSSL_BSEARCH_VALUE_ON_NOMATCH            0x01
200 # define OSSL_BSEARCH_FIRST_VALUE_ON_MATCH        0x02
201
202 const void *ossl_bsearch(const void *key, const void *base, int num,
203                          int size, int (*cmp) (const void *, const void *),
204                          int flags);
205
206 /* system-specific variants defining ossl_sleep() */
207 #ifdef OPENSSL_SYS_UNIX
208 # include <unistd.h>
209 static ossl_inline void ossl_sleep(unsigned long millis)
210 {
211 # ifdef OPENSSL_SYS_VXWORKS
212     struct timespec ts;
213     ts.tv_sec = (long int) (millis / 1000);
214     ts.tv_nsec = (long int) (millis % 1000) * 1000000ul;
215     nanosleep(&ts, NULL);
216 # else
217     usleep(millis * 1000);
218 # endif
219 }
220 #elif defined(_WIN32)
221 # include <windows.h>
222 static ossl_inline void ossl_sleep(unsigned long millis)
223 {
224     Sleep(millis);
225 }
226 #else
227 /* Fallback to a busy wait */
228 static ossl_inline void ossl_sleep(unsigned long millis)
229 {
230     struct timeval start, now;
231     unsigned long elapsedms;
232
233     gettimeofday(&start, NULL);
234     do {
235         gettimeofday(&now, NULL);
236         elapsedms = (((now.tv_sec - start.tv_sec) * 1000000)
237                      + now.tv_usec - start.tv_usec) / 1000;
238     } while (elapsedms < millis);
239 }
240 #endif /* defined OPENSSL_SYS_UNIX */
241
242 char *sk_ASN1_UTF8STRING2text(STACK_OF(ASN1_UTF8STRING) *text, const char *sep,
243                               size_t max_len);
244 char *ipaddr_to_asc(unsigned char *p, int len);
245
246 char *openssl_buf2hexstr_sep(const unsigned char *buf, long buflen, char sep);
247 unsigned char *openssl_hexstr2buf_sep(const char *str, long *buflen,
248                                       const char sep);
249
250 #endif