
DIRECTORY
AdobeCommon,
AdobeCommonInternal,
AdobeOps,
IO,
Rope USING [Cat, Equal, ROPE],
ViewerClasses USING [Viewer];

AdobeCommonImplA: CEDAR MONITOR 
IMPORTS AdobeCommon, IO, Rope 
EXPORTS AdobeCommon, AdobeOps = {

FormIndex: TYPE = {tool, another, destroy, change, newSystem};
ToolState: TYPE = {active, inactive};
ToolStateProc: TYPE = PROCEDURE[inState: BOOLEAN] RETURNS [didIt: BOOLEAN];
ToolStateHandle: TYPE = REF ToolStateType;
ToolStateType: TYPE = MONITORED RECORD[
lock: MONITORLOCK,
activeTools: CARDINAL м 0,
toolList: ToolList м NIL,
inactiveTools: CARDINAL м 0];
ToolList: TYPE = REF WindowOfTool;
WindowOfTool: TYPE = RECORD [
w: AdobeCommon.Handle м NIL,
next: ToolList м NIL];

stateInfo: ToolStateHandle м NIL;

--Public herald names
editHeraldName: PUBLIC Rope.ROPE м NIL;
editCkdOutHeraldName: PUBLIC Rope.ROPE м NIL;
submitHeraldName: PUBLIC Rope.ROPE м NIL;
reportHeraldName: PUBLIC Rope.ROPE м NIL;
queryHeraldName: PUBLIC Rope.ROPE м NIL;
sortHeraldName: PUBLIC Rope.ROPE м NIL;
queryListHeraldName: PUBLIC Rope.ROPE м NIL;

sentinal: AdobeCommon.LockedSysDescPtr м NIL;

GetDescList: PUBLIC PROCEDURE[] 
RETURNS [descListHead: AdobeCommon.LockedSysDescPtr] = {
RETURN[sentinal]};

GetData: PUBLIC PROCEDURE [w: REF ANY] RETURNS [AdobeCommon.Handle] = {
RETURN [NIL]};

GetDataSW: PUBLIC PROCEDURE [sw: REF ANY]
RETURNS [AdobeCommon.Handle] = {
RETURN [NIL]};

PostMessage: PUBLIC PROCEDURE[handle: AdobeCommon.Handle, postCR: BOOL, 
message: Rope.ROPE]
= {
IF handle.messageViewer.reportStream # NIL THEN {
handle.messageViewer.reportStream.PutF1["%g", IO.rope[message]];
IF postCR THEN
handle.messageViewer.reportStream.PutRope["\n"];
};
};

SetTinyName: PUBLIC PROCEDURE [toolData: AdobeCommon.Handle] = {

SetEditLine: PROCEDURE RETURNS [Rope.ROPE м NIL] = INLINE {
instanceData: AdobeCommonInternal.InstanceDataHandle м NARROW[toolData.instanceData];
WITH instanceData SELECT FROM 
editData: REF AdobeCommonInternal.InstanceData.edit => 
IF editData.checkedOut THEN RETURN["**Edit**"]
ELSE RETURN["Edit"];
ENDCASE;
};

name: Rope.ROPE м "Adobe";
name2: Rope.ROPE м
SELECT toolData.tool FROM
edit => IF toolData.instanceData = NIL THEN "Edit" ELSE SetEditLine[],
submit => "Submit",
report => "Report",
query => "Query",
sort => "Sort",
queryList => "QueryList",
ENDCASE => NIL;
toolData.setMainName[toolData.outer, Rope.Cat[name, " ", name2]]
};

PostNumber: PUBLIC PROCEDURE [sw: AdobeCommon.Handle, postCR: BOOLEAN, 
number: CARD] = {
IF sw.messageViewer.reportStream # NIL THEN {
sw.messageViewer.reportStream.PutF1["%g", IO.card[number]];
IF postCR THEN
sw.messageViewer.reportStream.PutRope["\n"];
};
};

MakeHeraldNames: PROCEDURE = {
editHeraldName м "Adobe Edit ";
editCkdOutHeraldName м "Adobe Edit **checked out** ";
submitHeraldName м "Adobe Submit ";
reportHeraldName м "Adobe Report ";
queryHeraldName м "Adobe Query ";
sortHeraldName м "Adobe Sort ";
queryListHeraldName м "Adobe Query List ";
};

ChangeTools: PROCEDURE [toolData: AdobeCommon.Handle] RETURNS [did: BOOL м TRUE]= {
arSH: AdobeOps.ARSystemHandle;
instanceData: AdobeCommonInternal.InstanceDataHandle м NARROW[toolData.instanceData];
IF toolData.isBusy THEN {
AdobeCommon.PostMessage[toolData, TRUE, "Can't change tools while busy!"];
RETURN[FALSE]}; 
WITH instanceData SELECT FROM
inst: REF AdobeCommonInternal.InstanceData.edit => 
IF inst.checkedOut THEN {
AdobeCommon.PostMessage[toolData, TRUE, 
"Can't change tools while AR checked out!"];
RETURN[FALSE]};
inst: REF AdobeCommonInternal.InstanceData.submit => 
IF inst.formDirty THEN {
AdobeCommon.PostMessage[toolData, TRUE,
"Form has been edited!  Click to confirm!"];
RETURN[FALSE]
}
ENDCASE;
IF toolData.context # NIL THEN { --there is something to free
arSH м toolData.context.arSH;
};
};

RemoveSystemFromKnownSystems: PUBLIC PROCEDURE[name: Rope.ROPE, 
systems: AdobeCommon.SystemsHandle] = {
FOR i: CARD IN [0..systems.next) DO
IF Rope.Equal[systems.system[i], name, FALSE] THEN {
FOR j: CARD IN [i+1..systems.next) DO
systems.system[j-1] м systems.system[j];
ENDLOOP;
systems.next м systems.next - 1;
EXIT;
};
ENDLOOP;
};

nilPossibilities: PUBLIC AdobeOps.EnumeratedSequence;

Init: PROCEDURE = {
nilPossibilities м NEW[AdobeOps.EnumeratedSequenceType[1]];
nilPossibilities[0] м ["Nil", AdobeOps.nilEnum];
};

Init[];
}.
   r  
AdobeCommonImplA.mesa
Copyright ╙ 1990, 1991, 1992 by Xerox Corporation.  All rights reserved.
Philip James, March 10, 1992 10:59 am PST
Christian Jacobi, April 7, 1992 5:49 pm PDT
Foote, June 24, 1992 9:16 am PDT
Type declarations
Global Variable declarations
linked list of current system descriptions
Provide the sentinal to outside clients (never used by us)
Find the instance data, given a window handle
Find the instance data, given a subwindow handle
, v1, v2, v3: IO.Value _ [null[]]] 
toolData.outer.label _ Rope.Cat[name, " ", name2];
formItem: FormSW.ItemHandle;
formItem _ FormSW.FindItem[instanceData.formSW, index];
formItem.flags.invisible _ TRUE;
toolData.tool _ oldValue;
formItem.flags.invisible _ FALSE;
FormSW.DisplayItem[sw, index]; 
formItem м FormSW.FindItem[instanceData.formSW, index];
formItem.flags.invisible м TRUE;
toolData.tool м oldValue;
formItem.flags.invisible м FALSE;
FormSW.DisplayItem[sw, index]; 
oldCursor: Cursor.Type _ Cursor.GetInfo[].type;
Cursor.Set[mouseRed];
IF UserInput.WaitForConfirmation[].okay THEN 
Cursor.Set[oldCursor]
ELSE {
formItem _ FormSW.FindItem[instanceData.formSW, index];
formItem.flags.invisible _ TRUE;
toolData.tool _ oldValue;
formItem.flags.invisible _ FALSE;
FormSW.DisplayItem[sw, index];
Cursor.Set[oldCursor];
}
MsgSW.Clear[toolData.msgSW];
AdobeCommon.DestroyOtherSWs[toolData];
want to hang on to same ARSystemHandle
AdobeToolContext.FreeUserContext[@toolData.context, toolData.heap];
toolData.context _ AdobeToolContext.InitializeUserContext[arSH, toolData.tool, toolData.heap]
AdobeCommon.CreateOtherSWs[toolData];
EnableAdobeAborts[toolData.window];
Mainline code
Э╩x  Ц(cedarcode) styleХNewlineDelimiter
Щ ЪЬЩJЪЬ
╧eЬ=ЩHJЩ)JЩ+JЩ ЧIcodeШ Ъ╧k	Ш	KЪЬШKЪЬШKШ	KЪЮЬШKЪЬЮЬЮЬШKЪЬЮЬ
ШЧKШ Ъ╧nЬЮЬЮЬШ KЪЮЬЮЬШKЪЮЬШ!KШ JЪЬЩKЪЬЮЬ/Ш>KЪЬЮЬШ%KЪЬЮЬЮ	Ь
ЮЬЮЬЮЬШKKЪЬЮЬЮЬШ*ЪЬЮЬЮ	ЬЮЬШ'KЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШЧKЪЬ
ЮЬЮЬШ"ЪЬЮЬЮЬШKЪЬЮЬШKЪЬЮЬШKШ ЧJЪЬЩKЪЬЮЬШ!KШ KШKШ'KШ-KШ)KШ)KШ(KШ'KШ,KШ JЪЬ*Щ*KЪЬ)ЮЬШ-KШ JЪЬ:Щ:ЪЯЬЮЬЮ	ЬЮЬ1ШYKЪЮЬШЧKШ JЪЬ-Щ-ЪЯЬЮЬЮ	ЬЮЬЮЬЮЬШGKЪЮЬЮЬШЧKШ JЪЬ0Щ0ЪЯ	ЬЮЬЮ	ЬЮЬЮЬЮЬШJKЪЮЬЮЬШЧKШ KЪЯЬЮЬЮ	Ь:ЮШ\JЪЬЮЬЩ#ЪЬШЪЮЬ%ЮЬЮЬШ1KЪЬ.ЮЬШ@ЪЮЬЮШKШ0ЧKШЧKШKШ ЧKЪЯЬЮЬЮ	Ь#Ш@Ш ЪЯЬЮ	ЬЮЬЮЬЮЬЮЬШ;KЪЬ7ЮЬШUЪЮЬЮЬЮЬШЪЬ
ЮЬ*Ш7KЪЮЬЮЬЮЬШ.KЪЮЬЮЬ	ШЧKЪЮЬШЧKШKШ ЧKЪЬЮЬШЪЬЮЬШЪЮЬЮШKЪ	ЬЮЬЮЬЮЬЮЬШFKШKШKШKШKШKЪЮЬЮЬШЧЧKШ@JЩ2KШЧKШ Ъ
Я
ЬЮЬЮ	Ь"ЮЬЮЬШYЪЮЬ!ЮЬЮЬШ-KЪЬ*ЮЬШ;ЪЮЬЮШKШ,ЧKШЧKШKШ ЧЪЯЬЮ	ЬШKШKШ5KШ#KШ#KШ!KШKШ*KШЧKШ Ъ
ЯЬЮ	Ь ЮЬЮЬЮЬШSKШJЩKЪЬ7ЮЬШUЪЮЬЮЬШKЪЬ"ЮЬ$ШJJЩ7JЪЬЮЬЩ JЩJЪЬЮЬЩ!JЩKЪЮЬЮЬШЧЪЮЬЮЬЮШЪЬЮЬ*Ш3ЪЮЬЮЬШKЪЬ"ЮЬ/ШUЧJЩ7JЪЬЮЬЩ JЩJЪЬЮЬЩ!JЩKЪЮЬЮЬШЧЪЬЮЬ,Ш5ЪЮЬЮЬШJЩ/KЪЬ"ЮЬ.ШTJЩЪЮЬ&ЮЬЩ-JЩЧJЪЮЬЩJЩ7JЪЬЮЬЩ JЩJЪЬЮЬЩ!JЩJЩKЪЮЬЮЬШJЪЬЩKЪЬШЧЧKЪЮЬШЧJЩJЩ&ЪЮЬЮЬЮЬ╧cШ=JЪЬ&Щ&KШJЩCJЩ]KШЧJЩ%JЩ#KШЧKШ ЪЯЬЮЬЮ	ЬЮЬ*ШhЪЮЬЮЬЮЬЮШ#ЪЮЬ%ЮЬЮЬШ4ЪЮЬЮЬЮЬЮШ%KШ(KЪЮЬШЧKШ KЪЮЬШKШЧKЪЮЬШЧKЪЬШKШ ЧKЪЬЮЬШ5KШ ЪЯЬЮ	ЬШKЪЬЮЬ%Ш;KШ0KШЧKШ JЪЬЩKШKШЧЧ ЕЧ    ╠  ╢  