вот есть например у меня
- Код: Выделить всё
1
typedef struct LibHalContext_s LibHalContext;
typedef struct LibHalProperty_s LibHalProperty;
typedef struct LibHalPropertySet_s LibHalPropertySet;
/**
* LibHalSingletonDeviceAdded:
* @ctx: context for connection to hald
* @udi: the Unique Device Id
* @properties: the device's properties
*
* Type for callback for addon singletons when a device is added
*/
2 typedef void (*LibHalSingletonDeviceAdded) (LibHalContext *ctx,
const char *udi,
const LibHalPropertySet *properties);
/* Create a new context for a connection with hald */
3 LibHalContext *libhal_ctx_new (void);
/* Set DBus connection to use to talk to hald. */
4 dbus_bool_t libhal_ctx_set_dbus_connection (LibHalContext *ctx, DBusConnection *conn);
/* Free a LibHalContext resource */
5 dbus_bool_t libhal_ctx_free (LibHalContext *ctx);
имя либы libhal
dbus_bool_t = dbus_uint32_t; описан в dbus-types.inc
цыфры я раставил чтобы показывать что откуда взял.
про 5 вроде так :
- Код: Выделить всё
function libhal_ctx_free(ctx: PLibHalContext):dbus_bool_t; cdecl; external 'libhal';
про 4
- Код: Выделить всё
function libhal_ctx_set_dbus_connection(ctx: PLibHalContext; conn: PDBusConnection):dbus_bool_t; cdecl; external 'libhal';
а вот 1 2 3 меня вообще смущает =/
Добавлено спустя 18 минут 46 секунд:
2
- Код: Выделить всё
LibHalSingletonDeviceAdded = procedure(ctx: PLibHalContext; const udi: PChar; const properties: PLibHalPropertySet);
Правельно ?
Добавлено спустя 11 минут 41 секунду:
3 наверно
- Код: Выделить всё
function libhal_ctx_new(ctx: PLibHalContext):PLibHalContext; cdecl; external 'libhal';
осталось только 1 со свими struct =(
Добавлено спустя 32 минуты:
1 судя по всему будет так
- Код: Выделить всё
LibHalContext = record end;
PLibHalContext = ^LibHalContext;
LibHalProperty = record end;
PLibHalProperty = ^LibHalProperty;
LibHalPropertySet = record end;
PLibHalPropertySet = ^LibHalPropertySet;
хотя меня немного смущает. сейчас буду проверять на работоспособность.
Добавлено спустя 1 час 44 минуты 58 секунд:
проверил. работает. всем спасибо за внимание.
ЗЫ может удалить топик ? или потомкам оставить ?
Оставь потомкам.
