
DIRECTORY
AdobeP75V2,
Rope USING [ROPE];

AdobeOps: CEDAR DEFINITIONS = {

Place: TYPE = RECORD [x, y: INTEGER];

ARNumber: TYPE = LONG CARDINAL;
nilARNumber: ARNumber = 0;
nilPossibilities: EnumeratedSequence;
nullDependsOnIndex: DependsOnIndex = LAST[CARD16];
ARVersion: TYPE = LONG CARDINAL;

ARSystemHandle: TYPE = REF ARSystemObject;
ARSystemObject: TYPE = RECORD [
name: Rope.ROPE м NIL,  -- name of the ARSystem --
host: Rope.ROPE м NIL,  -- file server where the ARs are stored --
directory: Rope.ROPE м NIL,  -- directory where the ARs are stored --
refCount: CARDINAL м 0, -- number of active Adobe tools using this system --
sysQL: QueryList м NIL,
otherQLs: QLHandle м NIL,
version: ARVersion м 0,   -- description version --
service:  Rope.ROPE м NIL,
fieldList: AdobeP75V2.FieldList м NIL,
formSWOrderArray: FormSWOrder м ALL[NIL]];  -- specifies display order of FormSW items for individual tools --

WhichToRead: TYPE = {fieldname, fieldvalue};
ARValuesList: TYPE = REF ARValues;
ARValues: TYPE = MACHINE DEPENDENT RECORD[
arseq: SEQUENCE length: CARDINAL OF ARFieldType];
ARFieldType: TYPE = ARRAY WhichToRead OF Rope.ROPE м ALL[NIL];

FormSWOrder: TYPE = ARRAY ToolType OF UserSpecifiedOrder;
UserSpecifiedOrder: TYPE = REF UserOrderSequence;
UserOrderSequence: TYPE = RECORD[
order: SEQUENCE length: CARDINAL OF CARDINAL];

FieldList: TYPE = AdobeP75V2.FieldList;
FieldListArray: TYPE =  AdobeP75V2.FieldListArray;
FieldItemHandle: TYPE = REF FieldItemObject;
FieldItemObject: TYPE = AdobeP75V2.FieldItemObject;
FieldItemObjectRec: TYPE = AdobeP75V2.FieldItemObjectRec;
ArFIO: TYPE ~ REF arId FieldItemObjectRec;
DateFIO: TYPE ~ REF dateTime FieldItemObjectRec;
NumFIO: TYPE ~ REF numeric FieldItemObjectRec;
FixFIO: TYPE ~ REF fixedLengthString FieldItemObjectRec;
EnumFIO: TYPE ~ REF enumerated FieldItemObjectRec;
StrFIO: TYPE ~ REF string FieldItemObjectRec;

AcceleratorInfo: TYPE = AdobeP75V2.AcceleratorInfo;
KeyedPossibilities: TYPE = AdobeP75V2.KeyedPossibilities;
KeyedPossibilitiesSeq: TYPE = AdobeP75V2.KeyedPossibilitiesSeq;
Possibilities: TYPE = AdobeP75V2.Possibilities;

DefaultInfoHandle: TYPE = REF DefaultInfoObject;
DefaultInfoObject: TYPE = RECORD [
default: Rope.ROPE м NIL,
tmp: Rope.ROPE м NIL,
systemMust: BOOLEAN м FALSE,  
place: Place м [0, -1],
width: CARDINAL м 0];


QLHandle: TYPE = REF QLObject;
QLObject: TYPE = RECORD [qL: QueryList, next: QLHandle];
QueryList: TYPE = REF QueryListBody;
QueryListBody: TYPE = RECORD [name: Rope.ROPE, list: SetOfARs];

SetOfARs: TYPE = AdobeP75V2.SetOfARs;
SetOfARsObject: TYPE = AdobeP75V2.SetOfARsObject;
RunOfARs: TYPE = AdobeP75V2.RunOfARs;


DependsOnIndex: TYPE = AdobeP75V2.DependsOnIndex;
FieldType: TYPE = AdobeP75V2.FieldType;
ToolType: TYPE = AdobeP75V2.ToolType;   


EnumeratedSequence: TYPE = AdobeP75V2.EnumeratedSequence;
EnumeratedSequenceType: TYPE = AdobeP75V2.EnumeratedSequenceType;


nilEnum: CARD16 = LAST[CARD16];

}.
  ║  
AdobeOps.mesa
Copyright ╙ 1990 b, 1992y Xerox Corporation.  All rights reserved.
Philip James, February 21, 1991 4:21 pm PST
Foote, June 24, 1992 8:46 am PDT
CHNameP2V0 USING [ThreePartName],
service:  CHNameP2V0.ThreePartName _ [NIL, NIL, NIL],

FieldList: TYPE = REF FieldListArray;
FieldListArray: TYPE = RECORD[
flSeq: SEQUENCE len: CARDINAL OF FieldItemObject];
FieldItemObject: TYPE = REF FieldItemObjectRec;
FieldItemObjectRec: TYPE = RECORD [
name: Rope.ROPE _ NIL,
tmp: Rope.ROPE _ NIL,
defaultInfo: ARRAY ToolType OF DefaultInfoHandle _ ALL[NIL], 
body:
SELECT type: FieldType FROM
arId => NULL,
dateTime => NULL,
numeric => NULL,
fixedLengthString => [maxLength: CARDINAL _ 0],
enumerated => [
field: DependsOnIndex _ LAST[CARD16],  -- index of system depended on --
possibilities: KeyedPossibilities _ NIL],  -- the menu items --
string => NULL,
ENDCASE];
KeyedPossibilities: TYPE = REF KeyedPossibilitiesSeq;
KeyedPossibilitiesSeq: TYPE = RECORD [
seq: SEQUENCE len: CARDINAL OF Possibilities];
Possibilities: TYPE = RECORD [
keyedDependency: CARDINAL _ 0, enumRecs: EnumeratedSequence _ NIL];

SetOfARs: TYPE = REF SetOfARsObject;
SetOfARsObject: TYPE = RECORD [
arSeq: SEQUENCE len: CARDINAL OF RunOfARs];
RunOfARs: TYPE = RECORD [
startValue: ARNumber, runLength: LONG CARDINAL];
runLength of 1 -> single AR

DependsOnIndex:  TYPE = CARDINAL;
FieldType: TYPE = MACHINE DEPENDENT { 
arId(0), dateTime(1), numeric(2), fixedLengthString(3), enumerated(4), string(5)};
Enumerated: TYPE = RECORD [string: Rope.ROPE, value: UNSPECIFIED];
EnumeratedSequence: TYPE = REF EnumeratedSequenceType;
EnumeratedSequenceType: TYPE = MACHINE DEPENDENT RECORD [
seq(0): SEQUENCE length(0): CARDINAL OF Enumerated];
 Э╩m  ХNewlineDelimiter
Ц(cedarcode) styleЩ ЪЬЩJЪЬ	╧eЬ6ЩBJЩ+JЩ ЧIcodeШ Ъ╧k	Ш	KЪЬШJЪЬЮЬЩ!KЪЬЮЬЮЬШKШ ЧЪ╧nЬЮЬЮЬШKШ KЪЬЮЬЮЬЮЬШ%KШ KЪЬ
ЮЬЮЬЮЬШKЪЬШKЪЬ%Ш%KЪЬ%ЮЬЮЬШ2KЪЬЮЬЮЬЮЬШ KШ KЪЬЮЬЮЬШ*ЪЬЮЬЮЬШKЪЬЮЬЮЬ╧cШ2KЪЬЮЬЮЬа*ШBKЪЬЮЬЮЬа(ШEKЪЬ
ЮЬа4ШLKЪЬЮЬШKЪЬЮЬШKЪЬаШ3ЪЬЮЬЮЬШJЪЬ&ЮЬЮЬЮЬЩ5ЧKЪЬ"ЮЬШ&KЪЬ ЮЬЮЬаBШnЧKШ KЪЬЮЬШ,KЪЬЮЬЮЬ
Ш"Ъ	Ь
ЮЬЮЬЮ	ЬЮЬШ*KЪЬЮЬ	ЮЬЮЬШ1ЧЪЬЮЬЮЬЮЬЮЬЮЬШ>KШ ЧKЪЬЮЬЮЬ
ЮЬШ9KЪЬЮЬЮЬШ1ЪЬЮЬЮЬШ!KЪ	ЬЮЬ	ЮЬЮЬЮЬШ.KШ ЧKЪЬЮЬШ'KЪЬЮЬШ2KЪЬЮЬЮЬШ,KЪЬЮЬШ3KЪЬЮЬ!Ш9JЩ JЪЬЮЬЮЬЩ%ЪЬЮЬЮЬЩJЪЬЮЬЮЬЮЬЩ2ЧJЪЬЮЬЮЬЩ/ЪЬЮЬЮЬЩ#JЪЬЮЬЮЬЩJЪЬ
ЮЬЮЬЩJЪ	ЬЮЬ
ЮЬЮЬЮЬЩ=ЪЬЩЪЮЬЮЩJЪЬЮЬЩJЪЬЮЬЩJЪЬЮЬЩJЪЬ!ЮЬЩ/ЩJЪЬЮЬЮЬа!ЩHJЪЬ$ЮЬаЩ?ЧJЪЬ
ЮЬЩJЪЮЬЩ	ЧЧЧKЪЬЮЬЮЬШ*KЪЬ	ЮЬЮЬШ0KЪЬЮЬЮЬШ.KЪЬЮЬЮЬ&Ш8KЪЬ	ЮЬЮЬШ2KЪЬЮЬЮЬШ-KШ KЪЬЮЬШ3KЪЬЮЬ!Ш9KЪЬЮЬ$Ш?KЪЬЮЬШ/KШ JЪЬЮЬЮЬЩ5ЪЬЮЬЮЬЩ&JЪЬЮЬЮЬЮЬЩ.ЧЪЬЮЬЮЬЩJЪЬЮЬ%ЮЬЩCJЩ ЧKЪЬЮЬЮЬШ0ЪЬЮЬЮЬШ"KЪЬЮЬЮЬШKЪЬ
ЮЬЮЬШKЪЬЮЬЮЬШKШKЪЬЮЬШKШ ЧKШ KЪЬ
ЮЬЮЬ
ШKЪЬ
ЮЬЮЬ!Ш8KЪЬЮЬЮЬШ$KЪЬЮЬЮЬЮЬШ?KШ KШ%KШ1KШ%KШ JЪЬ
ЮЬЮЬЩ$ЪЬЮЬЮЬЩJЪЬЮЬЮЬЮЬЩ+ЧЪЬ
ЮЬЮЬЩJЪЬ!ЮЬЮЬЩ0ЪЬЩJЩ ЧЧKШ KШ KЪЬ1Ш1KЪЬЮЬШ'KЪЬ
ЮЬШ(KШ JЪЬЮЬЮЬЩ!ЪЬЮЬЮЬЮ	ЬЩ&JЩRЧKШ KЪЬЮЬ!Ш9KЪЬЮЬ%ШAKШ JЪ	ЬЮЬЮЬЮЬ	ЮЬЩBJЪЬЮЬЮЬЩ6Ъ	ЬЮЬЮЬЮ	ЬЮЬЩ9JЪЬЮЬЮЬЮЬЩ4ЧKШ KЪЬ	ЮЬЮЬЮЬШKШ KШЧЧ ЕЧ    t  Ы  