

DIRECTORY
AdobeOps,
AdobeToolContext,
BasicTime USING [nullGMT],
Rope USING [ROPE];

AdobeToolContextImplA: CEDAR PROGRAM 
EXPORTS AdobeToolContext =
BEGIN

ValueSequencePtr: TYPE = REF ValueSequence;
ValueSequence: TYPE = RECORD [seq: SEQUENCE length: CARDINAL OF Rope.ROPE];

loginName: Rope.ROPE м NIL;


InitializeUserContext: PUBLIC PROCEDURE [
arSH: AdobeOps.ARSystemHandle, tool: AdobeOps.ToolType]
RETURNS [userContext: AdobeToolContext.UserContext] =
BEGIN
userContext м NEW[AdobeToolContext .UserContextRec[arSH.fieldList.length]];
userContext.arSH м arSH;
InitializedToNonDisplayed[userContext];
SetDisplayed[userContext, tool];
END;

UCOR: TYPE ~ AdobeToolContext.UserContextObjectRec;
UCBR: TYPE ~ AdobeToolContext.UserContextBodyRec;

InitializedToNonDisplayed: PROCEDURE [
userContext: AdobeToolContext.UserContext] =
BEGIN
FOR i: CARDINAL IN [0..userContext.length) DO
userContext[i] м NEW[UCOR.nonDisplayedField м [FALSE, nonDisplayedField[NIL]]]
ENDLOOP;
END;

SetDisplayed: PROCEDURE [
uC: AdobeToolContext.UserContext, tool: AdobeOps.ToolType] =
BEGIN
formOrder: AdobeOps.UserSpecifiedOrder м uC.arSH.formSWOrderArray[tool];
fL: AdobeOps.FieldList м uC.arSH.fieldList;
FOR i: CARDINAL IN [0..formOrder.length) DO
WITH fL[formOrder[i]] SELECT FROM
body: AdobeOps.ArFIO =>
uC[formOrder[i]] м NEW[UCOR.displayedField м 
[FALSE, displayedField[NEW[UCBR м [arId[AdobeOps.nilARNumber]]]]]];
body: AdobeOps.FixFIO =>
uC[formOrder[i]] м NEW[UCOR.displayedField м 
[FALSE, displayedField[NEW[UCBR м [fixedLengthString[NIL]]]]]];
body: AdobeOps.StrFIO => uC[formOrder[i]] м NEW[UCOR.displayedField м 
[FALSE, displayedField[NEW[UCBR м [string[NIL]]]]]];
body: AdobeOps.DateFIO =>
uC[formOrder[i]] м NEW[UCOR.displayedField м 
[FALSE, displayedField[NEW[UCBR м [dateTime[NIL, BasicTime.nullGMT]]]]]];
body: AdobeOps.NumFIO => uC[formOrder[i]] м NEW[UCOR.displayedField м 
[FALSE, displayedField[NEW[UCBR м [numeric[0]]]]]];
body: AdobeOps.EnumFIO =>
uC[formOrder[i]] м NEW[UCOR.displayedField м 
[FALSE, displayedField[NEW[UCBR м [enumerated[AdobeOps.nilEnum]]]]]];
ENDCASE;
ENDLOOP;
END;

FreeUserContext: PUBLIC PROCEDURE [uCPtr: REF AdobeToolContext.UserContext] = {
ResetUserContext[uCPtrн]; 
};

ResetUserContext: PUBLIC PROCEDURE [uC: AdobeToolContext.UserContext] = {
FOR i: CARDINAL IN [0..uC.length) DO
WITH uC[i] SELECT FROM
type: REF UCOR.nonDisplayedField => {}; --z.FREE[@type.readOnlyField];
type: REF UCOR.displayedField =>
WITH type.editableField SELECT FROM
body: REF UCBR.arId => body.arn м AdobeOps.nilARNumber;
body: REF UCBR.dateTime => {}; --z.FREE[@body.temp];
body: REF UCBR.numeric => body.num м 0;
body: REF UCBR.fixedLengthString => {}; --z.FREE[@body.s];
body: REF UCBR.string => {}; --z.FREE[@body.s];
body: REF UCBR.enumerated => body.value м AdobeOps.nilEnum;
ENDCASE;
ENDCASE;
ENDLOOP;
};

ClearUserContext: PUBLIC PROCEDURE [uC: AdobeToolContext.UserContext] = {
FOR i: CARDINAL IN [0..uC.length) DO
WITH uC[i] SELECT FROM
type: REF UCOR.displayedField =>
WITH type.editableField SELECT FROM
body: REF UCBR.arId => body.arn м AdobeOps.nilARNumber;
body: REF UCBR.dateTime => IF body.temp # NIL THEN body.temp м NIL; --.Length м 0;
body: REF UCBR.numeric => body.num м 0;
body: REF UCBR.fixedLengthString => IF body.s # NIL THEN body.s м NIL; -- body.s.Length м 0;
body: REF UCBR.string => IF body.s # NIL THEN body.s м NIL; -- body.s.Length м 0;
body: REF UCBR.enumerated => body.value м AdobeOps.nilEnum;
ENDCASE;
ENDCASE;
ENDLOOP};


END.....


   L  
Copyright ╙ 1983, 1984, 1985  , 1992by Xerox Corporation. All rights reserved. 
File: AdobeToolContextImplA.mesa
Freedman  	19-Jul-83 11:26:51
RSF	 	28-Feb-84 16:25:10
JCS	 	31-Jul-85 15:48:58
Philip James, February 1, 1991 10:57 am PST
sequence used for Table Lookup
allocate user context with object the size of field list
Э╩B  ХNewlineDelimiter
Ц(cedarcode) styleЩ ЪЬ	╧eЬCЩOJЪЬ Щ JЪЬЩJЪЬЩJЪЬЩJЪЬ+Щ+ЧIcodeШ KШ KШ Ъ╧k	Ш	KЪЬ	Ш	KШKЪЬ
ЮЬШKЪЬЮЬЮЬШЧKШ Ъ╧nЬЮЬЮЬШ%KЪЮЬШKЪЮШЧШ JЪЬЩKЪЬЮЬЮЬШ+KЪЬЮЬЮЬЮЬ	ЮЬЮЬЮЬШKЧШ KЪЬЮЬЮЬШЧKШ Ш ЪЯЬЮЬЮ	ЬШ)KЪЬ7Ш7KЪЮЬ.Ш5KЪЮШJЪЬ8Щ8KЪЬЮЬ:ШKKШKШ'KШ KЪЮЬШЧKШ KЪЮЬЮЬ)Ш3KЪЮЬЮЬ'Ш1KШ ЪЯЬЮ	ЬШ&KШ,KЪЮШЪЮЬЮЬЮЬЮШ-KЪ	ЬЮЬЮЬЮЬЮЬШNKЪЮЬШЧKЪЮЬШЧЧШ ЪЯЬЮ	ЬШKЪЬ<Ш<KЪЮШKШHKШ+ЪЮЬЮЬЮЬЮШ+ЪЮЬЮЬЮШ!ЪЬШKЪЬЮЬЮЬЮЬЮЬЮЬ$ШqЧЪЬШKЪЬЮЬЮЬЮЬЮЬЮЬЮЬШmЧKЪЬ,ЮЬЮЬЮЬЮЬЮЬЮЬШ{ЪЬШKЪЬЮЬЮЬЮЬЮЬЮЬЮЬШwЧKЪЬ,ЮЬЮЬЮЬЮЬЮЬШzЪЬШKЪЬЮЬЮЬЮЬЮЬЮЬ&ШsЧKЪЮЬШЧKЪЮЬШЧKЪЮЬШЧЧШ ЪЯЬЮЬЮ	Ь	ЮЬ"ШOKШKЪЬШЧЧШ ЪЯЬЮЬЮ	Ь'ШIЪЮЬЮЬЮЬЮШ$ЪЮЬЮЬЮШKЪЬЮЬЮЬ╧cШFЪЬЮЬЮЬШ ЪЮЬЮЬЮШ#KЪЬЮЬ)Ш7KЪЬЮЬаШ4KЪЬЮЬЮЬШ'KЪЬЮЬаШ:KЪЬЮЬаШ/KЪЬЮЬ-Ш;KЪЮЬШЧЧKЪЮЬШЧKЪЮЬШЧKЪЬШЧЧШ ЪЯЬЮЬЮ	Ь'ШIЪЮЬЮЬЮЬЮШ$ЪЮЬЮЬЮШЪЬЮЬЮЬШ ЪЮЬЮЬЮШ#KЪЬЮЬЮЬ)Ш7KЪЬЮЬЮЬЮЬЮЬЮЬЮЬа
ЬаШRKЪЬЮЬЮЬШ'KЪЬЮЬЮЬЮЬ
ЮЬЮЬ
ЮЬаЬаШ\KЪЬЮЬЮЬЮЬ
ЮЬЮЬ
ЮЬаЬаШQKЪЬЮЬЮЬ-Ш;KЪЮЬШЧЧKЪЮЬШЧKЪЮЬШ	ЧЧЧKШ KШ Ш KЪЮЬШЧKШ KШ Ч ЕЧ    ж  4  