/* 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=_BITS$ bits=_bits$ */
#include <string.h>
#include "buf.h"
#include "buf_inspect.h"
#include "buf_inspect_u_bits$.h"
#include "buf_inspect_u_bits$_decimal.h"
#include "cast.h"
#include "sym.h"
sw buf_inspect_s_bits$ (s_buf *buf, const s_bits$ *s)
{
sw r;
sw result = 0;
u_bits$ u;
if (g_buf_inspect_type != &g_sym_S_bits$ &&
cast_needed_s_bits$(*s)) {
if ((r = buf_inspect_paren_sym(buf, &g_sym_S_bits$)) < 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_u_bits$_decimal(buf, &u)) < 0)
return r;
result += r;
return result;
}
sw buf_inspect_s_bits$_size (s_pretty *pretty, const s_bits$ *s)
{
sw r;
sw result = 0;
u_bits$ u;
if (g_buf_inspect_type != &g_sym_S_bits$ &&
cast_needed_s_bits$(*s)) {
if ((r = buf_inspect_paren_sym_size(pretty, &g_sym_S_bits$)) < 0)
return r;
result += r;
result += strlen(" ");
}
if (*s < 0) {
result += strlen("-");
u = -*s;
}
else
u = *s;
result += buf_inspect_u_bits$_decimal_size(&u);
return result;
}
