#include "picrin.h"
#include "picrin/data.h"
#include "picrin/pair.h"
#include "picrin/string.h"
#include "picrin/cont.h"

#include <unistd.h>


static pic_value
pic_repl_tty_p(pic_state *pic)
{

  pic_get_args(pic, "");

  return pic_bool_value((isatty(STDIN_FILENO)));
}

void
pic_init_repl(pic_state *pic)
{
  pic_deflibrary (pic, "(picrin repl)") {
    pic_defun(pic, "tty?", pic_repl_tty_p);
  }
}