FitStateUtils.mesa
Maureen Stone June 25, 1984 4:34:06 pm PDT
DIRECTORY
FitBasic USING [Handle, SampleHandle, LinkHandle, SListHandle, TrajHandle];
FitStateUtils: CEDAR DEFINITIONS =
BEGIN OPEN FitBasic;
SampleProc: TYPE = PROC[s: SampleHandle] RETURNS [done: BOOLEAN ← FALSE];
LinkProc: TYPE =PROC[l: LinkHandle] RETURNS [done: BOOLEAN ← FALSE];
SListProc: TYPE =PROC[slist: SListHandle] RETURNS [done: BOOLEAN ← FALSE];
TrajProc: TYPE =PROC[traj: TrajHandle] RETURNS [done: BOOLEAN ← FALSE];
ForAllSamples: PROC [slist: SListHandle, do: SampleProc];
ForAllLinks: PROC [traj: TrajHandle, do: LinkProc];
ForAllSLists: PROC [handle: Handle, do: SListProc]; --all samples in handle
ForAllTrajs: PROC [handle: Handle, do: TrajProc]; --all links in handle
ForAllOtherSLists: PROC [handle: Handle, do: SListProc]; --all samples in handle.otherContours
ForAllOtherTrajs: PROC [handle: Handle, do: TrajProc]; --all links in handle.otherContours
END.