DIRECTORY
Basics USING [ShortNumber, LongNumber],
BasicTime USING [FromNSTime, GMT, OutOfRange],
CrRPC USING [GetCard16, GetCard32],
IO USING [STREAM],
FilingAttributesP10V5 USING [Attribute, AttributeSequence, AttributeSequenceObject, AttributeValue, AttributeValueObject, InterpretedAttributeType],
RefText USING [InlineAppendChar, ObtainScratch, ReleaseScratch],
Rope USING [FromRefText, ROPE],
XNSFilingOps USING [Info],
XNSFilingPrivate USING [ ];

XNSFilingBDTImpl: CEDAR MONITOR
IMPORTS BasicTime, CrRPC, RefText, Rope
EXPORTS XNSFilingPrivate ~ {
OPEN FilingAttributesP10V5;
ROPE: TYPE ~ Rope.ROPE;

FileID: TYPE ~ ARRAY [0..5) OF CARDINAL;
FileType: TYPE ~ RECORD [CARD32];
Version: TYPE ~ RECORD [CARD32];
Interpreted: TYPE ~ InterpretedAttributeType[checksum..subtreeSizeLimit];
InterpretedRange: TYPE ~ CARD32[Interpreted.FIRST.ORD..Interpreted.LAST.ORD];

GetAttributeValue: PROC [in: IO.STREAM]
RETURNS [attributeValue: AttributeValue] ~ {
len: CARDINAL ~ CrRPC.GetCard16[in];
attributeValue м NEW[AttributeValueObject[len]];
FOR j: CARDINAL IN [0..len) DO
attributeValue.body[j] м CrRPC.GetCard16[in];
ENDLOOP;
};

GetAttribute: PROC [in: IO.STREAM]
RETURNS [attribute: Attribute] ~ {
attribute.type м CrRPC.GetCard32[in];
attribute.value м  GetAttributeValue[in];
};

GetAttributeSequence: PROC [in: IO.STREAM]
RETURNS [attributeSequence: AttributeSequence] ~ {
length: CARDINAL ~ CrRPC.GetCard16[in];
attributeSequence м NEW[AttributeSequenceObject[length]];
FOR i: CARDINAL IN [0..length) DO
attributeSequence.body[i] м GetAttribute[in];
ENDLOOP;
};

InfoFromAttributeStream: PUBLIC PROC [in: IO.STREAM]
RETURNS [info: XNSFilingOps.Info] ~ {
length: CARDINAL ~ CrRPC.GetCard16[in];
FOR i: CARDINAL IN [0..length) DO
Get32: PROC RETURNS [num: CARD32] = INLINE {
temp: Basics.LongNumber;
len: CARDINAL ~ CrRPC.GetCard16[in];
IF ( len # 2 ) THEN ERROR;
temp.hi м CrRPC.GetCard16[in];
temp.lo м CrRPC.GetCard16[in];
num м temp.lc;
};
attribute: Attribute;
attribute.type м CrRPC.GetCard32[in];
IF ( NOT attribute.type IN InterpretedRange )
THEN { -- not one we are looking for so skip it
len: CARDINAL ~ CrRPC.GetCard16[in];
FOR j: CARDINAL IN [0..len) DO [] м CrRPC.GetCard16[in]; ENDLOOP;
}
ELSE {
kind: Interpreted ~ VAL[attribute.type];
SELECT kind FROM
createdOn => {
temp: CARD32 ~ Get32[];
info.created м BasicTime.FromNSTime[temp ! BasicTime.OutOfRange => CONTINUE];
};
dataSize => info.bytes м Get32[];
fileID => {
len: CARDINAL ~ CrRPC.GetCard16[in];
IF ( len # 5 ) THEN ERROR;
FOR i: CARDINAL IN [0 .. 5) DO
info.fID[i] м CrRPC.GetCard16[in];
ENDLOOP;
};
isDirectory => {
len: CARDINAL ~ CrRPC.GetCard16[in];
IF ( len # 1 ) THEN ERROR;
info.isDir м IF ( CrRPC.GetCard16[in] = 1 ) THEN TRUE ELSE FALSE;
};
numberOfChildren => {
len: CARDINAL ~ CrRPC.GetCard16[in];
IF ( len = 1 ) THEN info.numKids м CrRPC.GetCard16[in];
};
pathname => {
length: CARDINAL ~ CrRPC.GetCard16[in];
word, len: NAT м 0;
temp: Basics.ShortNumber;
P: PROC [l: NAT] RETURNS [c: CHAR] ~ INLINE {
IF ( l MOD 2 ) = 0
THEN { temp.sc м CrRPC.GetCard16[in]; word м word.SUCC; c м VAL[temp.hi] }
ELSE { c м VAL[temp.lo] };
};
pathName: REF TEXT;
len м CrRPC.GetCard16[in];
pathName м RefText.ObtainScratch[len];
word м word.SUCC;
FOR i: NAT IN [0..len) DO
char: CHAR ~ P[i];
pathName м RefText.InlineAppendChar[pathName, char];
ENDLOOP;
IF ( word # length ) THEN ERROR;
info.pathName м Rope.FromRefText[pathName];
RefText.ReleaseScratch[pathName];
};
type => info.fileType м Get32[];
version => {
len: CARDINAL ~ CrRPC.GetCard16[in];
IF ( len # 1 ) THEN ERROR;
info.version м CrRPC.GetCard16[in];
};
ENDCASE => { -- not one we are looking for so skip it
len: CARDINAL ~ CrRPC.GetCard16[in];
FOR j: CARDINAL IN [0..len) DO [] м CrRPC.GetCard16[in]; ENDLOOP;
};
};
ENDLOOP;
};

}.

   м  
XNSFilingBDTImpl.mesa
Copyright ╙ 1990, 1992 by Xerox Corporation.  All rights reserved.
Bill Jackson (bj), May 25, 1990 7:24 pm PDT

got the type now get the rest
 Э╩▌  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЩKЪЬ
╧eЬ7ЩBKЩ+KЩ ЧЪ╧k	Ш	KЪЬЮЬШ'KЪЬ
ЮЬЮЬШ.KЪЬЮЬШ#KЪЮЬЮЬЮЬШKЪЬЮЬyШФKЪЬЮЬ3Ш@KЪЬЮЬЮЬШKЪЬЮЬШKЪЬЮЬШKШ ЧЪ╧nЬЮЬЮШKЪЮЬ Ш'KЪЮЬШKЪЮЬШKЪЮЬЮЬЮЬШKШ KЪ	ЬЮЬЮЬЮЬЮЬШ(KЪЬ
ЮЬЮЬЮЬШ!KЪЬ	ЮЬЮЬЮЬШ KЪЬЮЬ8ШIKЪЬЮЬЮЬЮЬЮЬЮЬЮЬШMKШ Ъ
ЯЬЮЬЮЬЮЬЮЬ%ШTKЪЬЮЬШ$KЪЬЮЬШ0ЪЮЬЮЬЮЬ
ЮШKШ-KЪЮЬШЧKШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШEKШ%KШ)KЪЬШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬ+Ш]KЪЬЮЬШ'KЪЬЮЬ"Ш9ЪЮЬЮЬЮЬЮШ!KШ-KЪЮЬШЧKШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШZKЪЬЮЬШ'ЪЮЬЮЬЮЬЮШ!Ъ
ЯЬЮЬЮЬЮЬЮЬШ,KШKЪЬЮЬШ$KЪЮЬЮЬЮЬШKШKШKШKЪЬШЧKЪЬШKШ%KЪЬЩЪЮЬЮЬЮЬШ-ЪЮЬ╧c(Ш/KЪЬЮЬШ$KЪ
ЮЬЮЬЮЬ
ЮЬЮЬШAKЪЬШЧЪЮЬШKЪЬЮЬШ(ЪЮЬЮШЪЬШKЪЬЮЬШKЪЬCЮЬШMKЪЬШЧKШ!ЪЬШKЪЬЮЬШ$KЪЮЬЮЬЮЬШЪЮЬЮЬЮЬ
ЮШKШ"KЪЮЬШЧKЪЬШЧЪЬШKЪЬЮЬШ$KЪЮЬЮЬЮЬШKЪЬЮЬЮЬЮЬЮЬЮЬШAKЪЬШЧЪЬШKЪЬЮЬШ$KЪЮЬЮЬ$Ш7KЪЬШЧЪЬШKХStartOfExpansion[len: INT, p: PROCЪЬЮЬШ'KЪЬЮЬШKШЪЯЬЮЬЮЬЮЬЮЬЮЬШ-ЪЮЬЮЬШKЪЮЬ.ЮЬЮЬШJKЪЮЬЮЬШЧKЪЬШЧKЦ[len: INT, p: PROCЪЬ
ЮЬЮЬШKШKШ&KЪЬЮЬШЪЮЬЮЬЮЬ
ЮШKЪЬЮЬШKШ4KЪЮЬШЧKЪЮЬЮЬЮЬШ KШ+KЪЬ!Ш!KЪЬШЧKШ ЪЬШKЪЬЮЬШ$KЪЮЬЮЬЮЬШKШ#KЪЬШЧЪЮЬа(Ш5KЪЬЮЬШ$KЪ
ЮЬЮЬЮЬ
ЮЬЮЬШAKЪЬШЧKЪЬШЧЧЧKЪЮЬШЧKЪЬШKШ ЧKШKШ ЧЧ ЕЧ    ╝  E  