FinchSmartsRegisterImpl.mesa
Copyright
© 1984, 1985 by Xerox Corporation. All rights reserved.
Last Edited by: Swinehart, July 18, 1985 4:18:45 pm PDT
DIRECTORY FinchSmarts;
FinchSmartsRegisterImpl:
CEDAR
PROGRAM EXPORTS FinchSmarts = {
Declarations
procs: FinchSmarts.Procs ←
NIL;
Implementation
Register:
PUBLIC
PROC [finchSmartsProcs: FinchSmarts.Procs] = {
procs ← finchSmartsProcs;
};
GetProcs:
PUBLIC
PROC
RETURNS [FinchSmarts.Procs] = {
RETURN[procs];
};
CurrentFinchState:
PUBLIC
PROC
RETURNS [finchState: FinchSmarts.FinchState] = {
RETURN[
IF procs=
NIL
THEN unknown
ELSE
IF procs.finchIsRunning[]
THEN running
ELSE stopped];
};
}.
Swinehart, May 22, 1985 1:08:51 pm PDT
Changes to GetParty.
changes to:
JayConnection
Swinehart, July 18, 1985 3:36:49 pm PDT
Created
, DIRECTORY