home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / rexx / rexxio.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.2 KB  |  68 lines
  1. {$if not def REXX_REXXIO_H} CONST REXX_REXXIO_H=0;
  2.  
  3. { ***************************************************************
  4.   ** KickPascal-Include-Datei "rexx/rexxio.h" zu Kickstart 3.0 **
  5.   *************************************************************** }
  6.  
  7. TYPE p_IoBuff = ^IoBuff;
  8. TYPE p_RexxMsgPort = ^RexxMsgPort;
  9.  
  10. {$if not def REXX_STORAGE_H;incl "rexx/storage.h";endif}
  11.  
  12. CONST RXBUFFSZ = 204;
  13.  
  14. TYPE IoBuff = RECORD
  15.  iobNode : RexxRsrc;
  16.  iobRpt  : Ptr;
  17.  iobRct  : LongInt;
  18.  iobDFH  : LongInt;
  19.  iobLock : Ptr;
  20.  iobBct  : LongInt;
  21.  iobArea : ARRAY[0..RXBUFFSZ-1] OF Byte;
  22. END;
  23.  
  24. CONST
  25.  RXIO_EXIST  = -1;
  26.  RXIO_STRF   = 0;
  27.  RXIO_READ   = 1;
  28.  RXIO_WRITE  = 2;
  29.  RXIO_APPEND = 3;
  30.  
  31. CONST
  32.  RXIO_BEGIN  = -1;
  33.  RXIO_CURR   = 0;
  34.  RXIO_END    = 1;
  35.  
  36. FUNCTION LLOFFSET(rrp : p_RexxRsrc) : LongInt;
  37.   BEGIN
  38.        LLOFFSET:=rrp^.rr_Arg1;
  39.   END;
  40.  
  41. FUNCTION LLVERS(rrp : p_RexxRsrc) : LongInt;
  42.   BEGIN
  43.        LLVERS:=rrp^.rr_Arg2;
  44.   END;
  45.  
  46. FUNCTION CLVALUE(rrp : p_RexxRsrc) : Str;
  47.   BEGIN
  48.        CLVALUE:=Str(rrp^.rr_Arg1);
  49.   END;
  50.  
  51.  
  52. TYPE RexxMsgPort = RECORD
  53.  rmp_Node      : RexxRsrc;
  54.  rmp_Port      : MsgPort;
  55.  rmp_ReplyList : List;
  56. END;
  57.  
  58. CONST
  59.  DT_DEV = 0;
  60.  DT_DIR = 1;
  61.  DT_VOL = 2;
  62.  
  63. CONST
  64.  ACTION_STACK = 2002;
  65.  ACTION_QUEUE = 2003;
  66.  
  67. {$endif}
  68.