sysdeps/unix/sysv/linux/sleep.c

   1 /* Implementation of the POSIX sleep function using nanosleep.
   2    Copyright (C) 1996,1997,1998,1999,2003,2005 Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4    Contributed by Ulrich Drepper <drepper@cygnus.com>, 1996.
   5
   6    The GNU C Library is free software; you can redistribute it and/or
   7    modify it under the terms of the GNU Lesser General Public
   8    License as published by the Free Software Foundation; either
   9    version 2.1 of the License, or (at your option) any later version.
  10
  11    The GNU C Library is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14    Lesser General Public License for more details.
  15
  16    You should have received a copy of the GNU Lesser General Public
  17    License along with the GNU C Library; if not, see
  18    <http://www.gnu.org/licenses/>.  */
  19
  20 #include <errno.h>
  21 #include <time.h>
  22 #include <signal.h>
  23 #include <string.h>     /* For the real memset prototype.  */
  24 #include <unistd.h>
  25 #include <sys/param.h>
  26
  27
  28 #if 0
  29 static void
  30 cl (void *arg)
  31 {
  32   (void) __sigprocmask (SIG_SETMASK, arg, (sigset_t *) NULL);
  33 }
  34 #endif
  35
  36
  37 /* We are going to use the `nanosleep' syscall of the kernel.  But the
  38    kernel does not implement the stupid SysV SIGCHLD vs. SIG_IGN
  39    behaviour for this syscall.  Therefore we have to emulate it here.  */
  40 unsigned int
  41 __sleep (unsigned int seconds)
  42 {
  43   const unsigned int max
  44     = (unsigned int) (((unsigned long int) (~((time_t) 0))) >> 1);
  45   struct timespec ts;
  46   sigset_t set, oset;
  47   unsigned int result;
  48
  49   /* This is not necessary but some buggy programs depend on this.  */
  50   if (__builtin_expect (seconds == 0, 0))
  51     {
  52 #ifdef CANCELLATION_P
  53       CANCELLATION_P (THREAD_SELF);
  54 #endif
  55       return 0;
  56     }
  57
  58   ts.tv_sec = 0;
  59   ts.tv_nsec = 0;
  60  again:
  61   if (sizeof (ts.tv_sec) <= sizeof (seconds))
  62     {
  63       /* Since SECONDS is unsigned assigning the value to .tv_sec can
  64          overflow it.  In this case we have to wait in steps.  */
  65       ts.tv_sec += MIN (seconds, max);
  66       seconds -= (unsigned int) ts.tv_sec;
  67     }
  68   else
  69     {
  70       ts.tv_sec = (time_t) seconds;
  71       seconds = 0;
  72     }
  73
  74   /* Linux will wake up the system call, nanosleep, when SIGCHLD
  75      arrives even if SIGCHLD is ignored.  We have to deal with it
  76      in libc.  We block SIGCHLD first.  */
  77   __sigemptyset (&set);
  78   __sigaddset (&set, SIGCHLD);
  79   if (__sigprocmask (SIG_BLOCK, &set, &oset))
  80     return -1;
  81
  82   /* If SIGCHLD is already blocked, we don't have to do anything.  */
  83   if (!__sigismember (&oset, SIGCHLD))
  84     {
  85       int saved_errno;
  86       struct sigaction oact;
  87
  88       __sigemptyset (&set);
  89       __sigaddset (&set, SIGCHLD);
  90
  91       /* We get the signal handler for SIGCHLD.  */
  92       if (__sigaction (SIGCHLD, (struct sigaction *) NULL, &oact) < 0)
  93         {
  94           saved_errno = errno;
  95           /* Restore the original signal mask.  */
  96           (void) __sigprocmask (SIG_SETMASK, &oset, (sigset_t *) NULL);
  97           __set_errno (saved_errno);
  98           return -1;
  99         }
 100
 101       /* Note the sleep() is a cancellation point.  But since we call
 102          nanosleep() which itself is a cancellation point we do not
 103          have to do anything here.  */
 104       if (oact.sa_handler == SIG_IGN)
 105         {
 106           //__libc_cleanup_push (cl, &oset);
 107
 108           /* We should leave SIGCHLD blocked.  */
 109           while (1)
 110             {
 111               result = __nanosleep (&ts, &ts);
 112
 113               if (result != 0 || seconds == 0)
 114                 break;
 115
 116               if (sizeof (ts.tv_sec) <= sizeof (seconds))
 117                 {
 118                   ts.tv_sec = MIN (seconds, max);
 119                   seconds -= (unsigned int) ts.tv_nsec;
 120                 }
 121             }
 122
 123           //__libc_cleanup_pop (0);
 124
 125           saved_errno = errno;
 126           /* Restore the original signal mask.  */
 127           (void) __sigprocmask (SIG_SETMASK, &oset, (sigset_t *) NULL);
 128           __set_errno (saved_errno);
 129
 130           goto out;
 131         }
 132
 133       /* We should unblock SIGCHLD.  Restore the original signal mask.  */
 134       (void) __sigprocmask (SIG_SETMASK, &oset, (sigset_t *) NULL);
 135     }
 136
 137   result = __nanosleep (&ts, &ts);
 138   if (result == 0 && seconds != 0)
 139     goto again;
 140
 141  out:
 142   if (result != 0)
 143     /* Round remaining time.  */
 144     result = seconds + (unsigned int) ts.tv_sec + (ts.tv_nsec >= 500000000L);
 145
 146   return result;
 147 }
 148 weak_alias (__sleep, sleep)