home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / modulessrc / libraries / commodities.e < prev    next >
Text File  |  1977-12-31  |  2KB  |  86 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. OPT PREPROCESS
  5.  
  6. MODULE 'exec/ports'
  7.  
  8. #define CxFilter(d)          CreateCxObj(CX_FILTER, (d), 0)
  9. #define CxSender(port, id)   CreateCxObj(CX_SEND, (port), (id))
  10. #define CxSignal(task, sig)  CreateCxObj(CX_SIGNAL, (task), (sig))
  11. #define CxTranslate(ie)      CreateCxObj(CX_TRANSLATE, (ie), 0)
  12. #define CxDebug(id)          CreateCxObj(CX_DEBUG, (id), 0)
  13. #define CxCustom(action, id) CreateCxObj(CX_CUSTOM, (action), id)
  14.  
  15. OBJECT newbroker
  16.   version:CHAR
  17.   reserve1:CHAR
  18.   name:PTR TO CHAR
  19.   title:PTR TO CHAR
  20.   descr:PTR TO CHAR
  21.   unique:INT
  22.   flags:INT
  23.   pri:CHAR  -> This is signed
  24.   reserve2:CHAR
  25.   port:PTR TO mp
  26.   reservedchannel:INT
  27. ENDOBJECT     /* SIZEOF=26 */
  28.  
  29. CONST NB_VERSION=5,
  30.       CBD_NAMELEN=24,
  31.       CBD_TITLELEN=$28,
  32.       CBD_DESCRLEN=$28,
  33.       NBU_DUPLICATE=0,
  34.       NBU_UNIQUE=1,
  35.       NBU_NOTIFY=2,
  36.       COF_SHOW_HIDE=4,
  37.       CX_INVALID=0,
  38.       CX_FILTER=1,
  39.       CX_TYPEFILTER=2,
  40.       CX_SEND=3,
  41.       CX_SIGNAL=4,
  42.       CX_TRANSLATE=5,
  43.       CX_BROKER=6,
  44.       CX_DEBUG=7,
  45.       CX_CUSTOM=8,
  46.       CX_ZERO=9,
  47.       CXM_IEVENT=$20,
  48.       CXM_COMMAND=$40,
  49.       CXCMD_DISABLE=15,
  50.       CXCMD_ENABLE=17,
  51.       CXCMD_APPEAR=19,
  52.       CXCMD_DISAPPEAR=21,
  53.       CXCMD_KILL=23,
  54.       CXCMD_LIST_CHG=27,
  55.       CXCMD_UNIQUE=25
  56.  
  57. OBJECT inputxpression
  58.   version:CHAR
  59.   class:CHAR
  60.   code:INT  -> This is unsigned
  61.   codemask:INT  -> This is unsigned
  62.   qualifier:INT  -> This is unsigned
  63.   qualmask:INT  -> This is unsigned
  64.   qualsame:INT  -> This is unsigned
  65. ENDOBJECT     /* SIZEOF=12 */
  66.  
  67. #define NULL_IX(ix) (ix::inputxpression.class=IECLASS_NULL)
  68.  
  69. CONST IX_VERSION=2,
  70.       IXSYM_SHIFT=1,
  71.       IXSYM_CAPS=2,
  72.       IXSYM_ALT=4,
  73.       IXSYM_SHIFTMASK=3,
  74.       IXSYM_CAPSMASK=7,
  75.       IXSYM_ALTMASK=$30,
  76.       IX_NORMALQUALS=$7FFF,
  77.       CBERR_OK=0,
  78.       CBERR_SYSERR=1,
  79.       CBERR_DUP=2,
  80.       CBERR_VERSION=3,
  81.       COERR_ISNULL=1,
  82.       COERR_NULLATTACH=2,
  83.       COERR_BADFILTER=4,
  84.       COERR_BADTYPE=8
  85.  
  86.