FileParmsPrivate.mesa
Copyright Ó 1988, 1991 by Xerox Corporation. All rights reserved.
Russ Atkinson (RRA) July 26, 1988 4:10:05 pm PDT
DIRECTORY
FileParms USING [Name, nullName],
MimSysOps USING [MappedFile],
MobDefs USING [NullVersion, VersionStamp];
FileParmsPrivate: CEDAR DEFINITIONS = BEGIN
These definitions hold the concrete representation for the abstract types in FileParms.
Types
SymbolSpace: TYPE = REF SymbolSpaceRep;
SymbolSpaceRep: TYPE = RECORD [
file: MimSysOps.MappedFile,
file containing the symbols
start: INT,
offset in AUs from start of MimSysOps.MapBase[file] of the symbols
length: INT
length in AUs of the symbols
];
FileRecord: TYPE = RECORD [
version: MobDefs.VersionStamp ¬ MobDefs.NullVersion,
space: SymbolSpace ¬ NIL,
name: FileParms.Name ¬ FileParms.nullName,
formal: FileParms.Name ¬ FileParms.nullName,
type: FileParms.Name ¬ FileParms.nullName];
END.