X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=Tools%2Fnativelib%2Ftime.c;h=6f941f265c1bafc1babc1487be42a856b20e6001;hb=8e1a304d72208ce4f1aa9cd896a0ac1179d162a9;hp=4eb74631d0a49da150d632815815b56d5735c202;hpb=7ba570fe3cc5418f42decf5b72ac2295cce9e60f;p=tpg%2Facess2.git

diff --git a/Tools/nativelib/time.c b/Tools/nativelib/time.c
index 4eb74631..6f941f26 100644
--- a/Tools/nativelib/time.c
+++ b/Tools/nativelib/time.c
@@ -7,6 +7,7 @@
  */
 #include <acess.h>
 #include <timers.h>
+#include <events.h>
 
 // === CODE ===
 tTimer *Time_AllocateTimer(tTimerCallback *Callback, void *Argument)
@@ -19,6 +20,7 @@ void Time_ScheduleTimer(tTimer *Timer, int Delta)
 	if( !Timer )
 	{
 		// SIGALRM
+		Log_Warning("Time", "TODO: Alarm event in %i ms", Delta);
 	}
 	else
 	{
@@ -36,6 +38,17 @@ void Time_FreeTimer(tTimer *Timer)
 	
 }
 
+void Time_ScheduleEvent(int Delay)
+{
+	Log_Warning("Time", "TODO: EVENT_TIMER in %ims", Delay);
+}
+
+void Time_Delay(int Delay)
+{
+	Time_ScheduleEvent(Delay);
+	Threads_WaitEvents(THREAD_EVENT_TIMER);
+}
+
 Sint64 now(void)
 {
 	// TODO: Translate UNIX time into Acess time