32161d0533884c34cc4cf55702fc4ac96cb8dc9b
[oweals/openssl.git] / crypto / params.c
1 /*
2  * Copyright 2019-2020 The OpenSSL Project Authors. All Rights Reserved.
3  * Copyright (c) 2019, Oracle and/or its affiliates.  All rights reserved.
4  *
5  * Licensed under the Apache License 2.0 (the "License").  You may not use
6  * this file except in compliance with the License.  You can obtain a copy
7  * in the file LICENSE in the source distribution or at
8  * https://www.openssl.org/source/license.html
9  */
10
11 #include <string.h>
12 #include <openssl/params.h>
13 #include "internal/thread_once.h"
14 #include "internal/numbers.h"
15
16 OSSL_PARAM *OSSL_PARAM_locate(OSSL_PARAM *p, const char *key)
17 {
18     if (p != NULL && key != NULL)
19         for (; p->key != NULL; p++)
20             if (strcmp(key, p->key) == 0)
21                 return p;
22     return NULL;
23 }
24
25 const OSSL_PARAM *OSSL_PARAM_locate_const(const OSSL_PARAM *p, const char *key)
26 {
27     return OSSL_PARAM_locate((OSSL_PARAM *)p, key);
28 }
29
30 static OSSL_PARAM ossl_param_construct(const char *key, unsigned int data_type,
31                                        void *data, size_t data_size)
32 {
33     OSSL_PARAM res;
34
35     res.key = key;
36     res.data_type = data_type;
37     res.data = data;
38     res.data_size = data_size;
39     res.return_size = OSSL_PARAM_UNMODIFIED;
40     return res;
41 }
42
43 int OSSL_PARAM_modified(const OSSL_PARAM *p)
44 {
45     return p != NULL && p->return_size != OSSL_PARAM_UNMODIFIED;
46 }
47
48 void OSSL_PARAM_set_all_unmodified(OSSL_PARAM *p)
49 {
50     if (p != NULL)
51         while (p->key != NULL)
52             p++->return_size = OSSL_PARAM_UNMODIFIED;
53 }
54
55 int OSSL_PARAM_get_int(const OSSL_PARAM *p, int *val)
56 {
57     switch (sizeof(int)) {
58     case sizeof(int32_t):
59         return OSSL_PARAM_get_int32(p, (int32_t *)val);
60     case sizeof(int64_t):
61         return OSSL_PARAM_get_int64(p, (int64_t *)val);
62     }
63     return 0;
64 }
65
66 int OSSL_PARAM_set_int(OSSL_PARAM *p, int val)
67 {
68     switch (sizeof(int)) {
69     case sizeof(int32_t):
70         return OSSL_PARAM_set_int32(p, (int32_t)val);
71     case sizeof(int64_t):
72         return OSSL_PARAM_set_int64(p, (int64_t)val);
73     }
74     return 0;
75 }
76
77 OSSL_PARAM OSSL_PARAM_construct_int(const char *key, int *buf)
78 {
79     return ossl_param_construct(key, OSSL_PARAM_INTEGER, buf, sizeof(int));
80 }
81
82 int OSSL_PARAM_get_uint(const OSSL_PARAM *p, unsigned int *val)
83 {
84     switch (sizeof(unsigned int)) {
85     case sizeof(uint32_t):
86         return OSSL_PARAM_get_uint32(p, (uint32_t *)val);
87     case sizeof(uint64_t):
88         return OSSL_PARAM_get_uint64(p, (uint64_t *)val);
89     }
90     return 0;
91 }
92
93 int OSSL_PARAM_set_uint(OSSL_PARAM *p, unsigned int val)
94 {
95     switch (sizeof(unsigned int)) {
96     case sizeof(uint32_t):
97         return OSSL_PARAM_set_uint32(p, (uint32_t)val);
98     case sizeof(uint64_t):
99         return OSSL_PARAM_set_uint64(p, (uint64_t)val);
100     }
101     return 0;
102 }
103
104 OSSL_PARAM OSSL_PARAM_construct_uint(const char *key, unsigned int *buf)
105 {
106     return ossl_param_construct(key, OSSL_PARAM_UNSIGNED_INTEGER, buf,
107                                 sizeof(unsigned int));
108 }
109
110 int OSSL_PARAM_get_long(const OSSL_PARAM *p, long int *val)
111 {
112     switch (sizeof(long int)) {
113     case sizeof(int32_t):
114         return OSSL_PARAM_get_int32(p, (int32_t *)val);
115     case sizeof(int64_t):
116         return OSSL_PARAM_get_int64(p, (int64_t *)val);
117     }
118     return 0;
119 }
120
121 int OSSL_PARAM_set_long(OSSL_PARAM *p, long int val)
122 {
123     switch (sizeof(long int)) {
124     case sizeof(int32_t):
125         return OSSL_PARAM_set_int32(p, (int32_t)val);
126     case sizeof(int64_t):
127         return OSSL_PARAM_set_int64(p, (int64_t)val);
128     }
129     return 0;
130 }
131
132 OSSL_PARAM OSSL_PARAM_construct_long(const char *key, long int *buf)
133 {
134     return ossl_param_construct(key, OSSL_PARAM_INTEGER, buf, sizeof(long int));
135 }
136
137 int OSSL_PARAM_get_ulong(const OSSL_PARAM *p, unsigned long int *val)
138 {
139     switch (sizeof(unsigned long int)) {
140     case sizeof(uint32_t):
141         return OSSL_PARAM_get_uint32(p, (uint32_t *)val);
142     case sizeof(uint64_t):
143         return OSSL_PARAM_get_uint64(p, (uint64_t *)val);
144     }
145     return 0;
146 }
147
148 int OSSL_PARAM_set_ulong(OSSL_PARAM *p, unsigned long int val)
149 {
150     switch (sizeof(unsigned long int)) {
151     case sizeof(uint32_t):
152         return OSSL_PARAM_set_uint32(p, (uint32_t)val);
153     case sizeof(uint64_t):
154         return OSSL_PARAM_set_uint64(p, (uint64_t)val);
155     }
156     return 0;
157 }
158
159 OSSL_PARAM OSSL_PARAM_construct_ulong(const char *key, unsigned long int *buf)
160 {
161     return ossl_param_construct(key, OSSL_PARAM_UNSIGNED_INTEGER, buf,
162                                 sizeof(unsigned long int));
163 }
164
165 int OSSL_PARAM_get_int32(const OSSL_PARAM *p, int32_t *val)
166 {
167     int64_t i64;
168     uint32_t u32;
169     uint64_t u64;
170     double d;
171
172     if (val == NULL || p == NULL )
173         return 0;
174
175     if (p->data_type == OSSL_PARAM_INTEGER) {
176         switch (p->data_size) {
177         case sizeof(int32_t):
178             *val = *(const int32_t *)p->data;
179             return 1;
180         case sizeof(int64_t):
181             i64 = *(const int64_t *)p->data;
182             if (i64 >= INT32_MIN && i64 <= INT32_MAX) {
183                 *val = (int32_t)i64;
184                 return 1;
185             }
186             break;
187         }
188     } else if (p->data_type == OSSL_PARAM_UNSIGNED_INTEGER) {
189         switch (p->data_size) {
190         case sizeof(uint32_t):
191             u32 = *(const uint32_t *)p->data;
192             if (u32 <= INT32_MAX) {
193                 *val = (int32_t)u32;
194                 return 1;
195             }
196             break;
197         case sizeof(uint64_t):
198             u64 = *(const uint64_t *)p->data;
199             if (u64 <= INT32_MAX) {
200                 *val = (int32_t)u64;
201                 return 1;
202             }
203             break;
204         }
205     } else if (p->data_type == OSSL_PARAM_REAL) {
206         switch (p->data_size) {
207         case sizeof(double):
208             d = *(const double *)p->data;
209             if (d >= INT32_MIN && d <= INT32_MAX && d == (int32_t)d) {
210                 *val = (int32_t)d;
211                 return 1;
212             }
213             break;
214         }
215     }
216     return 0;
217 }
218
219 int OSSL_PARAM_set_int32(OSSL_PARAM *p, int32_t val)
220 {
221     if (p == NULL)
222         return 0;
223     p->return_size = 0;
224     if (p->data_type == OSSL_PARAM_INTEGER) {
225         p->return_size = sizeof(int32_t); /* Minimum expected size */
226         if (p->data == NULL)
227             return 1;
228         switch (p->data_size) {
229         case sizeof(int32_t):
230             *(int32_t *)p->data = val;
231             return 1;
232         case sizeof(int64_t):
233             p->return_size = sizeof(int64_t);
234             *(int64_t *)p->data = (int64_t)val;
235             return 1;
236         }
237     } else if (p->data_type == OSSL_PARAM_UNSIGNED_INTEGER && val >= 0) {
238         p->return_size = sizeof(uint32_t); /* Minimum expected size */
239         if (p->data == NULL)
240             return 1;
241         switch (p->data_size) {
242         case sizeof(uint32_t):
243             *(uint32_t *)p->data = (uint32_t)val;
244             return 1;
245         case sizeof(uint64_t):
246             p->return_size = sizeof(uint64_t);
247             *(uint64_t *)p->data = (uint64_t)val;
248             return 1;
249         }
250     } else if (p->data_type == OSSL_PARAM_REAL) {
251         p->return_size = sizeof(double);
252         if (p->data == NULL)
253             return 1;
254         switch (p->data_size) {
255         case sizeof(double):
256             *(double *)p->data = (double)val;
257             return 1;
258         }
259     }
260     return 0;
261 }
262
263 OSSL_PARAM OSSL_PARAM_construct_int32(const char *key, int32_t *buf)
264 {
265     return ossl_param_construct(key, OSSL_PARAM_INTEGER, buf,
266                                 sizeof(int32_t));
267 }
268
269 int OSSL_PARAM_get_uint32(const OSSL_PARAM *p, uint32_t *val)
270 {
271     int32_t i32;
272     int64_t i64;
273     uint64_t u64;
274     double d;
275
276     if (val == NULL || p == NULL)
277         return 0;
278
279     if (p->data_type == OSSL_PARAM_UNSIGNED_INTEGER) {
280         switch (p->data_size) {
281         case sizeof(uint32_t):
282             *val = *(const uint32_t *)p->data;
283             return 1;
284         case sizeof(uint64_t):
285             u64 = *(const uint64_t *)p->data;
286             if (u64 <= UINT32_MAX) {
287                 *val = (uint32_t)u64;
288                 return 1;
289             }
290             break;
291         }
292     } else if (p->data_type == OSSL_PARAM_INTEGER) {
293         switch (p->data_size) {
294         case sizeof(int32_t):
295             i32 = *(const int32_t *)p->data;
296             if (i32 >= 0) {
297                 *val = i32;
298                 return 1;
299             }
300             break;
301         case sizeof(int64_t):
302             i64 = *(const int64_t *)p->data;
303             if (i64 >= 0 && i64 <= UINT32_MAX) {
304                 *val = (uint32_t)i64;
305                 return 1;
306             }
307             break;
308         }
309     } else if (p->data_type == OSSL_PARAM_REAL) {
310         switch (p->data_size) {
311         case sizeof(double):
312             d = *(const double *)p->data;
313             if (d >= 0 && d <= UINT32_MAX && d == (uint32_t)d) {
314                 *val = (uint32_t)d;
315                 return 1;
316             }
317             break;
318         }
319     }
320     return 0;
321 }
322
323 int OSSL_PARAM_set_uint32(OSSL_PARAM *p, uint32_t val)
324 {
325     if (p == NULL)
326         return 0;
327     p->return_size = 0;
328
329     if (p->data_type == OSSL_PARAM_UNSIGNED_INTEGER) {
330         p->return_size = sizeof(uint32_t); /* Minimum expected size */
331         if (p->data == NULL)
332             return 1;
333         switch (p->data_size) {
334         case sizeof(uint32_t):
335             *(uint32_t *)p->data = val;
336             return 1;
337         case sizeof(uint64_t):
338             p->return_size = sizeof(uint64_t);
339             *(uint64_t *)p->data = val;
340             return 1;
341         }
342     } else if (p->data_type == OSSL_PARAM_INTEGER) {
343         p->return_size = sizeof(int32_t); /* Minimum expected size */
344         if (p->data == NULL)
345             return 1;
346         switch (p->data_size) {
347         case sizeof(int32_t):
348             if (val <= INT32_MAX) {
349                 *(int32_t *)p->data = (int32_t)val;
350                 return 1;
351             }
352             break;
353         case sizeof(int64_t):
354             p->return_size = sizeof(int64_t);
355             *(int64_t *)p->data = (int64_t)val;
356             return 1;
357         }
358     } else if (p->data_type == OSSL_PARAM_REAL) {
359         p->return_size = sizeof(double);
360         if (p->data == NULL)
361             return 1;
362         switch (p->data_size) {
363         case sizeof(double):
364             *(double *)p->data = (double)val;
365             return 1;
366         }
367     }
368     return 0;
369 }
370
371 OSSL_PARAM OSSL_PARAM_construct_uint32(const char *key, uint32_t *buf)
372 {
373     return ossl_param_construct(key, OSSL_PARAM_UNSIGNED_INTEGER, buf,
374                                 sizeof(uint32_t));
375 }
376
377 int OSSL_PARAM_get_int64(const OSSL_PARAM *p, int64_t *val)
378 {
379     uint64_t u64;
380     double d;
381
382     if (val == NULL || p == NULL )
383         return 0;
384
385     if (p->data_type == OSSL_PARAM_INTEGER) {
386         switch (p->data_size) {
387         case sizeof(int32_t):
388             *val = *(const int32_t *)p->data;
389             return 1;
390         case sizeof(int64_t):
391             *val = *(const int64_t *)p->data;
392             return 1;
393         }
394     } else if (p->data_type == OSSL_PARAM_UNSIGNED_INTEGER) {
395         switch (p->data_size) {
396         case sizeof(uint32_t):
397             *val = *(const uint32_t *)p->data;
398             return 1;
399         case sizeof(uint64_t):
400             u64 = *(const uint64_t *)p->data;
401             if (u64 <= INT64_MAX) {
402                 *val = (int64_t)u64;
403                 return 1;
404             }
405             break;
406         }
407     } else if (p->data_type == OSSL_PARAM_REAL) {
408         switch (p->data_size) {
409         case sizeof(double):
410             d = *(const double *)p->data;
411             if (d >= INT64_MIN && d <= INT64_MAX && d == (int64_t)d) {
412                 *val = (int64_t)d;
413                 return 1;
414             }
415             break;
416         }
417     }
418     return 0;
419 }
420
421 int OSSL_PARAM_set_int64(OSSL_PARAM *p, int64_t val)
422 {
423     uint64_t u64;
424
425     if (p == NULL)
426         return 0;
427     p->return_size = 0;
428     if (p->data_type == OSSL_PARAM_INTEGER) {
429         p->return_size = sizeof(int64_t); /* Expected size */
430         if (p->data == NULL)
431             return 1;
432         switch (p->data_size) {
433         case sizeof(int32_t):
434             if (val >= INT32_MIN && val <= INT32_MAX) {
435                 p->return_size = sizeof(int32_t);
436                 *(int32_t *)p->data = (int32_t)val;
437                 return 1;
438             }
439             break;
440         case sizeof(int64_t):
441             *(int64_t *)p->data = val;
442             return 1;
443         }
444     } else if (p->data_type == OSSL_PARAM_UNSIGNED_INTEGER && val >= 0) {
445         p->return_size = sizeof(uint64_t); /* Expected size */
446         if (p->data == NULL)
447             return 1;
448         switch (p->data_size) {
449         case sizeof(uint32_t):
450             if (val <= UINT32_MAX) {
451                 p->return_size = sizeof(uint32_t);
452                 *(uint32_t *)p->data = (uint32_t)val;
453                 return 1;
454             }
455             break;
456         case sizeof(uint64_t):
457             *(uint64_t *)p->data = (uint64_t)val;
458             return 1;
459         }
460     } else if (p->data_type == OSSL_PARAM_REAL) {
461         p->return_size = sizeof(double);
462         if (p->data == NULL)
463             return 1;
464         switch (p->data_size) {
465         case sizeof(double):
466             u64 = val < 0 ? -val : val;
467             if ((u64 >> 53) == 0) { /* 53 significant bits in the mantissa */
468                 *(double *)p->data = (double)val;
469                 return 1;
470             }
471             break;
472         }
473     }
474     return 0;
475 }
476
477 OSSL_PARAM OSSL_PARAM_construct_int64(const char *key, int64_t *buf)
478 {
479     return ossl_param_construct(key, OSSL_PARAM_INTEGER, buf, sizeof(int64_t));
480 }
481
482 int OSSL_PARAM_get_uint64(const OSSL_PARAM *p, uint64_t *val)
483 {
484     int32_t i32;
485     int64_t i64;
486     double d;
487
488     if (val == NULL || p == NULL)
489         return 0;
490
491     if (p->data_type == OSSL_PARAM_UNSIGNED_INTEGER) {
492         switch (p->data_size) {
493         case sizeof(uint32_t):
494             *val = *(const uint32_t *)p->data;
495             return 1;
496         case sizeof(uint64_t):
497             *val = *(const uint64_t *)p->data;
498             return 1;
499         }
500     } else if (p->data_type == OSSL_PARAM_INTEGER) {
501         switch (p->data_size) {
502         case sizeof(int32_t):
503             i32 = *(const int32_t *)p->data;
504             if (i32 >= 0) {
505                 *val = (uint64_t)i32;
506                 return 1;
507             }
508             break;
509         case sizeof(int64_t):
510             i64 = *(const int64_t *)p->data;
511             if (i64 >= 0) {
512                 *val = (uint64_t)i64;
513                 return 1;
514             }
515             break;
516         }
517     } else if (p->data_type == OSSL_PARAM_REAL) {
518         switch (p->data_size) {
519         case sizeof(double):
520             d = *(const double *)p->data;
521             if (d >= 0 && d <= INT64_MAX && d == (uint64_t)d) {
522                 *val = (uint64_t)d;
523                 return 1;
524             }
525             break;
526         }
527     }
528     return 0;
529 }
530
531 int OSSL_PARAM_set_uint64(OSSL_PARAM *p, uint64_t val)
532 {
533     if (p == NULL)
534         return 0;
535     p->return_size = 0;
536
537     if (p->data_type == OSSL_PARAM_UNSIGNED_INTEGER) {
538         p->return_size = sizeof(uint64_t); /* Expected size */
539         if (p->data == NULL)
540             return 1;
541         switch (p->data_size) {
542         case sizeof(uint32_t):
543             if (val <= UINT32_MAX) {
544                 p->return_size = sizeof(uint32_t);
545                 *(uint32_t *)p->data = (uint32_t)val;
546                 return 1;
547             }
548             break;
549         case sizeof(uint64_t):
550             *(uint64_t *)p->data = val;
551             return 1;
552         }
553     } else if (p->data_type == OSSL_PARAM_INTEGER) {
554         p->return_size = sizeof(int64_t); /* Expected size */
555         if (p->data == NULL)
556             return 1;
557         switch (p->data_size) {
558         case sizeof(int32_t):
559             if (val <= INT32_MAX) {
560                 p->return_size = sizeof(int32_t);
561                 *(int32_t *)p->data = (int32_t)val;
562                 return 1;
563             }
564             break;
565         case sizeof(int64_t):
566             if (val <= INT64_MAX) {
567                 *(int64_t *)p->data = (int64_t)val;
568                 return 1;
569             }
570             break;
571         }
572     } else if (p->data_type == OSSL_PARAM_REAL) {
573         p->return_size = sizeof(double);
574         switch (p->data_size) {
575         case sizeof(double):
576             if ((val >> 53) == 0) { /* 53 significant bits in the mantissa */
577                 *(double *)p->data = (double)val;
578                 return 1;
579             }
580             break;
581         }
582     }
583     return 0;
584 }
585
586 OSSL_PARAM OSSL_PARAM_construct_uint64(const char *key, uint64_t *buf)
587 {
588     return ossl_param_construct(key, OSSL_PARAM_UNSIGNED_INTEGER, buf,
589                                 sizeof(uint64_t));
590 }
591
592 int OSSL_PARAM_get_size_t(const OSSL_PARAM *p, size_t *val)
593 {
594     switch (sizeof(size_t)) {
595     case sizeof(uint32_t):
596         return OSSL_PARAM_get_uint32(p, (uint32_t *)val);
597     case sizeof(uint64_t):
598         return OSSL_PARAM_get_uint64(p, (uint64_t *)val);
599     }
600     return 0;
601 }
602
603 int OSSL_PARAM_set_size_t(OSSL_PARAM *p, size_t val)
604 {
605     switch (sizeof(size_t)) {
606     case sizeof(uint32_t):
607         return OSSL_PARAM_set_uint32(p, (uint32_t)val);
608     case sizeof(uint64_t):
609         return OSSL_PARAM_set_uint64(p, (uint64_t)val);
610     }
611     return 0;
612 }
613
614 OSSL_PARAM OSSL_PARAM_construct_size_t(const char *key, size_t *buf)
615 {
616     return ossl_param_construct(key, OSSL_PARAM_UNSIGNED_INTEGER, buf,
617                                 sizeof(size_t));
618 }
619
620 int OSSL_PARAM_get_BN(const OSSL_PARAM *p, BIGNUM **val)
621 {
622     BIGNUM *b;
623
624     if (val == NULL
625         || p == NULL
626         || p->data_type != OSSL_PARAM_UNSIGNED_INTEGER)
627         return 0;
628
629     b = BN_native2bn(p->data, (int)p->data_size, *val);
630     if (b != NULL) {
631         *val = b;
632         return 1;
633     }
634     return 0;
635 }
636
637 int OSSL_PARAM_set_BN(OSSL_PARAM *p, const BIGNUM *val)
638 {
639     size_t bytes;
640
641     if (p == NULL)
642         return 0;
643     p->return_size = 0;
644     if (val == NULL || p->data_type != OSSL_PARAM_UNSIGNED_INTEGER)
645         return 0;
646
647     /* For the moment, only positive values are permitted */
648     if (BN_is_negative(val))
649         return 0;
650
651     bytes = (size_t)BN_num_bytes(val);
652     p->return_size = bytes;
653     if (p->data == NULL)
654         return 1;
655     if (p->data_size >= bytes) {
656         p->return_size = p->data_size;
657         return BN_bn2nativepad(val, p->data, p->data_size) >= 0;
658     }
659     return 0;
660 }
661
662 OSSL_PARAM OSSL_PARAM_construct_BN(const char *key, unsigned char *buf,
663                                    size_t bsize)
664 {
665     return ossl_param_construct(key, OSSL_PARAM_UNSIGNED_INTEGER,
666                                 buf, bsize);
667 }
668
669 int OSSL_PARAM_get_double(const OSSL_PARAM *p, double *val)
670 {
671     int64_t i64;
672     uint64_t u64;
673
674     if (val == NULL || p == NULL)
675         return 0;
676
677     if (p->data_type == OSSL_PARAM_REAL) {
678         switch (p->data_size) {
679         case sizeof(double):
680             *val = *(const double *)p->data;
681             return 1;
682         }
683     } else if (p->data_type == OSSL_PARAM_UNSIGNED_INTEGER) {
684         switch (p->data_size) {
685         case sizeof(uint32_t):
686             *val = *(const uint32_t *)p->data;
687             return 1;
688         case sizeof(uint64_t):
689             u64 = *(const uint64_t *)p->data;
690             if ((u64 >> 53) == 0) { /* 53 significant bits in the mantissa */
691                 *val = (double)u64;
692                 return 1;
693             }
694             break;
695         }
696     } else if (p->data_type == OSSL_PARAM_INTEGER) {
697         switch (p->data_size) {
698         case sizeof(int32_t):
699             *val = *(const int32_t *)p->data;
700             return 1;
701         case sizeof(int64_t):
702             i64 = *(const int64_t *)p->data;
703             u64 = i64 < 0 ? -i64 : i64;
704             if ((u64 >> 53) == 0) { /* 53 significant bits in the mantissa */
705                 *val = 0.0 + i64;
706                 return 1;
707             }
708             break;
709         }
710     }
711     return 0;
712 }
713
714 int OSSL_PARAM_set_double(OSSL_PARAM *p, double val)
715 {
716     if (p == NULL)
717         return 0;
718     p->return_size = 0;
719
720     if (p->data_type == OSSL_PARAM_REAL) {
721         p->return_size = sizeof(double);
722         if (p->data == NULL)
723             return 1;
724         switch (p->data_size) {
725         case sizeof(double):
726             *(double *)p->data = val;
727             return 1;
728         }
729     } else if (p->data_type == OSSL_PARAM_UNSIGNED_INTEGER
730                && val == (ossl_uintmax_t)val) {
731         p->return_size = sizeof(double);
732         if (p->data == NULL)
733             return 1;
734         switch (p->data_size) {
735         case sizeof(uint32_t):
736             if (val >= 0 && val <= UINT32_MAX) {
737                 p->return_size = sizeof(uint32_t);
738                 *(uint32_t *)p->data = (uint32_t)val;
739                 return 1;
740             }
741             break;
742         case sizeof(uint64_t):
743             if (val >= 0 && val <= UINT64_MAX) {
744                 p->return_size = sizeof(uint64_t);
745                 *(uint64_t *)p->data = (uint64_t)val;
746                 return 1;
747             }
748             break;            }
749     } else if (p->data_type == OSSL_PARAM_INTEGER && val == (ossl_intmax_t)val) {
750         p->return_size = sizeof(double);
751         if (p->data == NULL)
752             return 1;
753         switch (p->data_size) {
754         case sizeof(int32_t):
755             if (val >= INT32_MIN && val <= INT32_MAX) {
756                 p->return_size = sizeof(int32_t);
757                 *(int32_t *)p->data = (int32_t)val;
758                 return 1;
759             }
760             break;
761         case sizeof(int64_t):
762             if (val >= INT64_MIN && val <= INT64_MAX) {
763                 p->return_size = sizeof(int64_t);
764                 *(int64_t *)p->data = (int64_t)val;
765                 return 1;
766             }
767             break;
768         }
769     }
770     return 0;
771 }
772
773 OSSL_PARAM OSSL_PARAM_construct_double(const char *key, double *buf)
774 {
775     return ossl_param_construct(key, OSSL_PARAM_REAL, buf, sizeof(double));
776 }
777
778 static int get_string_internal(const OSSL_PARAM *p, void **val, size_t max_len,
779                                size_t *used_len, unsigned int type)
780 {
781     size_t sz;
782
783     if (val == NULL || p == NULL || p->data_type != type)
784         return 0;
785
786     sz = p->data_size;
787
788     if (used_len != NULL)
789         *used_len = sz;
790
791     if (sz == 0)
792         return 1;
793     if (p->data == NULL)
794         return 0;
795
796     if (*val == NULL) {
797         char *const q = OPENSSL_malloc(sz);
798
799         if (q == NULL)
800             return 0;
801         *val = q;
802         memcpy(q, p->data, sz);
803         return 1;
804     }
805     if (max_len < sz)
806         return 0;
807     memcpy(*val, p->data, sz);
808     return 1;
809 }
810
811 int OSSL_PARAM_get_utf8_string(const OSSL_PARAM *p, char **val, size_t max_len)
812 {
813     return get_string_internal(p, (void **)val, max_len, NULL,
814                                OSSL_PARAM_UTF8_STRING);
815 }
816
817 int OSSL_PARAM_get_octet_string(const OSSL_PARAM *p, void **val, size_t max_len,
818                                 size_t *used_len)
819 {
820     return get_string_internal(p, val, max_len, used_len,
821                                OSSL_PARAM_OCTET_STRING);
822 }
823
824 static int set_string_internal(OSSL_PARAM *p, const void *val, size_t len,
825                                unsigned int type)
826 {
827     p->return_size = len;
828     if (p->data == NULL)
829         return 1;
830     if (p->data_type != type || p->data_size < len)
831         return 0;
832
833     memcpy(p->data, val, len);
834     return 1;
835 }
836
837 int OSSL_PARAM_set_utf8_string(OSSL_PARAM *p, const char *val)
838 {
839     if (p == NULL)
840         return 0;
841
842     p->return_size = 0;
843     if (val == NULL)
844         return 0;
845     return set_string_internal(p, val, strlen(val) + 1, OSSL_PARAM_UTF8_STRING);
846 }
847
848 int OSSL_PARAM_set_octet_string(OSSL_PARAM *p, const void *val,
849                                 size_t len)
850 {
851     if (p == NULL)
852         return 0;
853
854     p->return_size = 0;
855     if (val == NULL)
856         return 0;
857     return set_string_internal(p, val, len, OSSL_PARAM_OCTET_STRING);
858 }
859
860 OSSL_PARAM OSSL_PARAM_construct_utf8_string(const char *key, char *buf,
861                                             size_t bsize)
862 {
863     if (buf != NULL && bsize == 0)
864         bsize = strlen(buf) + 1;
865     return ossl_param_construct(key, OSSL_PARAM_UTF8_STRING, buf, bsize);
866 }
867
868 OSSL_PARAM OSSL_PARAM_construct_octet_string(const char *key, void *buf,
869                                              size_t bsize)
870 {
871     return ossl_param_construct(key, OSSL_PARAM_OCTET_STRING, buf, bsize);
872 }
873
874 static int get_ptr_internal(const OSSL_PARAM *p, const void **val,
875                             size_t *used_len, unsigned int type)
876 {
877     if (val == NULL || p == NULL || p->data_type != type)
878         return 0;
879     if (used_len != NULL)
880         *used_len = p->data_size;
881     *val = *(const void **)p->data;
882     return 1;
883 }
884
885 int OSSL_PARAM_get_utf8_ptr(const OSSL_PARAM *p, const char **val)
886 {
887     return get_ptr_internal(p, (const void **)val, NULL, OSSL_PARAM_UTF8_PTR);
888 }
889
890 int OSSL_PARAM_get_octet_ptr(const OSSL_PARAM *p, const void **val,
891                              size_t *used_len)
892 {
893     return get_ptr_internal(p, val, used_len, OSSL_PARAM_OCTET_PTR);
894 }
895
896 static int set_ptr_internal(OSSL_PARAM *p, const void *val,
897                             unsigned int type, size_t len)
898 {
899     p->return_size = len;
900     if (p->data_type != type)
901         return 0;
902     if (p->data != NULL)
903         *(const void **)p->data = val;
904     return 1;
905 }
906
907 int OSSL_PARAM_set_utf8_ptr(OSSL_PARAM *p, const char *val)
908 {
909     if (p == NULL)
910         return 0;
911     p->return_size = 0;
912     return set_ptr_internal(p, val, OSSL_PARAM_UTF8_PTR,
913                             val == NULL ? 0 : strlen(val) + 1);
914 }
915
916 int OSSL_PARAM_set_octet_ptr(OSSL_PARAM *p, const void *val,
917                              size_t used_len)
918 {
919     if (p == NULL)
920         return 0;
921     p->return_size = 0;
922     return set_ptr_internal(p, val, OSSL_PARAM_OCTET_PTR, used_len);
923 }
924
925 OSSL_PARAM OSSL_PARAM_construct_utf8_ptr(const char *key, char **buf,
926                                          size_t bsize)
927 {
928     return ossl_param_construct(key, OSSL_PARAM_UTF8_PTR, buf, bsize);
929 }
930
931 OSSL_PARAM OSSL_PARAM_construct_octet_ptr(const char *key, void **buf,
932                                           size_t bsize)
933 {
934     return ossl_param_construct(key, OSSL_PARAM_OCTET_PTR, buf, bsize);
935 }
936
937 OSSL_PARAM OSSL_PARAM_construct_end(void)
938 {
939     OSSL_PARAM end = OSSL_PARAM_END;
940
941     return end;
942 }