mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-05-04 08:24:15 +00:00
Code Issues 1 Releases Wiki Activity

Add methods for file io.

Browse Source
This commit is contained in:
Calvin Rose 2019-02-06 17:58:27 -05:00
parent 8343c9edd1
commit 6321c30cb1
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/core/io.c
View File

@ -49,12 +49,13 @@ struct IOFile {
}; };
static int cfun_io_gc(void *p, size_t len); static int cfun_io_gc(void *p, size_t len);
static Janet io_file_get(void *p, Janet);
JanetAbstractType cfun_io_filetype = { JanetAbstractType cfun_io_filetype = {
"core/file", "core/file",
cfun_io_gc, cfun_io_gc,
NULL, NULL,
NULL, io_file_get,
NULL NULL
}; };
@ -307,6 +308,22 @@ static Janet cfun_io_fseek(int32_t argc, Janet *argv) {
return argv[0]; return argv[0];
} }
static JanetMethod io_file_methods[] = {
{"close", cfun_io_fclose},
{"read", cfun_io_fread},
{"write", cfun_io_fwrite},
{"flush", cfun_io_fflush},
{"seek", cfun_io_fseek},
{NULL, NULL}
};
static Janet io_file_get(void *p, Janet key) {
(void) p;
if (!janet_checktype(key, JANET_KEYWORD))
janet_panicf("expected keyword, got %v", key);
return janet_getmethod(janet_unwrap_keyword(key), io_file_methods);
}
static const JanetReg io_cfuns[] = { static const JanetReg io_cfuns[] = {
{ {
"file/open", cfun_io_fopen, "file/open", cfun_io_fopen,