DIRECTORY
AdobeCommon USING [DataHandle, FormatType, InitialSetStatus, Handle, OrderInfo, ReportFields, RowBuffer, SetStatus, StringArray],
AdobeOps USING [ARNumber, ARSystemHandle, nilARNumber, ToolType, QueryList],
ARAccess USING [ARHandle],
Buttons USING [ButtonProc],
Containers USING [Container],
IO USING [STREAM],
Rope USING [ROPE];
AdobeCommonInternal:
CEDAR
DEFINITIONS = {
SystemNotFound: SIGNAL[system: Rope.ROPE];
NoServer: SIGNAL;
NoService: SIGNAL;
Types
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,
sH: Stream.Handle ← NIL,
arH: ARAccess.ARHandle ← NIL,
useQL: BOOLEAN ¬ FALSE,
fileName: Rope.ROPE ¬ NIL,
editMenu: Menu.Handle ← NIL,
qlName: Rope.ROPE ¬ NIL,
qlSetStatus: AdobeCommon.SetStatus ¬ AdobeCommon.InitialSetStatus,
qlHandle: AdobeOps.QueryList ¬ NIL],
submit => [
sH: Stream.Handle ← NIL,
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];
herald Names
editHeraldName: Rope.ROPE;
editCkdOutHeraldName: Rope.ROPE;
submitHeraldName: Rope.ROPE;
reportHeraldName: Rope.ROPE;
queryHeraldName: Rope.ROPE;
sortHeraldName: Rope.ROPE;
queryListHeraldName: Rope.ROPE;
Tool Creation Routines
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];
MakeARFormSW: FormSW.ClientItemsProcType;
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];
Routines for changing between systems
StartSystem: PROCEDURE[toolData: AdobeCommon.DataHandle, arSH: AdobeOps.ARSystemHandle];
FlushCurrentSystem: PROCEDURE[toolData: AdobeCommon.DataHandle];
Other routines
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;
SetLogin: PROCEDURE[session: ARAccess.Session];
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];
Routine for confirmation
ClickToConfirm: PROCEDURE [data: AdobeCommon.Handle,
couldBeForked: BOOLEAN ¬ TRUE] RETURNS [confirmed: BOOLEAN];
}.