/RISCOS/sleep.c
http://unladen-swallow.googlecode.com/ · C · 41 lines · 32 code · 6 blank · 3 comment · 4 complexity · 17ad3979cc25cb5b34b2317cb7ed7069 MD5 · raw file
- #include "oslib/osmodule.h"
- #include <stdio.h>
- #include "kernel.h"
- #include <limits.h>
- #include <errno.h>
- #include "oslib/taskwindow.h"
- #include "Python.h"
- int riscos_sleep(double delay)
- {
- os_t starttime, endtime, time; /* monotonic times (centiseconds) */
- int *pollword, ret;
- osbool claimed;
- /* calculate end time */
- starttime = os_read_monotonic_time();
- if (starttime + 100.0*delay >INT_MAX)
- endtime = INT_MAX;
- else
- endtime = (os_t)(starttime + 100.0*delay);
- /* allocate (in RMA) and set pollword for xupcall_sleep */
- pollword = osmodule_alloc(4);
- *pollword = 1;
- time = starttime;
- ret = 0;
- while ( time<endtime && time>=starttime ) {
- xupcall_sleep (pollword, &claimed);
- if (PyErr_CheckSignals()) {
- ret = 1;
- break;
- }
- time = os_read_monotonic_time();
- }
- /* deallocate pollword */
- osmodule_free(pollword);
- return ret;
- }