Includes.mesa_Sep78.pdf part of xerox Includes.mesa Sep78 Includes.mesa_Sep78.pdf, xerox mesa 4.0_1978 listing Mesa_4_Utilities Includes.mesa

Text preview for : Includes.mesa_Sep78.pdf part of xerox Includes.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_Utilities Includes.mesa_Sep78.pdf

Back to : Includes.mesa_Sep78.pdf | Home

Includes.mesa 2-Sep-78 14:40:55 Page 1

-- Includes.Mesa Edited by Sandman on August 3, 1978 11:54 AM
DIRECTORY
AltoDefs: FROM "altodefs",
AltoFileDefs: FROM "altofiledefs",
BcdDefs: FROM "bcddefs",
ControlDefs: FROM "controldefs",
DirectoryDefs: FROM "directorydefs",
ImageDefs: FROM "imagedefs",
IODefs: FROM "iodefs",
MiscDefs: FROM "miscdefs",
Mopcodes: FROM "mopcodes",
OutputDefs: FROM "outputdefs",
SymDefs: FROM "SymDefs" ,
SegmentDefs: FROM "segmentdefs",
StringDefs: FROM "stringdefs",
StreamDefs: FROM "streamdefs",
SymbolTableDefs: FROM "SymbolTableDefs",
SystemDefs: FROM "SystemDefs",
TimeDefs: FROM "timedefs";
DEFINITIONS FROM AltoDefs, AltoFileDefs, SegmentDefs, OutputDefs;
Includes: PROGRAM
IMPORTS DirectoryDefs, IODefs, MiseDefs, OutputDefs, SegmentDefs,
StringDefs, SymbolTableDefs, SystemDefs, TimeDefs, StreamDefs .. PUBLIC
BEGIN
NullTime: TimeDefs.PackedTime .. [0,0];
NullStamp: BcdDefs.VersionStamp .. [FALSE, 0, 0, [0,0]];
SP: CHARACTER .. ' ;
FF: CHARACTER" 14C;
FileEntry: TYPE .. RECORD [
1 ink: FEPtr,
name: STRING,
includes: POINTER TO IncludeItem,
ineludedBy: POINTER TO IneludeItem,
stamp: BcdDefs.VersionStamp,
mark: BOOLEAN,
busy: BOOLEAN,
bad: BOOLEAN];
FEPtr: TYPE = POINTER TO FileEntry;
fileList: POINTER TO FileEntry ~ NIL;
IncludeItem: TYPE .. RECORD [
link: POINTER TO IneludeItem,
ineludedFile: FEPtr,
stamp: BedDefs.VersionStamp];
Timeless: PROCEDURE [a,b: TimeDefs.PackedTime] RETURNS [BOOLEAN] ..
BEGIN
RETURN[IF a.highbits