#ifndef LIBRARIES_COMMODITIES_H #define LIBRARIES_COMMODITIES_H 1 /* ** commodities.h for ACE Basic ** ** Note: Translated to ACE by ConvertC2ACE ** @ MapMeadow Software, Nils Sjoholm ** ** ** Date: 09/01/95 ** ** */ /* ** This are the StructPointer defines for commodities.h */ #ifndef InputXpressionPtr #define InputXpressionPtr ADDRESS #endif #ifndef NewBrokerPtr #define NewBrokerPtr ADDRESS #endif /* ** End of StructPointer defines for commodities.h */ /*****************************************************************************/ #ifndef EXEC_TYPES_H #include #endif #ifndef EXEC_PORTS_H #include #endif /*****************************************************************************/ /* object creation macros */ /* #define CxFilter(d) CreateCxObj((LONGINT) CX_FILTER, (LONGINT) d, 0) #define CxSender(port, id) CreateCxObj((LONGINT) CX_SEND, (LONGINT) port, (LONGINT) id) #define CxSignal(task, sig) CreateCxObj((LONGINT) CX_SIGNAL, (LONGINT) task, (LONGINT) sig) #define CxTranslate(ie) CreateCxObj((LONGINT) CX_TRANSLATE, (LONGINT) ie, 0) #define CxDebug(id) CreateCxObj((LONGINT) CX_DEBUG, (LONGINT) id, 0) #define CxCustom(action, id) CreateCxObj((LONGINT) CX_CUSTOM, (LONGINT)action, (LONGINT)id) */ /*****************************************************************************/ STRUCT NewBroker BYTE nb_Version /* Must be set to NB_VERSION */ ADDRESS nb_Name ADDRESS nb_Title ADDRESS nb_Descr SHORTINT nb_Unique SHORTINT nb_Flags BYTE nb_Pri MsgPortPtr nb_Port SHORTINT nb_ReservedChannel END STRUCT /* constant for NewBroker.nb_Version */ #define NB_VERSION 5 /* Version of NewBroker structure */ /* Sizes for various buffers */ #define CBD_NAMELEN 24 #define CBD_TITLELEN 40 #define CBD_DESCRLEN 40 /* Flags for NewBroker.nb_Unique */ #define NBU_DUPLICATE 0 #define NBU_UNIQUE 1 /* will not allow duplicates */ #define NBU_NOTIFY 2 /* sends CXM_UNIQUE to existing broker */ /* Flags for NewBroker.nb_Flags */ #define COF_SHOW_HIDE 4 /*****************************************************************************/ /* Fake data types for system private objects */ #ifndef COMMODITIES_BASE_H #define CxObj LONGINT #define CxMsg LONGINT #endif /* Pointer TO a FUNCTION returning a LONGINT */ /* _def _LONGINT *PFL */ /*****************************************************************************/ /* Commodities object types */ #define CX_INVALID 0 /* not a valid object (probably null) */ #define CX_FILTER 1 /* input event messages only */ #define CX_TYPEFILTER 2 /* obsolete, do not use */ #define CX_SEND 3 /* sends a message */ #define CX_SIGNAL 4 /* sends a signal */ #define CX_TRANSLATE 5 /* translates input event into chain */ #define CX_BROKER 6 /* application representative */ #define CX_DEBUG 7 /* dumps info to serial port */ #define CX_CUSTOM 8 /* application provides function */ #define CX_ZERO 9 /* system terminator node */ /*****************************************************************************/ /* Commodities message types */ #define CXM_IEVENT (32) #define CXM_COMMAND (64) /* Only CXM_IEVENT messages are passed through the input network. Other types * of messages are sent to an optional port in your broker. This means that * you must test the message type in your message handling, if input messages * and command messages come to the same port. * * CXM_IEVENT: Messages of this type rattle around the Commodities input * network. They are sent to you by a Sender object, and passed * to you as a synchronous function call by a Custom object. * * The message port or function entry point is stored in the * object, and the ID field of the message will be set to what * you arrange issuing object. * * The data section of the message will point to the input event * triggering the message. * * CXM_COMMAND: These messages are sent to a port attached to your Broker. * They are sent to you when the controller program wants your * program to do something. The ID value identifies the command. */ /* ID values associated with a message of type CXM_COMMAND */ #define CXCMD_DISABLE (15) /* please disable yourself */ #define CXCMD_ENABLE (17) /* please enable yourself */ #define CXCMD_APPEAR (19) /* open your window, if you can */ #define CXCMD_DISAPPEAR (21) /* go dormant */ #define CXCMD_KILL (23) /* go away for good */ #define CXCMD_LIST_CHG (27) /* Someone changed the broker list */ #define CXCMD_UNIQUE (25) /* someone tried to create a broker * with your name. Suggest you appear. */ /*****************************************************************************/ STRUCT InputXpression BYTE ix_Version /* must be set to IX_VERSION */ BYTE ix_Class /* class must match exactly */ SHORTINT ix_Code /* Bits that we want */ SHORTINT ix_CodeMask /* Set bits here to indicate which bits in ix_Code * are don't care bits. */ SHORTINT ix_Qualifier /* Bits that we want */ SHORTINT ix_QualMask /* Set bits here to indicate which bits in * ix_Qualifier are don't care bits */ SHORTINT ix_QualSame /* synonyms in qualifier */ END STRUCT /* typedef STRUCT InputXpression IX */ /* constant for InputXpression.ix_Version */ #define IX_VERSION 2 /* constants for InputXpression.ix_QualSame */ #define IXSYM_SHIFT 1 /* left- and right- shift are equivalent */ #define IXSYM_CAPS 2 /* either shift or caps lock are equivalent */ #define IXSYM_ALT 4 /* left- and right- alt are equivalent */ #define IXSYM_SHIFTMASK (IEQUALIFIER_LSHIFT OR IEQUALIFIER_RSHIFT) #define IXSYM_CAPSMASK (IXSYM_SHIFTMASK OR IEQUALIFIER_CAPSLOCK) #define IXSYM_ALTMASK (IEQUALIFIER_LALT OR IEQUALIFIER_RALT) /* constant for InputXpression.ix_QualMask */ #define IX_NORMALQUALS &H7FFF /* avoid RELATIVEMOUSE */ /* matches nothing */ /* #define NULL_IX(ix) ((ix)->ix_Class == IECLASS_NULL) */ /*****************************************************************************/ /* Error returns from CxBroker() */ #define CBERR_OK 0 /* No error */ #define CBERR_SYSERR 1 /* System error, no memory, etc */ #define CBERR_DUP 2 /* uniqueness violation */ #define CBERR_VERSION 3 /* didn't understand NewBroker.nb_Version */ /*****************************************************************************/ /* Return values from CxObjError() */ #define COERR_ISNULL 1 /* you called CxObjError(NULL) */ #define COERR_NULLATTACH 2 /* someone attached NULL to my list */ #define COERR_BADFILTER 4 /* a bad filter description was given */ #define COERR_BADTYPE 8 /* unmatched type-specific operation */ /*****************************************************************************/ #endif /* LIBRARIES_COMMODITIES_H */