DIRECTORYFeedback, FileNames, FS, GGBasicTypes, GGContainer, GGEvent, GGFileIn, GGFileOps, GGFont, GGInterfaceTypes, GGUserInput, GGModelTypes, GGScene, GGSegmentTypes, GGWindow, GList, Imager, IO, Match, MatchGrep, MatchTurtle, MatchViewer, Rope, SlackProcess, ViewerClasses, ViewerOps;MatchGrepImpl: CEDAR PROGRAMIMPORTS Feedback, FileNames, FS, GGEvent, GGFileIn, GGFileOps, GList, GGScene, GGWindow, IO, Match, MatchViewer, Rope, ViewerOpsEXPORTS MatchGrep = BEGINGGData: TYPE = GGInterfaceTypes.GGData;Point: TYPE = GGBasicTypes.Point;Scene: TYPE = GGModelTypes.Scene;fileList: LIST OF Rope.ROPE _ NIL;Grep: PUBLIC GGUserInput.UserInputProc = {FillFileList: FS.NameProc = { fileList _ CONS[fullFName, fileList]; RETURN[TRUE];};grepData: GGData _ MatchViewer.GetGrepData[];pattern: Rope.ROPE _ NARROW[event.rest.first];IF pattern = NIL OR pattern = "" THEN MatchViewer.ErrorFeedback["Must select a filename pattern"]ELSE {fileList _ NIL;IF Rope.Index[pattern, 0, "!"] >= Rope.Length[pattern] THEN pattern _ Rope.Concat[pattern, "!H"]; -- if they don't specify a version, only enumerate the lastFS.EnumerateForNames[pattern, FillFileList ! FS.Error => {mesg: Rope.ROPE _ IO.PutFR["Invalid filename pattern: %g", IO.rope[pattern]];MatchViewer.ErrorFeedback[mesg];GOTO Abort;};];IF fileList = NIL THEN MatchViewer.ErrorFeedback["No files match the pattern."]ELSE {fileList _ NARROW[GList.DReverse[fileList]]; -- back in order of enumerationFOR files: LIST OF Rope.ROPE _ fileList, files.rest UNTIL files = NIL DOfileList _ files.rest;IF GrepFile[files.first, TRUE] THEN {SpawnViewer[grepData, files.first];RETURN;};ENDLOOP;MatchViewer.ErrorFeedback["No matches."];};};EXITSAbort => Feedback.Blink[MatchViewer.GetToData[].feedback];};GrepListOnly: PUBLIC GGUserInput.UserInputProc = {FillFileList: FS.NameProc = { fileList _ CONS[fullFName, fileList]; RETURN[TRUE];};matchData: MatchViewer.MatchData _ MatchViewer.GetMatchData[];grepData: GGData _ MatchViewer.GetGrepData[];pattern: Rope.ROPE _ NARROW[event.rest.first];IF pattern = NIL OR pattern = "" THEN MatchViewer.ErrorFeedback["Must select a filename pattern"]ELSE {fileList _ NIL;IF Rope.Index[pattern, 0, "!"] >= Rope.Length[pattern] THEN pattern _ Rope.Concat[pattern, "!H"]; -- if they don't specify a version, only enumerate the lastFS.EnumerateForNames[pattern, FillFileList ! FS.Error => {mesg: Rope.ROPE _ IO.PutFR["Invalid filename pattern: %g", IO.rope[pattern]];MatchViewer.ErrorFeedback[mesg];GOTO Abort;};];IF fileList = NIL THEN MatchViewer.ErrorFeedback["No files match the pattern."]ELSE {fileList _ NARROW[GList.DReverse[fileList]]; -- back in order of enumerationFOR files: LIST OF Rope.ROPE _ fileList, files.rest UNTIL files = NIL DOIF GrepFile[files.first, TRUE] THEN IO.PutF[matchData.commander.out, "\n%g matched.", IO.rope[files.first]];ENDLOOP;MatchViewer.ErrorFeedback["No matches."];};};EXITSAbort => Feedback.Blink[MatchViewer.GetToData[].feedback];};GrepFile: PROC [fullFName: Rope.ROPE, verbose: BOOL _ TRUE] RETURNS [found: BOOL] = {grepData: GGData _ MatchViewer.GetGrepData[];fullName: Rope.ROPE;success, versionSpecified: BOOL;[fullName, success, versionSpecified] _ GGFileOps.GetGargoyleFileName[fullFName, NIL, grepData.feedback, FALSE];IF NOT success THEN {mesg: Rope.ROPE _ IO.PutFR["Couldn't load %g.\n", IO.rope[fullName]];IF verbose THEN MatchViewer.ErrorFeedback[mesg];RETURN[FALSE];}ELSE {matchData: MatchViewer.MatchData _ MatchViewer.GetMatchData[];f: FS.STREAM;IF verbose THEN Feedback.PutFHerald[grepData.feedback, oneLiner, "Loading %g.", IO.rope[fullName]];f _ FS.StreamOpen[fullName, $read ! FS.Error, IO.Error => {msgRope: Rope.ROPE _ IO.PutFR["Could not find: %g", [rope[fullName]]];Feedback.Append[grepData.feedback, msgRope, oneLiner];GOTO Abort;};];grepData.scene _ GGScene.CreateScene[]; -- give GGData a new clean slate/scene[] _ GGFileIn.FileinSceneOnly[f, grepData.scene];f.Close[];IF verbose THEN Feedback.PutFHerald[grepData.feedback, oneLiner, "Searching %g.", IO.rope[fullName]];matchData.theirData _ NIL; -- force a reset of search listssuccess _ Match.Search[grepData, LIST[$MatchSearch, $SearchFromTop], FALSE];IF success THEN {IF verbose THEN MatchViewer.ErrorFeedback["It matched!!!"];RETURN [TRUE];};RETURN[FALSE];};EXITSAbort => {Feedback.Blink[MatchViewer.GetToData[].feedback];RETURN[FALSE];};};NextFile: PUBLIC GGUserInput.UserInputProc = {grepData: GGData _ MatchViewer.GetGrepData[];IF fileList = NIL THEN MatchViewer.ErrorFeedback["No more file matches."]ELSE {FOR files: LIST OF Rope.ROPE _ fileList, files.rest UNTIL files = NIL DOfileList _ files.rest;IF GrepFile[files.first, TRUE] THEN {SpawnViewer[grepData, files.first];RETURN;};ENDLOOP;MatchViewer.ErrorFeedback["No more file matches."];};};lastSpawned: GGData _ NIL;SpawnViewer: PROC [ggData: GGData, fileName: Rope.ROPE] = {f: FS.STREAM _ FS.StreamOpen[fileName, $read ! FS.Error, IO.Error => {msgRope: Rope.ROPE _ IO.PutFR["Could not find: %g", [rope[fileName]]];Feedback.Append[ggData.feedback, msgRope, oneLiner];GOTO Abort;};];IF lastSpawned = NIL OR lastSpawned.outer.newVersion THEN { -- we create a gargoyle viewerlastSpawned _ GGWindow.CreateWindow[ggData.scene, TRUE, FALSE, fileName];[] _ GGFileIn.FileinSceneAndOptions[f, lastSpawned, $OptionsOnly];GGWindow.RestoreScreenAndInvariants[paintAction: $PaintEntireScene, ggData: lastSpawned, remake: triggerBag, backgndOK: FALSE, edited: FALSE, okToClearFeedback: FALSE];ViewerOps.OpenIcon[lastSpawned.outer];MatchViewer.CenterSel[NIL, lastSpawned]; -- this may not happen, since OpenIcon is async.}ELSE { -- we use the old unedited viewerlastSpawned.scene _ ggData.scene;[] _ GGFileIn.FileinSceneAndOptions[f, lastSpawned, $OptionsOnly];MatchViewer.CenterSel[NIL, lastSpawned];GGWindow.RestoreScreenAndInvariants[paintAction: $PaintEntireScene, ggData: lastSpawned, remake: triggerBag, backgndOK: FALSE, edited: FALSE, okToClearFeedback: FALSE];};lastSpawned.outer.file _ FileNames.StripVersionNumber[fileName];lastSpawned.outer.label _ FileNames.GetShortName[path: fileName];lastSpawned.outer.name _ fileName;GGEvent.ChangeIcon[lastSpawned, $clean]; -- will also repaint the labelEXITSAbort => ERROR; -- we've already opened fileName prior to this, so something's screwy};END.  °  MatchGrep.mesaLast edited by: David Kurlander -  September 6, 1987 5:18:03 pm PDTBitVector: TYPE = GGBasicTypes.BitVector;BoundBox: TYPE = GGModelTypes.BoundBox;Caret: TYPE = REF CaretObj;CaretObj: TYPE = GGInterfaceTypes.CaretObj;ChoiceData: TYPE = MatchViewer.ChoiceData;FontData: TYPE = GGFont.FontData;GGDataObj: TYPE = GGInterfaceTypes.GGDataObj;ItemMatch: TYPE = Match.ItemMatch;LooksInfo: TYPE = Match.LooksInfo;MatchData: TYPE = MatchViewer.MatchData;MatchDescriptor: TYPE = Match.MatchDescriptor;SearchInfo: TYPE = Match.SearchInfo;SearchState: TYPE = Match.SearchState;Segment: TYPE = GGSegmentTypes.Segment;SegmentGenerator: TYPE = GGModelTypes.SegmentGenerator;Sequence: TYPE = GGModelTypes.Sequence;SequenceOfReal: TYPE = GGModelTypes.SequenceOfReal;Slice: TYPE = GGModelTypes.Slice;SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor;SliceDescriptorGenerator: TYPE = GGModelTypes.SliceDescriptorGenerator;SliceDescriptorObj: TYPE = GGModelTypes.SliceDescriptorObj;SliceGenerator: TYPE = GGModelTypes.SliceGenerator;SliceParts: TYPE = REF ANY;Traj: TYPE = GGModelTypes.Traj;TrajGenerator: TYPE = GGModelTypes.TrajGenerator;TurtleHeader: TYPE = MatchTurtle.TurtleHeader;TurtleInfo: TYPE = MatchTurtle.TurtleInfo;The interactive grep (compared to GrepListOnly).  Invokes a gargoyle viewer on the matched scene file.Greps for graphical matches, only printing out their names in the invoker commander when there's a hit.Returns true if there is a match between the MatchTool From viewer and the gargoyle scene file described by fullFName.Now do searchCreates a gargoyle viewer, stuffs the scene from ggData into that Gargoyle viewer, and loads the various scene state info (from fileName)Now change the viewer file, label, and nameЭ╩╛  Ш JЩJЪЬCЩCIcodeШ Ъ╧k	Ш	KЪЬЭЬвЭЬ[ШЦKШ Ъ╧nЬЭЬЭШKЪЭЬЭЬ:ЭЬ%ШАKЪЭЬЭШЧKШ KЪЬЭЬЩ)KЪЬ
ЭЬЩ'KЪЬЭЬЭЬ
ЩKЪЬ
ЭЬЩ+KЪЬЭЬЩ*KЪЬ
ЭЬЩ!KЪЬЭЬЩ-KЪЬЭЬШ'KЪЬЭЬЩ"KЪЬЭЬЩ"KЪЬЭЬЩ(KЪЬЭЬЩ.KЪЬЭЬШ!KЪЬЭЬЩ$KЪЬЭЬЩ&KЪЬ	ЭЬЩ'KЪЬЭЬ!Щ7KЪЬ
ЭЬЩ'KЪЬЭЬЩ3KЪЬЭЬШ!KЪЬЭЬЩ!KЪЬЭЬ Щ5KЪЬЭЬ)ЩGKЪЬЭЬ#Щ;KЪЬЭЬЩ3KЪЬЭЬЭЬЭЬЩKЪЬЭЬЩKЪЬЭЬЩ1KЪЬЭЬЩ.KЪЬЭЬЩ*ЧJЩ JЪ	Ь
ЭЬЭЬЭЬЭЬШ"JШ ЪЮЬЭЬШ*JЩfJЪ
ЮЬЭЬЭЬЭЬЭЬШSJШ-JЪЬЭЬЭЬШ.JЪЭЬЭЬЭЬЭЬ<ШaЪЭЬШJЪЬЭЬШJЪЭЬ5ЭЬ'╧c;ШЭЪЭЬ+ЭЬШ:JЪЬЭЬЭЬ'ЭЬШMJЪЬ Ш JЪЭЬШJЪЬШЧJЪЭЬЭЬЭЬ9ШOЪЭЬШJЪЬЭЬЯШLЪЭЬЭЬЭЬЭЬЭЬ	ЭЬЭШHJШЪЭЬЭЬЭЬШ%JЪЬ#Ш#JЪЭЬШJШЧJЪЭЬШJШ)ЧJШЧJШЧЪЭШJШ:ЧJШJШ ЧЪЮЬЭЬШ2JЩgJЪ
ЮЬЭЬЭЬЭЬЭЬШSJЪЬ>Ш>JШ-JЪЬЭЬЭЬШ.JЪЭЬЭЬЭЬЭЬ<ШaЪЭЬШJЪЬЭЬШJЪЭЬ5ЭЬ'Я;ШЭЪЭЬ+ЭЬШ:JЪЬЭЬЭЬ'ЭЬШMJЪЬ Ш JЪЭЬШJЪЬШЧJЪЭЬЭЬЭЬ9ШOЪЭЬШJЪЬЭЬЯШLЪЭЬЭЬЭЬЭЬЭЬ	ЭЬЭШHJЪ
ЭЬЭЬЭЬЭЬ0ЭЬШlJЪЭЬШЧJШ)JШЧJШЧЪЭШJШ:ЧJШJШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬ	ЭЬШUJЩvJШ-JЪЬЭЬШJЪЬЭЬШ JЪЬQЭЬЭЬШpЪЭЬЭЬ	ЭЬШJЪЬЭЬЭЬЭЬШEJЪЭЬ	ЭЬ!Ш0JЪЭЬЭЬШJШЧЪЭЬШJЪЬ>Ш>JЪЬЭЬЭЬШJЪЭЬ	ЭЬAЭЬШcЪЬЭЬЭЬЭЬШ;KЪЬЭЬЭЬ/ШFKЪЬ6Ш6KЪЭЬШKЪЬШЧJЪЬ(Я&ШNJШ1JШ
JЪЭЬ	ЭЬCЭЬШeJЩJЪЬЭЬЯ Ш;JЪЬ!ЭЬ ЭЬШLЪЭЬ	ЭЬШJЪЭЬ	ЭЬ,Ш;JЪЭЬЭЬШJШЧJЪЭЬЭЬШJШЧЪЭШШ
JШ1JЪЭЬЭЬШJШЧЧJШJШ ЧЪЮЬЭЬШ.JШ-JЪЭЬЭЬЭЬ3ШIЪЭЬШЪЭЬЭЬЭЬЭЬЭЬ	ЭЬЭШHJЪЬШЪЭЬЭЬЭЬШ%JЪЬ#Ш#JЪЭЬШJШЧJЪЭЬШЧJЪЬ3Ш3JЪЬШЧJШЧJШ JЪЬЭЬШЪЮЬЭЬ!ЭЬШ;JЩЙЪЬЭЬЭЬЭЬЭЬЭЬШFKЪЬЭЬЭЬ/ШFKЪЬ4Ш4KЪЭЬШKЪЬШЧЪ	ЭЬЭЬЭЬЭЬЯШZJЪЬ2ЭЬЭЬШIJШBKЪЬxЭЬ
ЭЬЭЬШиJШ&JЪЬЭЬЯ0ШYJШЧЪЭЬЯ!Ш(JШ!JШBJЪЬЭЬШ(KЪЬxЭЬ
ЭЬЭЬШиJШЧJЩ+JШ@JЪЬAШAKЪЬ"Ш"JЪЬ)ЯШGЪЭШJЪЬ	ЭЬЯEШUЧJШJЩ ЧJЪЭЬШЧ ЕЧ    ь  'в  