g_gcbox.mod 178 B

12345678
  1. GENERIC IMPLEMENTATION MODULE GBox;
  2. CLASS IMPLEMENTATION Box;
  3. PROCEDURE Put(x : T);
  4. BEGIN v := x END Put;
  5. PROCEDURE Get() : T;
  6. BEGIN RETURN v END Get;
  7. END Box;
  8. END GBox.