DIRECTORY
CrRPC,
BasicTime,
TimeP15V2,
CHNameP2V0,
BulkDataP0V1,
AdobeP75V2;

AdobeP75V2ServerImpl: CEDAR PROGRAM
IMPORTS CrRPC, AdobeP75V2 ~ {
OPEN AdobeP75V2;

GetSystemDescriptionCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
description: Description;

{
target.system ¬ CrRPC.GetRope[s];
};

[description] ¬ GetSystemDescription[h, target];

beginReturn[h];

{
CrRPC.PutRope[s, description.name];
CrRPC.PutRope[s, description.host];
CrRPC.PutRope[s, description.directory];
CrRPC.PutCard16[s, description.refCount];
CrRPC.PutCard32[s, description.version];
MProc48[h, s, description.fieldList];
};
};

GetVersionCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
version: CARD32;

{
target.system ¬ CrRPC.GetRope[s];
};

[version] ¬ GetVersion[h, target];

beginReturn[h];

{
CrRPC.PutCard32[s, version];
};
};

MakeAcceleratorFileForFieldCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
fieldName: ROPE;
fieldList: FieldList;

{
target.system ¬ CrRPC.GetRope[s];
};
{
fieldName ¬ CrRPC.GetRope[s];
};
{
fieldList ¬ UProc49[h, s];
};

[] ¬ MakeAcceleratorFileForField[h, target, fieldName, fieldList];

beginReturn[h];

};

UpdateAcceleratorsCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
arSet: SetOfARs;

{
target.system ¬ CrRPC.GetRope[s];
};
{
arSet ¬ UProc50[h, s];
};

[] ¬ UpdateAccelerators[h, target, arSet];

beginReturn[h];

};

GetStartOrStopTimeCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
which: StartOrStop;
startOrStopTime: CARD32;

{
target.system ¬ CrRPC.GetRope[s];
};
{
which ¬ VAL[CrRPC.GetCard16[s]];
};

[startOrStopTime] ¬ GetStartOrStopTime[h, target, which];

beginReturn[h];

{
CrRPC.PutCard32[s, startOrStopTime];
};
};

GetResidentSystemsCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
systems: DatabaseSequence;


[systems] ¬ GetResidentSystems[h];

beginReturn[h];

{
MProc51[h, s, systems];
};
};

CompletedUpdateCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
arNumber: CARD32;

{
target.system ¬ CrRPC.GetRope[s];
};
{
arNumber ¬ CrRPC.GetCard32[s];
};

[] ¬ CompletedUpdate[h, target, arNumber];

beginReturn[h];

};

GetAcceleratorInfoCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
instance: StaticTarget;
arSet: SetOfARs;
fieldList: FieldList;
to: CrRPC.BulkDataSink;

{
instance.target.system ¬ CrRPC.GetRope[s];
instance.version ¬ CrRPC.GetCard32[s];
};
{
arSet ¬ UProc50[h, s];
};
{
fieldList ¬ UProc49[h, s];
};
TRUSTED {
to ¬ CrRPC.GetBulkDataSink[h, s];
};

[] ¬ GetAcceleratorInfo[h, instance, arSet, fieldList, to];

beginReturn[h];

};

PutStartOrStopTimeCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
which: StartOrStop;
startOrStopTime: CARD32;

{
target.system ¬ CrRPC.GetRope[s];
};
{
which ¬ VAL[CrRPC.GetCard16[s]];
};
{
startOrStopTime ¬ CrRPC.GetCard32[s];
};

[] ¬ PutStartOrStopTime[h, target, which, startOrStopTime];

beginReturn[h];

};

ChangeLocationOfARsCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
newLocation: LocationTarget;

{
target.system ¬ CrRPC.GetRope[s];
};
{
newLocation.host ¬ CrRPC.GetRope[s];
newLocation.directory ¬ CrRPC.GetRope[s];
};

[] ¬ ChangeLocationOfARs[h, target, newLocation];

beginReturn[h];

};

ChangeFieldListCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
instance: StaticTarget;
changes: ChangeList;

{
instance.target.system ¬ CrRPC.GetRope[s];
instance.version ¬ CrRPC.GetCard32[s];
};
{
changes ¬ UProc52[h, s];
};

[] ¬ ChangeFieldList[h, instance, changes];

beginReturn[h];

};

VerifyVersionCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
instance: StaticTarget;
ok: BOOLEAN;

{
instance.target.system ¬ CrRPC.GetRope[s];
instance.version ¬ CrRPC.GetCard32[s];
};

[ok] ¬ VerifyVersion[h, instance];

beginReturn[h];

{
CrRPC.PutBool[s, ok];
};
};

PutSubmitNumberCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
submitNumber: CARD32;

{
target.system ¬ CrRPC.GetRope[s];
};
{
submitNumber ¬ CrRPC.GetCard32[s];
};

[] ¬ PutSubmitNumber[h, target, submitNumber];

beginReturn[h];

};

GetSystemDefaultUserFileCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
to: CrRPC.BulkDataSink;
bytesInFile: CARD16 ¬ 0; --XXX Gets no reasonable value ChJ April 7, 1992

{
target.system ¬ CrRPC.GetRope[s];
};
TRUSTED {
to ¬ CrRPC.GetBulkDataSink[h, s];
};

--[bytesInFile] ¬-- GetSystemDefaultUserFile[h, target, to];

beginReturn[h];

{
CrRPC.PutCard16[s, bytesInFile];
};
};

LookupARsCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
instance: StaticTarget;
query: QueryItem;
boundSet: SetOfARs;
arSet: SetOfARs;

{
instance.target.system ¬ CrRPC.GetRope[s];
instance.version ¬ CrRPC.GetCard32[s];
};
{
query.name ¬ CrRPC.GetRope[s];
query.value.relationalOp ¬ VAL[CrRPC.GetCard16[s]];
query.value.value ¬ UProc54[h, s];
};
{
boundSet ¬ UProc50[h, s];
};

[arSet] ¬ LookupARs[h, instance, query, boundSet];

beginReturn[h];

{
MProc54[h, s, arSet];
};
};

AboutToStoreCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
instance: StaticTarget;
arNumber: CARD32;

{
instance.target.system ¬ CrRPC.GetRope[s];
instance.version ¬ CrRPC.GetCard32[s];
};
{
arNumber ¬ CrRPC.GetCard32[s];
};

[] ¬ AboutToStore[h, instance, arNumber];

beginReturn[h];

};

ReadLastARNumberCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
lastAR: CARD32;

{
target.system ¬ CrRPC.GetRope[s];
};

[lastAR] ¬ ReadLastARNumber[h, target];

beginReturn[h];

{
CrRPC.PutCard32[s, lastAR];
};
};

UpdateAcceleratorFieldCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
instance: StaticTarget;
arNumber: CARD32;
field: FieldItemObject;

{
instance.target.system ¬ CrRPC.GetRope[s];
instance.version ¬ CrRPC.GetCard32[s];
};
{
arNumber ¬ CrRPC.GetCard32[s];
};
{
field ¬ UProc53[h, s];
};


beginReturn[h];

};

PutSystemDescriptionCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
description: Description;

{
target.system ¬ CrRPC.GetRope[s];
};
{
description.name ¬ CrRPC.GetRope[s];
description.host ¬ CrRPC.GetRope[s];
description.directory ¬ CrRPC.GetRope[s];
description.refCount ¬ CrRPC.GetCard16[s];
description.version ¬ CrRPC.GetCard32[s];
description.fieldList ¬ UProc49[h, s];
};

[] ¬ PutSystemDescription[h, target, description];

beginReturn[h];

};

GetNextSubmitNumberCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
submitNumber: CARD32;

{
target.system ¬ CrRPC.GetRope[s];
};

[submitNumber] ¬ GetNextSubmitNumber[h, target];

beginReturn[h];

{
CrRPC.PutCard32[s, submitNumber];
};
};

PutSystemDefaultUserFileCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
from: CrRPC.BulkDataSource;

{
target.system ¬ CrRPC.GetRope[s];
};
TRUSTED {
from ¬ CrRPC.GetBulkDataSource[h, s];
};

[] ¬ PutSystemDefaultUserFile[h, target, from];

beginReturn[h];

};

GetLocationOfARsCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
referenceToARs: NSName;

{
target.system ¬ CrRPC.GetRope[s];
};

[referenceToARs] ¬ GetLocationOfARs[h, target];

beginReturn[h];

{
MProc55[h, s, referenceToARs];
};
};

SubmitFailedCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
target: Target;
arNumber: CARD32;
version: CARD32;

{
target.system ¬ CrRPC.GetRope[s];
};
{
arNumber ¬ CrRPC.GetCard32[s];
};
{
version ¬ CrRPC.GetCard32[s];
};

[] ¬ SubmitFailed[h, target, arNumber, version];

beginReturn[h];

};

Server: CrRPC.ServerProc ~ {

ENABLE {
AdobeP75V2.FileNotFound => { -- (5 )
beginError[h, 5 ];
GOTO Finished;
};
AdobeP75V2.ServerDown => { -- (7 )
beginError[h, 7 ];
GOTO Finished;
};
AdobeP75V2.ParameterInconsistency => { -- (10 )
beginError[h, 10 ];
GOTO Finished;
};
AdobeP75V2.ObsoleteVersion => { -- (11 )
beginError[h, 11 ];
GOTO Finished;
};
AdobeP75V2.SysDescChanging => { -- (13 )
beginError[h, 13 ];
GOTO Finished;
};
AdobeP75V2.CantDetermineLocOfARs => { -- (2 )
beginError[h, 2 ];
GOTO Finished;
};
AdobeP75V2.SystemAlreadyExists => { -- (4 )
beginError[h, 4 ];
GOTO Finished;
};
AdobeP75V2.NoAdobeServiceAtServer => { -- (8 )
beginError[h, 8 ];
GOTO Finished;
};
AdobeP75V2.CommunicationError => { -- (0 )
beginError[h, 0 ];
GOTO Finished;
};
AdobeP75V2.IllegalLogin => { -- (3 )
beginError[h, 3 ];
GOTO Finished;
};
AdobeP75V2.Others => { -- (14 )
beginError[h, 14 ];
GOTO Finished;
};
AdobeP75V2.SystemNotRegistered => { -- (12 )
beginError[h, 12 ];
GOTO Finished;
};
AdobeP75V2.Error => { -- (99 )
beginError[h, 99 ];
CrRPC.PutCard16[s, ORD[why]];
GOTO Finished;
};
AdobeP75V2.Xxx => { -- (31 )
beginError[h, 31 ];
GOTO Finished;
};
AdobeP75V2.UnknownSystem => { -- (1 )
beginError[h, 1 ];
GOTO Finished;
};
AdobeP75V2.Spare2 => { -- (17 )
beginError[h, 17 ];
GOTO Finished;
};
AdobeP75V2.Spare1 => { -- (16 )
beginError[h, 16 ];
GOTO Finished;
};
AdobeP75V2.CourierTimedOut => { -- (9 )
beginError[h, 9 ];
GOTO Finished;
};
AdobeP75V2.TooManyConnections => { -- (15 )
beginError[h, 15 ];
GOTO Finished;
};
AdobeP75V2.ServerUnreachable => { -- (6 )
beginError[h, 6 ];
GOTO Finished;
};
};

IF (pgmVersion # 2) THEN {
beginReject[h, CrRPC.noSuchVersion];
CrRPC.PutCard16[s, 2]; --low
CrRPC.PutCard16[s, 2]; --high
RETURN
};

SELECT proc FROM
14  => GetSystemDescriptionCaller[h, s, beginReturn];
12  => GetVersionCaller[h, s, beginReturn];
22  => MakeAcceleratorFileForFieldCaller[h, s, beginReturn];
5  => UpdateAcceleratorsCaller[h, s, beginReturn];
20  => GetStartOrStopTimeCaller[h, s, beginReturn];
17  => GetResidentSystemsCaller[h, s, beginReturn];
8  => CompletedUpdateCaller[h, s, beginReturn];
21  => GetAcceleratorInfoCaller[h, s, beginReturn];
19  => PutStartOrStopTimeCaller[h, s, beginReturn];
10  => ChangeLocationOfARsCaller[h, s, beginReturn];
11  => ChangeFieldListCaller[h, s, beginReturn];
18  => VerifyVersionCaller[h, s, beginReturn];
1  => PutSubmitNumberCaller[h, s, beginReturn];
16  => GetSystemDefaultUserFileCaller[h, s, beginReturn];
4  => LookupARsCaller[h, s, beginReturn];
6  => AboutToStoreCaller[h, s, beginReturn];
2  => ReadLastARNumberCaller[h, s, beginReturn];
7  => UpdateAcceleratorFieldCaller[h, s, beginReturn];
13  => PutSystemDescriptionCaller[h, s, beginReturn];
0  => GetNextSubmitNumberCaller[h, s, beginReturn];
15  => PutSystemDefaultUserFileCaller[h, s, beginReturn];
9  => GetLocationOfARsCaller[h, s, beginReturn];
3  => SubmitFailedCaller[h, s, beginReturn];
ENDCASE => {
beginReject[h, CrRPC.noSuchProcedure];
};

EXITS
Finished => { NULL };
};



UProc53: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: FieldItemObject] ~ {
{
tag56: FieldType ~ VAL[CrRPC.GetCard16[s]];
temp57a: ROPE ¬ CrRPC.GetRope[s];
temp58a: ToolData;
FOR i58a: ToolType IN ToolType DO
temp58a[i58a] ¬ NEW[DefaultInfoObject];
temp58a[i58a].default ¬ CrRPC.GetRope[s];
temp58a[i58a].systemMust ¬ CrRPC.GetBool[s];
temp58a[i58a].place.ord ¬ CrRPC.GetInt16[s];
temp58a[i58a].place.co ¬ CrRPC.GetInt16[s];
temp58a[i58a].width ¬ CrRPC.GetCard16[s];
ENDLOOP;
SELECT tag56 FROM
arId => {
res ¬ NEW[FieldItemObjectRec.arId ¬ [temp57a, NIL, temp58a, arId[]]] };
dateTime => {
res ¬ NEW[FieldItemObjectRec.dateTime ¬ [temp57a, NIL, temp58a, dateTime[]]] };
numeric => {
res ¬ NEW[FieldItemObjectRec.numeric ¬ [temp57a, NIL, temp58a, numeric[]]] };
fixedLengthString => {
tempLen: CARD16;
tempLen ¬ CrRPC.GetCard16[s];
res ¬ NEW[FieldItemObjectRec.fixedLengthString ¬ [temp57a, NIL, temp58a, fixedLengthString[tempLen]]] };
enumerated => {
tempPoss: KeyedPossibilities;
tempDepend: CARD16;
tempDepend ¬ CrRPC.GetCard16[s];
tempPoss ¬ UProc63[h, s];
res ¬ NEW[FieldItemObjectRec.enumerated ¬ [temp57a, NIL, temp58a, enumerated[tempDepend, tempPoss]]] };
string => {
res ¬ NEW[FieldItemObjectRec.string ¬ [temp57a, NIL, temp58a, string[]]] };
ENDCASE => ERROR;
};
};
UProc54: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: FieldItemValue] ~ {
{
tag56: FieldType ~ VAL[CrRPC.GetCard16[s]];
temp57a: ROPE ¬ CrRPC.GetRope[s];
temp58a: ToolData;
FOR i58a: ToolType IN ToolType DO
temp58a[i58a] ¬ NEW[DefaultInfoObject];
temp58a[i58a].default ¬ CrRPC.GetRope[s];
temp58a[i58a].systemMust ¬ CrRPC.GetBool[s];
temp58a[i58a].place.ord ¬ CrRPC.GetInt16[s];
temp58a[i58a].place.co ¬ CrRPC.GetInt16[s];
temp58a[i58a].width ¬ CrRPC.GetCard16[s];
ENDLOOP;
SELECT tag56 FROM
arId => {
res ¬ NEW[FieldItemValueRec.arId ¬ [arId[0]]] };
dateTime => {
res ¬ NEW[FieldItemValueRec.dateTime ¬ [dateTime[BasicTime.nullGMT]]] };
numeric => {
res ¬ NEW[FieldItemValueRec.numeric ¬ [numeric[0]]] };
fixedLengthString => {
tempLen: CARD16;
tempLen ¬ CrRPC.GetCard16[s];
res ¬ NEW[FieldItemValueRec.fixedLengthString ¬ [fixedLengthString[NIL]]] };
enumerated => {
tempPoss: KeyedPossibilities;
tempDepend: CARD16;
tempDepend ¬ CrRPC.GetCard16[s];
tempPoss ¬ UProc63[h, s];
res ¬ NEW[FieldItemValueRec.enumerated ¬ [enumerated[0]]] };
ENDCASE => ERROR;
};
};

MProc51: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: DatabaseSequence] ~ {
CrRPC.PutCard16[s, val.length];
FOR i65: CARDINAL IN [0..val.length) DO
CrRPC.PutRope[s, val.body[i65]];
ENDLOOP;
};

MProc48: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: FieldList] ~ {
CrRPC.PutCard16[s, val.length];
FOR i66: CARDINAL IN [0..val.length) DO
MProc67[h, s, val.flSeq[i66]];
ENDLOOP;
};

MProc55: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: NSName] ~ {
CrRPC.PutRope[s, val.org];
CrRPC.PutRope[s, val.domain];
CrRPC.PutRope[s, val.local];

};

MProc54: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: SetOfARs] ~ {
CrRPC.PutCard16[s, val.len];
FOR i69: CARDINAL IN [0..val.len) DO
CrRPC.PutCard32[s, val.body[i69].startValue];
CrRPC.PutCard32[s, val.body[i69].runLength];
ENDLOOP;
};

UProc52: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: ChangeList] ~ {
{
length71: CARDINAL ~ CrRPC.GetCard16[s];
res ¬  NEW[Changes[length71]];
FOR i70: CARDINAL IN [0..length71) DO
res.seq[i70].oldFieldName ¬ CrRPC.GetRope[s];
res.seq[i70].newItem ¬ UProc72[h, s];
ENDLOOP;
};
};

UProc49: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: FieldList] ~ {
{
length74: CARDINAL ~ CrRPC.GetCard16[s];
res ¬  NEW[FieldListArray[length74]];
FOR i73: CARDINAL IN [0..length74) DO
res.flSeq[i73] ¬ UProc53[h, s];
ENDLOOP;
};
};

UProc72: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: ChangeItemValue] ~ {
{
tag75: ChangeType ~ VAL[CrRPC.GetCard16[s]];
SELECT tag75 FROM
add => {
temp76: FieldItemObject;
temp76 ¬ UProc53[h, s];
res ¬ NEW[ChangeItemValueObject.add ¬ [add[temp76]]] };
modify => {
temp76: FieldItemObject;
temp76 ¬ UProc53[h, s];
res ¬ NEW[ChangeItemValueObject.modify ¬ [modify[temp76]]] };
remove => {
temp76: EmptyRecord;
temp76.null ¬ 0;
res ¬ NEW[ChangeItemValueObject.remove ¬ [remove[]]] };
ENDCASE => ERROR;
};
};

UProc63: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: KeyedPossibilities] ~ {
{
length78: CARDINAL ~ CrRPC.GetCard16[s];
res ¬  NEW[KeyedPossibilitiesSeq[length78]];
FOR i77: CARDINAL IN [0..length78) DO
res.seq[i77].keyedDependency ¬ CrRPC.GetCard16[s];
res.seq[i77].enumRecs ¬ UProc79[h, s];
ENDLOOP;
};
};

UProc50: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: SetOfARs] ~ {
{
length81: CARDINAL ~ CrRPC.GetCard16[s];
res ¬  NEW[SetOfARsObject[length81]];
FOR i80: CARDINAL IN [0..length81) DO
res.body[i80].startValue ¬ CrRPC.GetCard32[s];
res.body[i80].runLength ¬ CrRPC.GetCard32[s];
ENDLOOP;
};
};

MProc67: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: FieldItemObject] ~ {
CrRPC.PutCard16[s, ORD[val.type]];
CrRPC.PutRope[s, val.name];
FOR i83a: ToolType IN ToolType DO
CrRPC.PutRope[s, val.defaultInfo[i83a].default];
CrRPC.PutBool[s, val.defaultInfo[i83a].systemMust];
CrRPC.PutInt16[s, val.defaultInfo[i83a].place.ord];
CrRPC.PutInt16[s, val.defaultInfo[i83a].place.co];
CrRPC.PutCard16[s, val.defaultInfo[i83a].width];
ENDLOOP;
WITH val SELECT FROM
it: REF FieldItemObjectRec.arId => {
NULL; -- RECORD [] --
};
it: REF FieldItemObjectRec.dateTime => {
NULL; -- RECORD [] --
};
it: REF FieldItemObjectRec.numeric => {
NULL; -- RECORD [] --
};
it: REF FieldItemObjectRec.fixedLengthString => {
CrRPC.PutCard16[s, it.maxLength];
};
it: REF FieldItemObjectRec.enumerated => {
CrRPC.PutCard16[s, it.field];
MProc88[h, s, it.possibilities];
};
it: REF FieldItemObjectRec.string => {
NULL; -- RECORD [] --
};
ENDCASE;
};

UProc79: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: EnumeratedSequence] ~ {
{
length91: CARDINAL ~ CrRPC.GetCard16[s];
res ¬  NEW[EnumeratedSequenceType[length91]];
FOR i90: CARDINAL IN [0..length91) DO
res.seq[i90].tag ¬ CrRPC.GetRope[s];
res.seq[i90].item ¬ CrRPC.GetCard16[s];
ENDLOOP;
};
};

MProc88: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: KeyedPossibilities] ~ {
CrRPC.PutCard16[s, val.length];
FOR i92: CARDINAL IN [0..val.length) DO
CrRPC.PutCard16[s, val.seq[i92].keyedDependency];
MProc93[h, s, val.seq[i92].enumRecs];
ENDLOOP;
};

MProc93: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: EnumeratedSequence] ~ {
CrRPC.PutCard16[s, val.length];
FOR i94: CARDINAL IN [0..val.length) DO
CrRPC.PutRope[s, val.seq[i94].tag];
CrRPC.PutCard16[s, val.seq[i94].item];
ENDLOOP;
};


CrRPC.RegisterServerProcs[pgm~75, serverProc~Server, pgmLoVersion~2, pgmHiVersion~2];
CrRPC.EnsureListener[class~$SPP];
}...


AdobeP75V2ServerImpl.Mesa
Copyright Σ 1989, 1992 by Xerox Corporation.  All rights reserved.
Generated by BJackson.pa at March 27, 1990 2:04:39 pm PST
using Sirocco [2.0] of February 10, 1989 6:26:26 pm PST
Philip James, March 19, 1991 4:45 pm PST
Christian Jacobi, April 7, 1992 5:01 pm PDT
NOTE: Search for XXX to find problem
-- took out for lack of time to fix
[] _ UpdateAcceleratorField[h, instance, arNumber, field];
[h: Handle, s: STREAM, pgm: CARD32, pgmVersion: CARD16, proc: CARD16, beginReturn: BeginReturnProc, beginError: BeginErrorProc, beginReject: BeginRejectProc]
Unmarshal / Marshal Procs --
temp57: ARField;
temp57.name _ CrRPC.GetRope[s];
FOR i58: CARDINAL IN [0..6) DO
temp57.tools[i58].default _ CrRPC.GetRope[s];
temp57.tools[i58].required _ CrRPC.GetBool[s];
temp57.tools[i58].place.ord _ CrRPC.GetInt16[s];
temp57.tools[i58].place.co _ CrRPC.GetInt16[s];
temp57.tools[i58].width _ CrRPC.GetCard16[s];
ENDLOOP;
temp57.ar.null _ 0;
temp57: TimeField;
temp57.name _ CrRPC.GetRope[s];
FOR i59: CARDINAL IN [0..6) DO
temp57.tools[i59].default _ CrRPC.GetRope[s];
temp57.tools[i59].required _ CrRPC.GetBool[s];
temp57.tools[i59].place.ord _ CrRPC.GetInt16[s];
temp57.tools[i59].place.co _ CrRPC.GetInt16[s];
temp57.tools[i59].width _ CrRPC.GetCard16[s];
ENDLOOP;
temp57.time.null _ 0;
temp57: NumericField;
temp57.name _ CrRPC.GetRope[s];
FOR i60: CARDINAL IN [0..6) DO
temp57.tools[i60].default _ CrRPC.GetRope[s];
temp57.tools[i60].required _ CrRPC.GetBool[s];
temp57.tools[i60].place.ord _ CrRPC.GetInt16[s];
temp57.tools[i60].place.co _ CrRPC.GetInt16[s];
temp57.tools[i60].width _ CrRPC.GetCard16[s];
ENDLOOP;
temp57.numeric.null _ 0;
temp57: BoundedField;
temp57.name _ CrRPC.GetRope[s];
FOR i61: CARDINAL IN [0..6) DO
temp57.tools[i61].default _ CrRPC.GetRope[s];
temp57.tools[i61].required _ CrRPC.GetBool[s];
temp57.tools[i61].place.ord _ CrRPC.GetInt16[s];
temp57.tools[i61].place.co _ CrRPC.GetInt16[s];
temp57.tools[i61].width _ CrRPC.GetCard16[s];
ENDLOOP;
temp57: EnumeratedField;
temp57.name _ CrRPC.GetRope[s];
FOR i62: CARDINAL IN [0..6) DO
temp57.tools[i62].default _ CrRPC.GetRope[s];
temp57.tools[i62].required _ CrRPC.GetBool[s];
temp57.tools[i62].place.ord _ CrRPC.GetInt16[s];
temp57.tools[i62].place.co _ CrRPC.GetInt16[s];
temp57.tools[i62].width _ CrRPC.GetCard16[s];
ENDLOOP;
temp57: StringField;
temp57.name _ CrRPC.GetRope[s];
FOR i64: CARDINAL IN [0..6) DO
temp57.tools[i64].default _ CrRPC.GetRope[s];
temp57.tools[i64].required _ CrRPC.GetBool[s];
temp57.tools[i64].place.ord _ CrRPC.GetInt16[s];
temp57.tools[i64].place.co _ CrRPC.GetInt16[s];
temp57.tools[i64].width _ CrRPC.GetCard16[s];
ENDLOOP;
temp57.string.null _ 0;
does the wrong THING !!!
temp57: ARField;
temp57.name _ CrRPC.GetRope[s];
FOR i58: CARDINAL IN [0..6) DO
temp57.tools[i58].default _ CrRPC.GetRope[s];
temp57.tools[i58].required _ CrRPC.GetBool[s];
temp57.tools[i58].place.ord _ CrRPC.GetInt16[s];
temp57.tools[i58].place.co _ CrRPC.GetInt16[s];
temp57.tools[i58].width _ CrRPC.GetCard16[s];
ENDLOOP;
temp57.ar.null _ 0;
temp57: TimeField;
temp57.name _ CrRPC.GetRope[s];
FOR i59: CARDINAL IN [0..6) DO
temp57.tools[i59].default _ CrRPC.GetRope[s];
temp57.tools[i59].required _ CrRPC.GetBool[s];
temp57.tools[i59].place.ord _ CrRPC.GetInt16[s];
temp57.tools[i59].place.co _ CrRPC.GetInt16[s];
temp57.tools[i59].width _ CrRPC.GetCard16[s];
ENDLOOP;
temp57.time.null _ 0;
temp57: NumericField;
temp57.name _ CrRPC.GetRope[s];
FOR i60: CARDINAL IN [0..6) DO
temp57.tools[i60].default _ CrRPC.GetRope[s];
temp57.tools[i60].required _ CrRPC.GetBool[s];
temp57.tools[i60].place.ord _ CrRPC.GetInt16[s];
temp57.tools[i60].place.co _ CrRPC.GetInt16[s];
temp57.tools[i60].width _ CrRPC.GetCard16[s];
ENDLOOP;
temp57.numeric.null _ 0;
temp57: BoundedField;
temp57.name _ CrRPC.GetRope[s];
FOR i61: CARDINAL IN [0..6) DO
temp57.tools[i61].default _ CrRPC.GetRope[s];
temp57.tools[i61].required _ CrRPC.GetBool[s];
temp57.tools[i61].place.ord _ CrRPC.GetInt16[s];
temp57.tools[i61].place.co _ CrRPC.GetInt16[s];
temp57.tools[i61].width _ CrRPC.GetCard16[s];
ENDLOOP;
temp57: EnumeratedField;
temp57.name _ CrRPC.GetRope[s];
FOR i62: CARDINAL IN [0..6) DO
temp57.tools[i62].default _ CrRPC.GetRope[s];
temp57.tools[i62].required _ CrRPC.GetBool[s];
temp57.tools[i62].place.ord _ CrRPC.GetInt16[s];
temp57.tools[i62].place.co _ CrRPC.GetInt16[s];
temp57.tools[i62].width _ CrRPC.GetCard16[s];
ENDLOOP;
string => {
temp57: StringField;
temp57.name _ CrRPC.GetRope[s];
FOR i64: CARDINAL IN [0..6) DO
temp57.tools[i64].default _ CrRPC.GetRope[s];
temp57.tools[i64].required _ CrRPC.GetBool[s];
temp57.tools[i64].place.ord _ CrRPC.GetInt16[s];
temp57.tools[i64].place.co _ CrRPC.GetInt16[s];
temp57.tools[i64].width _ CrRPC.GetCard16[s];
ENDLOOP;
temp57.string.null _ 0;
res _ NEW[FieldItemValueRec.string _ [string[NIL]]] };
CrRPC.PutCard16[s, val.length];
FOR i68: CARDINAL IN [0..val.length) DO
CrRPC.PutCard16[s, val.body[i68]];
ENDLOOP;
CrRPC.PutRope[s, it^.ar.name];
FOR i83: CARDINAL IN [0..6) DO
CrRPC.PutRope[s, it^.ar.tools[i83].default];
CrRPC.PutBool[s, it^.ar.tools[i83].required];
CrRPC.PutInt16[s, it^.ar.tools[i83].place.ord];
CrRPC.PutInt16[s, it^.ar.tools[i83].place.co];
CrRPC.PutCard16[s, it^.ar.tools[i83].width];
ENDLOOP;
CrRPC.PutRope[s, it^.time.name];
FOR i84: CARDINAL IN [0..6) DO
CrRPC.PutRope[s, it^.time.tools[i84].default];
CrRPC.PutBool[s, it^.time.tools[i84].required];
CrRPC.PutInt16[s, it^.time.tools[i84].place.ord];
CrRPC.PutInt16[s, it^.time.tools[i84].place.co];
CrRPC.PutCard16[s, it^.time.tools[i84].width];
ENDLOOP;
CrRPC.PutRope[s, it^.numeric.name];
FOR i85: CARDINAL IN [0..6) DO
CrRPC.PutRope[s, it^.numeric.tools[i85].default];
CrRPC.PutBool[s, it^.numeric.tools[i85].required];
CrRPC.PutInt16[s, it^.numeric.tools[i85].place.ord];
CrRPC.PutInt16[s, it^.numeric.tools[i85].place.co];
CrRPC.PutCard16[s, it^.numeric.tools[i85].width];
ENDLOOP;
CrRPC.PutRope[s, it^.bounded.name];
FOR i86: CARDINAL IN [0..6) DO
CrRPC.PutRope[s, it^.bounded.tools[i86].default];
CrRPC.PutBool[s, it^.bounded.tools[i86].required];
CrRPC.PutInt16[s, it^.bounded.tools[i86].place.ord];
CrRPC.PutInt16[s, it^.bounded.tools[i86].place.co];
CrRPC.PutCard16[s, it^.bounded.tools[i86].width];
ENDLOOP;
CrRPC.PutRope[s, it^.enumerated.name];
FOR i87: CARDINAL IN [0..6) DO
CrRPC.PutRope[s, it^.enumerated.tools[i87].default];
CrRPC.PutBool[s, it^.enumerated.tools[i87].required];
CrRPC.PutInt16[s, it^.enumerated.tools[i87].place.ord];
CrRPC.PutInt16[s, it^.enumerated.tools[i87].place.co];
CrRPC.PutCard16[s, it^.enumerated.tools[i87].width];
ENDLOOP;
CrRPC.PutRope[s, it^.string.name];
FOR i89: CARDINAL IN [0..6) DO
CrRPC.PutRope[s, it^.string.tools[i89].default];
CrRPC.PutBool[s, it^.string.tools[i89].required];
CrRPC.PutInt16[s, it^.string.tools[i89].place.ord];
CrRPC.PutInt16[s, it^.string.tools[i89].place.co];
CrRPC.PutCard16[s, it^.string.tools[i89].width];
ENDLOOP;
ΚŠ•NewlineDelimiter

–
(cedarcode) style™š
œ™Jšœ	Οeœ6™BJš
œ9™9Jš
œ7™7J™(J™+Icode˜Kš
Οb$™$K˜—š
Οk	˜	K˜K˜
K˜
K˜K˜
K˜—K˜šΟnœŸœ
Ÿ˜#KšŸœ˜KšŸœ˜—K˜š œŸœŸœ)˜kK˜K˜K˜˜
K˜!K˜—K˜K˜0K˜K˜K˜˜
K˜#K˜#K˜(K˜)K˜(K˜%K˜—K˜K˜—š œŸœŸœ)˜aK˜Kšœ	Ÿœ
˜K˜˜
K˜!K˜—K˜K˜"K˜K˜K˜˜
K˜K˜—K˜K˜—š !œŸœŸœ)˜rK˜KšœŸœ
˜K˜K˜˜
K˜!K˜—˜
K˜K˜—˜
K˜K˜—K˜K˜BK˜K˜K˜K˜K˜—š œŸœŸœ)˜iK˜K˜K˜˜
K˜!K˜—˜
K˜K˜—K˜K˜*K˜K˜K˜K˜K˜—š œŸœŸœ)˜iK˜K˜KšœŸœ
˜K˜˜
K˜!K˜—˜
KšœŸœ˜ K˜—K˜K˜9K˜K˜K˜˜
K˜$K˜—K˜K˜—š œŸœŸœ)˜iK˜K˜K˜K˜"K˜K˜K˜˜
K˜K˜—K˜K˜—š œŸœŸœ)˜fK˜Kšœ
Ÿœ
˜K˜˜
K˜!K˜—˜
K˜K˜—K˜K˜*K˜K˜K˜K˜K˜—š œŸœŸœ)˜iK˜K˜K˜K˜K˜˜
K˜*K˜&K˜—˜
K˜K˜—˜
K˜K˜—šŸœ˜	K˜!K˜—K˜K˜;K˜K˜K˜K˜K˜—š œŸœŸœ)˜iK˜K˜KšœŸœ
˜K˜˜
K˜!K˜—˜
KšœŸœ˜ K˜—˜
K˜%K˜—K˜K˜;K˜K˜K˜K˜K˜—š œŸœŸœ)˜jK˜K˜K˜˜
K˜!K˜—˜
K˜$K˜)K˜—K˜K˜1K˜K˜K˜K˜K˜—š œŸœŸœ)˜fK˜K˜K˜˜
K˜*K˜&K˜—˜
K˜K˜—K˜K˜+K˜K˜K˜K˜K˜—š œŸœŸœ)˜dK˜KšœŸœ
˜K˜˜
K˜*K˜&K˜—K˜K˜"K˜K˜K˜˜
K˜K˜—K˜K˜—š œŸœŸœ)˜fK˜KšœŸœ
˜K˜˜
K˜!K˜—˜
K˜"K˜—K˜K˜.K˜K˜K˜K˜K˜—š œŸœŸœ)˜oK˜K˜Kšœ
ŸœΡbcl0˜IK˜˜
K˜!K˜—šŸœ˜	K˜!K˜—K˜KšΟcœ
’œ)˜<K˜K˜K˜˜
K˜ K˜—K˜K˜—š œŸœŸœ)˜`K˜K˜K˜K˜K˜˜
K˜*K˜&K˜—˜
K˜KšœŸœ˜3K˜"K˜—˜
K˜K˜—K˜K˜2K˜K˜K˜˜
K˜K˜—K˜K˜—š œŸœŸœ)˜cK˜Kšœ
Ÿœ
˜K˜˜
K˜*K˜&K˜—˜
K˜K˜—K˜K˜)K˜K˜K˜K˜K˜—š œŸœŸœ)˜gK˜KšœŸœ
˜K˜˜
K˜!K˜—K˜K˜'K˜K˜K˜˜
K˜K˜—K˜K˜—š œŸœŸœ)˜mK˜Kšœ
Ÿœ
˜K˜K˜˜
K˜*K˜&K˜—˜
K˜K˜—˜
K˜K˜—K˜J™#J™:K˜K˜K˜K˜K˜—š œŸœŸœ)˜kK˜K˜K˜˜
K˜!K˜—˜
K˜$K˜$K˜)K˜*K˜)K˜&K˜—K˜K˜2K˜K˜K˜K˜K˜—š œŸœŸœ)˜jK˜KšœŸœ
˜K˜˜
K˜!K˜—K˜K˜0K˜K˜K˜˜
K˜!K˜—K˜K˜—š œŸœŸœ)˜oK˜K˜K˜˜
K˜!K˜—šŸœ˜	K˜%K˜—K˜K˜/K˜K˜K˜K˜K˜—š œŸœŸœ)˜gK˜K˜K˜˜
K˜!K˜—K˜K˜/K˜K˜K˜˜
K˜K˜—K˜K˜—š œŸœŸœ)˜cK˜Kšœ
Ÿœ
˜Kšœ	Ÿœ
˜K˜˜
K˜!K˜—˜
K˜K˜—˜
K˜K˜—K˜K˜0K˜K˜K˜K˜K˜—š œ˜Jš
œ
™
K˜šŸœ˜šœ’˜$K˜KšŸœ
˜K˜—šœ’˜"K˜KšŸœ
˜K˜—šœ'’˜/K˜KšŸœ
˜K˜—šœ ’˜(K˜KšŸœ
˜K˜—šœ ’˜(K˜KšŸœ
˜K˜—šœ&’˜-K˜KšŸœ
˜K˜—šœ$’˜+K˜KšŸœ
˜K˜—šœ'’˜.K˜KšŸœ
˜K˜—šœ#’˜*K˜KšŸœ
˜K˜—šœ’˜$K˜KšŸœ
˜K˜—šœ’˜K˜KšŸœ
˜K˜—šœ$’˜,K˜KšŸœ
˜K˜—šœ’˜K˜KšœŸœ˜KšŸœ
˜K˜—šœ’˜K˜KšŸœ
˜K˜—šœ’˜%K˜KšŸœ
˜K˜—šœ’˜K˜KšŸœ
˜K˜—šœ’˜K˜KšŸœ
˜K˜—šœ ’˜'K˜KšŸœ
˜K˜—šœ#’˜+K˜KšŸœ
˜K˜—šœ"’˜)K˜KšŸœ
˜K˜—K˜—K˜šŸœŸœ˜K˜$Kšœ’˜Kšœ’˜Kš
Ÿ˜K˜—K˜šŸœŸ˜K˜5K˜+K˜<K˜2K˜3K˜3K˜/K˜3K˜3K˜4K˜0K˜.K˜/K˜9K˜)K˜,K˜0K˜6K˜5K˜3K˜9K˜0K˜,šŸœ˜K˜&K˜——K˜š
Ÿ˜KšœŸœ˜—K˜—˜š
œ™K˜K˜š œŸœŸœŸœ˜S˜
KšœŸœ˜+Kšœ	Ÿœ˜!Kš
œ˜šŸœŸœ
Ÿ˜!KšœŸœ˜'K˜)K˜,K˜,K˜+K˜)KšŸœ
˜—šŸœŸ˜˜	J™J™šŸœŸœ
ŸœŸ™J™-J™.J™0J™/J™-JšŸœ
™—J™KšœŸœ>˜G—˜
J™J™šŸœŸœ
ŸœŸ™J™-J™.J™0J™/J™-JšŸœ
™—J™KšœŸœF˜O—˜J™J™šŸœŸœ
ŸœŸ™J™-J™.J™0J™/J™-JšŸœ
™—J™KšœŸœD˜M—˜Kšœ	Ÿ˜J™J™šŸœŸœ
ŸœŸ™J™-J™.J™0J™/J™-JšŸœ
™—K˜KšœŸœ_˜h—˜K˜KšœŸœ
˜J™J™šŸœŸœ
ŸœŸ™J™-J™.J™0J™/J™-JšŸœ
™—K˜ K˜KšœŸœ^˜g—˜J™J™šŸœŸœ
ŸœŸ™J™-J™.J™0J™/J™-JšŸœ
™—J™KšœŸœB˜K—KšŸœŸœ
˜—K˜—K˜—Jš
œ™š œŸœŸœŸœ˜R˜
KšœŸœ˜+Kšœ	Ÿœ˜!Kš
œ˜šŸœŸœ
Ÿ˜!KšœŸœ˜'K˜)K˜,K˜,K˜+K˜)KšŸœ
˜—šŸœŸ˜˜	J™J™šŸœŸœ
ŸœŸ™J™-J™.J™0J™/J™-JšŸœ
™—J™KšœŸœ'˜0—˜
J™J™šŸœŸœ
ŸœŸ™J™-J™.J™0J™/J™-JšŸœ
™—J™KšœŸœ?˜H—˜J™J™šŸœŸœ
ŸœŸ™J™-J™.J™0J™/J™-JšŸœ
™—J™KšœŸœ-˜6—˜Kšœ	Ÿ˜J™J™šŸœŸœ
ŸœŸ™J™-J™.J™0J™/J™-JšŸœ
™—K˜KšœŸœ:Ÿœ˜L—˜K˜KšœŸœ
˜J™J™šŸœŸœ
ŸœŸ™J™-J™.J™0J™/J™-JšŸœ
™—K˜ K˜KšœŸœ3˜<—™J™J™šŸœŸœ
ŸœŸ™J™-J™.J™0J™/J™-JšŸœ
™—J™JšœŸœ$Ÿœ™6—KšŸœŸœ
˜—K˜—K˜—K˜š œŸœŸœ˜KK˜šŸœŸœ
ŸœŸ˜'K˜ KšŸœ
˜—K˜—K˜š œŸœŸœ˜DK˜šŸœŸœ
ŸœŸ˜'K˜KšŸœ
˜—K˜—K˜š œŸœŸœ˜AK˜K˜K˜K˜J™šŸœŸœ
ŸœŸ™'J™"JšŸœ
™—K˜—K˜š œŸœŸœ˜CK˜šŸœŸœ
ŸœŸ˜$Kš
œ-˜-K˜,KšŸœ
˜—K˜—K˜š œŸœŸœŸœ˜N˜
Kšœ
Ÿœ˜(KšœŸœ˜šŸœŸœ
ŸœŸ˜%K˜-K˜%KšŸœ
˜—K˜—K˜—K˜š œŸœŸœŸœ˜M˜
Kšœ
Ÿœ˜(KšœŸœ˜%šŸœŸœ
ŸœŸ˜%K˜KšŸœ
˜—K˜—K˜—K˜š œŸœŸœŸœ˜S˜
KšœŸœ˜,šŸœŸ˜˜K˜K˜KšœŸœ.˜7—˜K˜K˜KšœŸœ4˜=—˜K˜K˜KšœŸœ.˜7—KšŸœŸœ
˜—K˜—K˜—K˜š œŸœŸœŸœ˜V˜
Kšœ
Ÿœ˜(KšœŸœ"˜,šŸœŸœ
ŸœŸ˜%K˜2K˜&KšŸœ
˜—K˜—K˜—K˜š œŸœŸœŸœ˜L˜
Kšœ
Ÿœ˜(KšœŸœ˜%šŸœŸœ
ŸœŸ˜%K˜.K˜-KšŸœ
˜—K˜—K˜—K˜š œŸœŸœ˜JKšœŸœ˜"K˜šŸœŸœ
Ÿ˜!K˜0K˜3K˜3K˜2K˜0KšŸœ
˜—šŸœŸœ
Ÿ˜šœŸœ˜$J™šŸœŸœ
ŸœŸ™J™,J™-J™/J™.J™,JšŸœ
™—KšŸœ’˜K˜—šœŸœ!˜(J™ šŸœŸœ
ŸœŸ™J™.J™/J™1J™0J™.JšŸœ
™—KšŸœ’˜K˜—šœŸœ ˜'J™#šŸœŸœ
ŸœŸ™J™1J™2J™4J™3J™1JšŸœ
™—KšŸœ’˜K˜—šœŸœ*˜1J™#šŸœŸœ
ŸœŸ™J™1J™2J™4J™3J™1JšŸœ
™—K˜!K˜—šœŸœ#˜*J™&šŸœŸœ
ŸœŸ™J™4J™5J™7J™6J™4JšŸœ
™—K˜K˜ K˜—šœŸœ˜&J™"šŸœŸœ
ŸœŸ™J™0J™1J™3J™2J™0JšŸœ
™—KšŸœ’˜K˜—KšŸœ
˜—K˜—K˜š œŸœŸœŸœ˜V˜
Kšœ
Ÿœ˜(KšœŸœ#˜-šŸœŸœ
ŸœŸ˜%K˜$K˜'KšŸœ
˜—K˜—K˜—K˜š œŸœŸœ˜MK˜šŸœŸœ
ŸœŸ˜'K˜1K˜%KšŸœ
˜—K˜—K˜š œŸœŸœ˜MK˜šŸœŸœ
ŸœŸ˜'K˜#K˜&KšŸœ
˜—K˜—K˜——˜K˜UK˜!—K˜K˜—…—Eβvl