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;};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Maureen Stone July 2, 1984 2:18:13 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Links do not have headersall samples in handle.otherContoursЭ╩┌  Ш JЪЬЩJЪЬ)Щ)Ъ╧k	Ш	JШJЪЬ	ЭЬFШTJШ ЧJЪЬЭЬЭЬЭЬШ8JЪЭЬЭЬШ#JШ JЪ╧n
ЬЭЬЭЬЭЬЩAJЪЮЬЭ
ЬЭЬЭЬЩ<JЪЮ	ЬЭ
ЬЭЬЭЬЩBJЪЮЬЭ
ЬЭЬЭЬЩ?JЩ JЩ6ЪЮЬЭЬ)ШCЪЭЬЭЬЭЬЭЬЭЬЭЬЭШ9ЪЭЬ-ЭЬЭШGJЪЭЬЭЬЭЬШJЪЭЬШЧЧЪЭЬЭЬЭЬЭЬЭЬЭЬЭШ8ЪЭЬ'ЭЬЭШDJЪ
ЭЬЭЬЭЬЭЬЭЬШ*JЪЭЬШЧЧJШЧJЩ JЩЪЮЬЭЬ%Ш=ЪЭЬ$ЭЬЭЬЭШ5JЪЭЬЭЬЭЬШJЪЭЬШЧJШJШ ЧЪЮЬЭЬ%╧cШUJЪЭЬЭЬЭЬШ5JЪЭЬЭЬШ<JШЧЪЮЬЭЬ$ЯШQJЪЭЬЭЬЭЬШ3JЪЭЬЭЬШ:JШЧЪЮЬЭЬ$ШBJЪЬ#Щ#ЪЭЬЭЬЭШ ЪЭЬЭЬЭЬ)ЭЬЭЬЭШGJЪЭЬЭЬЭЬШ JЪЭЬШЧЧJШЧЪЮЬЭЬ$Я#ШdЪЭЬЭЬЭШ ЪЭЬЭЬЭЬ)ЭЬЭЬЭШGJЪЭЬЭЬЭЬШJЪЭЬШЧЧJШЧJЪЭЬШJШ Ч ЕЧ    f     