DIRECTORY BasicTime, DFOperations, DFUtilities, FS, IO, List, ProcessProps, Rope, TEditOpsExtras, UserProfile, ViewerClasses;DFDWIM: CEDAR PROGRAMIMPORTS DFUtilities, FS, IO, Rope, TEditOpsExtras, UserProfile =BEGINROPE: TYPE = Rope.ROPE;Viewer: TYPE = ViewerClasses.Viewer;inPlace, tryBringover: BOOLEAN _ FALSE;OldFNP: PROC [ROPE, Viewer] RETURNS [fileName: ROPE, search: ROPE] _ NIL;log: IO.STREAM _ NIL;Debug: PROC = {log _ IO.ROS[]};DontDebug: PROC = {log _ NIL};GetLog: PROC RETURNS [r: ROPE] = {r _ log.RopeFromROS[]};sourceFileExtensions: LIST OF ROPE _ NIL;DFDWIMit: PROC [orgName: ROPE, viewer: Viewer] RETURNS [fileName: ROPE, search: ROPE] =BEGINIF viewer # NIL THENBEGINIF tryBringover AND IsADFFileName[viewer.file] THENBEGINfound: BOOL;full: ROPE;[found, full] _ Find[viewer.file, orgName];IF found THEN RETURN [full, NIL];END;END;IF OldFNP # NIL THEN [fileName, search] _ OldFNP[orgName, viewer]ELSE {fileName _ search _ NIL};END;Find: PROC [dfFileName, searchName: ROPE] RETURNS [found: BOOL, full: ROPE] =BEGINPerItem: DFUtilities.ProcessItemProc --PROC [item: REF ANY] RETURNS [stop: BOOL _ FALSE]-- =BEGINTry: PROC [dir, short: ROPE, ifFound: PROC] = {cp: FS.ComponentPositions;expanded, test: ROPE;[expanded, cp, ] _ FS.ExpandName[full _ dir.Concat[short], NIL];IF versionedTHEN test _ Rope.Concat["!", expanded.Substr[start: cp.ver.start, len: cp.ver.length]]ELSE test _ NIL;IF extended THEN test _ Rope.Cat[".", expanded.Substr[start: cp.ext.start, len: cp.ext.length], test];test _ expanded.Substr[start: cp.base.start, len: cp.base.length].Concat[test];IF test.Equal[s2: searchName, case: FALSE] THEN {IF (NOT extended) AND (cp.ext.length # 0) THEN {ext: ROPE _ expanded.Substr[start: cp.ext.start, len: cp.ext.length];IF Member[ext, sourceFileExtensions] THEN ifFound[];}ELSE ifFound[];};};This: PROC = {found _ TRUE};found _ FALSE;WITH item SELECT FROMdi: REF DFUtilities.DirectoryItem => dir _ di.path1;fi: REF DFUtilities.FileItem => Try[dir, fi.name, This];ii: REF DFUtilities.ImportsItem => {Try[NIL, ii.path1, This];IF ii.list # NILTHEN FOR i: NAT IN [0 .. ii.list.nEntries) WHILE NOT found DOSub: PROC = {[found, full] _ Find[ii.path1, ii.list[i].name]};Try["[]<>", ii.list[i].name, Sub];ENDLOOP;};ii: REF DFUtilities.IncludeItem => NULL;c: REF DFUtilities.CommentItem => NULL;w: REF DFUtilities.WhiteSpaceItem => NULL;ENDCASE => ERROR;stop _ found;END;cp: FS.ComponentPositions;ok, extended, versioned: BOOL _ TRUE;from: IO.STREAM _ NIL;dir: ROPE _ NIL;[, cp, ] _ FS.ExpandName[searchName !FS.Error => {ok _ FALSE; CONTINUE}];IF NOT ok THEN RETURN [FALSE, NIL];extended _ cp.ext.length # 0;versioned _ cp.ver.length # 0;from _ FS.StreamOpen[dfFileName !FS.Error => CONTINUE];IF from = NIL THEN RETURN [FALSE, NIL];DFUtilities.ParseFromStream[in: from, proc: PerItem];from.Close[];END;Member: PROC [r: ROPE, in: LIST OF ROPE] RETURNS [m: BOOL] = {FOR in _ in, in.rest WHILE in # NIL DOIF in.first.Equal[r, FALSE] THEN RETURN [TRUE];ENDLOOP;m _ FALSE};IsADFFileName: PROC [name: ROPE] RETURNS [isa: BOOLEAN] ={isa _ name.Find[s2: ".DF!", case: FALSE] >= 0};NoticeProfileChanges: UserProfile.ProfileChangedProc =BEGINtryBringover _ UserProfile.Boolean["DFDWIM.TryBringover", TRUE];sourceFileExtensions _ UserProfile.ListOfTokens["SourceFileExtensions", NIL];IF tryBringover AND NOT inPlace THENBEGINinPlace _ TRUE;OldFNP _ TEditOpsExtras.ReplaceFileNameProc[DFDWIMit];END;END;UserProfile.CallWhenProfileChanges[NoticeProfileChanges];END.  D  DFDWIM.Mesa, from [Indigo]<Cedar>Top>DFDWIM.DFLast Edited by: Spreitzer, June 24, 1984 11:09:02 am PDTDFDWIMit: PROC [orgName: ROPE, viewer: Viewer] RETURNS [fileName: ROPE, search: ROPE] =BEGINTry: PROC [name: ROPE] RETURNS [found: BOOLEAN _ FALSE] ={IF Exists[name]THEN {found _ TRUE; fileName _ name; search _ NIL}ELSE IF Exists[name _ name.Concat[".Mesa"]]THEN {found _ TRUE; fileName _ name; search _ NIL}};TryBringover: PROC =BEGIN[] _ DFOperations.BringOver[dfFile: viewer.file, filter: [list: LIST [orgName]], interact: DumbyInteract, log: log];END;directory, wdir: ROPE _ NIL;IF viewer # NIL THENBEGINdirectory _ TEditOpsExtras.WorkingDirectoryFromViewer[viewer];IF tryBringover AND IsADFFileName[viewer.file] THENBEGINcp: FS.ComponentPositions _ [[0, 1], [0, 1], [0, 1], [0, 1], [0, 1], [0, 1]];cp _ FS.ExpandName[directory.Cat["Foo.Mesa"] !FS.Error => CONTINUE].cp;wdir _ IF (directory.Length[] # 0) AND (cp.server.length = 0 --local--) AND (cp.dir.length = 0 --current volume--) THEN directory ELSE "[]<>";ProcessProps.AddPropList[propList: List.PutAssoc[key: $WorkingDirectory, val: wdir, aList: NIL],inner: TryBringover];IF Try[wdir.Concat[orgName]] THEN RETURN;END;END;IF OldFNP # NIL THEN [fileName, search] _ OldFNP[orgName, viewer]ELSE {fileName _ orgName; search _ NIL};END;DumbyInteract: DFOperations.InteractionProc--PROC [interaction: REF ANY, clientData: REF ANY] RETURNS [abort: BOOL _ FALSE, abortMessageForLog: ROPE _ NIL, response: REF ANY _ NIL]-- =BEGIN --It says I should be able to default the interact, but that doesn't work, but Russ says this does-- END;Exists: PROC [fileName: ROPE] RETURNS [exists: BOOLEAN] =BEGINexists _ TRUE;[] _ FS.FileInfo[name: fileName ! FS.Error => {exists _ FALSE; CONTINUE}];exists _ exists;	--wouldn't it be nice if we could really break on exit?END; Э╩╩  Ц"cedar" styleШ JЪЬ.Щ.JЩ8JШ IcodeЪ╧k	Ь'ЭЬЭЬGШ}KШ Ъ╤bkxЬЭЬЭШKЪЭЬЭЬЭЬ%Ш@ЧKШ KЪЭШKШ KЪЭЬЭЬЭЬШKЪЬЭЬШ$KШ KЪЬЭЬЭЬШ'KШ KЪ╧nЬЭЬЭЬ
ЭЬЭЬ
ЭЬЭЬШIKШ KЪЬЭЬЭЬЭЬШKШ KЪЯЬЭЬ
ЭЬЭЬШKШ KЪЯ	ЬЭЬ
ЭЬШKШ KЪЯЬЭЬЭЬЭЬШ9KШ KЪ	ЬЭЬЭЬЭЬЭЬШ)KШ ЪЯЬЭЬЭЬЭЬЭЬ
ЭЬШWKЪЭШЪЭЬ
ЭЬЭШKЪЭШЪЭЬЭЬЭШ3KЪЭШKЪЬЭЬШKЪЬЭЬШKШ+KЪЭЬЭЬЭЬЭЬШ!KЪЭЬШЧKЪЭЬШЧKЪЭЬ
ЭЬЭЬ-ШAKЪЭЬЭЬШKЪЭЬШЧKШ ЪЯЬЭЬЭЬЭЬ	ЭЬЭЬШMKЪЭШЪЯЬ╧c5ЬШ\KЪЭШЪЯЬЭЬЭЬЭЬШ/KЪЬЭЬШKЪЬЭЬШKЪЬЭЬ&ЭЬШ@ЪЭЬ
ШKЪЭЬRШVKЪЭЬЭЬШЧKЪЭЬ
ЭЬVШfKЪЬOШOЪЭЬ"ЭЬЭЬШ1ЪЭЬЭЬЭЬЭЬШ0KЪЬЭЬ<ШEKЪЭЬ#ЭЬШ4KШЧKЪЭЬШKШЧKШЧKЪЯЬЭЬЭЬШKЪЬЭЬШЪЭЬЭЬЭШKЪЬЭЬ-Ш4KЪЬЭЬ1Ш8ЪЬЭЬШ$KЪЬЭЬШЪЭЬЭШЪЭЬЭЬЭЬЭЬЭЬЭЬЭШ=KЪЯЬЭЬ5Ш>KЪЬ"Ш"KЪЭЬШЧЧKШЧKЪЬЭЬЭЬШ(KЪЬЭЬЭЬШ'KЪЬЭЬЭЬШ*KЪЭЬЭЬШЧKШKЪЭЬШЧKЪЬЭЬШKЪЬЭЬЭЬШ%KЪЬЭЬЭЬЭЬШKЪЬЭЬЭЬШKЪ	ЬЭЬЭЬЭЬЭЬШIKЪЭЬЭЬЭЬЭЬЭЬЭЬШ#KЪЬШKЪЬШKЪЬЭЬЭЬ
ЭЬШ7KЪЭЬЭЬЭЬЭЬЭЬЭЬШ'KШ5KШKЪЭЬШЧKШ ЪЯЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШ>ЪЭЬЭЬЭЬЭШ&KЪ
ЭЬЭЬЭЬЭЬЭЬШ/KЪЭЬШЧKЪЬЭЬШЧKШ ЪЯЬЭЬЭЬЭЬЭЬ
ЭЬЩWKЪЭЩЪЯЬЭЬЭЬЭЬ	ЭЬЭЬЩ9ЪЬЭЬЩKЪЭЬ
ЭЬЭЬЩ2ЧЪЭЬЭЬ$Щ+KЪЭЬ
ЭЬЭЬЩ4ЧЧЪЯЬЭЬЩKЪЭЩKЪЬ@ЭЬ0ЩtKЪЭЬЩЧKЪЬЭЬЭЬЩЪЭЬ
ЭЬЭЩKЪЭЩKЪЬ>Щ>ЪЭЬЭЬЭЩ3KЪЭЩKЪЬЭЬGЩMKЪЬЭЬ'ЭЬ
ЭЬЩGKЪЬЭЬЭЬа	ЬЭЬаЬЭЬЭЬЩОЪЬЩKЪЬBЭЬЩGKЩЧKЪЭЬЭЬЭЬЩ)KЪЭЬЩЧKЪЭЬЩЧKЪЭЬ
ЭЬЭЬ-ЩAKЪЭЬЭЬЩ(KЪЭЬЩЧKШ ЪЯЬаЛЬЩ╕KЪЭЬаdЬЭЬЩoЧKШ Ъ
ЯЬЭЬЭЬЭЬЭЬШ9KЪЬ#ЭЬШ0ЧKШ Ъ
ЯЬЭЬЭЬЭЬ
ЭЬЩ9KЪЭЩKЪЬ	ЭЬЩKЪ	ЬЭЬЭЬЭЬЭЬЩJKЪЬа7ЩHKЪЭЬЩЧKШ ЪЯЬ"Ш6KЪЭШKЪЬ:ЭЬШ@KЪЬHЭЬШMЪЭЬЭЬЭЬ	ЭШ$KЪЭШKЪЬ
ЭЬШKЪЬ6Ш6KЪЭЬШЧKЪЭЬШЧKШ KЪЬ9Ш9KШ KЪЭЬШЧ ЕЧ        