From 576603f55d946d422d3271f02c41522655658286 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Tue, 23 May 2017 17:09:53 +0400
Subject: [PATCH] testing, need to move the enums example with complete
 history.

---
 enums/Days.Mod  | 68 -------------------------------------------------
 enums/readme.md |  6 -----
 enums/test.Mod  | 22 ----------------
 3 files changed, 96 deletions(-)
 delete mode 100644 enums/Days.Mod
 delete mode 100644 enums/readme.md
 delete mode 100644 enums/test.Mod

diff --git a/enums/Days.Mod b/enums/Days.Mod
deleted file mode 100644
index 8611a21..0000000
--- a/enums/Days.Mod
+++ /dev/null
@@ -1,68 +0,0 @@
-MODULE Days;
-
- TYPE 
-   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: Week;
-
- PROCEDURE Next*(d : Day): Day;
- BEGIN
-   RETURN d.next
- END Next;
-
- PROCEDURE Prev*(d: Day): Day;
- BEGIN
-   RETURN d.prev;
- END Prev;
-
- PROCEDURE inc(VAR j: SHORTINT);
- BEGIN
-   IF j = 6 THEN
-     j := 0
-   ELSE
-     INC(j)
-   END
- END inc;
-
-  PROCEDURE dec(VAR j: SHORTINT);
- BEGIN
-   IF j = 0 THEN
-     j := 6
-   ELSE
-     DEC(j)
-   END
- END dec;
-
- PROCEDURE init(VAR w : Week);
-   VAR
-     i,j : SHORTINT;
- BEGIN
-     i := 0;
-     REPEAT
-       j := i; inc(j);
-       w[i].next := w[j];
-       j := i; dec(j);
-       w[i].prev := w[j];
-       INC(i)
-     UNTIL i > 6;
- END init;
-
-BEGIN
-  NEW(sun); NEW(mon); NEW(tue); NEW(wed); NEW(thu); NEW(fri); NEW(sat);
-  week[0] := sun;
-  week[1] := mon;
-  week[2] := tue;
-  week[3] := wed;
-  week[4] := thu;
-  week[5] := fri;
-  week[6] := sat;
-  
-  init(week);
-
-END Days.
diff --git a/enums/readme.md b/enums/readme.md
deleted file mode 100644
index 5459059..0000000
--- a/enums/readme.md
+++ /dev/null
@@ -1,6 +0,0 @@
-
-
-Example aimed to show how to survive without enumerations in Oberon.
-
-This way is even cooler than enumerations. (:
-
diff --git a/enums/test.Mod b/enums/test.Mod
deleted file mode 100644
index 8d49b34..0000000
--- a/enums/test.Mod
+++ /dev/null
@@ -1,22 +0,0 @@
-MODULE test;
-
-IMPORT Days, Out;
-
-VAR today, yesterday, tomorrow: Days.Day;
-
-BEGIN
-  today := Days.mon; (*init*)
-
-  yesterday := Days.Prev(today);
-  IF yesterday = Days.sun
-  THEN
-    Out.String("it works!"); Out.Ln
-  END;
-  tomorrow := Days.Next(today);
-
-  IF tomorrow = Days.tue
-  THEN
-    Out.String("it works!"); Out.Ln
-  END;
-
-END test.