Data commit

Task/Pointers-and-references/Modula-3/pointers-and-references-1.mod3

@@ -0,0 +1,5 @@
+TYPE IntRef = REF INTEGER;
+
+VAR intref := NEW(IntRef);
+
+intref^ := 10

Task/Pointers-and-references/Modula-3/pointers-and-references-2.mod3

@@ -0,0 +1,2 @@
+VAR any: REFANY;
+any := NEW(REF INTEGER); (* Modula-3 knows that any is now REF INTEGER with a tag added by NEW. *)

Task/Pointers-and-references/Modula-3/pointers-and-references-3.mod3

@@ -0,0 +1,13 @@
+PROCEDURE Sum(READONLY a: ARRAY OF REFANY): REAL =
+  VAR sum := 0.0;
+  BEGIN
+    FOR i := FIRST(a) TO LAST(a) DO
+      TYPECASE a[i] OF
+      | NULL => (* skip *)
+      | REF INTEGER (e) => sum := sum + FLOAT(e^);
+      | REF REAL(e) => sum := sum + e^;
+      ELSE (* skip *)
+      END;
+    END;
+    RETURN sum;
+  END Sum;