DIRECTORYBasicTime USING [GMT, nullGMT],File USING [Error, FP, GetProperties, Handle, PropertyStorage, RC, WriteProperties],FSBackdoor USING [ProduceError, Version],FSFileOps,FSReport USING [FileError],GVBasics USING [MakeKey, Password],PrincOps USING [ByteBltBlock],PrincOpsUtils USING [ByteBlt],Rope USING [Length, NewText, ROPE, Text];FSPropertiesImpl: CEDAR MONITORIMPORTS File, FSBackdoor, FSReport, GVBasics, PrincOpsUtils, RopeEXPORTS FSFileOps= BEGINPropertiesObject: TYPE = RECORD [validation: GVBasics.Password, bytes: INT,keep: CARDINAL,created: BasicTime.GMT,version: FSBackdoor.Version,nameBody: TextRep];TextRep: TYPE = RECORD[length: CARDINAL, chars: PACKED ARRAY [0 .. 0) OF CHARACTER];Properties: TYPE = LONG POINTER TO PropertiesObject;GetProps: PUBLIC PROC [f: File.Handle] RETURNS [bytes: INT, keep: CARDINAL, created: BasicTime.GMT] =BEGINInnerGet: ENTRY PROC = TRUSTEDBEGIN ENABLE UNWIND => NULL;pPtr: Properties = LOOPHOLE[File.GetProperties[f], Properties];IF pPtr.validation = validationTHEN BEGINbytes _ pPtr.bytes;keep _ pPtr.keep;created _ pPtr.created;ENDELSE invalidPP _ TRUE; -- invalid property pageEND;fileRC: File.RC _ ok;invalidPP: BOOLEAN _ FALSE;InnerGet[ ! File.Error => {fileRC _ why; CONTINUE} ];IF invalidPP THEN InvalidPropertyPage[];IF fileRC # ok THEN FSReport.FileError[fileRC];END;GetNameBodyAndVersion: PUBLIC PROC [f: File.Handle] RETURNS [nameBody: Rope.Text, version: FSBackdoor.Version] =BEGINInnerGetNameBodyAndVersion: ENTRY PROC = TRUSTEDBEGIN ENABLE UNWIND => NULL;pPtr: Properties = LOOPHOLE[File.GetProperties[f], Properties];IF pPtr.validation = validationTHEN BEGINnameBody _ GetText[@pPtr.nameBody];version _ pPtr.version;ENDELSE invalidPP _ TRUE; -- invalid property pageEND;fileRC: File.RC _ ok;invalidPP: BOOLEAN _ FALSE;InnerGetNameBodyAndVersion[! File.Error => {fileRC _ why; CONTINUE} ];IF invalidPP THEN InvalidPropertyPage[];IF fileRC # ok THEN FSReport.FileError[fileRC];END;InitializePropertyStorage: PUBLIC PROC [fp: File.FP, propStorage: File.PropertyStorage] = TRUSTED{ LOOPHOLE[propStorage, Properties].validation _ validation };SetProps: PUBLIC PROC [f: File.Handle, bytes: INT, keep: CARDINAL, created: BasicTime.GMT, nameBody: Rope.Text, version: FSBackdoor.Version] =BEGINInnerSet: ENTRY PROC  = TRUSTEDBEGIN ENABLE UNWIND => NULL;pPtr: Properties = LOOPHOLE[File.GetProperties[f], Properties];IF pPtr.validation = validationTHEN BEGINIF bytes # -1 THEN pPtr.bytes _ bytes;pPtr.keep _ keep;IF created # BasicTime.nullGMT THEN pPtr.created _ created;pPtr.version _ version;PutText[nameBody, @(pPtr.nameBody)];File.WriteProperties[f];ENDELSE invalidPP _ TRUE; -- invalid property page here is a bugEND;fileRC: File.RC _ ok;invalidPP: BOOLEAN _ FALSE;InnerSet[ ! File.Error => {fileRC _ why; CONTINUE} ];IF invalidPP THEN ERROR;IF fileRC # ok THEN FSReport.FileError[fileRC];END;SetBytesAndCreated: PUBLIC PROC [f: File.Handle, bytes: INT, created: BasicTime.GMT] =BEGINInnerSetBytesAndCreated: ENTRY PROC = TRUSTEDBEGIN ENABLE UNWIND => NULL;pPtr: Properties = LOOPHOLE[File.GetProperties[f], Properties];IF pPtr.validation = validationTHEN BEGINIF bytes # -1 THEN pPtr.bytes _ bytes;IF created # BasicTime.nullGMT THEN pPtr.created _ created;File.WriteProperties[f];ENDELSE invalidPP _ TRUE; -- invalid property pageEND;fileRC: File.RC _ ok;invalidPP: BOOLEAN _ FALSE;InnerSetBytesAndCreated[ ! File.Error => {fileRC _ why; CONTINUE} ];IF invalidPP THEN InvalidPropertyPage[];IF fileRC # ok THEN FSReport.FileError[fileRC];END;SetKeep: PUBLIC PROC [f: File.Handle, keep: CARDINAL] =BEGINInnerSetKeep: ENTRY PROC = TRUSTEDBEGIN ENABLE UNWIND => NULL;pPtr: Properties = LOOPHOLE[File.GetProperties[f], Properties];IF pPtr.validation = validationTHEN BEGINpPtr.keep _ keep;File.WriteProperties[f];ENDELSE invalidPP _ TRUE; -- invalid property pageEND;fileRC: File.RC _ ok;invalidPP: BOOLEAN _ FALSE;InnerSetKeep[ ! File.Error => {fileRC _ why; CONTINUE} ];IF invalidPP THEN InvalidPropertyPage[];IF fileRC # ok THEN FSReport.FileError[fileRC];END;InvalidPropertyPage: PROC  ={ FSBackdoor.ProduceError[invalidPropertyPage, "The property page of a file on the local volume has an unrecognizable property page format."] }; GetText: PROC [tR: LONG POINTER TO TextRep] RETURNS [t: Rope.Text] = TRUSTEDBEGINIF tR.length = 0THEN t _ NILELSE BEGIN t _ Rope.NewText[tR.length];LOOPHOLE[t, LONG POINTER TO CARDINAL]^ _ tR.length; -- sets t.length[] _ PrincOpsUtils.ByteBlt[to: [BASE[DESCRIPTOR[t]], 0, tR.length],from: [@tR.chars, 0, tR.length]];END;END;PutText: PROC [t: Rope.Text, tR: LONG POINTER TO TextRep] = TRUSTEDBEGINtR.length _ Rope.Length[t];[] _ PrincOpsUtils.ByteBlt[to: [@tR.chars, 0, tR.length],from: [BASE[DESCRIPTOR[t]], 0, tR.length]];END;validation: GVBasics.Password _ ALL[0];ComputeValidation: PROC =BEGINstamp: Rope.ROPE = "August 19, 1983 1:16 pm"; -- DON'T CHANGE THIS!!! --validation _ GVBasics.MakeKey[stamp];END;ComputeValidation[];END.      FSPropertiesImpl.mesaLast Edited by: Schroeder, November 15, 1983 1:36 pmLast Edited by: Levin, September 22, 1983 1:04 pmExported to FSFileOpsInternal proceduresValidation stuff for leader pages; changing the stamp will require all nucleus volumes to be erased. Start code. ‌تڑ  –"Cedar" styleک Icode2™K™4K™1code1ڑدk	ک	Lڑœ
‌œ‌œکLڑœ‌œ	‌œ*‌œکTLڑœ‌œک)Lڑœ
ک
Lڑœ	‌œکLڑœ	‌œک#Lڑœ	‌œکLڑœ‌œکLڑœ‌œ‌œک)—ڑœ‌œ‌کLڑ‌œ:کALڑ‌œ
کLڑœ‌کڑœ‌œ‌œک!KڑœکKڑœ‌œکKڑœ‌œکKڑœ‌œکKڑœکKڑœک—ڑœ	‌œ‌œ	‌œ	‌œ‌œ
‌œ‌	œکTKک —Kڑ	œ‌œ‌œ‌œ‌œک4—™ڑدnœ‌œ‌œ‌œ	‌œ‌œ‌œکeKڑ‌کڑ‍œ‌œ‌œ‌کKڑ‌œ‌œ‌œ‌œکKڑœ‌œ$ک?Kڑ‌œکڑ‌œ‌ک
KڑœکKڑœکKڑœکKڑ‌ک—Kڑ‌œ‌œدcک/Kڑ‌œک—Kڑœ‌œکKڑœ‌œ‌œکKڑœ)‌œک5Kڑ‌œ‌œک(Kڑ‌œ‌œک/Kڑ‌œک—ڑ‍œ‌œ‌œ‌œ5کpKڑ‌کڑ‍œ‌œ‌œ‌ک0Kڑ‌œ‌œ‌œ‌œکKڑœ‌œ$ک?Kڑ‌œکڑ‌œ‌ک
Kڑœ#ک#KڑœکKڑ‌ک—Kڑ‌œ‌œںک/Kڑ‌œک—Kڑœ‌œکKڑœ‌œ‌œکڑœکKڑœ‌œک+—Kڑ‌œ‌œک(Kڑ‌œ‌œک/Kڑ‌œک—ڑ	‍œ‌œ‌œ‌œ'‌کaKڑœ‌œ4ک>—ڑ‍œ‌œ‌œ‌œ‌œ‌œ5کژKڑ‌کڑ‍œ‌œ‌œ‌کKڑ‌œ‌œ‌œ‌œکKڑœ‌œ$ک?Kڑ‌œکڑ‌œ‌ک
Kڑ‌œ‌œک&KڑœکKڑ‌œ‌œک;KڑœکKڑœ$ک$KکKڑ‌ک—Kڑ‌œ‌œں&ک=Kڑ‌œک—Kڑœ‌œکKڑœ‌œ‌œکKڑœ)‌œک5Kڑ‌œ‌œ‌œکKڑ‌œ‌œک/Kڑ‌œک—ڑ
‍œ‌œ‌œ‌œ‌œکVKڑ‌کڑ‍œ‌œ‌œ‌ک-Kڑ‌œ‌œ‌œ‌œکKڑœ‌œ$ک?Kڑ‌œکڑ‌œ‌ک
Kڑ‌œ‌œک&Kڑ‌œ‌œک;KڑœکKڑ‌ک—Kڑ‌œ‌œںک/Kڑ‌œک—Kڑœ‌œکKڑœ‌œ‌œکKڑœ8‌œکDKڑ‌œ‌œک(Kڑ‌œ‌œک/Kڑ‌œک—ڑ‍œ‌œ‌œ‌œک7Kڑ‌کڑ‍œ‌œ‌œ‌ک"Kڑ‌œ‌œ‌œ‌œکKڑœ‌œ$ک?Kڑ‌œکڑ‌œ‌ک
KڑœکKڑœکKڑ‌ک—Kڑ‌œ‌œںک/Kڑ‌œک—Kڑœ‌œکKڑœ‌œ‌œکKڑœ-‌œک9Kڑ‌œ‌œک(Kڑ‌œ‌œک/Kڑ‌œک——™ڑœ‌œکKڑœ‘ک‘—ڑ‍œ‌œ‌œ‌œ‌œ
‌œ‌کLKڑ‌کKڑ‌œکKڑ‌œ‌کڑ‌œ‌œکKڑœکKڑ‌œ‌œ‌œ‌œ‌œںکDڑœکKڑœ‌œ‌
œک(KڑœکKڑœک—Kڑ‌œک—Kڑ‌œک—ڑ‍œ‌œ‌œ‌œ‌œ‌کCKڑ‌کKکڑœکKڑœکKڑœ‌œ‌
œک)Kڑœک—Kڑ‌œک——™eKڑœ ‌œک'ڑ‍œ‌œکKڑ‌کKڑœ‌œںکHKڑœ%ک%Kڑ‌œک——™Kڑœک—Kڑ‌œک— …—    ـ  –  