loop_impl.inc 2.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172
  1. {%mainunit pipewire}
  2. (*
  3. procedure pw_loop_add_source(loop : Ppw_loop); varargs; cdecl;
  4. begin
  5. spa_loop_add_source(loop^.loop); __VA_ARGS__)
  6. end;
  7. procedure pw_loop_update_source(loop : Ppw_loop); varargs; cdecl;
  8. //spa_loop_update_source((l)->loop,__VA_ARGS__)
  9. procedure pw_loop_remove_source(loop : Ppw_loop); varargs; cdecl;
  10. // spa_loop_remove_source((l)->loop,__VA_ARGS__)
  11. procedure pw_loop_invoke(loop : Ppw_loop); varargs; cdecl;
  12. // spa_loop_invoke((l)->loop,__VA_ARGS__)
  13. procedure pw_loop_get_fd(l)
  14. // spa_loop_control_get_fd((l)->control)
  15. procedure pw_loop_add_hook(loop : Ppw_loop); varargs; cdecl;
  16. // spa_loop_control_add_hook((l)->controloop : Ppw_loop,__VA_ARGS__)
  17. procedure pw_loop_enter(l);
  18. // spa_loop_control_enter((l)->control)
  19. procedure pw_loop_iterate(loop : Ppw_loop); varargs; cdecl;
  20. // spa_loop_control_iterate((l)->controloop : Ppw_loop,__VA_ARGS__)
  21. procedure pw_loop_leave(l);
  22. // spa_loop_control_leave((l)->control)
  23. procedure pw_loop_add_io(loop : Ppw_loop); varargs; cdecl;
  24. // spa_loop_utils_add_io((l)->utils,__VA_ARGS__)
  25. procedure pw_loop_update_io(loop : Ppw_loop); varargs; cdecl;
  26. // spa_loop_utils_update_io((l)->utils,__VA_ARGS__)
  27. procedure pw_loop_add_idle(loop : Ppw_loop); varargs; cdecl;
  28. // spa_loop_utils_add_idle((l)->utils,__VA_ARGS__)
  29. procedure pw_loop_enable_idle(loop : Ppw_loop); varargs;
  30. // cdecl; spa_loop_utils_enable_idle((l)->utils,__VA_ARGS__)
  31. procedure pw_loop_add_event(loop : Ppw_loop); varargs; cdecl;
  32. // spa_loop_utils_add_event((l)->utils,__VA_ARGS__)
  33. procedure pw_loop_signal_event(loop : Ppw_loop); varargs; cdecl;
  34. // spa_loop_utils_signal_event((l)->utils,__VA_ARGS__)
  35. procedure pw_loop_add_timer(loop : Ppw_loop); varargs; cdecl;
  36. // spa_loop_utils_add_timer((l)->utils,__VA_ARGS__)
  37. procedure pw_loop_update_timer(loop : Ppw_loop); varargs; cdecl;
  38. // spa_loop_utils_update_timer((l)->utils,__VA_ARGS__)
  39. procedure pw_loop_add_signal(loop : Ppw_loop); varargs; cdecl;
  40. // spa_loop_utils_add_signal((l)->utils,__VA_ARGS__)
  41. procedure pw_loop_destroy_source(loop : Ppw_loop); varargs; cdecl;
  42. // spa_loop_utils_destroy_source((l)->utils,__VA_ARGS__
  43. *)
  44. function pw_loop_signal_event(loop : ppw_loop; aData : pspa_source) : cint;
  45. var
  46. _o : pspa_loop_utils;
  47. _f : pspa_loop_utils_methods;
  48. begin
  49. _o:=loop^.utils;
  50. _f:=(_o^.iface.cb.funcs);
  51. Result := _f^.signal_event(_o^.iface.cb.data,aData);
  52. end;
  53. function pw_loop_add_event(loop : Ppw_loop; aEvent : Tspa_source_event_func_t; aData : Pointer) : pspa_source;
  54. var
  55. _o : pspa_loop_utils;
  56. _f : pspa_loop_utils_methods;
  57. begin
  58. _o:=loop^.utils;
  59. _f:=(_o^.iface.cb.funcs);
  60. Result := _f^.add_event(_o^.iface.cb.data,aEvent,aData);
  61. end;