/packages/gtk2/src/glib/gqueue.inc

https://github.com/slibre/freepascal · Pascal · 36 lines · 19 code · 6 blank · 11 comment · 0 complexity · 65ece6c410b0791e832bb60291141008 MD5 · raw file 

    

  1. // included by glib2.pas
    2. 

  2. 

  3. {$IFDEF read_forward_definitions}
    4. 

  4. {$ENDIF read_forward_definitions}
    5. 

  5. 

  6. //------------------------------------------------------------------------------
    7. 

  7. 

  8. {$IFDEF read_interface_types}
    9. 

  9.   PGQueue = ^TGQueue;
    10. 

  10.   TGQueue = record
    11. 

  11.     head   : PGList;
    12. 

  12.     tail   : PGList;
    13. 

  13.     length : guint;
    14. 

  14.   end;
    15. 

  15. {$ENDIF read_interface_types}
    16. 

  16. 

  17. //------------------------------------------------------------------------------
    18. 

  18. 

  19. {$IFDEF read_interface_rest}
    20. 

  20. { Queues }
    21. 

  21. 

  22. function  g_queue_new:PGQueue;cdecl;external gliblib name 'g_queue_new';
    23. 

  23. procedure g_queue_free(queue:PGQueue);cdecl;external gliblib name 'g_queue_free';
    24. 

  24. procedure g_queue_push_head(queue:PGQueue; data:gpointer);cdecl;external gliblib name 'g_queue_push_head';
    25. 

  25. procedure g_queue_push_tail(queue:PGQueue; data:gpointer);cdecl;external gliblib name 'g_queue_push_tail';
    26. 

  26. function  g_queue_pop_head(queue:PGQueue):gpointer;cdecl;external gliblib name 'g_queue_pop_head';
    27. 

  27. function  g_queue_pop_tail(queue:PGQueue):gpointer;cdecl;external gliblib name 'g_queue_pop_tail';
    28. 

  28. function  g_queue_is_empty(queue:PGQueue):gboolean;cdecl;external gliblib name 'g_queue_is_empty';
    29. 

  29. function  g_queue_peek_head(queue:PGQueue):gpointer;cdecl;external gliblib name 'g_queue_peek_head';
    30. 

  30. function  g_queue_peek_tail(queue:PGQueue):gpointer;cdecl;external gliblib name 'g_queue_peek_tail';
    31. 

  31. procedure g_queue_push_head_link(queue:PGQueue; link:PGList);cdecl;external gliblib name 'g_queue_push_head_link';
    32. 

  32. procedure g_queue_push_tail_link(queue:PGQueue; link:PGList);cdecl;external gliblib name 'g_queue_push_tail_link';
    33. 

  33. function  g_queue_pop_head_link(queue:PGQueue):PGList;cdecl;external gliblib name 'g_queue_pop_head_link';
    34. 

  34. function  g_queue_pop_tail_link(queue:PGQueue):PGList;cdecl;external gliblib name 'g_queue_pop_tail_link';
    35. 

  35. {$ENDIF read_interface_rest}
    36. 

  36. // included by glib2.pas
    37.