DIRECTORY Basics, CedarProcess, FS, FSBackdoor, IO, MakeDo, PrincOpsUtils, Process, RedBlackTree, Rope, UserProfile, ViewerClasses, ViewerIO;MakeDoFiles: CEDAR PROGRAMIMPORTS CedarProcess, FS, FSBackdoor, MakeDo, Rope, UserProfileEXPORTS MakeDo=BEGIN OPEN MakeDo;fileClass: PUBLIC NodeClass _ DeclareNodeClass[name: "file",CanonizeName: CannonizeFileName,GetTime: GetFileTime];CannonizeFileName: PROC [random: ROPE] RETURNS [canonical: ROPE] = {full: ROPE;cp: FS.ComponentPositions;[full, cp] _ FS.ExpandName[random];canonical _ full.Substr[len: cp.ext.start + cp.ext.length];};GetFileTime: PUBLIC PROC [n: Node] RETURNS [created: Time] --GetTimeProc-- =BEGINname: ROPE = n.PublicPartsOfNode[].name;[created: created] _ FS.FileInfo[name !FS.Error =>{created _ notExistTime; CONTINUE}];END;fsWatchEnabled: BOOL _ TRUE;logFSWatch: BOOL _ FALSE;firstLocal: REF READONLY FSBackdoor.CreateEvent _ NIL;firstRemote: REF READONLY FSBackdoor.RemoteEvent _ NIL;WatchFSLocal: PROC [REF ANY] RETURNS [REF ANY _ NIL] = {ce: REF READONLY FSBackdoor.CreateEvent _ NIL;WHILE fsWatchEnabled DOce _ FSBackdoor.NextCreateEvent[ce];IF logFSWatch AND firstLocal=NIL THEN firstLocal _ ce;{ENABLE ABORTED => CONTINUE;n: Node _ GetNode[ce.fName, fileClass, FALSE];IF n # NIL THEN {SuspectNodeChange[n];};};ENDLOOP;ce _ ce;};WatchFSRemote: PROC [REF ANY] RETURNS [REF ANY _ NIL] = {re: REF READONLY FSBackdoor.RemoteEvent _ NIL;WHILE fsWatchEnabled DOre _ FSBackdoor.NextRemoteEvent[re];IF logFSWatch AND firstRemote=NIL THEN firstRemote _ re;{ENABLE ABORTED => CONTINUE;n: Node _ GetNode[re.fName, fileClass, FALSE];IF n # NIL THEN {SuspectNodeChange[n];};};ENDLOOP;re _ re;};localWatcher, remoteWatcher: CedarProcess.Process;NoteProfile: PROC [reason: UserProfile.ProfileChangeReason] --UserProfile.ProfileChangedProc-- = {logFSWatch _ UserProfile.Boolean["MakeDo.LogFSWatch", FALSE];};Start: PROC = {UserProfile.CallWhenProfileChanges[NoteProfile];localWatcher _ CedarProcess.Fork[action: WatchFSLocal, options: [inheritProperties: TRUE]];remoteWatcher _ CedarProcess.Fork[action: WatchFSRemote, options: [inheritProperties: TRUE]];};Start[];END.    ¨  MakeDoFiles.MesaLast Edited by: Spreitzer, February 18, 1986 2:55:19 pm PSTFileViewerOps.WaitUntilSaved[fileName: n.name, feedBack: GetCommanderHandle[].err]; ‌تk  –"cedar" styleک code™J™;—Kک Kڑدk	œ‌œ‌œ[کچKک ڑذbxœ‌œ‌کKڑ‌œ‌œ'ک?Kڑ‌œکKڑœک—Kک Kڑ‌œ‌œکKک ڑœ‌œک/KکKڑœ ک KکKک—Kک ڑ
دnœ‌œ
‌œ‌œ‌œکDKڑœ‌œکKڑœ‌œکKڑœ‌œک#Kک;Kک—Kک ڑ
ںœ‌œ‌œ‌œدcœکLKڑ‌کKڑœ‌œک(KڑœS™Sڑœ‌œ‌œ	ک2Kڑœ‌œک$—Kڑ‌œک—Kک Kڑœ‌œ‌œکKڑœ‌œ‌œکKڑœ‌œ‌œ‌œک6Kڑœ‌œ‌œ‌œک7Kک ڑںœ‌œ‌œ‌œ‌œ‌œ‌œ‌œک8Kڑœ‌œ‌œ‌œک.ڑ‌œ‌کKک$Kڑ‌œ‌œ‌œ‌œک6Kڑœ‌œ‌œ‌œکKڑœ'‌œک.ڑ‌œ‌œ‌œکKڑœکKڑœک—KکKڑ‌œک—KکKک—Kک ڑںœ‌œ‌œ‌œ‌œ‌œ‌œ‌œک9Kڑœ‌œ‌œ‌œک.ڑ‌œ‌کKڑœ$ک$Kڑ‌œ‌œ‌œ‌œک8Kڑœ‌œ‌œ‌œکKڑœ'‌œک.ڑ‌œ‌œ‌œکKڑœکKڑœک—KکKڑ‌œک—KڑœکKک—Kک Kڑœ2ک2Kک ڑںœ‌œ* #œکbKڑœ6‌œک=Kک—Kک ڑںœ‌œکKڑœ0ک0KڑœT‌œک[KڑœV‌œک]Kک—Kک KکKک Kڑ‌œک— …—    ‍  ±  