mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-04-14 23:03:13 +00:00
Code Issues 1 Releases Wiki Activity

Raise error if using ev/to-file on MinGW

Browse Source
This commit is contained in:
Michael Camilleri 2024-12-15 21:00:52 +09:00
parent 6ee05785d1
commit 1a24d4fc86
No known key found for this signature in database
GPG Key ID: 7EB218A48DF8B572
2 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/core/ev.c
View File

@ -3309,10 +3309,7 @@ static JanetFile *get_file_for_stream(JanetStream *stream) {
FILE *f = _fdopen(fd_dup, fmt);
if (NULL == f) {
/* the stream isn't duplicated so this would close the stream
/* _close(fd); */
return NULL;
}
if (setvbuf(f, NULL, _IONBF, 0)) {
* _close(fd); */
return NULL;
}
#else
@ -3323,10 +3320,6 @@ static JanetFile *get_file_for_stream(JanetStream *stream) {
close(newHandle);
return NULL;
}
if (setvbuf(f, NULL, _IONBF, 0)) {
close(newHandle);
return NULL;
}
#endif
return janet_makejfile(f, flags);
}
@ -3334,13 +3327,19 @@ static JanetFile *get_file_for_stream(JanetStream *stream) {
JANET_CORE_FN(janet_cfun_to_file,
"(ev/to-file)",
"Create core/file copy of the stream. This value can be used "
"when blocking IO behavior is needed. Buffering is turned off "
"for the file.") {
"when blocking IO behavior is needed.") {
janet_fixarity(argc, 1);
#ifdef JANET_MINGW
(void) argc;
(void) argv;
janet_panic("ev/to-file not supported on MinGW");
return janet_wrap_nil();
#else
JanetStream *stream = janet_getabstract(argv, 0, &janet_stream_type);
JanetFile *iof = get_file_for_stream(stream);
if (iof == NULL) janet_panic("cannot make file from stream");
return janet_wrap_abstract(iof);
#endif
}
JANET_CORE_FN(janet_cfun_ev_all_tasks,

10
test/suite-ev.janet
View File

@ -420,9 +420,13 @@
# Now do our telnet chat
(def bob (net/connect test-host test-port :stream))
(expect-read bob "Whats your name?\n")
(def fbob (ev/to-file bob))
(file/write fbob "bob")
(:close fbob)
(if (= :mingw (os/which))
(net/write bob "bob")
(do
(def fbob (ev/to-file bob))
(file/write fbob "bob")
(file/flush fbob)
(:close fbob)))
(expect-read bob "Welcome bob\n")
(def alice (net/connect test-host test-port))
(expect-read alice "Whats your name?\n")