mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-06-30 00:53:15 +00:00
Code Issues 1 Releases Wiki Activity

file/close returns an integer.

Browse Source 
If opened with popen, returns the exit code. Otherwise
returns nil.
This commit is contained in:
Calvin Rose 2019-05-29 11:40:07 -04:00
parent fd2d706e33
commit af23040d9c
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/core/io.c
View File

@ -286,12 +286,15 @@ static Janet cfun_io_fclose(int32_t argc, Janet *argv) {
#ifdef JANET_WINDOWS #ifdef JANET_WINDOWS
#define pclose _pclose #define pclose _pclose
#endif #endif
if (pclose(iof->file)) janet_panic("could not close file"); int status = pclose(iof->file);
iof->flags |= IO_CLOSED;
if (status) janet_panic("could not close file");
return janet_wrap_integer(status);
} else { } else {
if (fclose(iof->file)) janet_panic("could not close file"); if (fclose(iof->file)) janet_panic("could not close file");
iof->flags |= IO_CLOSED;
return janet_wrap_nil();
} }
iof->flags |= IO_CLOSED;
return argv[0];
} }
/* Seek a file */ /* Seek a file */