gitweb on Svarog

projekti pod git sistemom za održavanje verzija -- projects under the git version control system
pocetak nove verzije;poboljsani fontovi; komande za lako prebacivanje iz jedne u...
[spa1skripta-public.git] / kodovi / REDOPSL1.DEF
1 DEFINITION MODULE RedOpsl1;
2 FROM QueueInfo IMPORT InfoTip,Maxqueue;
3 TYPE
4 Niz = ARRAY[1..Maxqueue] OF InfoTip;
5 RedOpslTip = RECORD
6 Prvi, Zadnji : CARDINAL;
7 Element : Niz
8 END;
10 PROCEDURE MakeNull(VAR q : RedOpslTip);
11 PROCEDURE Empty(VAR q : RedOpslTip) : BOOLEAN;
12 PROCEDURE First(VAR q : RedOpslTip;
13 VAR x : InfoTip;
14 VAR ok : BOOLEAN);
15 PROCEDURE PopFirst(VAR q : RedOpslTip;
16 VAR ok : BOOLEAN);
17 PROCEDURE AddRear(VAR q : RedOpslTip;
18 x : InfoTip;
19 VAR ok : BOOLEAN);
21 END RedOpsl1.
Svarog.pmf.uns.ac.rs/gitweb maintanance Doni Pracner