26 lines
403 B
C
26 lines
403 B
C
|
#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);
|
||
|
|
}
|
||
|
|
}
|