suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix some stderr buffering problems related to Windows pipes

Browse Source 
svn: r10460
This commit is contained in:
Matthew Flatt 2008-06-26 20:05:56 +00:00
parent 034d55ac4f
commit f7939ab35d
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mred/mred.cxx
View File

@ -2546,6 +2546,7 @@ static void MrEdSchemeMessages(char *msg, ...)
#if WINDOW_STDIO #if WINDOW_STDIO
if (wx_in_terminal) { if (wx_in_terminal) {
vfprintf(stderr, msg, args); vfprintf(stderr, msg, args);
fflush(stderr);
} else if (!msg) { } else if (!msg) {
char *s; char *s;
wxchar *us; wxchar *us;
@ -2615,6 +2616,7 @@ static void MrEdSchemeMessages(char *msg, ...)
#endif #endif
#if !WINDOW_STDIO && !WCONSOLE_STDIO #if !WINDOW_STDIO && !WCONSOLE_STDIO
vfprintf(mrerr, msg, args); vfprintf(mrerr, msg, args);
fflush(mrerr);
#endif #endif
scheme_end_atomic_no_swap(); scheme_end_atomic_no_swap();

13
src/mzscheme/src/port.c
View File

@ -343,6 +343,8 @@ static Scheme_Object *make_oskit_console_input_port();
static void force_close_output_port(Scheme_Object *port); static void force_close_output_port(Scheme_Object *port);
static void force_close_input_port(Scheme_Object *port); static void force_close_input_port(Scheme_Object *port);
static void set_fd_flush_mode(Scheme_Object *o, int mode);
static Scheme_Object *text_symbol, *binary_symbol; static Scheme_Object *text_symbol, *binary_symbol;
static Scheme_Object *append_symbol, *error_symbol, *update_symbol, *can_update_symbol; static Scheme_Object *append_symbol, *error_symbol, *update_symbol, *can_update_symbol;
static Scheme_Object *replace_symbol, *truncate_symbol, *truncate_replace_symbol; static Scheme_Object *replace_symbol, *truncate_symbol, *truncate_replace_symbol;
@ -534,6 +536,12 @@ scheme_init_port (Scheme_Env *env)
#endif #endif
); );
#ifdef MZ_FDS
# ifdef WINDOWS_FILE_HANDLES
set_fd_flush_mode(scheme_orig_stderr_port, MZ_FLUSH_ALWAYS);
# endif
#endif
flush_out = SCHEME_TRUEP(scheme_terminal_port_p(1, &scheme_orig_stdout_port)); flush_out = SCHEME_TRUEP(scheme_terminal_port_p(1, &scheme_orig_stdout_port));
flush_err = SCHEME_TRUEP(scheme_terminal_port_p(1, &scheme_orig_stderr_port)); flush_err = SCHEME_TRUEP(scheme_terminal_port_p(1, &scheme_orig_stderr_port));
@ -6324,6 +6332,11 @@ make_fd_output_port(int fd, Scheme_Object *name, int regfile, int win_textmode,
return the_port; return the_port;
} }
static void set_fd_flush_mode(Scheme_Object *o, int mode)
{
((Scheme_FD *)((Scheme_Output_Port *)o)->port_data)->flush = mode;
}
static void flush_if_output_fds(Scheme_Object *o, Scheme_Close_Custodian_Client *f, void *data) static void flush_if_output_fds(Scheme_Object *o, Scheme_Close_Custodian_Client *f, void *data)
{ {
if (SCHEME_OUTPUT_PORTP(o)) { if (SCHEME_OUTPUT_PORTP(o)) {