StructuresImpl.mesa
Last Edited by: Arnon, July 19, 1985 2:54:46 pm PDT
DIRECTORY
AlgebraClasses,
Structures;
StructuresImpl:
CEDAR
PROGRAM
IMPORTS AlgebraClasses
EXPORTS Structures
= BEGIN OPEN AC: AlgebraClasses;
Types
Object: TYPE = AC.Object;
Method: TYPE = AC.Method;
Start Code
StructuresClass: PUBLIC Object ← AC.MakeClass["StructuresClass", NIL, NIL];
Structures: PUBLIC Object ← AC.MakeStructure["Structures", StructuresClass, NIL];
AC.InstallStructure[Structures];
END.