DIRECTORYAlpineEnvironment;LeaderPageFormat: DEFINITIONS =BEGINAccessList: TYPE = AlpineEnvironment.AccessList;ByteCount: TYPE = AlpineEnvironment.ByteCount;FileVersion: TYPE = AlpineEnvironment.FileVersion;PageCount: TYPE = AlpineEnvironment.PageCount;Property: TYPE = AlpineEnvironment.Property;NSTime: TYPE = LONG CARDINAL;  -- convention from BasicTime interfacePickledProperty: TYPE = MACHINE DEPENDENT {nil (0), byteLength (1), createTime (2), highWaterMark (3), modifyAccess (4), owner (5), readAccess(6), stringName (7), version (8)};propertyPickleMap: PACKED ARRAY Property OF PickledProperty = [byteLength: byteLength, createTime: createTime, highWaterMark: highWaterMark, modifyAccess: modifyAccess, owner: owner, readAccess: readAccess, stringName: stringName, version: version];LeaderPageRecord: TYPE = MACHINE DEPENDENT RECORD [seal (0): CARDINAL,dataStart (1): LeaderPageOffset,dataEnd (2): LeaderPageOffset,spare (3): ARRAY [3..offsetData) OF UNSPECIFIED,data (offsetData): ARRAY [offsetData..AlpineEnvironment.wordsPerPage) OF UNSPECIFIED];LeaderPageOffset: TYPE = CARDINAL;offsetData: LeaderPageOffset = 10;sealLeaderPageRecord: CARDINAL = 43875;PropertyRep: TYPE = MACHINE DEPENDENT RECORD [size (0: 0..7): [0..AlpineEnvironment.wordsPerPage),property (0: 8..15): PickledProperty,value (1): SELECT COMPUTED PickledProperty FROMbyteLength => [byteLength (1): ByteCount],createTime => [createTime (1): NSTime],highWaterMark => [highWaterMark (1): PageCount],modifyAccess => [modifyAccess (1): AccessListRep],owner => [owner (1): StringRep],readAccess => [readAccess (1): AccessListRep],stringName => [stringName (1): StringRep],version => [version (1): FileVersion],ENDCASE];AccessListRep: TYPE = MACHINE DEPENDENT RECORD [count: CARDINAL,principals: --ARRAY [0..count) OF-- StringRep];StringRep: TYPE = MACHINE DEPENDENT RECORD [length: CARDINAL,text: PACKED ARRAY [0..0) OF CHARACTER];LeaderPageHandle: TYPE = REF LeaderPageObject;LeaderPageObject: PUBLIC TYPE = RECORD [nPages: CARDINAL,record: LeaderPageRecord,moreData: SEQUENCE COMPUTED CARDINAL OF ARRAY[0..AlpineEnvironment.wordsPerPage) OF UNSPECIFIED];END.  ä  LeaderPageFormat.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Last edited by:Taft on April 9, 1983 2:28 pmMBrown on January 30, 1984 5:24:28 pm PSTHauser, March 8, 1985 10:36:59 am PSTThis is like AlpineEnvironment.Property except that its representation is guaranteed not to change and type is absent.A leader page is simply an unordered sequence of properties (PropertyRep)LeaderPageObjects are internal representations more easily passed around than the raw pages.Hauser February 12, 1985: changed LeaderPageOffset to encompass all of CARDINAL instead of stopping at AlpineEnvironment.wordsPerPage; to allow for multiple leader pages.Hauser, March 8, 1985 10:36:59 am PSTAdded copyright., DIRECTORYÊÛ  –"cedar" style˜ šœ™Icodešœ
Ïmœ1™<—šœ™Jšœ™Jšœ)™)K™%—unitšÏk	˜	Kšœ˜—šœžœ˜Kšž˜K˜ Kšœžœ ˜0Kšœžœ˜.Kšœžœ!˜2Kšœžœ˜.Kšœ
žœ˜,KšœžœžœžœÏc&˜EJ˜ Jšœv™vLšœžœžœž	œ‡˜°šœžœžœ
žœÎ˜ùJ˜ —JšœI™Iš	œžœžœž	œžœ˜3Kšœ
žœ˜K˜ K˜Kšœžœžœžœ˜0Kšœžœ.žœž˜TKšœ˜—˜ K˜ —Kšœžœžœ˜"K˜"Kšœžœ	˜'š	œžœžœž	œžœ˜.K˜4K˜%šœžœžœž˜/K˜*K˜'K˜0K˜2K˜ K˜.K˜*K˜&Kšžœ˜	——š	œžœžœž	œžœ˜0Kšœžœ˜KšœŸÐckŸ Ÿœ˜/—š	œžœžœž	œžœ˜,Kšœžœ˜Kš	œžœžœžœž	œ˜(K˜ —Kšœ\™\Kšœžœžœ˜.šœžœžœžœ˜(Kšœžœ˜Kšœ˜Kšœ
žœžœ$žœž˜_Kšœ˜——˜ K˜ Lšžœ˜Lšœª™ªJ˜ J˜ —™%KšœÏr™—K™ K™ — …—      O  