/* 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.
*/
#include "buf.h"
#include "buf_inspect.h"
#include "buf_inspect_s8_decimal.h"
#include "buf_inspect_s16_decimal.h"
#include "buf_inspect_s32_decimal.h"
#include "buf_inspect_s64_decimal.h"
#include "buf_inspect_sw_decimal.h"
#include "buf_inspect_u8_decimal.h"
#include "buf_inspect_u16_decimal.h"
#include "buf_inspect_u32_decimal.h"
#include "buf_inspect_u64_decimal.h"
#include "buf_inspect_uw_decimal.h"
#include "env.h"
#include "io.h"
#include "tag_type.h"
#define DEF_ERR_INSPECT(name, type) \
sw err_inspect_ ## name (type x) \
{ \
sw r; \
r = buf_inspect_ ## name(&g_kc3_env.err, x); \
if (r < 0) \
return r; \
buf_flush(&g_kc3_env.err); \
return r; \
}
#define DEF_IO_INSPECT(name, type) \
sw io_inspect_ ## name (type x) \
{ \
sw r; \
r = buf_inspect_ ## name(&g_kc3_env.out, x); \
if (r < 0) \
return r; \
buf_flush(&g_kc3_env.out); \
return r; \
}
#define DEF_ERR_IO_INSPECT(name, type) \
DEF_ERR_INSPECT(name, type) \
DEF_IO_INSPECT(name, type)
#define IO_INSPECT_BUF_SIZE 100
sw err_flush (void)
{
return buf_flush(&g_kc3_env.err);
}
sw err_inspect (const s_tag *x)
{
return err_inspect_tag(x);
}
sw err_inspect_buf (const s_buf *buf)
{
uw pos;
pos = (buf->rpos < IO_INSPECT_BUF_SIZE) ? 0 :
buf->rpos - IO_INSPECT_BUF_SIZE;
return err_write(buf->ptr.pchar + pos, buf->rpos - pos);
}
sw err_inspect_tag_type (e_tag_type type)
{
return err_write_1(tag_type_to_string(type));
}
sw err_puts (const char *x)
{
sw r;
sw result = 0;
if ((r = buf_write_1(&g_kc3_env.err, x)) < 0)
return r;
result += r;
if ((r = buf_write_u8(&g_kc3_env.err, '\n')) < 0)
return r;
result += r;
buf_flush(&g_kc3_env.err);
return result;
}
sw err_write (const void *x, uw len)
{
sw r;
if ((r = buf_write(&g_kc3_env.err, x, len)) > 0)
buf_flush(&g_kc3_env.err);
return r;
}
sw err_write_1 (const char *x)
{
sw r;
if ((r = buf_write_1(&g_kc3_env.err, x)) > 0)
buf_flush(&g_kc3_env.err);
return r;
}
sw err_write_str (const s_str *x)
{
sw r;
if ((r = buf_write_str(&g_kc3_env.err, x)) > 0)
buf_flush(&g_kc3_env.err);
return r;
}
sw io_flush (void)
{
return buf_flush(&g_kc3_env.out);
}
sw io_inspect (const s_tag *x)
{
sw r;
sw result = 0;
if ((r = buf_inspect_tag(&g_kc3_env.out, x)) < 0)
return r;
result += r;
if ((r = buf_write_u8(&g_kc3_env.out, '\n')) < 0)
return r;
result += r;
buf_flush(&g_kc3_env.out);
return result;
}
sw io_inspect_buf (const s_buf *buf)
{
uw pos;
pos = (buf->rpos < IO_INSPECT_BUF_SIZE) ? 0 :
buf->rpos - IO_INSPECT_BUF_SIZE;
return io_write(buf->ptr.pchar + pos, buf->rpos - pos);
}
sw io_inspect_tag_type (e_tag_type type)
{
return io_write_1(tag_type_to_string(type));
}
sw io_puts (const char *x)
{
sw r;
sw result = 0;
if ((r = buf_write_1(&g_kc3_env.out, x)) < 0)
return r;
result += r;
if ((r = buf_write_u8(&g_kc3_env.out, '\n')) < 0)
return r;
result += r;
buf_flush(&g_kc3_env.out);
return result;
}
sw io_write (const void *x, uw len)
{
sw r;
if ((r = buf_write(&g_kc3_env.out, x, len)) > 0)
buf_flush(&g_kc3_env.out);
return r;
}
sw io_write_1 (const char *x)
{
sw r;
if ((r = buf_write_1(&g_kc3_env.out, x)) > 0)
buf_flush(&g_kc3_env.out);
return r;
}
sw io_write_str (const s_str *x)
{
sw r;
if ((r = buf_write_str(&g_kc3_env.out, x)) > 0)
buf_flush(&g_kc3_env.out);
return r;
}
DEF_ERR_IO_INSPECT(array, const s_array *)
DEF_ERR_IO_INSPECT(call, const s_call *)
DEF_ERR_IO_INSPECT(character, const character *)
DEF_ERR_IO_INSPECT(f32, const f32 *)
DEF_ERR_IO_INSPECT(fact, const s_fact *)
DEF_ERR_IO_INSPECT(fn_pattern, const s_list *)
DEF_ERR_IO_INSPECT(ident, const s_ident *)
DEF_ERR_IO_INSPECT(list, const s_list * const *)
DEF_ERR_IO_INSPECT(map, const s_map *)
DEF_ERR_IO_INSPECT(pointer, const void *)
DEF_ERR_IO_INSPECT(ptr, const u_ptr_w *)
DEF_ERR_IO_INSPECT(s8, const s8 *)
DEF_ERR_IO_INSPECT(s8_decimal, const s8 *)
DEF_ERR_IO_INSPECT(s16, const s16 *)
DEF_ERR_IO_INSPECT(s16_decimal, const s16 *)
DEF_ERR_IO_INSPECT(s32, const s32 *)
DEF_ERR_IO_INSPECT(s32_decimal, const s32 *)
DEF_ERR_IO_INSPECT(s64, const s64 *)
DEF_ERR_IO_INSPECT(s64_decimal, const s64 *)
DEF_ERR_IO_INSPECT(str, const s_str *)
DEF_ERR_IO_INSPECT(sw, const sw *)
DEF_ERR_IO_INSPECT(sw_decimal, const sw *)
DEF_ERR_IO_INSPECT(sym, const s_sym * const *)
DEF_ERR_IO_INSPECT(tag, const s_tag *)
DEF_ERR_IO_INSPECT(tuple, const s_tuple *)
DEF_ERR_IO_INSPECT(u8, const u8 *)
DEF_ERR_IO_INSPECT(u8_decimal, const u8 *)
DEF_ERR_IO_INSPECT(u16, const u16 *)
DEF_ERR_IO_INSPECT(u16_decimal, const u16 *)
DEF_ERR_IO_INSPECT(u32, const u32 *)
DEF_ERR_IO_INSPECT(u32_decimal, const u32 *)
DEF_ERR_IO_INSPECT(u64, const u64 *)
DEF_ERR_IO_INSPECT(u64_decimal, const u64 *)
DEF_ERR_IO_INSPECT(uw, const uw *)
DEF_ERR_IO_INSPECT(uw_decimal, const uw *)
