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 Maureen Stone November 28, 1984 4:55:50 pm PST If the sample list is closed these will wrap around. Otherwise they signal AtEnd ÊO˜Jšœ™Jšœ.™.šÏk ˜ Jšœ œ=˜KJ˜—Jšœœ˜"Jšœœ ˜J˜JšÏn œ œœœ˜IJšžœ œœœ˜DJšž œ œœœ˜JJšžœ œœœ˜GJ˜J™QJšœœ˜Jšžœœ/œœ˜[Jšžœœ/œœ˜[J˜Jšž œœ&˜9Jšž œœ"˜3J˜Jšž œœ"Ïc˜KJšž œœ!Ÿ˜GJšžœœ#Ÿ%˜_Jšžœœ"Ÿ#˜[Jšœ˜—…—@)