DIRECTORY CardHashTableThreaded, IO, Rope, LichenDataStructure, LichenComparisonOps, TiogaOps, ViewerClasses, ViewerForkers, ViewerIO;LichenComparisonLog: CEDAR PROGRAMIMPORTS CardHashTableThreaded, IO, Rope, LichenDataStructure, TiogaOps, ViewerForkers, ViewerIOEXPORTS LichenComparisonOps=BEGIN OPEN LichenDataStructure, LichenComparisonOps;log: IO.STREAM _ NIL;viewer: ViewerClasses.Viewer _ NIL;EnsureLog: PROC = {IF log = NIL OR viewer = NIL OR viewer.destroyed THEN {log _ ViewerIO.CreateViewerStreams["Structural Comparison Debug Log"].out;viewer _ ViewerIO.GetViewerFromStream[log];IF viewer = NIL THEN ERROR;TiogaOps.SetNodeStyle["Ascii", TiogaOps.ViewerDoc[viewer]];viewer.newVersion _ FALSE;ViewerForkers.ForkPaint[viewer: viewer, hint: caption, tryShortCuts: TRUE];};};Log: PUBLIC PROC [format: ROPE, v1, v2, v3, v4, v5: IO.Value _ [null[]]] = {EnsureLog[];log.PutF[format, v1, v2, v3, v4, v5]};FlushLog: PUBLIC PROC = {EnsureLog[]; log.Flush[]};WriteAll: PUBLIC PROC [when: ROPE, descriptions: RealGraphDescriptions, a, b: CellType, oldColorData, curColorData: ColorTable] =BEGINLog["\n%g\n", IO.rope[when]];WriteColorTable[curColorData, descriptions];WriteParts[descriptions[A], a];WriteParts[descriptions[B], b];Log["\nDone %g\n", IO.rope[when]];END;WriteColorTable: PUBLIC PROC [colorTable: ColorTable, descriptions: RealGraphDescriptions] =BEGINWriteColor: PROC [key: CARD, value: REF ANY] RETURNS [quit: BOOL _ FALSE] --CardHashTableThreaded.EachPairAction-- = {color: Color = key;ccd: ColorData = NARROW[value];Log["%08x %4g %4g", IO.card[color], IO.card[ccd.count[A]], IO.card[ccd.count[B]]];Log[" %5g", IO.bool[ccd.suspect]];FOR g: RealGraphID IN RealGraphID DOfirst: BOOL _ TRUE;FOR v: Vertex _ ccd.firstVertex, v.colorNext WHILE v # NIL DOIF v.graph=g THEN {Log[" "];IF first THEN {Log["%g: {", [rope[descriptions[g]]]]; first _ FALSE};Log[VerboseVName[v]];};ENDLOOP;IF NOT first THEN Log["}"];ENDLOOP;Log["\n"];};Log["\nColorTable:\n"];Log["Color, number of %g vertices, num %g, suspect, vertex list\n", [rope[descriptions[A]]], [rope[descriptions[B]]]];[] _ colorTable.Pairs[WriteColor];Log["\n"];END;WriteParts: PROC [description: ROPE, ct: CellType] =BEGINWriteVertex: PROC [v: Vertex] = {Log["%08x  %08x  %5g  %5g   %12g", IO.card[v.oldColor], IO.card[v.curColor], IO.bool[v.unique], IO.bool[v.suspect], IO.rope[VerboseVName[v]]];IF v.equiv # NIL THEN Log["\t%g\n", IO.rope[VerboseVName[v.equiv]]] ELSE Log["\n"];};Log["\n%g vertices:\n", IO.rope[description]];Log["OldColor  CurColor  Unique Suspect Name\t\tPartner\n"];EnumerateParts[ct, WriteVertex, TRUE];END;VerboseVName: PUBLIC PROC [v: Vertex] RETURNS [name: ROPE] = {name _ Describe[v, v.containingCT];IF name.Length[]=0 THEN name _ IO.PutFR["%bB^", [cardinal[LOOPHOLE[v]]]];};END.   ˆ  LichenComparisonLog.MesaBertrand Serlet June 4, 1986 4:16:24 pm PDTLast tweaked by Mike Spreitzer on May 4, 1987 2:43:52 pm PDT‌ت1  –"cedar" styleک codeڑœ™K™+K™<—Kک Kڑدk	œ‌œcک†Kک ڑذbxœ‌œ‌ک"Kڑ‌œ‌œ>ک_Kڑ‌œکKڑœک—Kک Kڑ‌œ‌œ*ک4Kک Kڑœ‌œ‌œ‌œکKڑœ‌œک#Kک ڑدn	œ‌œکڑ‌œ‌œ‌œ
‌œ‌œ‌œک7KڑœJکJKڑœ+ک+Kڑ‌œ
‌œ‌œ‌œکKڑœ;ک;Kڑœ‌œکK•StartOfExpansion{[viewer: ViewerClasses.Viewer, hint: ViewerClasses.PaintHint, clearClient: BOOL _ TRUE, whatChanged: REF ANY _ NIL]ڑœE‌œکKKک—Kک—Kک ڑ
ںœ‌œ‌œ
‌œ‌œکLKڑœکKڑœ&ک&—Kک Kڑںœ‌œ‌œک3Kک ڑںœ‌œ‌œ‌œ`کپKڑ‌کKڑœ‌œکKڑœ,ک,KڑœکKڑœکKڑœ‌œک"Kڑ‌œک—Kک ڑںœ‌œ‌œ@ک\Kڑ‌کڑں
œ‌œ‌œ	‌œ‌œ‌œ‌œ‌œدc(œکvKکKڑœ‌œکKڑœ‌œ‌œ‌œکRKڑœ‌œک"ڑ‌œ‌œ‌ک$Kڑœ‌œ‌œکڑ‌œ*‌œ‌œ‌ک=ڑ‌œ‌œکKڑœ	ک	Kڑ‌œ‌œ1‌œکEKڑœکKک—Kڑ‌œک—Kڑ‌œ‌œ‌œ
کKڑ‌œک—Kک
Kک—KکKڑœvکvKڑœ"ک"Kک
Kڑ‌œک—Kک ڑں
œ‌œ‌œک4Kڑ‌کڑںœ‌œک!Kڑœ#‌œ‌œ‌œ‌œ‌œکژKڑ
‌œ‌œ‌œ‌œ‌œکSKڑœک—Kڑœ‌œک.Kک<Kڑœ ‌œک&Kڑ‌œک—Kک ڑ
ںœ‌œ‌œ‌œ‌œک>Kک#Kڑ‌œ‌œ‌œ‌œکIKک—Kک Kڑ‌œک— …—    "  غ  