
DIRECTORY
AdobeCommon USING [DataHandle, FormatType, InitialSetStatus, Handle, OrderInfo, ReportFields, RowBuffer, SetStatus, StringArray],
AdobeOps USING [ARNumber, ARSystemHandle, nilARNumber, ToolType, QueryList],
Buttons USING [ButtonProc],
Containers USING [Container],
IO USING [STREAM],
Rope USING [ROPE];

AdobeCommonInternal: CEDAR DEFINITIONS = {

SystemNotFound: SIGNAL[system: Rope.ROPE];
NoServer: SIGNAL;
NoService: SIGNAL;


InstanceDataHandle: TYPE = REF InstanceData;
InstanceData: TYPE = RECORD [
formSW: Containers.Container ¬ NIL, 
cmdSW: Containers.Container ¬ NIL,
background: BOOLEAN ¬ TRUE,
formDirty: BOOLEAN ¬ FALSE,
toolData: SELECT type:AdobeOps.ToolType FROM
edit => [
checkedOut: BOOLEAN ¬ FALSE, 
arIdNumber: AdobeOps.ARNumber ¬ AdobeOps.nilARNumber, 
useQL: BOOLEAN ¬ FALSE,
fileName: Rope.ROPE ¬ NIL,
qlName: Rope.ROPE ¬ NIL,
qlSetStatus: AdobeCommon.SetStatus ¬ AdobeCommon.InitialSetStatus,
qlHandle: AdobeOps.QueryList ¬ NIL],
submit => [
fileName: Rope.ROPE ¬ NIL],
report => [
format: AdobeCommon.FormatType ¬ plain,
overwrite: BOOLEAN ¬ FALSE,
outputFile: Rope.ROPE ¬ NIL,
outSH: IO.STREAM ¬ NIL,
templateFile: Rope.ROPE ¬ NIL,
qlName: Rope.ROPE ¬ NIL,
fieldsInReport: AdobeCommon.ReportFields ¬ NIL,
orderInfo: AdobeCommon.OrderInfo ¬ NIL,
rowBuffer: AdobeCommon.RowBuffer ¬ NIL, --[NIL, NIL],
rowLength: CARDINAL ¬ 0,
entryBytes: EntryBytes,
sortKeysSH: IO.STREAM ¬ NIL
],
query  => [
queryStrings: REF AdobeCommon.StringArray ¬ NIL,
qlName: Rope.ROPE ¬ NIL],
sort   => [
maxLen: Rope.ROPE ¬ NIL,
sortInputFile: Rope.ROPE ¬ NIL,
sortOutputFile: Rope.ROPE ¬ NIL,
keySpecs: Rope.ROPE ¬ NIL,
fileNumber: CARDINAL ¬ 1,
inputSH: IO.STREAM ¬ NIL,
outputSH: IO.STREAM ¬ NIL,
sortKeysSH: IO.STREAM ¬ NIL
],
queryList  => [
operand1: Rope.ROPE ¬ NIL,
operand2: Rope.ROPE ¬ NIL,
result: Rope.ROPE ¬ NIL,
list: Rope.ROPE ¬ NIL],
ENDCASE];

EntryBytes: TYPE = REF EntryBytesType ¬ NIL;
EntryBytesType: TYPE = RECORD [
eb: CARDINAL ¬ 0];
editHeraldName: Rope.ROPE;
editCkdOutHeraldName: Rope.ROPE;
submitHeraldName: Rope.ROPE;
reportHeraldName: Rope.ROPE;
queryHeraldName: Rope.ROPE;
sortHeraldName: Rope.ROPE;
queryListHeraldName: Rope.ROPE;


CreateEditSW: PROCEDURE[w: AdobeCommon.Handle, makeCmdSW: BOOLEAN]
RETURNS [initialMsg: Rope.ROPE];
CreateSubmitSW: PROCEDURE[w: AdobeCommon.Handle, makeCmdSW: BOOLEAN]
RETURNS [initialMsg: Rope.ROPE];
CreateReportSW: PROCEDURE[w: AdobeCommon.Handle, makeCmdSW: BOOLEAN]
RETURNS [initialMsg: Rope.ROPE];
CreateQuerySW: PROCEDURE[w: AdobeCommon.Handle, makeCmdSW: BOOLEAN]
RETURNS [initialMsg: Rope.ROPE];
CreateSortSW: PROCEDURE[w: AdobeCommon.Handle, makeCmdSW: BOOLEAN]
RETURNS [initialMsg: Rope.ROPE];
CreateQuerylistSW: PROCEDURE[w: AdobeCommon.Handle, makeCmdSW: BOOLEAN]
RETURNS [initialMsg: Rope.ROPE];
FixOrdering: PROCEDURE[data: AdobeCommon.DataHandle,
formProc: Buttons.ButtonProc, w: AdobeCommon.Handle, index: CARDINAL]
RETURNS [msg: Rope.ROPE]; 
AllocateInstanceData: PROCEDURE[data: AdobeCommon.DataHandle]
RETURNS[instanceData: InstanceDataHandle];


StartSystem: PROCEDURE[toolData: AdobeCommon.DataHandle, arSH: AdobeOps.ARSystemHandle];
FlushCurrentSystem: PROCEDURE[toolData: AdobeCommon.DataHandle];


GetSystemDescriptionFromParent: PROCEDURE[toolData, parent: AdobeCommon.DataHandle] RETURNS[arSH: AdobeOps.ARSystemHandle];
OpenAccessSession: PROCEDURE[toolData: AdobeCommon.DataHandle];
ProcessUserDotCM: PROCEDURE[toolData: AdobeCommon.Handle];
SetDefaultsAndUserContext: PROCEDURE[toolData: AdobeCommon.DataHandle, 
arSH: AdobeOps.ARSystemHandle];
SetFieldDirty: Buttons.ButtonProc;
SetReadOnlys: PROCEDURE [data: AdobeCommon.Handle];
SetTheDefaults: PROCEDURE[data: AdobeCommon.Handle, sysMustOnly: BOOLEAN];
SetTinyName: PROCEDURE [toolData: AdobeCommon.Handle];
SetWindowName: PROCEDURE[w: AdobeCommon.Handle, system, toolName: Rope.ROPE];
SetTypedInitialSystem: PROCEDURE[r: Rope.ROPE];


ClickToConfirm: PROCEDURE [data: AdobeCommon.Handle, 
couldBeForked: BOOLEAN ¬ TRUE] RETURNS [confirmed: BOOLEAN];

}.

   و  
AdobeCommonInternal.mesa
Copyright س 1990 b, 1992y Xerox Corporation. All rights reserved.
Philip James, June 21, 1991 4:22 pm PDT
ARAccess USING [ARHandle],
Types
sH: Stream.Handle _ NIL, 
arH: ARAccess.ARHandle _ NIL, 
editMenu: Menu.Handle _ NIL,
sH: Stream.Handle _ NIL,
herald Names
Tool Creation Routines
MakeARFormSW: FormSW.ClientItemsProcType;
Routines for changing between systems
Other routines
SetLogin: PROCEDURE[session: ARAccess.Session];
Routine for confirmation
‌تè  –(cedarcode) style•NewlineDelimiter
™ ڑœ™Jڑœ	دeœ5™AJ™'—Icodeک ڑدk	ک	Kڑœ‍œpکپKڑœ	‍œ>کLJڑœ	‍œ™Kڑœ‍œکKڑœ‍œکKڑ‍œ‍œ‍œکKڑœ‍œ‍œکKک —ڑدnœ‍œ‍œک*Kک Kڑںœ‍œ‍œک*Kڑںœ‍œکKڑں	œ‍œکKک Jڑœ™Kک Kڑœ‍œ‍œک,ڑœ‍œ‍œکKڑœ‍œک$Kڑœ‍œک"Kڑœ‍œ‍œکKڑœ‍œ‍œکKڑœ
‍œ‍ک,ک	Kڑœ‍œ‍œکKک6Jڑœ‍œ™Jڑœ‍œ™Kڑœ‍œ‍œکKڑœ‍œ‍œکJڑœ‍œ™Kڑœ‍œ‍œکKکBKڑœ‍œک$—کJڑœ‍œ™Kڑœ‍œ‍œک—کKک'Kڑœ‍œ‍œکKڑœ‍œ‍œکKڑœ‍œ‍œ‍œکKڑœ‍œ‍œکKڑœ‍œ‍œکKڑœ+‍œک/Kڑœ#‍œک'Kڑœ#‍œدcک5Kڑœ‍œکKڑœکKڑœ‍œ‍œ‍کKڑœک—کKڑœ‍œ‍œک0Kڑœ‍œ‍œک—کKڑœ‍œ‍œکKڑœ‍œ‍œکKڑœ‍œ‍œک Kڑœ‍œ‍œکKڑœ‍œکKڑœ	‍œ‍œ‍œکKڑœ‍œکKڑœ‍کKڑœک—کKڑœ‍œ‍œکKڑœ‍œ‍œکKڑœ‍œ‍œکKڑœ‍œ‍œک—Kڑ‍œک	—Kک Kڑœ‍œ‍œ‍œک,ڑœ‍œ‍œکKڑœ‍œک—Jڑœ™Kڑœ‍œکKڑœ‍œک Kڑœ‍œکKڑœ‍œکKڑœ‍œکKڑœ‍œکKڑœ‍œکKک Jڑœ™Kک Kڑ
ںœ‍	œ#‍œ‍œ‍œکcKڑ
ںœ‍	œ#‍œ‍œ‍œکeKڑ
ںœ‍	œ#‍œ‍œ‍œکeKڑ
ںœ‍	œ#‍œ‍œ‍œکdKڑ
ںœ‍	œ#‍œ‍œ‍œکcKڑ
ںœ‍	œ#‍œ‍œ‍œکhJڑںœ™)Kڑ
ںœ‍	œ[‍œ‍œ‍œک•Kڑںœ‍	œ‍œ#کhKک Kک Jڑœ%™%Kڑںœ‍	œBکXKڑںœ‍	œ#ک@Kک Jڑœ™Kک Kڑںœ‍	œ+‍œ ک{Kڑںœ‍	œ#ک?Kڑںœ‍	œک:Kڑںœ‍	œCکgKڑںœک"Jڑںœ‍	œ™/Kڑںœ‍	œک3Kڑںœ‍	œ(‍œکJKڑںœ‍	œ ک6Kڑںœ‍	œ/‍œکMKڑںœ‍	œ	‍œک/Kک Jڑœ™Kک Kڑںœ‍	œ,‍œ‍œ‍œ‍œکrKک KکKک —— …—    ®  |  