CDGenerateRemoteImpl.mesa (part of ChipNDale)
Copyright © 1985 by Xerox Corporation. All rights reserved.
by Christian Jacobi, June 5, 1985 8:02:35 pm PDT
Last Edited by Christian Jacobi, August 29, 1985 4:28:47 pm PDT
DIRECTORY
CD,
CDGenerate,
CDGenerateRemote,
CDRemote,
Rope;
CDGenerateRemoteImpl:
CEDAR
PROGRAM
IMPORTS CDRemote
EXPORTS CDGenerateRemote
SHARES CDRemote =
BEGIN
GetRemoteTable:
PUBLIC
PROC [designName: Rope.
ROPE]
RETURNS [CDGenerate.Table] = {
RETURN [CDRemote.GetTable[designName]];
};
RemoteName:
PUBLIC
PROC [table: CDGenerate.Table]
RETURNS [Rope.
ROPE] = {
RETURN [CDRemote.DesignName[table]];
};
CacheRemoteDesign:
PUBLIC
PROC [for:
CD.Design, remote:
CD.Design] = {
CDRemote.CacheDesign[for, remote];
};
FetchRemoteDesign:
PUBLIC
PROC [for:
CD.Design, name: Rope.
ROPE]
RETURNS [remote:
CD.Design] = {
RETURN [CDRemote.FetchDesign[for, name]];
};
END.