<> <> <> DIRECTORY FinchSmarts; FinchSmartsRegisterImpl: CEDAR PROGRAM EXPORTS FinchSmarts = { <> procs: FinchSmarts.Procs _ NIL; <> <<>> 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]; }; <<>> }. <> <> <> <> <> <<>> <<>>