home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / OOModules / txt / textfile.def < prev    next >
Text File  |  1996-07-21  |  732b  |  30 lines
  1. DEFINITION MODULE TextFile;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4. IMPORT Objects;
  5.  
  6. CONST MaxTextLen=1000;
  7.  
  8. TYPE
  9.  TextRecPtr = POINTER TO TextRec;
  10.  TextRec = RECORD
  11.             next,prev:TextRecPtr;
  12.             len:CARDINAL;
  13.             text:ARRAY[0..MaxTextLen] OF CHAR;
  14.            END;
  15.  
  16.  TText = CLASS(Objects.TObject)
  17.            root,last:TextRecPtr;
  18.            lines,maxlen:LONGINT;
  19.            CONSTRUCTOR Init;
  20.            PROCEDURE GetLine(l:LONGINT):ADDRESS;
  21.            PROCEDURE AddLine(txt:ARRAY OF CHAR);
  22.            PROCEDURE InsertLine(p:TextRecPtr;txt:ARRAY OF CHAR);
  23.            PROCEDURE DeleteLine(p:TextRecPtr);
  24.            PROCEDURE ReadText(name:ARRAY OF CHAR):BOOLEAN;
  25.            PROCEDURE Free;
  26.          END;
  27.  
  28.  
  29. END TextFile.
  30.