scheme48/c/unix.h

/*
 * Macros for retrying interrupted system calls.  RETURN_NULL 
 */

#define RETRY_NULL(STATUS, CALL)				\
do {								\
  STATUS = (CALL);						\
} while ((STATUS == NULL) && (errno == EINTR))

#define RETRY_NEG(STATUS, CALL)					\
do {								\
  STATUS = (CALL);						\
} while ((STATUS < 0) && (errno == EINTR))

#define RETRY_OR_RAISE_NULL(STATUS, CALL)			\
do {								\
  while (1) {							\
    STATUS = (CALL);						\
    if (STATUS != NULL)						\
      break;							\
    else if (errno != EINTR)					\
      s48_raise_os_error(errno); }				\
 } while (0)

#define RETRY_OR_RAISE_NEG(STATUS, CALL)			\
do {								\
  while (1) {							\
    STATUS = (CALL);						\
    if (STATUS >= 0)						\
      break;							\
    else if (errno != EINTR)					\
      s48_raise_os_error(errno); }				\
 } while (0)