Implement calling our callbacks. There's no chance this actually works.

This commit is contained in:
R. Tyler Croy 2011-02-14 22:10:54 -08:00
parent 62a7ecf6d8
commit 40f3256188
1 changed files with 11 additions and 1 deletions

View File

@ -53,7 +53,17 @@ package body Epoll is
end if;
for Index in 0 .. Num_Descriptors loop
null; -- Do stuff
declare
Event : constant Epoll_Event :=
Events (C.size_t (Index));
Descriptor : constant C.int :=
Event.Data.Fd;
Cb : constant Callback_Tuple :=
Callback_Registry.Element (This.Callbacks,
Natural (Descriptor));
begin
Cb.Callback.all (Descriptor, Cb.Context);
end;
end loop;
end Wait_Loop;
end loop;