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

Days.Mod compiles.

Browse source
This commit is contained in:
norayr 2016-12-29 20:12:52 +04:00
parent ee38ab860a
commit 28d02deeae
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Days.Mod
View file

@ -1,14 +1,15 @@
MODULE Days;
TYPE
Day* = POINTER TO DayDesc;
DayDesc = RECORD
next*, prev* : Day;
END DayDesc;
TYPE Week = ARRAY 7 OF Day;
Day* = POINTER TO DayDesc;
DayDesc = RECORD
next, prev : Day
END;
Week = ARRAY 7 OF Day;
VAR sun*, mon*, tue*, wed*, thu*, fri*, sat* : Day;
week: ARRAY 7 OF Day;
VAR
sun*, mon*, tue*, wed*, thu*, fri*, sat* : Day;
week: Week;
PROCEDURE Next*(d : Day): Day;
BEGIN