NewAmpersandProcs.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Sturgis, March 26, 1990 9:56:30 am PST
sturgis: March 14, 1990 4:19 pm PST
Coolidge, July 18, 1990 10:17 am PDT
Laurie Horton, September 18, 1991 3:08 pm PDT
DIRECTORY
CirioNubAccess USING[Handle],
CirioTargets USING[Target],
CirioTypes USING[CompilerContext, Node],
IO USING[STREAM],
LoadStateAccess USING[LoadStateHandle],
NewRMTW USING[CedarModuleSet, RemoteMimosaTargetWorld],
SystemInterface USING[FileSet];
NewAmpersandProcs:
CEDAR
DEFINITIONS =
BEGIN
CC: TYPE = CirioTypes.CompilerContext;
Handle: TYPE = REF HandleBody;
HandleBody:
TYPE =
RECORD[
out: IO.STREAM, -- valid only for short periods during a call to an ampersand routine.
rmtw: NewRMTW.RemoteMimosaTargetWorld,
cedarModules: NewRMTW.CedarModuleSet,
nub: CirioNubAccess.Handle,
target: CirioTargets.Target,
fileSet: SystemInterface.FileSet,
lsh: LoadStateAccess.LoadStateHandle
];
InstallItems: PROC[ampersandContext: CirioTypes.Node, handle: Handle, cc: CC];
GetHandle: SIGNAL RETURNS[Handle];
END..