/* kc3
* Copyright 2022,2023,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 u.h.in BITS=_BITS$ bits=_bits$ */
#include "assert.h"
#include "buf.h"
#include "buf_parse_u_bits$.h"
#include <math.h>
#include <stdlib.h>
#include "f128.h"
#include "integer.h"
#include "ratio.h"
#include "sym.h"
#include "str.h"
#include "tag.h"
#include "u_bits$.h"
u_bits$ * u_bits$_init_1 (u_bits$ *u, const char *p)
{
s_str str;
str_init_1(&str, NULL, p);
return u_bits$_init_str(u, &str);
}
u_bits$ * u_bits$_init_cast
(u_bits$ *u, const s_sym * const *type, const s_tag *tag)
{
(void) type;
switch (tag->type) {
case TAG_BOOL:
*u = tag->data.bool ? 1 : 0;
return u;
case TAG_CHARACTER:
*u = (u_bits$) tag->data.character;
return u;
case TAG_F32:
*u = (u_bits$) tag->data.f32;
return u;
case TAG_F64:
*u = (u_bits$) tag->data.f64;
return u;
case TAG_INTEGER:
*u = integer_to_u_bits$(&tag->data.integer);
return u;
case TAG_RATIO:
*u = ratio_to_u_bits$(&tag->data.ratio);
return u;
case TAG_SW:
*u = (u_bits$) tag->data.sw;
return u;
case TAG_S64:
*u = (u_bits$) tag->data.s64;
return u;
case TAG_S32:
*u = (u_bits$) tag->data.s32;
return u;
case TAG_S16:
*u = (u_bits$) tag->data.s16;
return u;
case TAG_S8:
*u = (u_bits$) tag->data.s8;
return u;
case TAG_U8:
*u = (u_bits$) tag->data.u8;
return u;
case TAG_U16:
*u = (u_bits$) tag->data.u16;
return u;
case TAG_U32:
*u = (u_bits$) tag->data.u32;
return u;
case TAG_U64:
*u = (u_bits$) tag->data.u64;
return u;
case TAG_UW:
*u = (u_bits$) tag->data.uw;
return u;
default:
break;
}
err_write_1("u_bits$_cast: cannot cast ");
err_write_1(tag_type_to_string(tag->type));
if (*type == &g_sym_U_bits$)
err_puts(" to U_bits$");
else {
err_write_1(" to ");
err_inspect_sym(type);
err_puts(" aka U_bits$");
}
assert(! "u_bits$_cast: cannot cast to U_bits$");
return NULL;
}
u_bits$ * u_bits$_init_copy (u_bits$ *u, const u_bits$ *src)
{
assert(src);
assert(u);
*u = *src;
return u;
}
u_bits$ * u_bits$_init_str (u_bits$ *u, const s_str *str)
{
s_buf buf;
u_bits$ tmp = 0;
buf_init(&buf, false, str->size, (char *) str->ptr.pchar);
buf.wpos = str->size;
if (buf_parse_u_bits$(&buf, &tmp) <= 0) {
err_puts("u_bits$_init_str: buf_parse_u_bits$");
assert(! "u_bits$_init_str: buf_parse_u_bits$");
return NULL;
}
*u = tmp;
return u;
}
u_bits$ * u_bits$_random (u_bits$ *u)
{
arc4random_buf(u, sizeof(u_bits$));
return u;
}
#if _bits$ == 64 || _bits$ == w
u_bits$ * u_bits$_random_uniform (u_bits$ *u, u_bits$ max)
{
f128 x;
f128_random(&x);
x *= max;
*u = (u_bits$) x;
return u;
}
#else
u_bits$ * u_bits$_random_uniform (u_bits$ *u, u_bits$ max)
{
*u = arc4random_uniform(max);
return u;
}
#endif
s_tag * u_bits$_sqrt (const u_bits$ x, s_tag *dest)
{
assert(dest);
dest->type = TAG_F128;
dest->data.f128 = sqrtl((long double) x);
return dest;
}
