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]; 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. FitStateUtils.mesa Copyright c 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 If the sample list is closed these will wrap around. Otherwise they signal AtEnd Κk˜codešœ™Kšœ Οmœ1™