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.
 */
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include "../libkc3/kc3.h"

static sw buf_getchar_refill (s_buf *buf);

void buf_getchar_close (s_buf *buf)
{
  assert(buf);
  assert(buf->refill == buf_getchar_refill);
  buf->refill = NULL;
}

s_buf * buf_getchar_open_r (s_buf *buf)
{
  assert(buf);
  assert(! buf->refill);
  buf->refill = buf_getchar_refill;
  return buf;
}

sw buf_getchar_refill (s_buf *buf)
{
  sw c = 0;
  FILE *fp;
  uw result = 0;
  assert(buf);
  assert(buf->user_ptr);
  if (buf->rpos > buf->wpos ||
      buf->wpos > buf->size)
    return -1;
  fp = buf->user_ptr;
  if (feof(fp))
    return -1;
  while (buf->wpos < buf->size &&
         c != '\n' &&
         (c = getc(fp)) != EOF &&
         c <= 255) {
    buf_write_u8(buf, c);
    result++;
  }
  return result;
}
kc3-lang/kc3/libkc3/buf_getchar.c

Commit

libkc3/buf_getchar.c
