kmx git

/* 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 buf_inspect_s.c.in BITS=32 bits=32 */
#include <string.h>
#include "buf.h"
#include "buf_inspect.h"
#include "buf_inspect_u32.h"
#include "buf_inspect_u32_decimal.h"
#include "cast.h"
#include "sym.h"

sw buf_inspect_s32 (s_buf *buf, const s32 *s)
{
  sw r;
  sw result = 0;
  u32 u;
  if (g_buf_inspect_type != &g_sym_S32 &&
      cast_needed_s32(*s)) {
    if ((r = buf_inspect_paren_sym(buf, &g_sym_S32)) < 0)
      return r;
    result += r;
    if ((r = buf_write_1(buf, " ")) < 0)
      return r;
    result += r;
  }
  u = *s;
  if (*s < 0) {
    if ((r = buf_write_1(buf, "-")) < 0)
      return r;
    result += r;
    u = -*s;
  }
  if ((r = buf_inspect_u32_decimal(buf, &u)) < 0)
    return r;
  result += r;
  return result;
}

sw buf_inspect_s32_size (s_pretty *pretty, const s32 *s)
{
  sw r;
  sw result = 0;
  u32 u;
  if (g_buf_inspect_type != &g_sym_S32 &&
      cast_needed_s32(*s)) {
    if ((r = buf_inspect_paren_sym_size(pretty, &g_sym_S32)) < 0)
      return r;
    result += r;
    if ((r = buf_write_1_size(pretty, " ")) < 0)
      return r;
    result += r;
  }
  if (*s < 0) {
    if ((r = buf_write_1_size(pretty, "-")) < 0)
      return r;
    result += r;
    u = -*s;
  }
  else
    u = *s;
  if ((r = buf_inspect_u32_decimal_size(pretty, &u)) < 0)
    return r;
  result += r;
  return result;
}
kc3-lang/kc3/libkc3/buf_inspect_s32.c

Commit

libkc3/buf_inspect_s32.c
