/**
 * See Copyright Notice in picrin.h
 */

#include "picrin.h"
#include "picrin/extra.h"

#include <stdio.h>

PIC_NORETURN static void
file_error(pic_state *pic, const char *msg)
{
  pic_raise(pic, pic_make_error(pic, "file", msg, pic_nil_value(pic)));
}

static pic_value
open_file(pic_state *pic, const char *fname, const char *mode)
{
  FILE *fp;

  if ((fp = fopen(fname, mode)) == NULL) {
    file_error(pic, "could not open file...");
  }
  return pic_fopen(pic, fp, mode);
}

pic_value
pic_file_open_input_file(pic_state *pic)
{
  char *fname;

  pic_get_args(pic, "z", &fname);

  return open_file(pic, fname, "r");
}

pic_value
pic_file_open_output_file(pic_state *pic)
{
  char *fname;

  pic_get_args(pic, "z", &fname);

  return open_file(pic, fname, "w");
}

pic_value
pic_file_exists_p(pic_state *pic)
{
  char *fname;
  FILE *fp;

  pic_get_args(pic, "z", &fname);

  fp = fopen(fname, "r");
  if (fp) {
    fclose(fp);
    return pic_true_value(pic);
  } else {
    return pic_false_value(pic);
  }
}

pic_value
pic_file_delete(pic_state *pic)
{
  char *fname;

  pic_get_args(pic, "z", &fname);

  if (remove(fname) != 0) {
    file_error(pic, "file cannot be deleted");
  }
  return pic_undef_value(pic);
}

void
pic_nitro_init_file(pic_state *pic)
{
  pic_defun(pic, "scheme.base:open-input-file", pic_file_open_input_file); /* for `include' */
  pic_defun(pic, "scheme.file:open-input-file", pic_file_open_input_file);
  pic_defun(pic, "scheme.file:open-binary-input-file", pic_file_open_input_file);
  pic_defun(pic, "scheme.file:open-output-file", pic_file_open_output_file);
  pic_defun(pic, "scheme.file:open-binary-output-file", pic_file_open_output_file);
  pic_defun(pic, "scheme.file:file-exists?", pic_file_exists_p);
  pic_defun(pic, "scheme.file:delete-file", pic_file_delete);
}