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

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 : 52e3a067
  Author : Thomas de Grivel
  Date : 2023-07-16T11:04:12
  

  wip buf_parse_array_data

Download

• libc3/buf_parse_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 buf_parse_u.c.in BITS=_BITS$ bits=_bits$ */
  
  #include "c3.h"
  
  sw buf_parse_u_bits$ (s_buf *buf, u_bits$ *dest)
  {
    s_buf_save digits;
    sw r;
    sw r1;
    sw result = 0;
    s_buf_save save;
    u_bits$ tmp;
    u_bits$ tmp1;
    buf_save_init(buf, &save);
    if ((r = buf_read_1(buf, "0b")) < 0)
      goto restore;
    if (r > 0) {
      result += r;
      if ((r = buf_parse_u_bits$_base(buf, &g_c3_base_binary, dest)) <= 0)
        goto restore;
      result += r;
      goto ok;
    }
    if ((r = buf_read_1(buf, "0o")) < 0)
      goto restore;
    if (r > 0) {
      result += r;
      if ((r = buf_parse_u_bits$_base(buf, &g_c3_base_octal, dest)) <= 0)
        goto restore;
      result += r;
      goto ok;
    }
    if ((r = buf_read_1(buf, "0x")) < 0)
      goto restore;
    if (r > 0) {
      result += r;
      buf_save_init(buf, &digits);
      if ((r = buf_parse_u_bits$_base(buf, g_c3_bases_hexadecimal,
                                      &tmp)) < 0) {
        buf_save_clean(buf, &digits);
        goto restore;
      }
      buf_save_restore_rpos(buf, &digits);
      buf_save_clean(buf, &digits);
      if ((r1 = buf_parse_u_bits$_base(buf, g_c3_bases_hexadecimal + 1,
                                       &tmp1)) < 0) {
        r = r1;
        goto restore;
      }
      if (r == 0 && r1 == 0) {
        warnx("invalid number: 0x");
        goto restore;
      }
      if (r > r1) {
        result += r;
        *dest = tmp;
      }
      else {
        result += r1;
        *dest = tmp1;
      }
      goto ok;
    }
    if ((r = buf_parse_u_bits$_base(buf, &g_c3_base_decimal, dest)) <= 0)
      goto restore;
    result += r;
   ok:
    r = result;
    goto clean;
   restore:
    buf_save_restore_rpos(buf, &save);
   clean:
    buf_save_clean(buf, &save);
    return r;
  }
  
  sw buf_parse_u_bits$_base (s_buf *buf, const s_str *base,
                             u_bits$ *dest)
  {
    u8 digit;
    sw r;
    sw radix;
    sw result = 0;
    s_buf_save save;
    u_bits$ u = 0;
    u_bits$ u2 = 0;
    assert(buf);
    assert(base);
    assert(dest);
    buf_save_init(buf, &save);
    radix = str_length_utf8(base);
    if (radix < 2 || (uw) radix > U_BITS$_MAX) {
      buf_save_clean(buf, &save);
      assert(! "buf_parse_u_bits$_base: invalid radix");
      errx(1, "buf_parse_u_bits$_base: invalid radix: %ld",
           radix);
      return -1;
    }
    while ((r = buf_parse_digit(buf, base, &digit)) > 0) {
      result += r;
      if (digit >= radix) {
        buf_save_clean(buf, &save);
        assert(! "buf_parse_u_bits$_base: digit greater than or equal to"
               " radix");
        errx(1, "buf_parse_u_bits$_base: digit greater than or equal to"
             " radix: %u",
             digit);
        return -1;
      }
      if (u > ceiling_u_bits$(U_BITS$_MAX, radix)) {
        warnx("buf_parse_u_bits$_base: %llu * %llu: integer overflow",
              (unsigned long long) u,
              (unsigned long long) radix);
        r = -1;
        goto restore;
      }
      u *= radix;
      u2 = U_BITS$_MAX - digit;
      if (u > u2) {
        warnx("buf_parse_u_bits$_base: +: integer overflow");
        r = -1;
        goto restore;
      }
      u += digit;
    }
    *dest = u;
    r = result;
    goto clean;
   restore:
    buf_save_restore_rpos(buf, &save);
   clean:
    buf_save_clean(buf, &save);
    return r;
  }
  

Download