home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / anwend / gemar306 / plugin / source / gemarplu.d next >
Text File  |  1997-01-21  |  2KB  |  74 lines
  1. DEFINITION MODULE GemarPlugParms;
  2.  
  3. (****************************************************************************
  4.  *
  5.  * Typen für PlugIn-Parameter für GEMAR.
  6.  *
  7.  * $Source$
  8.  *
  9.  * $Revision$
  10.  *
  11.  * $Author$
  12.  *
  13.  * $Date$
  14.  *
  15.  * $State$
  16.  *
  17.  *****************************************************************************
  18.  * History:
  19.  *
  20.  * $Log$
  21.  *
  22.  *
  23.  ****************************************************************************)
  24.  
  25. IMPORT SYSTEM, System;
  26.  
  27. (* Standard HM2-Libs *)
  28.  
  29. (* Magic-Lib *)
  30. FROM MagicSys   IMPORT
  31.                 (* Const *) Nil, Null, Bit0, Bit1, Bit2, Bit3, Bit4, Bit5,
  32.                             Bit6, Bit7, Bit8, Bit9, Bit10, Bit11, Bit12,
  33.                             Bit13, Bit14, Bit15,
  34.                 (* Type  *) LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL,
  35.                             sBITSET, lINTEGER, lCARDINAL, lWORD, lBITSET;
  36.  
  37. (* Magic-Tools *)
  38.  
  39. (* Eigene Libs *)
  40.  
  41. (* Projektlibs *)
  42.  
  43.  
  44.  
  45. TYPE
  46.     (* Die Struktur, die von GEMAR geliefert wird *)
  47.     tScsiCmd    = RECORD
  48.                     Handle      : LONGCARD;
  49.                     Cmd         : SYSTEM.ADDRESS;
  50.                     CmdLen      : SHORTCARD;
  51.                     Buffer      : SYSTEM.ADDRESS;
  52.                     Transferlen : LONGCARD;
  53.                     ReqBuffer   : SYSTEM.ADDRESS;
  54.                     Timeout     : LONGCARD;
  55.                     Flags       : sBITSET;
  56.                   END;
  57.     tpScsiCmd   = POINTER TO tScsiCmd;
  58.  
  59.     tpPlugParms = POINTER TO tPlugParms;
  60.     tPlugParms  = RECORD
  61.                     Version   : SHORTCARD;          (* = 0200H = 2.00 *)
  62.                     special   : SYSTEM.ADDRESS;     (* Spezielles für Art des PlugIn *)
  63.                     StrHandle : LONGCARD;
  64.                     StrMaxLen : LONGCARD;
  65.                     BlockLen  : SHORTCARD;
  66.                     ScsiIn    : PROCEDURE ((* ScsiCmd *) tpScsiCmd) : SHORTINT;
  67.                     ScsiOut   : PROCEDURE ((* ScsiCmd *) tpScsiCmd) : SHORTINT;
  68.                     SuperOn   : PROC;
  69.                     SuperOff  : PROC;
  70.                   END;
  71.  
  72.  
  73. END GemarPlugParms.
  74.