IncrementalLoadImpl.mesa
Copyright Ó 1989, 1991 by Xerox Corporation. All rights reserved.
Peter B. Kessler, April 18, 1990 3:28 pm PDT
This is an interface to the implementation of IncrementalLoad.h
Michael Plass, November 26, 1991 5:08 pm PST
DIRECTORY
IncrementalLoader;
IncrementalLoadImpl:
CEDAR
PROGRAM
EXPORTS IncrementalLoader
~ { OPEN IncrementalLoad: IncrementalLoader;
XRLockIncrementalLoadState:
PUBLIC
PROCEDURE [wait: IncrementalLoad.bool]
RETURNS [IncrementalLoad.XRILError] ~ {
XRLockIncrementalLoadStateMachineCode:
PROCEDURE [wait: IncrementalLoad.bool]
RETURNS [IncrementalLoad.XRILError] ~
TRUSTED
MACHINE
CODE {
"XR←LockIncrementalLoadState"
};
RETURN [XRLockIncrementalLoadStateMachineCode[wait: wait]];
};
XRUnlockIncrementalLoadState:
PUBLIC
PROCEDURE []
RETURNS [IncrementalLoad.XRILError] ~ {
XRUnlockIncrementalLoadStateMachineCode:
PROCEDURE []
RETURNS [IncrementalLoad.XRILError] ~
TRUSTED
MACHINE
CODE {
"XR←UnlockIncrementalLoadState"
};
RETURN [XRUnlockIncrementalLoadStateMachineCode[]];
};
XRILGetPrevFileEntry:
PUBLIC
PROCEDURE [ilfe: IncrementalLoad.XRILFileEntry]
RETURNS [IncrementalLoad.XRILFileEntry] ~ {
XRILGetPrevFileEntryMachineCode:
PROCEDURE [ilfe: IncrementalLoad.XRILFileEntry]
RETURNS [IncrementalLoad.XRILFileEntry] ~
TRUSTED
MACHINE
CODE {
"XR←ILGetPrevFileEntry"
};
RETURN [XRILGetPrevFileEntryMachineCode[ilfe: ilfe]];
};
XRILLookupSymEntry:
PUBLIC
PROCEDURE [
sym: IncrementalLoad.charStar, externOnly: IncrementalLoad.bool]
RETURNS [IncrementalLoad.XRILSymEntry] ~ {
XRILLookupSymEntryMachineCode:
PROCEDURE [
sym: IncrementalLoad.charStar, externOnly: IncrementalLoad.bool]
RETURNS [IncrementalLoad.XRILSymEntry] ~
TRUSTED
MACHINE
CODE {
"XR←ILLookupSymEntry"
};
RETURN [XRILLookupSymEntryMachineCode[sym: sym, externOnly: externOnly]];
};
XRILLookupSymEntryByValue:
PUBLIC
PROCEDURE [val: IncrementalLoad.unsigned]
RETURNS [IncrementalLoad.XRILSymEntry] ~ {
XRILLookupSymEntryByValueMachineCode:
PROCEDURE [val: IncrementalLoad.unsigned]
RETURNS [IncrementalLoad.XRILSymEntry] ~
TRUSTED
MACHINE
CODE {
"XR←ILLookupSymEntryByValue"
};
RETURN [XRILLookupSymEntryByValueMachineCode[val: val]];
};
XRILGetPrevSymEntry:
PUBLIC
PROCEDURE [
ilse: IncrementalLoad.XRILSymEntry, externOnly: IncrementalLoad.bool]
RETURNS [IncrementalLoad.XRILSymEntry] ~ {
XRILGetPrevSymEntryMachineCode:
PUBLIC
PROCEDURE [
ilse: IncrementalLoad.XRILSymEntry, externOnly: IncrementalLoad.bool]
RETURNS [IncrementalLoad.XRILSymEntry] ~
TRUSTED
MACHINE
CODE {
"XR←ILGetPrevSymEntry"
};
RETURN [XRILGetPrevSymEntryMachineCode[ilse: ilse, externOnly: externOnly]];
};
XRILGetPrevSymEntryByValue:
PUBLIC
PROCEDURE [ilse: IncrementalLoad.XRILSymEntry]
RETURNS [IncrementalLoad.XRILSymEntry] ~ {
XRILGetPrevSymEntryByValueMachineCode:
PROCEDURE [
ilse: IncrementalLoad.XRILSymEntry]
RETURNS [IncrementalLoad.XRILSymEntry] ~
TRUSTED
MACHINE
CODE {
"XR←ILGetPrevSymEntryByValue"
};
RETURN [XRILGetPrevSymEntryByValueMachineCode[ilse: ilse]];
};
XRILGetNextSymEntryByValue:
PUBLIC
PROCEDURE [ilse: IncrementalLoad.XRILSymEntry]
RETURNS [IncrementalLoad.XRILSymEntry] ~ {
XRILGetNextSymEntryByValueMachineCode:
PROCEDURE [
ilse: IncrementalLoad.XRILSymEntry]
RETURNS [IncrementalLoad.XRILSymEntry] ~
TRUSTED
MACHINE
CODE {
"XR←ILGetNextSymEntryByValue"
};
RETURN [XRILGetNextSymEntryByValueMachineCode[ilse: ilse]];
};
}.