mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-29 14:47:42 +00:00
Code Issues 1 Releases Wiki Activity

Add underscore to repl

Browse Source
This commit is contained in:
bakpakin
2018-01-13 10:34:59 -05:00
parent 921f087c96
commit 94a4970053
3 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
client/main.c
View File

@@ -73,10 +73,18 @@ static void bshift(DstBuffer *buf, int32_t delta) {
}
}
/* Wrap a value to add to the env */
static void set_underscore(Dst val) {
DstTable *t = dst_table(0);
dst_table_put(t, dst_csymbolv("value"), val);
dst_put(env, dst_csymbolv("_"), dst_wrap_table(t));
}
/* simple repl */
static int repl() {
DstBuffer b;
dst_buffer_init(&b, 256);
set_underscore(dst_wrap_nil());
for (;;) {
int c;
DstParseResult res;
@@ -120,6 +128,7 @@ static int repl() {
dst_puts(dst_formatc("runtime error: %S\n", dst_to_string(ret)));
} else {
dst_puts(dst_formatc("%v\n", ret));
set_underscore(ret);
}
} else {
dst_puts(dst_formatc("compile error: %S\n", cres.error));