vtext/src/VT.i3


Copyright (C) 1994, Digital Equipment Corp.
<* PRAGMA LL *>

INTERFACE VT;

IMPORT MText, Rd, Thread, VTDef;

PROCEDURE New (mtext: MText.T): VTDef.T RAISES {VTDef.Error};

PROCEDURE Replace (vt: VTDef.T; begin, end: CARDINAL; text: TEXT)
  RAISES {Rd.EndOfFile, Rd.Failure, Thread.Alerted};

PROCEDURE ReplaceChars (         vt        : VTDef.T;
                                 begin, end: CARDINAL;
                        READONLY str       : ARRAY OF CHAR)
  RAISES {Rd.EndOfFile, Rd.Failure, Thread.Alerted};

PROCEDURE ReplaceFile (vt        : VTDef.T;
                       begin, end: CARDINAL;
                       file      : Rd.T;
                       start     : CARDINAL   := 0;
                       numChars  : CARDINAL   := LAST (CARDINAL))
  RAISES {Rd.EndOfFile, Rd.Failure, Thread.Alerted};

PROCEDURE Close (vt: VTDef.T); <* LL = vt.mutex *>

PROCEDURE Invalidate (vt: VTDef.T; b, e, l: CARDINAL)
  RAISES {Rd.EndOfFile, Rd.Failure, Thread.Alerted};

END VT.