RISCOS/sleep.c

   1 #include "oslib/osmodule.h"
   2 #include <stdio.h>
   3 #include "kernel.h"
   4 #include <limits.h>
   5 #include <errno.h>
   6 #include "oslib/taskwindow.h"
   7 #include "Python.h"
   8
   9
  10 int riscos_sleep(double delay)
  11 {
  12     os_t starttime, endtime, time; /* monotonic times (centiseconds) */
  13     int *pollword, ret;
  14     osbool claimed;
  15
  16     /* calculate end time */
  17     starttime = os_read_monotonic_time();
  18     if (starttime + 100.0*delay >INT_MAX)
  19         endtime = INT_MAX;
  20     else
  21         endtime = (os_t)(starttime + 100.0*delay);
  22
  23     /* allocate (in RMA) and set pollword for xupcall_sleep */
  24     pollword = osmodule_alloc(4);
  25     *pollword = 1;
  26
  27     time = starttime;
  28     ret = 0;
  29     while ( time<endtime && time>=starttime ) {
  30         xupcall_sleep (pollword, &claimed);
  31         if (PyErr_CheckSignals()) {
  32             ret = 1;
  33             break;
  34         }
  35         time = os_read_monotonic_time();
  36     }
  37
  38     /* deallocate pollword */
  39     osmodule_free(pollword);
  40     return ret;
  41 }