WINAK

Code: Select all

TYPE
		Element* = POINTER TO ElementNode;
		ElementNode = RECORD
			END;
		RealElement* = POINTER TO RealElementNode;
		RealElementNode =
			RECORD (ElementNode)
				r: REAL;
			END;
		BooleanElement* = POINTER TO BooleanElementNode;
		BooleanElementNode =
			RECORD (ElementNode)
				b: BOOLEAN;
			END;
				
		MATRIX* = POINTER TO MATRIXDesc;
		MATRIXDesc =
			RECORD
				matrix*: ARRAY 4 OF ARRAY 4 OF Element;
			END;

PROCEDURE (M : MATRIX) InitRealElement*();
	VAR
		x, y : INTEGER;
BEGIN
	FOR y := 0 TO 3 DO
		FOR x := 0 TO 3 DO
			M^.matrix[x, y](RealElement)^.r := 0.0;
		END;
	END;
END InitRealElement;

Code: Select all

NEW(A);
A^.InitRealElement();

Code: Select all

PROCEDURE (M : MATRIX) InitRealElement*(); 
   VAR 
      x, y : INTEGER;
      real: RealElement;

BEGIN 
   FOR y := 0 TO 3 DO 
      FOR x := 0 TO 3 DO 
         NEW(real);
         real^.r := 0.0;
         M^.matrix[x, y] := real; 
      END; 
   END; 
END InitRealElement;

Code: Select all

PROCEDURE (M : MATRIX) Unity*();
(* 
	Doel: De Eenheidsmatrix teruggeven.
	Return type: MATRIX
*)
	VAR
		x, y: INTEGER;
	
BEGIN
	FOR y := 0 TO 3 DO
		FOR x := 0 TO 3 DO
				M^.matrix[x, y]^.Unity(x, y);
		END;
	END;
END Unity;

PROCEDURE (i : Element) Unity(x, y: INTEGER);
BEGIN
	i := NIL;
END Unity;

PROCEDURE (i : RealElement) Unity(x, y: INTEGER);
BEGIN
	IF (x # y) THEN
		i^.r := 0.0;
	ELSE
		i^.r := 1.0;
	END;
END Unity;

PROCEDURE (i : BooleanElement) Unity(x, y: INTEGER);
BEGIN
	IF (x = y) THEN
		i^.b := TRUE;
	ELSE
		i^.b := FALSE;
	END;
END Unity;

Code: Select all

  PROCEDURE (e: realellement) Set (i,j : INTEGER): ellement;
	                VAR
		BEGIN
			IF j = i THEN
				e^.data := 1;
			ELSE
				e^.data := 0;			
			END;						
		RETURN e;
	END Set;