xerox MakeImageUtilDefs.mesa Oct77 free download

File name MakeImageUtilDefs.mesa_Oct77.pdf

makeimageutildEFS.mESA 24-0CT-77 18:38:25 Page 1 -- MakeImageUtilDefs.Mesa Edited by Sandman on August 6, 1977 10:30 AM DIRECTORY AltoDefs: FROM "altodefs", AltoFileDefs: FROM "altofiledefs", ControlDefs: FROM "controldefs", ImageDefs: FROM "imagedefs", LoadStateDefs: FROM "loadstatedefs", ProcessDefs: FROM "processdefs", SegmentDefs: FROM "segmentdefs", StreamDefs: FROM "streamdefs"; DEFINITIONS FROM ImageDefs; MakeImageUtilDefs: DEFINITIONS SHARES ImageDefs, ProcessDefs BEGIN CFA: TYPE = AltoFileDefs.CFA; DataSegmentHandle: TYPE = SegmentDefs.DataSegmentHandle; FP: TYPE = AltoFileDefs.FP: FileHandle: TYPE = SegmentDefs.FileHandle: FileRequest: TYPE = ImageDefs.FileRequest; FileSegmentHandle: TYPE- = SegmentDefs.FileSegmentHandle: PageCount: TYPE = AltoDefs.PageCount; PageNumber: TYPE = AltoDefs.PageNumber: ProcessRegister: TYPE = ProcessDefs.ProcessRegister: ProcessHandle: TYPE = ProcessDefs.ProcessHandle: ProcessVector: TYPE = ProcessDefs.ProcessVector: shortFileRequest: TYPE = short ImageDefs.FileRequest: vDA: TYPE = AltoFileDefs.vDA; GlobalFrameHandle: TYPE = ControlDefs.GlobalFrameHandle: LoadStateGFT: TYPE = LoadStateDefs.LoadStateGFT: ConfigIndex: TYPE = LoadStateDefs.ConfigIndex: StreamHandle: TYPE = StreamDefs.StreamHandle: ProcDesc: TYPE = ControlDefs.ProcDesc: NullEpBase: CARDINAL = LAST[CARDINAL]: -- file requests InitFileRequest: PROCEDURE; AddFileRequest: PROCEDURE [r: POINTER TO FileRequest]: DropFileRequest: PROCEDURE [f: FileHandle]; ProcessFileRequests: PROCEDURE; -- symbol tables RequestSymbolFiles: PROCEDURE; -- bed file names GetBcdFileNames: PROCEDURE [nbcds: ConfigIndex] RETURNS [names: DESCRIPTOR FOR ARRAY OF STRING]: -- space allocation SpaceHeader: TYPE = RECORD [ link: POINTER TO SpaceHeader, segment: DataSegmentHandle]; InitSpace: PROCEDURE: GetSpace: PROCEDURE en: CARDINAL] RETURNS [p: POINTER]: GeLSlring: PROCfDURE [oldstring: STRING] RETURNS [newstring: STRING]: FreeAllSpace: PRocrDURE: -- image file management gftp: TYPE = POINT[R TO ARRAY [0 .. 1) OF ControlDefs.GFTTtem; LockCodeSegment: PROCfDURE [p: ProcDesc]: UnlockCodeSegment: PROCEDURE [p: ProcDesc]; KDSegment: PROCroURf RETURNS [rileSegmentllandle]; DAol'Page: PROC[DURf [file: filellandle, page: PageNumbel'] RrTURNS [next: vDA]; fillTnCAs: PRocrDURr [ Image: POTNHR TO [magelleader. mapindex: MapTndexType. ea: POTNTrR]; SwapOutUnlockedCode: PROCEDURf [f: GlobalFrameliandle] RrTURNS [BOOt [AN]; SwapOu tUn locked: PROCEDURE [s: f i 1eSegmen tlland 1e] RrTURNS [flOOt rAN] ; makeimageutildEFS.mESA 24-0CT-77 18:38:25 Page 2 BashHint: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN]; BashFile: PROCEDURE [f: FileHandle] RETURNS [BOOLEAN]; PatehUpGFT: PROCEDURE; InitLoadStateGFT: PROCEDURE [initgft: LoadStateGFT, merge: BOOLEAN, nbeds: ConfigIndex]; NumberGFIInConfig: PROCEDURE [initgft: LoadS