home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / anwend / gemar306 / plugin / source / plugparm.d < prev    next >
Text File  |  1997-01-21  |  3KB  |  79 lines
  1. DEFINITION MODULE PlugParms;
  2. (****************************************************************************
  3.  *
  4.  * Parametermodul für PlugIns
  5.  *
  6.  * $Source: E:\HM2\LIB\se\rcs\plugparm.d,v $
  7.  *
  8.  * $Revision: 1.1 $
  9.  *
  10.  * $Author: S_Engel $
  11.  *
  12.  * $Date: 1995/01/01 19:13:50 $
  13.  *
  14.  * $State: Exp $
  15.  *
  16.  *****************************************************************************
  17.  * History:
  18.  *
  19.  * $Log: plugparm.d,v $
  20.  * Revision 1.1  1995/01/01  19:13:50  S_Engel
  21.  * Initial revision
  22.  *
  23.  *
  24.  *
  25.  ****************************************************************************)
  26.  
  27. FROM Portab IMPORT tCompiler, Compiler;
  28.  
  29. IMPORT SYSTEM;
  30.  
  31. (* Magic-Lib *)
  32. FROM MagicSys   IMPORT
  33.                 (* Const *) Nil, Null, Bit0, Bit1, Bit2, Bit3, Bit4, Bit5,
  34.                             Bit6, Bit7, Bit8, Bit9, Bit10, Bit11, Bit12,
  35.                             Bit13, Bit14, Bit15,
  36.                 (* Type  *) LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL,
  37.                             sBITSET, lINTEGER, lCARDINAL, lWORD, lBITSET;
  38.  
  39.  
  40.  
  41. CONST ParmVersion = 0100H;         (* Version des Parameterblockes *)
  42.       PathLen     = 512;
  43.  
  44. TYPE
  45.      (* Umgebung der PlugIns, wird bei der Initialisierung übergeben *)
  46.       tpPlugEnvironment = POINTER TO tPlugEnvironment;
  47.       tPlugEnvironment
  48.         = RECORD
  49.             (* aktuelle Parameterversion = 1.00 = 0100H *)
  50.             Version  : sINTEGER;                          (* Version zeigt Umfang der Parameter an   *)
  51.             Private  : SYSTEM.ADDRESS;                    (* private Parameter für Modul-Rumpf       *)
  52.             ApplId   : sINTEGER;                          (* Applikationsid des rufenden Programmes  *)
  53.             VDIHandle: sINTEGER;                          (* Workstation des Hauptprogrammes         *)
  54.             PlugPath : POINTER TO ARRAY[0..PathLen-1] OF CHAR;  (* Name und Pfad des PlugIn, kann auch
  55.                                                                    relativ sein                      *)
  56.             (*$K+*)
  57.             Alert    : PROCEDURE(   (* def   *) sINTEGER,
  58.                                  VAR(* msg   *) STRING) : sINTEGER;
  59.             (*$K=*)
  60.           END;
  61.  
  62.       (*$?Compiler=Haenisch:
  63.         (*$K+   Aufrufer räumt Stack ab *)
  64.        *)
  65.       tPlugProc = PROCEDURE((* par : *) SYSTEM.ADDRESS) : lINTEGER;
  66.       (*$?Compiler=Haenisch:
  67.        (*$K=*)
  68.        *)
  69.  
  70.       tPlugProcs   = RECORD
  71.                        num    : SHORTINT;     (* Anzahl der Prozeduren *)
  72.                        Procs  : ARRAY[0..MAX(sINTEGER)] OF tPlugProc;
  73.                      END;
  74.       tpPlugProcs  = POINTER TO tPlugProcs;
  75.  
  76.  
  77.  
  78. END PlugParms.
  79.