home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / CodePatterns / Pattern11.mod < prev    next >
Encoding:
Text File  |  1995-10-30  |  490 b   |  36 lines  |  [TEXT/MPS ]
  1. MODULE Pattern11;
  2.   TYPE
  3.     P0 = POINTER TO R0;
  4.     P1 = POINTER TO R1;
  5.     P2 = POINTER TO R2;
  6.     R0 = RECORD
  7.       x: INTEGER;
  8.     END;
  9.     R1 = RECORD (R0)
  10.       y: INTEGER;
  11.     END;
  12.     R2 = RECORD (R1)
  13.       z: INTEGER;
  14.     END;
  15.   VAR
  16.     p0: P0; p1: P1; p2: P2;
  17.     r0: R0; r1: R1;
  18.  
  19.   PROCEDURE P(VAR r: R0);
  20.   BEGIN
  21.     r.x:=1;
  22.     r(R1).y:=2
  23.   END P;
  24.  
  25. BEGIN
  26.   p0.x:=0;
  27.   p1.y:=1;
  28.   p0(P1).y:=2;
  29.   p0(P2).z:=3;
  30.   IF p1 IS P2 THEN
  31.     p0:=p2
  32.   END;
  33.   r0:=r1;
  34.   P(r1)
  35. END Pattern11.
  36.