|
|
1.1 ! root 1: module main; ! 2: from imptypes import RT; ! 3: import imported; ! 4: type ! 5: RT = pointer to record ! 6: i, j : integer; ! 7: end; ! 8: var ! 9: p : imported.T; ! 10: q : imported.OT; ! 11: r : RT; ! 12: begin ! 13: new(r); ! 14: r^.i := 3; ! 15: r^.j := 4; ! 16: imported.Blah; ! 17: end main.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.