gitweb on Svarog

projekti pod git sistemom za održavanje verzija -- projects under the git version control system
ubacena verzija 12 i kodovi
[spa1skripta-public.git] / 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;
6 CONST
7 ImeIzlaza = 'izlaz.txt';
9 VAR
10 izlaz : File;
11 znak : CHAR;
12 buffer : RedOpslTip;
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;
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;
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.
Svarog.pmf.uns.ac.rs/gitweb maintanance Doni Pracner