
DIRECTORY
AdobeCommon USING [AddSystemToKnownSystems, Handle, LocateSystemInKnownSystems, SysList, Systems, SystemsHandle],
AdobeCommonInternal,
AdobeOps USING [ToolType],
Rope USING [Equal, ROPE],
UserProfile USING [ListOfTokens, Number, Token];

AdobeCommonImplC: CEDAR PROGRAM 
IMPORTS AdobeCommon, AdobeCommonInternal, Rope, UserProfile
EXPORTS AdobeCommonInternal = {

typedInitialSystem: Rope.ROPE м NIL;
SetTypedInitialSystem: PUBLIC PROCEDURE[r: Rope.ROPE] ~ {
typedInitialSystem м r;
};

ProcessUserDotCM: PUBLIC PROCEDURE [handle: AdobeCommon.Handle] = {
systemName: Rope.ROPE м NIL;

handle.unboundFieldHeight м GetUBFL[];
handle.tool м handle.oldtool м GetToolName[];
handle.knownSystems м GetKnownSystems[];
IF typedInitialSystem # NIL  THEN {
systemName м  typedInitialSystem;
typedInitialSystem м NIL;
}
ELSE 
systemName м GetInitialSystem[];

handle.oldsystem м handle.system м 
AdobeCommon.LocateSystemInKnownSystems[systemName, handle.knownSystems ! AdobeCommonInternal.SystemNotFound => {AdobeCommon.AddSystemToKnownSystems[systemName, handle.knownSystems];
RETRY}];
IF handle.system # LAST[CARD] THEN 
handle.systemName м handle.knownSystems.system[handle.system];
};


GetUBFL: PROCEDURE RETURNS [len: CARD м 3] = {
profileLen: INT  м UserProfile.Number[key: "Adobe.InitialUnboundFieldLength", default: 3];
IF profileLen < 2 THEN RETURN[2];
IF profileLen > LAST[CARD] THEN 
len м LAST[CARD]
ELSE
len м profileLen;
RETURN[len];
};


GetInitialSystem: PROCEDURE RETURNS [system: Rope.ROPE] = {
system м UserProfile.Token[key: "Adobe.InitialSystem", default: "SUN of System Software:OSBU North:Xerox"];
RETURN[system];
};


GetToolName: PROCEDURE RETURNS [AdobeOps.ToolType] = {
tool: AdobeOps.ToolType м edit;
profileTool: Rope.ROPE м UserProfile.Token[key: "Adobe.InitialTool", default: "Edit"];
SELECT TRUE FROM
Rope.Equal[profileTool, "edit", FALSE] => tool м edit;
Rope.Equal[profileTool, "submit", FALSE] => tool м submit;
Rope.Equal[profileTool, "query", FALSE] => tool м query;
Rope.Equal[profileTool, "queryList", FALSE] => tool м queryList;
Rope.Equal[profileTool, "report", FALSE] => tool м report;
Rope.Equal[profileTool, "sort", FALSE] => tool м sort;
ENDCASE;
RETURN[tool];
};

GetKnownSystems: PROCEDURE 
RETURNS [knownSystems: AdobeCommon.SystemsHandle м NIL] = {
count: CARD м 0;
systemsRope: LIST OF Rope.ROPE м UserProfile.ListOfTokens[key: "Adobe.KnownSystems", default: LIST ["SUN of System Software"]];

FOR index: LIST OF Rope.ROPE м systemsRope, index.rest UNTIL index = NIL DO
count м count + 1;
ENDLOOP;
IF count > 0 THEN {
knownSystems м NEW[AdobeCommon.Systems м [0, NEW[AdobeCommon.SysList[count]]]];
knownSystems.next м count;
count м 0;
FOR index: LIST OF Rope.ROPE м systemsRope, index.rest UNTIL index = NIL DO
knownSystems.system[count] м index.first;
count м count + 1;
ENDLOOP;
};
};

}.
    И  
AdobeCommonImplC.mesa
Copyright ╙ 1990 b, 1992y Xerox Corporation. All rights reserved.
Philip James, June 26, 1991 2:42 pm PDT
 Э╩Е  Ц(cedarcode) styleХNewlineDelimiter
Щ ЪЬЩJЪЬ	╧eЬ5ЩAJЩ'ЧIcodeШ Ъ╧k	Ш	KЪЬЮЬ`ШqKШKЪЬ	ЮЬШKЪЬЮЬ	ЮЬШKЪЬЮЬШ0ЧKШ Ъ╧nЬЮЬЮЬШ KЪЮЬ4Ш;KЪЮЬШKШ KЪЬЮЬЮЬШ$ЪЯЬЮЬЮ	Ь	ЮЬШ9KШKШKШ ЧЪЯЬЮЬЮ	Ь!ШCKЪЬЮЬЮЬШKШ KШ&KШ-KШ(ЪЮЬЮЬЮЬШ#KШ!KЪЬЮЬШKШЧЪЮЬШKШ ЧKШ KЪЬ┌ЮЬШтЪЮЬЮЬЮЬЮЬШ#KШ>ЧЪЬШKШ ЧKШ ЧЪЯЬЮ	ЬЮЬЮЬ	Ш.KЪЬЮЬKШZKЪЮЬЮЬЮЬШ!ЪЮЬЮЬЮЬЮЬШ KЪЬЮЬЮЬШЧШKШЧKЪЮЬШЪЬШKШ ЧKШ ЧЪЯЬЮ	ЬЮЬЮЬШ;KШkKЪЮЬ	ШЪЬШKШ ЧKШ ЧЪЯЬЮ	ЬЮЬШ6KШKЪЬЮЬ@ШVЪЮЬЮЬЮШKЪЬ ЮЬШ6KЪЬ"ЮЬШ:KЪЬ!ЮЬШ8KЪЬ%ЮЬШ@KЪЬ"ЮЬШ:KЪЬ ЮЬШ6KЪЮЬШЧKЪЮЬШKЪЬШKШ ЧЪЯЬЮ	ЬЮЬ,ЮЬШWKЪЬЮЬШKЪ	ЬЮЬЮЬЮЬ@ЮЬШKШ ЪЮЬЮЬЮЬЮЬЮЬ	ЮЬЮШKKШKЪЮЬШЧЪЮЬЮЬШKЪЬЮЬЮЬШOKШKШ
ЪЮЬЮЬЮЬЮЬЮЬ	ЮЬЮШKKШ)KШKЪЮЬШЧKШЧKЪЬШKШ ЧKШЧЧ ЕЧ      )  