mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

wait-for-all-processes must take a :process argument because is also a signal catcher (J. James)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-08-15 20:58:04 +02:00
parent 1112bb12fb
commit db7c2edf2e
4 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/symbols_list.h
View file

@ -1233,7 +1233,7 @@ cl_symbols[] = {
{SYS_ "REPLACE-ARRAY", SI_ORDINARY, si_replace_array, 2, OBJNULL},
{SYS_ "ROW-MAJOR-ASET", SI_ORDINARY, si_row_major_aset, 3, OBJNULL},
{EXT_ "RUN-PROGRAM", EXT_ORDINARY, si_run_program, -1, OBJNULL},
{SYS_ "WAIT-FOR-ALL-PROCESSES", SI_ORDINARY, si_wait_for_all_processes, 0, OBJNULL},
{SYS_ "WAIT-FOR-ALL-PROCESSES", SI_ORDINARY, si_wait_for_all_processes, -1, OBJNULL},
{EXT_ "SAFE-EVAL", EXT_ORDINARY, ECL_NAME(si_safe_eval), -1, OBJNULL},
{SYS_ "SCH-FRS-BASE", SI_ORDINARY, si_sch_frs_base, 2, OBJNULL},
{SYS_ "SCHAR-SET", SI_ORDINARY, si_char_set, 3, OBJNULL},

4
src/c/unixint.d
View file

@ -561,7 +561,7 @@ asynchronous_signal_servicing_thread()
}
#ifdef SIGCHLD
if (signal_thread_msg.signo == SIGCHLD) {
si_wait_for_all_processes();
si_wait_for_all_processes(0);
continue;
}
#endif
@ -1185,7 +1185,7 @@ asynchronous_signal_servicing_thread()
#endif
#ifdef SIGCHLD
if (signo == SIGCHLD) {
si_wait_for_all_processes();
si_wait_for_all_processes(0);
continue;
}
#endif

5
src/c/unixsys.d
View file

@ -289,8 +289,8 @@ ecl_waitpid(cl_object pid, cl_object wait)
@(return status code pid)
}
cl_object
si_wait_for_all_processes()
@(defun si::wait-for-all-processes (&key (process ECL_NIL))
@
{
const cl_env_ptr env = ecl_process_env();
#if defined(SIGCHLD) && !defined(ECL_WINDOWS_HOST)
@ -315,6 +315,7 @@ si_wait_for_all_processes()
#endif
ecl_return0(env);
}
@)
#if defined(ECL_MS_WINDOWS_HOST) || defined(cygwin)
cl_object

2
src/h/internal.h
View file

@ -517,7 +517,7 @@ extern cl_object mp_get_rwlock_write_wait(cl_object lock);
extern void ecl_interrupt_process(cl_object process, cl_object function);
/* unixsys.d */
extern cl_object si_wait_for_all_processes();
extern cl_object si_wait_for_all_processes _ECL_ARGS((cl_narg narg, ...));
/*
* Fake several ISO C99 mathematical functions