pike.git/ src/ builtin_functions.c

1999-12-06

1999-12-06 21:03:18 by Mirar (Pontus Hagland) <pike@sort.mirar.org>

• 8380171c2adc66daf3bbfd5ac545dd37a7faec8c (131 lines) (+53/-78) ^{[ Show | Annotate ]}
  Branch: 7.9

fixed sleep - again. This time with far better results. Expect sleep to be precise down to 0.0002 seconds.

Rev: src/builtin_functions.c:1.217

5:   \*/   /**/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.216 1999/12/06 16:02:42 grubba Exp $"); + RCSID("$Id: builtin_functions.c,v 1.217 1999/12/06 21:03:18 mirar Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
1997:      void f_sleep(INT32 args)   { -  struct timeval t1,t2,t3; -  INT32 a,b; - #ifdef HAVE_NANOSLEEP -  struct timespec ts; + #define POLL_SLEEP_LIMIT 0.02 +  + #ifdef HAVE_GETHRTIME +  hrtime_t t0,tv; + #else +  struct timeval t0,tv;   #endif    -  if(!args) -  SIMPLE_TOO_FEW_ARGS_ERROR("sleep", 1); +  double delay=0.0; +  double target; +  int do_microsleep;    -  + #ifdef HAVE_GETHRTIME +  t0=tv=gethrtime(); + #define GET_TIME_ELAPSED tv=gethrtime() + #define TIME_ELAPSED (tv-t0)*1e-9 + #else +  GETTIMEOFDAY(&t0); +  tv=t0; + #define GET_TIME_ELAPSED GETTIMEOFDAY(&tv) + #define TIME_ELAPSED ((tv.tv_sec-t0.tv_sec) + (tv.tv_usec-t0.tv_usec)*1e-6) + #endif +     switch(sp[-args].type)    {    case T_INT: -  t2.tv_sec=sp[-args].u.integer; -  t2.tv_usec=0; +  delay=(double)sp[-args].u.integer;    break;       case T_FLOAT: -  { -  FLOAT_TYPE f; -  f=sp[-args].u.float_number; -  t2.tv_sec=floor(f); -  t2.tv_usec=(long)(1000000.0*(f-floor(f))); - #ifdef HAVE_NANOSLEEP -  ts.tv_nsec=(long)(1e9*(f-floor(f))); - #endif +  delay=(double)sp[-args].u.float_number;    break;    }    -  default: -  SIMPLE_BAD_ARG_ERROR("sleep", 1, "int|float"); -  } +  do_microsleep=delay<10; +     pop_n_elems(args);    -  if (t2.tv_sec==0) { -  if (t2.tv_usec<1000) /* very short sleep */ +  if (delay>POLL_SLEEP_LIMIT) +  for (;;)    { - #ifdef HAVE_NANOSLEEP -  ts.tv_sec=0; -  nanosleep(&ts,NULL); - #endif -  return; -  /* or if we can't sleep that short */ -  } - #ifdef HAVE_USLEEP -  else if (t2.tv_usec<100000) /* short sleep */ -  { -  usleep(t2.tv_usec); -  return; /* don't care about signals... */ -  } - #endif -  } -  -  if( args >1 && !IS_ZERO(sp-args+1)) -  { -  THREADS_ALLOW(); +  double left = delay - TIME_ELAPSED; +  if (do_microsleep) left-=POLL_SLEEP_LIMIT; +  if (left<0.0) break;   #ifdef __NT__ -  Sleep(t2.tv_sec * 1000 + t2.tv_usec / 1000); +  Sleep((int)(left*1000));   #elif defined(HAVE_POLL) -  poll(NULL, 0, t2.tv_sec * 1000 + t2.tv_usec / 1000); +  poll(NULL,0,(int)(left*1000));   #else -  select(0,0,0,0,&t2); - #endif -  THREADS_DISALLOW(); -  }else{ -  GETTIMEOFDAY(&t1); -  my_add_timeval(&t1, &t2); -  -  while(1) +     { -  GETTIMEOFDAY(&t2); -  if(my_timercmp(&t1, <= , &t2)) -  return; -  -  t3=t1; -  my_subtract_timeval(&t3, &t2); -  -  THREADS_ALLOW(); - #ifdef __NT__ -  Sleep(t3.tv_sec * 1000 + t3.tv_usec / 1000); - #elif defined(HAVE_POLL) -  poll(NULL, 0, t3.tv_sec * 1000 + t3.tv_usec / 1000); - #else +  struct timeval t3; +  t3.tv_sec=left; +  t3.tv_usec=(int)((delay-(int)left)*1e6);    select(0,0,0,0,&t3); -  +  }   #endif -  THREADS_DISALLOW(); -  check_signals(0,0,0); +  GET_TIME_ELAPSED;    } -  +  +  if (do_microsleep) +  while (delay>TIME_ELAPSED) +  GET_TIME_ELAPSED;   } - } +       void f_gc(INT32 args)   {