Modula-2 Files

gistfile1.pas

MODULE cat;
 
IMPORT StreamFile, ChanConsts, STextIO, TextIO, IOConsts, IOChan;
 
VAR
  fi : StreamFile.ChanId;
  fname : ARRAY [0..255] OF CHAR;
  res : ChanConsts.OpenResults;
  ch : CHAR;
 
BEGIN
  fname := "test.txt";
 
  StreamFile.Open(fi,fname,StreamFile.text+StreamFile.old+StreamFile.read,res);
  IF res <> StreamFile.opened THEN
    STextIO.WriteString("Open error");
    STextIO.WriteLn;
    RETURN;
  END;
 
  LOOP
    TextIO.ReadChar(fi, ch);
 
    CASE IOChan.ReadResult(fi) OF
       | IOConsts.endOfInput: EXIT;
       | IOConsts.endOfLine: TextIO.SkipLine(fi); STextIO.WriteLn;
       ELSE
                               STextIO.WriteChar(ch);
    END;
  END;
 
  StreamFile.Close(fi);
END cat.