xerox Includes.mesa Sep78 free download

File name Includes.mesa_Sep78.pdf

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