IncrementalLoadImpl.mesa
Copyright Ó 1989 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
DIRECTORY
IncrementalLoad;
IncrementalLoadImpl: CEDAR PROGRAM
EXPORTS IncrementalLoad
~ {
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]];
};
}.