vishapoberon/oberonbyexample
1
0
Fork 0
mirror of https://github.com/vishapoberon/oberonbyexample.git synced 2026-04-06 05:12:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

post rebranding

Browse source
This commit is contained in:
Antranig Vartanian 2024-05-11 19:17:23 +04:00
parent 4169aecd5b
commit 95b512baf4
No known key found for this signature in database
GPG key ID: DE3998662D59F21C
66 changed files with 716 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

33
enums_example/1/Days.Mod
View file

@ -1,33 +0,0 @@
MODULE Days;
TYPE
Day* = POINTER TO DayDesc;
DayDesc = RECORD
num: INTEGER
END;
Week* = ARRAY 7 OF Day;
VAR
sun*, mon*, tue*, wed*, thu*, fri*, sat* : Day;
week: Week;
PROCEDURE Next*(d : Day): Day;
BEGIN RETURN week[(d.num + 1) MOD 7];
END Next;
PROCEDURE Prev*(d: Day): Day;
BEGIN RETURN week[(d.num - 1) MOD 7];
END Prev;
PROCEDURE day(VAR d: Day; num: INTEGER);
BEGIN NEW(d); d.num := num; week[num] := d;
END day;
BEGIN
day(sun, 0);
day(mon, 1);
day(tue, 2);
day(wed, 3);
day(thu, 4);
day(fri, 5);
day(sat, 6);
END Days.