[Rd] Sys.sleep waits forever + workaround (PR#8678)

[ripley@stats.ox.ac.uk]

On Mon, 13 Mar 2006, westfeld at inf.tu-dresden.de wrote:

> When I tried to schedule a calculation for the next day (waiting several
> 10000 seconds), I noticed that Sys.sleep does never return (R version
> 2.1.0 on Linux). From the C code I expect that the maximum number of
> seconds is about 2000 (2^31/1e6), which is system-dependent.

Actually, it is not: is always (2^31-1)/1e6.

This is easy to fix at C level, and I have done so.

>
> ##Sys.sleep <- function(time)
> ##    invisible(.Internal(Sys.sleep(time)))
>
> Sys.sleep <- function(time) {
>        nloops <- time%/%1000
>        while (nloops>0) {
>                nloops <- nloops-1
>                .Internal(Sys.sleep(1000))
>        }
>        invisible(.Internal(Sys.sleep(time%%1000)))
> }
>
>
>

-- 
Brian D. Ripley,                  ripley at stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272866 (PA)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595