BEGIN
CC: TYPE = CirioTypes.CompilerContext;
Type: TYPE = CirioTypes.Type;
DefinitionTypeInfo: TYPE = REF DefinitionTypeInfoBody;
DefinitionTypeInfoBody:
TYPE =
RECORD [
underType: Type,
name: Rope.ROPE];
CreateDefinitionType:
PROC [underType: Type, name: Rope.
ROPE, cc:
CC]
RETURNS [Type];
CirioCode.GetTypeClass[type] = $definition
CCTypes.GetTypeRepresentation will return NIL.