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