kc3-lang/kc3/libc3/s8.c

Tag - branch -masterv0.1configurefnfractionsfractions-rebaselinuxratio-rebase- tag -v0.1.9v0.1.8v0.1.7v0.1.6v0.1.5v0.1.4v0.1.3v0.1.2v0.1.1v0.1.0v0.1.13v0.1.12v0.1.11v0.1.10v0HTTPd-v0.1.1HTTPd-v0.1.0

• Show log

  Commit

• Hash : 453f5581
  Author : Thomas de Grivel
  Date : 2023-09-24T11:57:36
  

  wip integer arrays

Download

• libc3/s8.c

• /* 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 s.h.in BITS=8 bits=8 */
  #include <assert.h>
  #include <err.h>
  #include "integer.h"
  #include "tag.h"
  #include "s8.h"
  
  s8 s8_cast (s_tag *tag)
  {
    switch (tag->type) {
    case TAG_VOID:
      return 0;
    case TAG_ARRAY:
      goto ko;
    case TAG_BOOL:
      return tag->data.bool ? 1 : 0;
    case TAG_CALL:
      goto ko;
    case TAG_CFN:
      goto ko;
    case TAG_CHARACTER:
      return (s8) tag->data.character;
    case TAG_F32:
      return (s8) tag->data.f32;
    case TAG_F64:
      return (s8) tag->data.f64;
    case TAG_FACT:
    case TAG_FN:
    case TAG_IDENT:
      goto ko;
    case TAG_INTEGER:
      return integer_to_s8(&tag->data.integer);
    case TAG_SW:
      return (s8) tag->data.sw;
    case TAG_S64:
      return (s8) tag->data.s64;
    case TAG_S32:
      return (s8) tag->data.s32;
    case TAG_S16:
      return (s8) tag->data.s16;
    case TAG_S8:
      return (s8) tag->data.s8;
    case TAG_U8:
      return (s8) tag->data.u8;
    case TAG_U16:
      return (s8) tag->data.u16;
    case TAG_U32:
      return (s8) tag->data.u32;
    case TAG_U64:
      return (s8) tag->data.u64;
    case TAG_UW:
      return (s8) tag->data.uw;
    case TAG_LIST:
    case TAG_PTAG:
    case TAG_QUOTE:
    case TAG_STR:
    case TAG_SYM:
    case TAG_TUPLE:
    case TAG_VAR:
      goto ko;
    }
    assert(! "s8_cast: unknown tag type");
    errx(1, "s8_cast: unknown tag type: %d", tag->type);
    return 0;
   ko:
    warnx("s8_cast: cannot cast %s to s8",
          tag_type_to_sym(tag->type)->str.ptr.ps8);
    return 0;
  }
  
  s8 * s8_copy (const s8 *src, s8 *dest)
  {
    assert(src);
    assert(dest);
    *dest = *src;
    return dest;
  }
  

Download