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

Merge pull request #231 from andrewchambers/tempfile

Browse Source 
Add file/temp.
This commit is contained in:
Calvin Rose 2019-12-29 20:00:17 -05:00 committed by GitHub
commit d0570b55b1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/core/io.c
View File

@ -136,6 +136,15 @@ static Janet cfun_io_popen(int32_t argc, Janet *argv) {
} }
#endif #endif
static Janet cfun_io_temp(int32_t argc, Janet *argv) {
(void)argv;
janet_fixarity(argc, 0);
FILE *tmp = tmpfile();
if (!tmp)
janet_panicf("unable to create temporary file - %s", strerror(errno));
return janet_makefile(tmp, JANET_FILE_WRITE|JANET_FILE_READ|JANET_FILE_BINARY);
}
static Janet cfun_io_fopen(int32_t argc, Janet *argv) { static Janet cfun_io_fopen(int32_t argc, Janet *argv) {
janet_arity(argc, 1, 2); janet_arity(argc, 1, 2);
const uint8_t *fname = janet_getstring(argv, 0); const uint8_t *fname = janet_getstring(argv, 0);
@ -566,6 +575,12 @@ static const JanetReg io_cfuns[] = {
"eprinf", cfun_io_eprinf, "eprinf", cfun_io_eprinf,
JDOC("(eprinf fmt & xs)\n\n" JDOC("(eprinf fmt & xs)\n\n"
"Like eprintf but with no trailing newline.") "Like eprintf but with no trailing newline.")
},
{
"file/temp", cfun_io_temp,
JDOC("(file/temp)\n\n"
"Open an anonymous temporary file that is removed on close."
"Raises an error on failure.")
}, },
{ {
"file/open", cfun_io_fopen, "file/open", cfun_io_fopen,

6
test/suite7.janet
View File

@ -277,4 +277,10 @@
(assert (= (constantly) (constantly)) "comptime 1") (assert (= (constantly) (constantly)) "comptime 1")
(with [f (file/temp)]
(file/write f "foo\n")
(file/flush f)
(file/seek f :set 0)
(assert (= (string (file/read f :all)) "foo\n") "temp files work"))
(end-suite) (end-suite)