Example #1
0
/* timer_fire --
   Sends all current timer events.
   Returns number of milliseconds until
   next timer event (or a large number)
*/
int
timer_fire(void)
{
  evtime_t now;
  evtime_now(&now);
  while (timers && evtime_cmp(&now,&timers->date)>=0)
    {
      struct event_timer *ti = timers;
      at *p = cons(named("timer"), cons(new_gptr(ti), NIL));
      timers = ti->next;
      event_add(ti->handler, p);
      UNLOCK(p);
      if (ti->period.sec>0 || ti->period.msec>0)
        {
          /* Periodic timer shoot only once per call */
          while(evtime_cmp(&now,&ti->date) >= 0)
            evtime_add(&ti->date,&ti->period,&ti->date);
          ti_insert(ti);
        }
      else
        {
          /* One shot timer */
          free(ti);
        }
    }
  if (timers)
    {
      evtime_t diff;
      evtime_sub(&timers->date, &now, &diff);
      if (diff.sec < 24*3600)
        return diff.sec * 1000 + diff.msec;
    }
  return 24*3600*1000;
}
Example #2
0
File: event.c Project: barak/lush
/* timer_add --
 * Add a timer targeted to the specified handler
 * firing after delay milliseconds and every period
 * milliseconds after that.  Specifying period equal 
 * to zero sets a one shot timer.
 */
void *timer_add(at *handler, int delay, int period)
{
   evtime_t now, add;
   evtime_now(&now);
   if (!handler)
      RAISEF("invalid event handler", handler);
   if (delay < 0)
      RAISEF("invalid timer delay", NEW_NUMBER(delay));
   if (period < 0)
      RAISEF("invalid timer interval", NEW_NUMBER(period));
   if (period > 0 && period < 20)
      period = 20;
   add.sec = delay/1000;
   add.msec = delay%1000;
   evtime_add(&now, &add, &add);
   return timer_add_sub(handler, add.sec, add.msec, period);
}
Example #3
0
/* timer_add --
   Add a timer targeted to the specified handler
   firing after delay milliseconds and every period
   milliseconds after that.  Specifying period equal 
   to zero sets a one shot timer.
*/
void *
timer_add(at *handler, int delay, int period)
{
  evtime_t now, add;
  evtime_now(&now);
  if (! handler)
    error(NIL,"Illegal null event handler",NIL);
  if (delay < 0)
    error(NIL,"Illegal timer delay",NEW_NUMBER(delay));
  if (period < 0)
    error(NIL,"Illegal timer interval",NEW_NUMBER(period));
  if (period > 0 && period < 20)
    period = 20;
  add.sec = delay/1000;
  add.msec = delay%1000;
  evtime_add(&now, &add, &add);
  return timer_add_sub(handler, add.sec, add.msec, period);
}