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 Σ 1985, 1992 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 Κ£•NewlineDelimiter –(cedarcode) style™codešœ™Kšœ Οeœ6™BKšœ.™.K™,—K˜šΟk ˜ Kšœ žœ=˜K—K˜KšΠbl œžœ˜"Kšžœžœ ˜K˜Kš Οn œž œžœžœžœ˜IKš  œž œžœžœžœ˜DKš   œž œžœžœžœ˜JKš  œž œžœžœžœ˜GK˜K™QKšœžœ˜Kš œžœ/žœžœ˜[Kš œžœ/žœžœ˜[K˜Kš  œžœ&˜9Kš  œžœ"˜3K˜Kš  œžœ"Οc˜KKš  œžœ!‘˜GKš œžœ#‘%˜_Kš œžœ"‘#˜[Kšžœ˜—…—@ο