CasabaPlatform.Mesa
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) October 19, 1988 4:55:50 pm PDT
DIRECTORY
BasicTime USING [ GMT ],
Commander USING [ CommandObject, CommandProcObject ],
IO USING [ STREAM ],
Rope USING [ ROPE ];
CasabaPlatform: CEDAR DEFINITIONS ~ {
Commander
Handle: TYPE ~ REF CommandObject;
CommandObject: TYPE ~ Commander.CommandObject;
CommandProcHandle: TYPE ~ REF CommandProcObject;
CommandProcObject: TYPE ~ Commander.CommandProcObject;
CommandProc: TYPE ~ PROC [ cmd: Handle ]
RETURNS [ result: REFNIL, msg: Rope.ROPENIL ];
Register: PROC [ key: Rope.ROPE, proc: CommandProc ← NIL, doc: Rope.ROPENIL,
clientData: REFNIL, interpreted: BOOLTRUE ];
GetArgument: PROC [ cmd: Handle, index: NAT ] RETURNS [ arg: Rope.ROPENIL ];
FS
AccessOptions: TYPE = { read, create, append, write };
Error: ERROR [ code: ATOM, explanation: Rope.ROPE ];
StreamOpen: PROC [ fileName: Rope.ROPE, accessOptions: AccessOptions ← $read ]
RETURNS [ s: IO.STREAMNIL ];
Version Utilities
BuildTime: PROC [ p: PROC ANY RETURNS ANY ] RETURNS [ date: BasicTime.GMT ];
Version: TYPE ~ RECORD [ major: CARD16, minor: CARD16, patch: CARD16 ← 0 ];
ToolVersion: PROC [ name: Rope.ROPE, version: Version, p: PROC ANY RETURNS ANY ]
RETURNS [ v: Rope.ROPENIL ];
UserName: PROC RETURNS [ user: Rope.ROPENIL ];
}.