DIRECTORY
Basics USING [LongNumber, Word16],
BasicTime USING [FromNSTime, GMT, OutOfRange],
CrRPC,
FilingP10V5,
FilingAttributesP10V5 USING [FileID, InterpretedAttributeType],
FilingP10V5ClientHack USING [MProc29, MProc4, GetError],
RefText USING [InlineAppendChar, ObtainScratch],
QuickFilingP10V5;


QuickFilingP10V5Impl: CEDAR PROGRAM
IMPORTS BasicTime, CrRPC, FilingP10V5ClientHack, RefText
EXPORTS QuickFilingP10V5
~ BEGIN OPEN FilingP10V5;

IAT: TYPE ~ FilingAttributesP10V5.InterpretedAttributeType;

createdOn:	CARD32 ~ IAT.createdOn.ORD;
dataSize:	CARD32 ~ IAT.dataSize.ORD;
fileID:	CARD32 ~ IAT.fileID.ORD;
isDirectory:	CARD32 ~ IAT.isDirectory.ORD;
name:	CARD32 ~ IAT.name.ORD;
numberOfChildren: CARD32 ~ IAT.numberOfChildren.ORD;
pathname:	CARD32 ~ IAT.pathname.ORD;
type:	CARD32 ~ IAT.type.ORD;
version:	CARD32 ~ IAT.version.ORD;


QuickGetAttributes: PUBLIC PROC [h: CrRPC.Handle, file: Handle,
types: AttributeTypeSequence, session: Session] RETURNS [vers: CARDINAL, bytes: INT, created: BasicTime.GMT, fileType: CARD, pathName: REF TEXT, fID: FilingAttributesP10V5.FileID, isDir: BOOL, numKids: CARD] = {
PutArgs: CrRPC.PutArgsProc ~ {
FOR i28: CARDINAL IN [0..2) DO
CrRPC.PutCard16[s, file[i28]];
ENDLOOP;
FilingP10V5ClientHack.MProc29[h, s, types];
FOR i30: CARDINAL IN [0..2) DO
CrRPC.PutCard16[s, session.token[i30]];
ENDLOOP;
FilingP10V5ClientHack.MProc4[h, s, session.verifier];
};
GetResults: CrRPC.GetResultsProc ~ {
length: CARDINAL ~ CrRPC.GetCard16[s];
FOR i: CARDINAL IN [0..length) DO
Get32: PROC RETURNS [num: CARD32] = INLINE {
temp: Basics.LongNumber;
len: CARDINAL ~ CrRPC.GetCard16[s];
IF len # 2 THEN ERROR;
temp.hi м CrRPC.GetCard16[s];
temp.lo м CrRPC.GetCard16[s];
num м temp.lc;
};
attribute: Attribute;
attribute.type м CrRPC.GetCard32[s];
SELECT attribute.type FROM
createdOn => {
temp: CARD32 ~ Get32[];
created м BasicTime.FromNSTime[temp ! BasicTime.OutOfRange => CONTINUE];
};
dataSize => bytes м Get32[];
fileID => {
len: CARDINAL ~ CrRPC.GetCard16[s];
IF len # 5 THEN ERROR;
FOR i: CARDINAL IN [0 .. 5) DO
fID[i] м CrRPC.GetCard16[s];
ENDLOOP;
};
isDirectory => {
len: CARDINAL ~ CrRPC.GetCard16[s];
IF len # 1 THEN ERROR;
isDir м IF CrRPC.GetCard16[s] = 1 THEN TRUE ELSE FALSE;
};
numberOfChildren => {
len: CARDINAL ~ CrRPC.GetCard16[s];
IF len = 1 THEN numKids м CrRPC.GetCard16[s];
};
pathname => {
length: CARDINAL ~ CrRPC.GetCard16[s];
word, len: NAT м 0;
temp: Basics.Word16;
P: PROC [l: NAT] RETURNS[c: CHAR] = INLINE {
IF l MOD 2 = 0
THEN {temp.card м CrRPC.GetCard16[s]; word м word + 1; c м VAL[temp.hi]}
ELSE {c м VAL[temp.lo]};
};
len м CrRPC.GetCard16[s];
pathName м RefText.ObtainScratch[len];
word м word + 1;
FOR i: NAT IN [0 .. len) DO
char: CHAR ~ P[i];
pathName м RefText.InlineAppendChar[pathName, char];
ENDLOOP;
IF word # length THEN ERROR;
};
type => fileType м Get32[];
version => {
len: CARDINAL ~ CrRPC.GetCard16[s];
IF len # 1 THEN ERROR;
vers м CrRPC.GetCard16[s];
};
ENDCASE => { -- the value was not one we are looking for so eat the data
len: CARDINAL ~ CrRPC.GetCard16[s];
FOR j: CARDINAL IN [0..len) DO
[] м CrRPC.GetCard16[s];
ENDLOOP;
};
ENDLOOP;
};

CrRPC.Call[h~h, remotePgm~10, remotePgmVersion~5, remoteProc~8 , putArgs~PutArgs, getResults~GetResults, getError~FilingP10V5ClientHack.GetError];

};


END.
    
QuickFilingP10V5Impl.mesa
Copyright ╙ 1988, 1990, 1991 by Xerox Corporation.  All rights reserved.
Tim Diebert: August 11, 1988 10:44:52 am PDT
Bill Jackson (bj) February 12, 1990 8:56:06 pm PST
Willie-s, December 11, 1991 7:26 pm PST

got the type now get the data
 Э╩U  Ц(cedarcode) styleХNewlineDelimiter
Щ ЪЬЩIcodeЪЬ
╧eЬ=ЩHKЩ,KЩ2KЩ'KЩ ЧЪ╧k	Ш	KЪЬЮЬШ"KЪЬ
ЮЬЮЬШ.KШKЪЬШKЪЬЮЬ$Ш?KЪЬЮЬШ8KЪЬЮЬ#Ш0KЪЬШKШ ЧKШ KЪ╨lnЬЮЬЮШ#KЪЮЬ1Ш8KЪЮЬШЪЬЮЬЮЬШIcode1Ш LЪЮЬЮЬ2Ш;LШ LЪЬЮЬЮЬЮЬШ&LЪЬ
ЮЬЮЬ
ЮЬШ$LЪЬЮЬЮЬЮЬШ LЪЬЮЬЮЬЮЬШ*LЪЬЮЬЮЬЮЬШLЪЬЮЬЮЬЮЬШ4LЪЬ
ЮЬЮЬ
ЮЬШ$LЪЬЮЬЮЬЮЬШLЪЬ	ЮЬЮЬ	ЮЬШ"KШ KШ Ъ╧nЬЮЬЮЬQЮЬЮЬ	ЮЬЮЬЮЬЮЬЮЬ,ЮЬЮЬШУЪаЬШЪЮЬЮЬЮЬЮШKШKЪЮЬШЧKЪЬ+Ш+ЪЮЬЮЬЮЬЮШKШ'KЪЮЬШЧKЪЬ5Ш5KШЧЪа
ЬШ$KЪЬЮЬШ&ЪЮЬЮЬЮЬЮШ!Ъ
аЬЮЬЮЬЮЬЮЬШ,KШKЪЬЮЬШ#KЪЮЬ	ЮЬЮЬШKШKШKШKЪЬШЧKЪЬШKШ$KЪЬЩЪЮЬЮШЪЬШKЪЬЮЬШKЪЬ>ЮЬШHKЪЬШЧKШЪЬШKЪЬЮЬШ#KЪЮЬ	ЮЬЮЬШЪЮЬЮЬЮЬ
ЮШKШKЪЮЬШЧKЪЬШЧЪЬШKЪЬЮЬШ#KЪЮЬ	ЮЬЮЬШKЪЬЮЬЮЬЮЬЮЬЮЬШ7KЪЬШЧЪЬШKЪЬЮЬШ#KЪЮЬ	ЮЬШ-KЪЬШЧЪЬШKХStartOfExpansion[len: INT, p: PROCЪЬЮЬШ&KЪЬЮЬШKШЪаЬЮЬЮЬЮЬЮЬЮЬШ,ЪЮЬЮЬШKЪЮЬ7ЮЬ
ШHKЪЮЬЮЬШЧKЪЬШЧKЦ[len: INT, p: PROCШKШ&KШЪЮЬЮЬЮЬЮШKЪЬЮЬШKШ4KЪЮЬШЧKЪЮЬЮЬЮЬШKЪЬШЧKШЪЬШKЪЬЮЬШ#KЪЮЬ	ЮЬЮЬШKШKЪЬШЧЪЮЬ╧c;ШHKЪЬЮЬШ#ЪЮЬЮЬЮЬ
ЮШKШKЪЮЬШЧKЪЬШЧЧKЪЮЬШЧKШKШ ЧKЪЬТШТKШ KЪЬШЧKШ ЧKШ KЪЮЬШЧ ЕЧ    ▄  C  