mirror of
https://github.com/vishapoberon/oberonbyexample.git
synced 2026-04-05 21:02:25 +00:00
rename and smth.
This commit is contained in:
parent
8e1a8f7d6f
commit
3cbba94857
3 changed files with 11 additions and 8 deletions
8
Day.Mod
8
Day.Mod
|
|
@ -1,8 +0,0 @@
|
||||||
MODULE Day;
|
|
||||||
|
|
||||||
TYPE T* = RECORD END;
|
|
||||||
|
|
||||||
VAR sun*, mon*, tue*, wed*, thu*, fri*, sat* : T;
|
|
||||||
|
|
||||||
|
|
||||||
END Day.
|
|
||||||
8
Days.Mod
Normal file
8
Days.Mod
Normal file
|
|
@ -0,0 +1,8 @@
|
||||||
|
MODULE Days;
|
||||||
|
|
||||||
|
TYPE Day* = RECORD END;
|
||||||
|
|
||||||
|
VAR sun*, mon*, tue*, wed*, thu*, fri*, sat* : Day;
|
||||||
|
|
||||||
|
|
||||||
|
END Days.
|
||||||
3
test.Mod
3
test.Mod
|
|
@ -4,5 +4,8 @@ IMPORT Day;
|
||||||
|
|
||||||
VAR today: Days.Day;
|
VAR today: Days.Day;
|
||||||
|
|
||||||
|
BEGIN
|
||||||
|
today := Days.mon; (*init*)
|
||||||
|
|
||||||
|
|
||||||
END test.
|
END test.
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue