Hash :
28a62667
Author :
Thomas de Grivel
Date :
2024-04-04T17:02:17
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115
/* c3
* Copyright 2022-2024 kmx.io <contact@kmx.io>
*
* Permission is hereby granted to use this software granted the above
* copyright notice and this permission paragraph are included in all
* copies and substantial portions of this software.
*
* THIS SOFTWARE IS PROVIDED "AS-IS" WITHOUT ANY GUARANTEE OF
* PURPOSE AND PERFORMANCE. IN NO EVENT WHATSOEVER SHALL THE
* AUTHOR BE CONSIDERED LIABLE FOR THE USE AND PERFORMANCE OF
* THIS SOFTWARE.
*/
/* Gen from s.h.in BITS=_BITS$ bits=_bits$ */
#include <math.h>
#include <stdlib.h>
#include "assert.h"
#include "complex.h"
#include "integer.h"
#include "tag.h"
#include "tag_type.h"
#include "ratio.h"
#include "s_bits$.h"
s_bits$ * s_bits$_init_cast
(s_bits$ *s, const s_sym *type, const s_tag *tag)
{
(void) type;
switch (tag->type) {
case TAG_BOOL:
*s = tag->data.bool ? 1 : 0;
return s;
case TAG_CHARACTER:
*s = (s_bits$) tag->data.character;
return s;
case TAG_F32:
*s = (s_bits$) tag->data.f32;
return s;
case TAG_F64:
*s = (s_bits$) tag->data.f64;
return s;
case TAG_INTEGER:
*s = integer_to_s_bits$(&tag->data.integer);
return s;
case TAG_RATIO:
*s = ratio_to_s_bits$(&tag->data.ratio);
return s;
case TAG_SW:
*s = (s_bits$) tag->data.sw;
return s;
case TAG_S64:
*s = (s_bits$) tag->data.s64;
return s;
case TAG_S32:
*s = (s_bits$) tag->data.s32;
return s;
case TAG_S16:
*s = (s_bits$) tag->data.s16;
return s;
case TAG_S8:
*s = (s_bits$) tag->data.s8;
return s;
case TAG_U8:
*s = (s_bits$) tag->data.u8;
return s;
case TAG_U16:
*s = (s_bits$) tag->data.u16;
return s;
case TAG_U32:
*s = (s_bits$) tag->data.u32;
return s;
case TAG_U64:
*s = (s_bits$) tag->data.u64;
return s;
case TAG_UW:
*s = (s_bits$) tag->data.uw;
return s;
default:
break;
}
err_write_1("s_bits$_cast: cannot cast ");
err_write_1(tag_type_to_string(tag->type));
err_puts(" to s_bits$");
assert(! "s_bits$_cast: cannot cast to s_bits$");
return NULL;
}
s_bits$ * s_bits$_init_copy (s_bits$ *s, const s_bits$ *src)
{
assert(src);
assert(s);
*s = *src;
return s;
}
s_bits$ * s_bits$_random (s_bits$ *s)
{
arc4random_buf(s, sizeof(s_bits$));
return s;
}
s_tag * s_bits$_sqrt (const s_bits$ x, s_tag *dest)
{
assert(dest);
if (x < 0) {
dest->type = TAG_COMPLEX;
dest->data.complex = complex_new();
tag_init_u8(&dest->data.complex->x, 0);
dest->data.complex->y.type = TAG_F128;
dest->data.complex->y.data.f128 = sqrtl((long double) -x);
return dest;
}
dest->type = TAG_F128;
dest->data.f128 = sqrtl((long double) x);
return dest;
}