
DIRECTORY
AdobeOps USING [ARNumber, ARSystemHandle, EnumeratedSequence,
FieldList, FieldType, KeyedPossibilities, ToolType],
ARAccess USING [ARStorage],
BasicTime USING [GMT],
IO USING [STREAM],
Rope USING [ROPE];

AdobeToolContext: CEDAR DEFINITIONS =
BEGIN
DefaultType: TYPE = {systemMust, userDefault};

BlockTooSmall:  ERROR;

StreamError: ERROR [type: Type];
Type: TYPE = {
fieldListEmpty, fieldNameNotFound, badValueField, badFieldNameField,
missingFieldNameField, missingValueField};

EnumError: ERROR [why: EnumProblemType];
EnumProblemType: TYPE = {noMatch};

CreateStream: PROCEDURE[fL: AdobeOps.FieldList] RETURNS[ARAccess.ARStorage];

DisplayType: TYPE = {displayedField, nonDisplayedField};

Indices: TYPE = [1..50);


UserContextHandle: TYPE = REF UserContextObject;
UserContext: TYPE = REF UserContextRec;
UserContextRec: TYPE = RECORD[
arSH: AdobeOps.ARSystemHandle,
context: SEQUENCE length: CARDINAL OF UserContextObject];

UserContextObject: TYPE = REF UserContextObjectRec;
UserContextObjectRec: TYPE = RECORD[
dirty: BOOLEAN м FALSE,
body:
SELECT type: DisplayType FROM
nonDisplayedField => [readOnlyField: Rope.ROPE],
displayedField => [editableField: UserContextBody],
ENDCASE];

UserContextBody: TYPE = REF UserContextBodyRec;
UserContextBodyRec: TYPE = RECORD [
SELECT type: AdobeOps.FieldType FROM
arId => [arn: AdobeOps.ARNumber],
fixedLengthString, string => [s: Rope.ROPE],  
dateTime => [temp: Rope.ROPE, dt: BasicTime.GMT], 
numeric => [num: CARDINAL],
enumerated => [value: CARD16],
ENDCASE];

InitializeUserContext: PROCEDURE[arSH: AdobeOps.ARSystemHandle, 
tool: AdobeOps.ToolType] RETURNS[userContext: UserContext];
FreeUserContext: PROCEDURE[uCPtr: REF UserContext];
ResetUserContext: PROCEDURE[uC: UserContext];
ClearUserContext: PROCEDURE[uC: UserContext];

FindPossibilities: PROCEDURE[value: CARDINAL, possibilities: AdobeOps.KeyedPossibilities]
RETURNS[AdobeOps.EnumeratedSequence];
GetValueFromEnumString: PROCEDURE[s: Rope.ROPE, uC: AdobeToolContext.UserContext, index: CARDINAL] RETURNS[value: CARDINAL];  
GetEnumValueFromUC: PROCEDURE[uC: AdobeToolContext.UserContext, index: CARDINAL]
RETURNS[value: CARDINAL];

ConvertStreamDataToUserContext: PROCEDURE[sH: IO.STREAM, to: UserContext];
ConvertUserContextToStreamData: PROCEDURE[sH: IO.STREAM, from: UserContext];

GetValuePairFromTable: PROCEDURE[index: CARDINAL, sH: ARAccess.ARStorage --IO.STREAM--]
RETURNS[value: Rope.ROPE];
ResetDataTableValues: PROCEDURE[sH: IO.STREAM];

END...	  


  ▄  
Copyright ╙ 1985  , 1992by Xerox Corporation. All rights reserved. 
AdobeToolContext.mesa
MXF      x
RSF        20-Mar-85 16:18:10
JCS        12-Sep-85 14:17:17
Philip James, February 19, 1991 4:34 pm PST
Stream USING [Handle],
Time USING [Packed];
raised if GetBlock called with block size less than 2
raised from calls to GetFieldValue, GetFieldValuePair and ReadAR
For Report to use in getting strings from an AR file  
For Report. Resets the length of value to 0.
 Э╩╞  ХNewlineDelimiter
Ц(cedarcode) styleЩ ЪЬ	╧eЬ7ЩCJЪЬЩJЪЬ
Щ
JЪЬЩJЪЬЩJЪЬ+Щ+ЧIcodeШ Ъ╧k	Ш	ЪЬ	ЮЬ/Ш=KШ4ЧKЪЬ	ЮЬШKЪЬ
ЮЬЮЬШKЪЮЬЮЬЮЬШKЪЬЮЬЮЬШJЪЬЮЬ
ЩJЪЬЮЬ
ЩKШ ЧKЪ╧nЬЮЬШ%ЪЮШKЪЬЮЬШ.KШ JЪЬ5Щ5KЪЯЬЮЬШЧШ JЪЬ@Щ@KЪЯЬЮЬШ ЪЬЮЬШKШDKШ*KШ ЧKЪЯ	ЬЮЬШ(KЪЬЮЬШ"KШ KЪЯЬЮ	ЬЮЬШLKШ KЪЬЮЬ'Ш8KШ ЪЬ	ЮЬШKШ ЧKШ KЪЬЮЬЮЬШ0KЪЬЮЬЮЬШ'ЪЬЮЬЮЬШKШKЪЬ	ЮЬ	ЮЬЮЬШ9KШ ЧKЪЬЮЬЮЬШ3ЪЬЮЬЮЬШ$KЪЬЮЬЮЬШШЪЮЬЮШKЪЬ*ЮЬШ0KШ3KЪЮЬШ	ЧKШ ЧЧKЪЬЮЬЮЬШ/ЪЬЮЬЮЬШ#ЪЮЬЮШ$KШ!KЪЬ&ЮЬШ.KЪЬЮЬЮЬШ2KЪЬЮЬШKЪЬЮЬШKЪЮЬШ	KШ ЧЧKЪЯЬЮ	Ь9ЮЬШ|KЪЯЬЮ	ЬЮЬШ3KЪЯЬЮ	ЬШ-KЪЯЬЮ	ЬШ-KШ ЪЯЬЮ	ЬЮЬ-ШYKЪЮЬШ%ЧKЪЯЬЮ	Ь	ЮЬ+ЮЬЮЬЮЬШ~ЪЯЬЮ	Ь*ЮЬШPKЪЮЬЮЬШЧKШ KЪЯЬЮ	ЬЮЬЮЬШJKЪЯЬЮ	ЬЮЬЮЬШLЧШ JЪЬ6Щ6ЪЯЬЮ	ЬЮЬ╧cЬШWKЪЮЬЮЬШЧJЪЬ,Щ,ЪЯЬЮ	ЬЮЬЮЬШ/KШ ЧЧЪЮЬШ	KШ ЧKШ KШ Ч ЕЧ    	║  \  