grel.inc 2.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243
  1. // included by glib2.pas
  2. {$IFDEF read_forward_definitions}
  3. {$ENDIF read_forward_definitions}
  4. //------------------------------------------------------------------------------
  5. {$IFDEF read_interface_types}
  6. PGTuples = ^TGTuples;
  7. TGTuples = record
  8. len : guint;
  9. end;
  10. PGRelation = pointer;
  11. {$ENDIF read_interface_types}
  12. //------------------------------------------------------------------------------
  13. {$IFDEF read_interface_rest}
  14. function g_relation_new(fields:gint):PGRelation;cdecl;external gliblib name 'g_relation_new';
  15. procedure g_relation_destroy(relation:PGRelation);cdecl;external gliblib name 'g_relation_destroy';
  16. procedure g_relation_index(relation:PGRelation; field:gint; hash_func:TGHashFunc; key_equal_func:TGEqualFunc);cdecl;external gliblib name 'g_relation_index';
  17. {$IFNDEF KYLIX}
  18. procedure g_relation_insert(relation:PGRelation; args:array of const);cdecl;overload;external gliblib name 'g_relation_insert';
  19. procedure g_relation_insert(relation:PGRelation);cdecl;overload;varargs;external gliblib name 'g_relation_insert';
  20. {$ELSE}
  21. procedure g_relation_insert(relation:PGRelation);varargs;cdecl;external gliblib name 'g_relation_insert';
  22. {$ENDIF}
  23. function g_relation_delete(relation:PGRelation; key:gconstpointer; field:gint):gint;cdecl;external gliblib name 'g_relation_delete';
  24. function g_relation_select(relation:PGRelation; key:gconstpointer; field:gint):PGTuples;cdecl;external gliblib name 'g_relation_select';
  25. function g_relation_count(relation:PGRelation; key:gconstpointer; field:gint):gint;cdecl;external gliblib name 'g_relation_count';
  26. {$IFNDEF KYLIX}
  27. function g_relation_exists(relation:PGRelation; args:array of const):gboolean;cdecl;overload;external gliblib name 'g_relation_exists';
  28. function g_relation_exists(relation:PGRelation):gboolean;cdecl;overload;varargs;external gliblib name 'g_relation_exists';
  29. {$ELSE}
  30. function g_relation_exists(relation:PGRelation):gboolean;varargs;cdecl;external gliblib name 'g_relation_exists';
  31. {$ENDIF}
  32. procedure g_relation_print(relation:PGRelation);cdecl;external gliblib name 'g_relation_print';
  33. procedure g_tuples_destroy(tuples:PGTuples);cdecl;external gliblib name 'g_tuples_destroy';
  34. function g_tuples_index(tuples:PGTuples; index:gint; field:gint):gpointer;cdecl;external gliblib name 'g_tuples_index';
  35. {$ENDIF read_interface_rest}
  36. // included by glib2.pas