/* Copyright (C) 2025 Aryadev Chavali

 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 * FOR A PARTICULAR PURPOSE.  See the Unlicense for details.

 * You may distribute and modify this code under the terms of the Unlicense,
 * which you should have received a copy of along with this program.  If not,
 * please go to <https://unlicense.org/>.

 * Created: 2025-08-19
 * Description: Entrypoint
 */

#include <malloc.h>
#include <stdio.h>
#include <string.h>

#include <alisp.h>

int main(void)
{
  stream_t stream = {0};
  char _data[]    = "Hello, world!";
  sv_t data       = SV(_data, ARRSIZE(_data) - 1);
  char filename[] = "lorem.txt";

  // stream_init_string(&stream, NULL, data);

  FILE *fp = fopen(filename, "rb");
  stream_init_file(&stream, filename, fp);

  // stream_init_file(&stream, "stdin", stdin);

  /// test 1
  while (!stream_eoc(&stream))
  {
    printf("%s[%lu]: `%c`\n", stream.name, stream.position,
           stream_next(&stream));
  }
  printf("%lu/%lu\n", stream.position, stream_size(&stream));

  /// test 2
  stream.position = 0;
  sv_t a          = stream_substr(&stream, 100);
  sv_t a_         = sv_copy(a);
  stream_seek(&stream, 100);
  sv_t b  = stream_substr_abs(&stream, 0, 100);
  sv_t b_ = sv_copy(b);
  printf("a=b ? %s\na_=b_ ? %s\n",
         memcmp(&a, &b, sizeof(a)) == 0 ? "yes" : "no",
         a_.size == b_.size && strncmp(a_.data, b_.data, a_.size) == 0 ? "yes"
                                                                       : "no");
  sv_t c  = stream_substr(&stream, 100);
  sv_t c_ = sv_copy(c);
  stream_seek(&stream, 100);
  sv_t d  = stream_substr_abs(&stream, stream.position - 100, 100);
  sv_t d_ = sv_copy(d);
  printf("c=d ? %s\nc_=d_ ? %s\n",
         memcmp(&c, &d, sizeof(a)) == 0 ? "yes" : "no",
         c_.size == d_.size && strncmp(c_.data, d_.data, c_.size) == 0 ? "yes"
                                                                       : "no");

  printf("eos?=%s\n", stream_eos(&stream) ? "yes" : "no");
  printf("eoc?=%s\n", stream_eoc(&stream) ? "yes" : "no");

  stream_stop(&stream);
  // fclose(fp);
  return 0;
}