fpcsrc/packages/libogcfpc/src/ogc/message.inc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28


{$IFDEF OGC_INTERFACE}
const
  MQ_BOX_NULL = $ffffffff;
  MQ_ERROR_SUCCESSFUL = 0;
  MQ_ERROR_TOOMANY = - 5;
  MQ_MSG_BLOCK = 0;
  MQ_MSG_NOBLOCK = 1;

type
  mqbox_t = cuint32;
  Pmqbox_t = ^mqbox_t;

  mqmsg_t = pointer;
  pmqmsg_t = ^mqmsg_t;


function MQ_Init(mqbox: Pmqbox_t; count: cuint32): cint32; cdecl; external;

procedure MQ_Close(mqbox: mqbox_t); cdecl; external;

function MQ_Send(mqbox: mqbox_t; msg: mqmsg_t; flags: cuint32): cbool; cdecl; external;

function MQ_Jam(mqbox: mqbox_t; msg: mqmsg_t; flags: cuint32): cbool; cdecl; external;

function MQ_Receive(mqbox: mqbox_t; msg: Pmqmsg_t; flags: cuint32): cbool; cdecl; external;
{$ENDIF OGC_INTERFACE}