Text preview for : MakeImageUtilDefs.mesa_Oct77.pdf part of xerox MakeImageUtilDefs.mesa Oct77 xerox mesa 3.0_1977 listing MakeImageUtilDefs.mesa_Oct77.pdf



Back to : MakeImageUtilDefs.mesa_Oc | Home

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: LoadStateGFT, con: ConfigIndex]
RETURNS [ngfi: ControlDefs.GFTIndex];
END.