-# ifndef LISP_FEATURE_DARWIN
-
-static inline void
-os_sem_init(os_sem_t *sem, unsigned int value)
-{
- if (-1==sem_init(sem, 0, value))
- lose("os_sem_init(%p, %u): %s", sem, value, strerror(errno));
- FSHOW((stderr, "os_sem_init(%p, %u)\n", sem, value));
-}
-
-static inline void
-os_sem_wait(os_sem_t *sem, char *what)
-{
- FSHOW((stderr, "%s: os_sem_wait(%p) ...\n", what, sem));
- while (-1 == sem_wait(sem))
- if (EINTR!=errno)
- lose("%s: os_sem_wait(%p): %s", what, sem, strerror(errno));
- FSHOW((stderr, "%s: os_sem_wait(%p) => ok\n", what, sem));
-}
-
-static inline void
-os_sem_post(sem_t *sem, char *what)
-{
- if (-1 == sem_post(sem))
- lose("%s: os_sem_post(%p): %s", what, sem, strerror(errno));
- FSHOW((stderr, "%s: os_sem_post(%p)\n", what, sem));
-}
-
-static inline void
-os_sem_destroy(os_sem_t *sem)
-{
- if (-1==sem_destroy(sem))
- lose("os_sem_destroy(%p): %s", sem, strerror(errno));
-}
-
-# else
-
-static inline void
-os_sem_init(os_sem_t *sem, unsigned int value)
-{
- if (KERN_SUCCESS!=semaphore_create(current_mach_task, sem, SYNC_POLICY_FIFO, (int)value))
- lose("os_sem_init(%p): %s", sem, strerror(errno));
-}
-
-static inline void
-os_sem_wait(os_sem_t *sem, char *what)
-{
- kern_return_t ret;
- restart:
- FSHOW((stderr, "%s: os_sem_wait(%p)\n", what, sem));
- ret = semaphore_wait(*sem);
- FSHOW((stderr, "%s: os_sem_wait(%p) => %s\n", what, sem,
- KERN_SUCCESS==ret ? "ok" : strerror(errno)));
- switch (ret) {
- case KERN_SUCCESS:
- return;
- case KERN_OPERATION_TIMED_OUT:
- fprintf(stderr, "%s: os_sem_wait(%p): %s", what, sem, strerror(errno));
- goto restart;
- default:
- lose("%s: os_sem_wait(%p): %s", what, sem, strerror(errno));
- }
-}
-
-static inline void
-os_sem_post(os_sem_t *sem, char *what)
-{
- if (KERN_SUCCESS!=semaphore_signal(*sem))
- lose("%s: os_sem_post(%p): %s", what, sem, strerror(errno));
- FSHOW((stderr, "%s: os_sem_post(%p) ok\n", what, sem));
-}
-
-static inline void
-os_sem_destroy(os_sem_t *sem)
-{
- if (-1==semaphore_destroy(current_mach_task, *sem))
- lose("os_sem_destroy(%p): %s", sem, strerror(errno));
-}