{$if not def LIBRARIES_COMMODITIES_H} CONST LIBRARIES_COMMODITIES_H=0;

{ *************************************************************************
  ** KickPascal-Include-Datei "libraries/commodities.h" zu Kickstart 3.0 **
  ************************************************************************* }


TYPE p_NewBroker = ^NewBroker;
TYPE p_InputXpression = ^InputXpression;
TYPE p_IX = ^IX;


{$if not def CX_H}
TYPE CxObj = LongInt;
TYPE CxMsg = LongInt;
TYPE p_CxObj = ^CxObj;
TYPE p_CxMsg = ^CxMsg;
{$endif}

{$if not def DEVICES_INPUTEVENT_H;incl "devices/inputevent.h";endif}
{$if not def EXEC_PORTS_H;incl "exec/ports.h";endif}


CONST
 CBD_NAMELEN  = 24;
 CBD_TITLELEN = 40;
 CBD_DESCRLEN = 40;

 NB_VERSION    = 5;

TYPE NewBroker = RECORD
 nb_Version : Short;
 nb_Name    : Str;
 nb_Title   : Str;
 nb_Descr   : Str;
 nb_Unique  : Integer;
 nb_Flags   : Integer;
 nb_Pri     : Short;
 nb_Port    : p_MsgPort;
 nb_ReservedChannel : Integer;
END;

CONST
 NBU_DUPLICATE = 0;
 NBU_UNIQUE    = 1;
 NBU_NOTIFY    = 2;
 COF_SHOW_HIDE = 4;


CONST
 CX_INVALID    = 0;
 CX_FILTER     = 1;
 CX_TYPEFILTER = 2; { *** nicht mehr benutzen *** }
 CX_SEND       = 3;
 CX_SIGNAL     = 4;
 CX_TRANSLATE  = 5;
 CX_BROKER     = 6;
 CX_DEBUG      = 7;
 CX_CUSTOM     = 8;
 CX_ZERO       = 9;

CONST
 {CXM_UNIQUE  = $10;} { *** nicht mehr benutzt *** }
 CXM_IEVENT  = $20;
 CXM_COMMAND = $40;

CONST
 CXCMD_DISABLE   = 15;
 CXCMD_ENABLE    = 17;
 CXCMD_APPEAR    = 19;
 CXCMD_DISAPPEAR = 21;
 CXCMD_KILL      = 23;
 CXCMD_UNIQUE    = 25;
 CXCMD_LIST_CHG  = 27;

CONST
 CMDE_OK       =  0;
 CMDE_NOBROKER = -1;
 CMDE_NOPORT   = -2;
 CMDE_NOMEM    = -3;

CONST
 CBERR_OK      = 0;
 CBERR_SYSERR  = 1;
 CBERR_DUP     = 2;
 CBERR_VERSION = 3;

CONST
 COERR_ISNULL     = 1;
 COERR_NULLATTACH = 2;
 COERR_BADFILTER  = 4;
 COERR_BADTYPE    = 8;

CONST IX_VERSION = 2;

TYPE InputXpression = RECORD
 ix_Version   : Byte;
 ix_Class     : Byte;
 ix_Code      : Word;
 ix_CodeMask  : Word;
 ix_Qualifier : Word;
 ix_QualMask  : Word;
 ix_QualSame  : Word;
END;

TYPE IX = InputXpression;

CONST
 IXSYM_SHIFT = 1;
 IXSYM_CAPS  = 2;
 IXSYM_ALT   = 4;

 IXSYM_SHIFTMASK = (IEQUALIFIER_LSHIFT or IEQUALIFIER_RSHIFT);
 IXSYM_CAPSMASK  = (IXSYM_SHIFTMASK or IEQUALIFIER_CAPSLOCK);
 IXSYM_ALTMASK   = (IEQUALIFIER_LALT or IEQUALIFIER_RALT);

 IX_NORMALQUALS  = $7FFF;

{$endif}