DEFINITION MODULE M2DecSrc;
(* 17.11.90/bp *)
(*$ LargeVars:=FALSE LongAlign:=FALSE *)

FROM M2File	IMPORT	FileType;

CONST
  empty="";

TYPE
  (* 0 heißt: keine CSI-Sequenzen senden, andere: Farbe für Quelltext *)
  SrcColor=[0..3];

VAR
  loadErr:BOOLEAN;

PROCEDURE Err(s1,s2:ARRAY OF CHAR);

(* name muß nackter Name sein! *)
(* ft ist obj oder ob1 usw. Benötigt er zum Checken der REFFILE-Kennung *)
PROCEDURE OpenSrc(name:ARRAY OF CHAR;ft:FileType):BOOLEAN;
PROCEDURE CloseSrc;
(* Zeige Src bis nächsten RefPoint, gib pc davon zurück *)
(* txtCol muß Ziffer 1..3 sein! *)
PROCEDURE ShowSrc(txtCol:SrcColor):LONGINT;

END M2DecSrc.
