home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / modulessrc / rexx / rexxio.e < prev    next >
Text File  |  1977-12-31  |  863b  |  53 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. OPT PREPROCESS
  5.  
  6. MODULE 'exec/lists',
  7.        'exec/ports',
  8.        'rexx/storage'
  9.  
  10. CONST RXBUFFSZ=$CC
  11.  
  12. OBJECT iobuff
  13. -> Um, this was all wrong
  14.   node:rexxrsrc
  15.   rpt:LONG
  16.   rct:LONG
  17.   dfh:LONG
  18.   lock:LONG
  19.   bct:LONG
  20.   area[$CC]:ARRAY
  21. ENDOBJECT     /* SIZEOF=256 */
  22.  
  23. CONST IOBNAME=10,
  24.       IOBMODE=24,
  25.       IOBEOF=25,
  26.       IOBPOS=28,
  27.       RXIO_EXIST=-1,
  28.       RXIO_STRF=0,
  29.       RXIO_READ=1,
  30.       RXIO_WRITE=2,
  31.       RXIO_APPEND=3,
  32.       RXIO_BEGIN=-1,
  33.       RXIO_CURR=0,
  34.       RXIO_END=1
  35.  
  36. #define LLOFFSET(rrp) (rrp::rexxrsrc.arg1)
  37. #define LLVERS(rrp)   (rrp::rexxrsrc.arg2)
  38. #define CLVALUE(rrp)  (rrp::rexxrsrc.arg1)
  39.  
  40. OBJECT rexxmsgport
  41. -> Um, this was all wrong
  42.   rrsizeof:rexxrsrc
  43.   port:mp
  44.   replylist:lh
  45. ENDOBJECT     /* SIZEOF=80 */
  46.  
  47. CONST DT_DEV=0,
  48.       DT_DIR=1,
  49.       DT_VOL=2,
  50.       ACTION_STACK=$7D2,
  51.       ACTION_QUEUE=$7D3
  52.  
  53.