File: DBExtras.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Contents: Missing pieces of the Cedar program interface to Cypress database system
Created by: Donahue, August 20, 1986 8:31:05 am PDT
DIRECTORY
DB USING[Relation, FieldSpec, Domain, Segment, TypeCode];
DBExtras: CEDAR DEFINITIONS = BEGIN
RelationType:
PROC[r: DB.Relation]
RETURNS[fields: DB.FieldSpec, isProperty:
BOOL];
Return the type of relation r, i.e., the field descriptions and whether the relation is a property or not.
TypeToDomain:
PROC[type: DB.TypeCode, segment: DB.Segment]
RETURNS[d: DB.Domain];
Return the domain object corresponding to the given type. It will fail if the type code provided is one of the primitive types — DB.Error[IllegalDomain] will be raised.
END.