}
/**
- * reap one child
+ * Reap one child.
*
- * call waitpid() and print a log message containing the pid
- * and the cause of the child's death.
+ * \para, pid In case a child died, its pid is returned here.
+ *
+ * Call waitpid() and print a log message containing the pid and the cause of
+ * the child's death.
+ *
+ * \return A (negative) paraslash error code on errors, zero, if no child died,
+ * one otherwise. If and only if the function returns one, the content of \a
+ * pid is meaningful.
*
- * \return Like \p waitpid(), this function returns the process ID of the
- * terminated child; on error, \p -E_WAITPID is returned.
* \sa waitpid(2)
*/
-pid_t para_reap_child(void)
+int para_reap_child(pid_t *pid)
{
int status;
- pid_t pid = waitpid(-1, &status, WNOHANG);
+ *pid = waitpid(-1, &status, WNOHANG);
- if (pid <= 0) {
- if (pid < 0)
- pid = -E_WAITPID;
- return pid;
- }
+ if (!*pid)
+ return 0;
+ if (*pid < 0)
+ return -ERRNO_TO_PARA_ERROR(errno);
if (WIFEXITED(status))
- PARA_DEBUG_LOG("child %i exited. Exit status: %i\n", pid,
+ PARA_DEBUG_LOG("child %i exited. Exit status: %i\n", *pid,
WEXITSTATUS(status));
else if (WIFSIGNALED(status))
- PARA_DEBUG_LOG("child %i was killed by signal %i\n", pid,
+ PARA_DEBUG_LOG("child %i was killed by signal %i\n", *pid,
WTERMSIG(status));
else
- PARA_WARNING_LOG("child %i terminated abormally\n", pid);
- return pid;
+ PARA_WARNING_LOG("child %i terminated abormally\n", *pid);
+ return 1;
}
/**
- * paraslash's zombie killer
+ * Paraslash's zombie killer.
*
* It just calls \p para_reap_child() until there are no more children left to
* reap.
*/
void para_reap_children(void)
{
- while (para_reap_child() > 0)
+ pid_t pid;
+
+ while (para_reap_child(&pid) > 0)
; /* nothing */
}