kodovi/BAFER.MOD

   1 MODULE Bafer;
   2 FROM RedOpsl1 IMPORT RedOpslTip, MakeNull, Empty, First, PopFirst, AddRear;
   3 FROM FIO IMPORT File,WrChar, Create, Close;
   4 IMPORT IO;
   5
   6 CONST
   7   ImeIzlaza = 'izlaz.txt';
   8
   9 VAR
  10   izlaz : File;
  11   znak : CHAR;
  12   buffer : RedOpslTip;
  13
  14 PROCEDURE IsprazniBafer(VAR dat : File;
  15                         VAR buf : RedOpslTip);
  16 VAR
  17   znak : CHAR;
  18   ok : BOOLEAN;
  19 BEGIN
  20   WHILE NOT Empty(buf) DO
  21     First(buf, znak, ok);
  22     PopFirst(buf, ok);
  23     WrChar(dat, znak)
  24   END
  25 END IsprazniBafer;
  26
  27 PROCEDURE BaferWrite(VAR dat : File;
  28                      VAR buf : RedOpslTip;
  29                      znak : CHAR);
  30 VAR
  31   ok : BOOLEAN;
  32 BEGIN
  33   AddRear(buf, znak, ok);
  34   IF NOT ok THEN
  35     IsprazniBafer(dat, buf);
  36     AddRear(buf, znak, ok)
  37   END
  38 END BaferWrite;
  39
  40 BEGIN
  41   izlaz := Create(ImeIzlaza);
  42   MakeNull(buffer);
  43   IO.WrStr('Unesite tekst, koji treba da se unese u datoteku ');
  44   IO.WrStr(ImeIzlaza);
  45   IO.WrChar('.');
  46   IO.WrLn;
  47   IO.WrStr('Unos zavrsite tackom.');
  48   IO.WrLn;
  49   znak := IO.RdChar();
  50   WHILE znak # '.' DO
  51     BaferWrite(izlaz, buffer, znak);
  52     znak := IO.RdChar();
  53   END;
  54   IsprazniBafer(izlaz, buffer);
  55   Close(izlaz)
  56 END Bafer.