RCServerImpl.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Eric Nickell October 19, 1985 3:23:18 pm PDT
DIRECTORY
Commander USING [CommandProc],
CommandTool USING [DoCommand],
ComputeServerServer USING [Register];
RCServerImpl: CEDAR PROGRAM
IMPORTS CommandTool, ComputeServerServer
~
BEGIN
ExecuteRemoteCommand: Commander.CommandProc ~ {
result ← CommandTool.DoCommand[commandLine: cmd.commandLine, parent: cmd];
};
ComputeServerServer.Register[key: "RemoteCommand", proc: ExecuteRemoteCommand];
END.