FilesExpand file tree

 master

/

sleep.c

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

41 lines (35 loc) · 866 Bytes

 master

/

sleep.c

Copy path

Top

File metadata and controls

• Code
• Blame

41 lines (35 loc) · 866 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

#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;

}