FitStateUtils.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Maureen Stone November 28, 1984 4:55:50 pm PST
Doug Wyatt, September 5, 1985 1:57:43 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];
If the sample list is closed these will wrap around. Otherwise they signal AtEnd
AtEnd: SIGNAL;
NextSa: PROC [slist: SListHandle, s: SampleHandle, closed: BOOLEAN] RETURNS [SampleHandle];
PrevSa: PROC [slist: SListHandle, s: SampleHandle, closed: BOOLEAN] RETURNS [SampleHandle];
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.