DIRECTORYFitStateUtils,FitBasic USING [Handle, SampleHandle, LinkHandle, SListHandle, TrajHandle, Contour];FitStateUtilsImpl: CEDAR PROGRAMEXPORTS FitStateUtils =BEGIN OPEN FitBasic, FitStateUtils;ForAllSamples: PUBLIC PROC [slist: SListHandle, do: SampleProc] = {IF slist#NIL AND (slist.first=NIL OR slist.last=NIL) THENFOR s: SampleHandle _ slist.header.next, s.next WHILE s#slist.header DOIF do[s] THEN EXIT;ENDLOOP;IF slist#NIL AND slist.first#NIL AND slist.last#NIL THENFOR s: SampleHandle _ slist.first, s.next UNTIL s=slist.last.next DOIF s#slist.header THEN IF do[s] THEN EXIT;ENDLOOP;};AtEnd: PUBLIC SIGNAL = CODE;NextSa: PUBLIC PROC [slist: SListHandle, s: SampleHandle, closed: BOOLEAN] RETURNS [SampleHandle] = {ret: SampleHandle _ s.next;IF ret=slist.header THEN ret _ ret.next;IF s=slist.last AND NOT closed THEN SIGNAL AtEnd;RETURN[ret];};PrevSa: PUBLIC PROC [slist: SListHandle, s: SampleHandle, closed: BOOLEAN] RETURNS [SampleHandle] = {ret: SampleHandle _ s.prev;IF ret=slist.header THEN ret _ ret.prev;IF s=slist.first AND NOT closed THEN SIGNAL AtEnd;RETURN[ret];};ForAllLinks: PUBLIC PROC [traj: TrajHandle, do: LinkProc] = {FOR l: LinkHandle _ traj.links, l.next UNTIL l=NIL DOIF do[l] THEN EXIT;ENDLOOP;};ForAllSLists: PUBLIC PROC [handle: Handle, do: SListProc] = {	--all samples in handleIF handle.slist=NIL THEN ForAllOtherSLists[handle,do]ELSE IF ~do[handle.slist] THEN ForAllOtherSLists[handle,do];}; ForAllTrajs: PUBLIC PROC [handle: Handle, do: TrajProc] = {	--all links in handleIF handle.traj=NIL THEN ForAllOtherTrajs[handle,do]ELSE IF ~do[handle.traj] THEN ForAllOtherTrajs[handle,do];}; ForAllOtherSLists: PUBLIC PROC [handle: Handle, do: SListProc] = {IF handle.otherContours#NIL THENFOR ts: LIST OF Contour _ handle.otherContours, ts.rest UNTIL ts=NIL DOIF do[ts.first.slist] THEN EXIT;ENDLOOP;};ForAllOtherTrajs: PUBLIC PROC [handle: Handle, do: TrajProc] = { --all links in handle.otherContoursIF handle.otherContours#NIL THENFOR ts: LIST OF Contour _ handle.otherContours, ts.rest UNTIL ts=NIL DOIF do[ts.first.traj] THEN EXIT;ENDLOOP;};END.   В  FitStateUtilsImpl.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Maureen Stone November 28, 1984 4:55:35 pm PSTDoug Wyatt, September 5, 1985 1:59:41 pm PDTSampleProc: TYPE = PROC[s: SampleHandle] RETURNS [done: BOOLEAN];LinkProc: TYPE =PROC[l: LinkHandle] RETURNS [done: BOOLEAN];SListProc: TYPE =PROC[slist: SListHandle] RETURNS [done: BOOLEAN];TrajProc: TYPE =PROC[traj: TrajHandle] RETURNS [done: BOOLEAN];SLists have a header and samples are circularly linkedIf the sample list is closed these will wrap around.  Otherwise they signal AtEndLinks do not have headersall samples in handle.otherContours Э╩е  Ш codeЪЬЩKЪЬ
╧mЬ1Щ<KЪЬ.Щ.KЩ,ЧKШ Ъ╧k	Ш	KШKЪЬ	ЮЬFШTЧKШ KЪ╨blЬЮЬЮШ KЪЮЬШKЪЮЬЮЬШ#KШ KЪ╧n
ЬЮЬЮЬЮЬЩAKЪаЬЮ
ЬЮЬЮЬЩ<KЪа	ЬЮ
ЬЮЬЮЬЩBKЪаЬЮ
ЬЮЬЮЬЩ?KЩ KЩ6ЪаЬЮЬ)ШCЪЮЬЮЬЮЬЮЬЮЬЮЬЮШ9ЪЮЬ-ЮЬЮШGKЪЮЬЮЬЮЬШKЪЮЬШЧЧЪЮЬЮЬЮЬЮЬЮЬЮЬЮШ8ЪЮЬ'ЮЬЮШDKЪ
ЮЬЮЬЮЬЮЬЮЬШ*KЪЮЬШЧЧKШЧKЩQKЪЬЮЬШЪ
аЬЮЬЮЬ/ЮЬЮЬШeKШKЪЮЬЮЬШ(KЪ
ЮЬЮЬЮЬЮЬЮЬШ1KЪЮЬШKШЧЪ
аЬЮЬЮЬ/ЮЬЮЬШeKШKЪЮЬЮЬШ(KЪ
ЮЬЮЬЮЬЮЬЮЬШ2KЪЮЬШKШЧKЩ KЩЪаЬЮЬ%Ш=ЪЮЬ$ЮЬЮЬЮШ5KЪЮЬЮЬЮЬШKЪЮЬШЧKШKШ ЧЪаЬЮЬ%╧cШUKЪЮЬЮЬЮЬШ5KЪЮЬЮЬШ<KШЧЪаЬЮЬ$бШQKЪЮЬЮЬЮЬШ3KЪЮЬЮЬШ:KШЧЪаЬЮЬ$ШBKЪЬ#Щ#ЪЮЬЮЬЮШ ЪЮЬЮЬЮЬ)ЮЬЮЬЮШGKЪЮЬЮЬЮЬШ KЪЮЬШЧЧKШЧЪаЬЮЬ$б#ШdЪЮЬЮЬЮШ ЪЮЬЮЬЮЬ)ЮЬЮЬЮШGKЪЮЬЮЬЮЬШKЪЮЬШЧЧKШЧKЪЮЬШKШ Ч ЕЧ    `  З  