PL0-GNU-M2/Tests/essai4.mod

MODULE essai4;

(* trying to use only the iso libraries *)
(* for file and input handling          *)

(* Importing the necessary libs *)

FROM IOResult IMPORT ReadResults, ReadResult;  
FROM SeqFile IMPORT OpenRead, OpenWrite, OpenResults,
  Close, ChanId, read, write;
FROM TextIO IMPORT ReadRestLine, SkipLine, ReadToken,
  WriteLn, WriteString, ReadChar;
IMPORT STextIO, SWholeIO;

VAR 
    leChanId    : ChanId;
    leResultat  : OpenResults; 
    line        : ARRAY[0..8191] OF CHAR;
    aChar       : CHAR;
    lines       : INTEGER;

    PROCEDURE BeginLine(l : INTEGER);

    BEGIN
        STextIO.WriteString("line N°");
        SWholeIO.WriteCard(lines, 5);
        STextIO.WriteString("  ");
    END BeginLine;

BEGIN

    STextIO.WriteString("Hello you all ! ... be ready for the ISO libs tests !");
    STextIO.WriteLn;
    STextIO.WriteString("trying to open a file and display the content");
    STextIO.WriteLn;
    STextIO.WriteLn;
    OpenRead(leChanId, "essai3.mod", read, leResultat);
    lines := 0;
    IF leResultat=opened THEN
        ReadRestLine(leChanId, line);
        WHILE ReadResult(leChanId) <> endOfInput DO  
            STextIO.WriteString(line); 
            STextIO.WriteLn;
            SkipLine(leChanId);
            ReadRestLine(leChanId, line);
        END;
        Close(leChanId);
    ELSE
        STextIO.WriteString("Error");
        STextIO.WriteLn;
    END;   
END essai4.