home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / cbm / nduk-v40.lha / V40 / include / rexx / rexxio.i < prev    next >
Encoding:
Text File  |  1993-10-15  |  2.5 KB  |  76 lines
  1.      IFND      REXX_REXXIO_I
  2. REXX_REXXIO_I SET      1
  3. **
  4. **    $VER: rexxio.i 1.8 (8.11.91)
  5. **    Includes Release 40.15
  6. **
  7. **    Include file for Input/Output related structures
  8. **
  9. **    (C) Copyright 1986,1987,1988,1989,1990 William S. Hawes.
  10. **    (C) Copyright 1990-1993 Commodore-Amiga, Inc.
  11. **        All Rights Reserved
  12. **
  13.  
  14.      IFND      REXX_STORAGE_I
  15.      INCLUDE  "rexx/storage.i"
  16.      ENDC
  17.  
  18. RXBUFFSZ EQU      204               ; buffer length
  19.  
  20. * The IoBuff is a resource node used to maintain the File List.  Nodes are
  21. * allocated and linked into the list whenever a file is opened.
  22.  
  23.      STRUCTURE IoBuff,RRSIZEOF     ; structure for files/strings
  24.      APTR      iobRpt           ; read/write pointer
  25.      LONG      iobRct           ; character count
  26.      LONG      iobDFH           ; DOS filehandle
  27.      APTR      iobLock           ; DOS lock
  28.      LONG      iobBct           ; buffer length
  29.      STRUCT   iobArea,RXBUFFSZ     ; buffer area
  30.      LABEL      iobSIZEOF           ; size: 256 bytes
  31.  
  32. IOBNAME  EQU      LN_NAME           ; logical name
  33. IOBMODE  EQU      rr_Arg1           ; access mode
  34. IOBEOF     EQU      rr_Arg1+1           ; EOF flag
  35. IOBPOS     EQU      rr_Arg2           ; current position
  36.  
  37. * Access mode definitions
  38. RXIO_EXIST  EQU      -1           ; an existing filehandle
  39. RXIO_STRF   EQU      0               ; a "string file"
  40. RXIO_READ   EQU      1               ; read-only access
  41. RXIO_WRITE  EQU      2               ; write mode
  42. RXIO_APPEND EQU      3               ; append mode (existing file)
  43.  
  44. * Offset anchors for SeekF()
  45. RXIO_BEGIN  EQU      -1           ; relative to start
  46. RXIO_CURR   EQU      0               ; relative to current position
  47. RXIO_END    EQU      1               ; relative to end
  48.  
  49. * The Library List contains just plain resource nodes.
  50. LLOFFSET EQU      rr_Arg1           ; "Query" offset
  51. LLVERS     EQU      rr_Arg2           ; library version
  52.  
  53. * The RexxClipNode structure is used to maintain the Clip List.  The
  54. * value string is stored as an argstring in the rr_Arg1 field.
  55. CLVALUE  EQU      rr_Arg1           ; value string
  56.  
  57. * A message port structure, maintained as a resource node.
  58. * The ReplyList holds packets that have been received but haven't been
  59. * replied.
  60.  
  61.          STRUCTURE RexxMsgPort,RRSIZEOF
  62.          STRUCT   rmp_Port,MP_SIZE           ; the message port
  63.          STRUCT   rmp_ReplyList,LH_SIZE      ; messages awaiting reply
  64.          LABEL    rmp_SIZEOF
  65.  
  66. * Device types
  67. DT_DEV   EQU      0                    ; a device
  68. DT_DIR   EQU      1                    ; an ASSIGNed directory
  69. DT_VOL   EQU      2                    ; a volume
  70.  
  71. * Private packet types
  72. ACTION_STACK   EQU   2002              ; stack a line
  73. ACTION_QUEUE   EQU   2003              ; queue a line
  74.  
  75.          ENDC
  76.