home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Devices / Clipboard.i < prev    next >
Text File  |  1990-08-28  |  1KB  |  55 lines
  1. {
  2.     Clipboard.i for PCQ Pascal
  3.  
  4.     clipboard device command definitions 
  5. }
  6.  
  7. {$I "Include:Exec/Nodes.i"}
  8. {$I "Include:Exec/Lists.i"}
  9. {$I "Include:Exec/Ports.i"}
  10.  
  11. const
  12.     CBD_POST        = CMD_NONSTD + 0;
  13.     CBD_CURRENTREADID    = CMD_NONSTD + 1;
  14.     CBD_CURRENTWRITEID    = CMD_NONSTD + 2;
  15.  
  16.     CBERR_OBSOLETEID    = 1;
  17.  
  18. type
  19.  
  20.     ClipboardUnitPartial = record
  21.     cu_Node        : Node;        { list of units }
  22.     cu_UnitNum    : Integer;    { unit number for this unit }
  23.     { the remaining unit data is private to the device }
  24.     end;
  25.     ClipboardUnitPartialPtr = ^ClipboardUnitPartial;
  26.  
  27.  
  28.     IOClipReq = record
  29.     io_Message    : Message;
  30.     io_Device    : Address;    { device node pointer    }
  31.     io_Unit        : Address;    { unit (driver private)    }
  32.     io_Command    : Short;    { device command    }
  33.     io_Flags    : Byte;        { including QUICK and SATISFY }
  34.     io_Error    : Byte;        { error or warning num    }
  35.     io_Actual    : Integer;    { number of bytes transferred }
  36.     io_Length    : Integer;    { number of bytes requested }
  37.     io_Data        : Address;    { either clip stream or post port }
  38.     io_Offset    : Integer;    { offset in clip stream    }
  39.     io_ClipID    : Integer;    { ordinal clip identifier }
  40.     end;
  41.     IOClipReqPtr = ^IOClipReq;
  42.  
  43. const
  44.     PRIMARY_CLIP    = 0;    { primary clip unit }
  45.  
  46. type
  47.  
  48.     SatisfyMsg = record
  49.     sm_Msg    : Message;    { the length will be 6 }
  50.     sm_Unit    : Short;    { which clip unit this is }
  51.     sm_ClipID : Integer;    { the clip identifier of the post }
  52.     end;
  53.     SatisfyMsgPtr = ^SatisfyMsg;
  54.  
  55.