kc3-lang/kc3/libc3/u.c.in

• Show log

  Commit

• Hash : 4ba3e8da
  Author : Thomas de Grivel
  Date : 2023-12-18T16:51:40
  

  fix f64_random

Download

• libc3/u.c.in

• /* c3
   * Copyright 2022,2023 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 <err.h>
  #include <math.h>
  #include <stdlib.h>
  #include "integer.h"
  #include "tag.h"
  #include "u_bits$.h"
  
  u_bits$ * u_bits$_init_cast (u_bits$ *u, const s_tag *tag)
  {
    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_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;
    }
    warnx("u_bits$_cast: cannot cast %s to u_bits$",
          tag_type_to_string(tag->type));
    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$_random (u_bits$ *u)
  {
    arc4random_buf(u, sizeof(u_bits$));
    return u;
  }
  
  #if _bits$ > 32
  
  u_bits$ * u_bits$_random_uniform (u_bits$ *u, u_bits$ max)
  {
    // TODO
    (void) u;
    (void) max;
    err_puts("u_bits$_random_uniform: not implemented");
    assert(! "u_bits$_random_uniform: not implemented");
    return NULL;
  }
  
  #else
  
  u_bits$ * u_bits$_random_uniform (u_bits$ *u, u_bits$ max)
  {
    *u = arc4random_uniform(max);
    return u;
  }
  
  #endif
  

Download