[Oberon] Oberon and closures

[J ö rg Straube]

What about this?

MODULE Example;
(* my oberon is also a little rusty *)
TYPE
  Printer = POINTER TO Closure;
  Closure = RECORD
    n-: INTEGER;
    Print: PROCEDURE();
  END;
PROCEDURE CreatePrinter*(i: INTEGER): Printer;
  VAR s: Printer;
  BEGIN
    NEW(s); s.n :=i; RETURN Printer
  END

VAR p, q: Printer;
BEGIN
  p:=CreatePrinter(2);
  q:=CreatePrinter(3);
  p.Print
  q.Print
END Example.


Joerg