Added sleep.c from Stefan Haubenthal

git-svn-id: svn://svn.cc65.org/cc65/trunk@2209 b7a2c559-68d2-44c3-8de9-860c34a00d81
2003-06-12 08:28:54 +00:00
parent bd4702cb97
commit d8449e18cd
3 changed files with 25 additions and 0 deletions
--- a/libsrc/common/sleep.c
+++ b/libsrc/common/sleep.c
@@ -0,0 +1,23 @@
+/*
+ * sleep.c
+ *
+ * Stefan Haubenthal, 2003-06-11
+ * Ullrich von Bassewitz, 2003-06-12
+ *
+ */
+
+
+
+#include <time.h>
+
+
+
+unsigned sleep (unsigned wait)
+{
+    clock_t goal = clock () + ((clock_t) wait) * CLOCKS_PER_SEC;
+    while ((long) (goal - clock ()) > 0) ;
+    return 0;
+}
+
+
+