<<>> <> <> <> <> <> <> <> <> <> <> DIRECTORY AccessCH USING [NSNameFromRope], AdobeCommon, AdobeCommonInternal USING [EntryBytes, InstanceData, InstanceDataHandle], AdobeOps USING [ARSystemHandle, ARNumber, FieldItemHandle, FieldItemObject, FieldItemObjectRec, FieldList, FieldListArray, nilARNumber, QueryList, UserSpecifiedOrder, ArFIO, DateFIO, EnumFIO, FixFIO, NumFIO, StrFIO], AdobeTool, AdobeToolContext, AdobeServer, ARAccess USING [AppendChar, ARHandle, ARStorage, Error, ExamineAR, FreeAR, GetAR], Ascii USING [CR, NUL, LF, SP, TAB], BasicTime USING [Now, Unpacked], Convert USING [Error, RopeFromCard, RopeFromChar, RopeFromTime, UnpackedTimeFromRope], CrRPC USING [BulkDataXferProc], IO, PFS USING [Close, Delete, Error, Open, OpenFile, PathFromRope, StreamOpen], Rope, XNSAdobeClientOps USING [GetAcceleratorInfo]; AdobeToolImplE: CEDAR MONITOR IMPORTS AccessCH, AdobeCommon, AdobeToolContext, ARAccess, BasicTime, Convert, IO, PFS, Rope, XNSAdobeClientOps EXPORTS AdobeTool = BEGIN <> reportPos: CARDINAL = 0; formatPos: CARDINAL = 1; overwritePos: CARDINAL = 2; resetPos: CARDINAL = 3; setFieldsPos: CARDINAL = 4; rptBkgdPos: CARDINAL = 5; outFilePos: CARDINAL = 6; tmpltFilePos: CARDINAL = 7; rptQlNamePos: CARDINAL = 8; nReportParams: CARDINAL = 9; templateProblem: ERROR = CODE; <> <> <> <> <> <> <> <> <> <> <> <> <>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<"plain", AdobeCommon.FormatType.plain];>> <> <<"columns", AdobeCommon.FormatType.columns];>> <> <<"template", AdobeCommon.FormatType.template];>> <> < {>> <> <> <> <> <> <> <> <> <<--proc: ??,-- value: @reportToolData.format,>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> < ERROR; --shouldn't happen>> <> SetUpReportTool: PUBLIC PROCEDURE [handle: AdobeCommon.Handle] ~ { instanceData: AdobeCommonInternal.InstanceDataHandle ¬ NARROW[handle.instanceData]; col: {left, right} ¬ left; row: CARD ¬ 0; buttonHeight: CARDINAL ¬ 14; middle: CARD ¬ handle.getBoxGeometry[handle.fieldViewer.outer].w/2; fl: AdobeOps.FieldList ¬ handle.systemHandle.fieldList; bs: AdobeCommon.ButtonsSeq; handle.fieldViewer.buttons ¬ NEW[AdobeCommon.ButtonSeqObject[fl.length+1]]; WITH instanceData SELECT FROM id: REF AdobeCommonInternal.InstanceData.report => { id.fieldsInReport ¬ NEW[AdobeCommon.ReportFieldsSeq[fl.length]]; FOR i: CARD IN [0..id.fieldsInReport.length) DO id.fieldsInReport[i] ¬ FALSE; ENDLOOP; }; ENDCASE; bs ¬ handle.fieldViewer.buttons; bs[fl.length] ¬ NEW[AdobeCommon.EnumeratedTypesRec]; bs[fl.length].button ¬ handle.newLabelBox[ parent: handle.fieldViewer.outer, x: middle - --VFonts.StringWidth["Fields in the Report"]--200 / 2, y: row*(buttonHeight+1), name: "Fields in the Report" ]; <> <> <> <> row ¬ row + 1; FOR i: CARDINAL IN [0..fl.length) DO bs[i] ¬ NEW[AdobeCommon.EnumeratedTypesRec]; bs[i].mainViewer ¬ handle; bs[i].fieldNum ¬ i; bs[i].button ¬ handle.makeButton[ parent: handle.fieldViewer.outer, x: IF (col = left) THEN 0 ELSE middle, y: row*(buttonHeight+1), name: fl[i].name, --border: FALSE, --data: handle.fieldViewer.buttons[i], proc: $CheckField, cData: handle.fieldViewer.buttons[i]]; SELECT col FROM left => col ¬ right; right => { col ¬ left; row ¬ row + 1; }; ENDCASE; ENDLOOP; }; <> <> <> <> <> <> < {>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> backStr: Rope.ROPE ¬ NIL; <> <> <> <> ReportCommandProc: PUBLIC PROCEDURE [h: AdobeCommon.Handle] = { <> <> <> <> windowData: AdobeCommon.Handle ¬ h; <> IF windowData.system = LAST[CARDINAL] --OR windowData.context = NIL --OR windowData.knownSystems = NIL OR windowData.knownSystems.next = 0 THEN { AdobeCommon.PostMessage[windowData, TRUE, "No available systems"]; RETURN}; IF windowData.isBusy THEN AdobeCommon.PostMessage[windowData, TRUE, "Adobe system is Busy. Please try again later. "] ELSE { windowData.isBusy ¬ TRUE; <> <> <> <> <> <> AdobeCommon.CatchErrors[ --sw, item, index, --windowData, ChooseReportCmd]}--}; }; ChooseReportCmd: PROC[windowData: AdobeCommon.Handle] = { <> { ENABLE UNWIND => windowData.isBusy ¬ FALSE; <> --reportPos => --ReportProc[windowData]; < ResetProc[windowData, TRUE];>> < SetProc[windowData];>> < ERROR;>> windowData.isBusy ¬ FALSE; <> }; }; SetProc: PUBLIC PROCEDURE [windowData: AdobeCommon.Handle] = { templateList: AdobeCommon.Template; instanceData: AdobeCommonInternal.InstanceDataHandle ¬ NARROW[windowData.instanceData]; WITH instanceData SELECT FROM reportData: REF AdobeCommonInternal.InstanceData.report => { IF reportData.format # template THEN GOTO notTemplate; <> ResetProc[windowData, FALSE]; templateList ¬ ParseTemplate[windowData ! templateProblem => GOTO badTemplateFile]; templateList ¬ NIL; <> <> <> }; ENDCASE; EXITS badTemplateFile => AdobeCommon.PostMessage[windowData, TRUE, "Invalid template file specified!"]; notTemplate => NULL}; ResetProc: PUBLIC PROCEDURE [windowData: AdobeCommon.Handle, redisplay: BOOLEAN] = { instanceData: AdobeCommonInternal.InstanceDataHandle ¬ NARROW[windowData.instanceData]; WITH instanceData SELECT FROM reportData: REF AdobeCommonInternal.InstanceData.report => { <> FOR i: CARDINAL IN [0..reportData.fieldsInReport.length) DO reportData.fieldsInReport[i] ¬ FALSE; windowData.setDisplayStyle[windowData.fieldViewer.buttons[i].button, $BlackOnWhite]; ENDLOOP; <> <> }; ENDCASE}; ReportProc: PROCEDURE [windowData: AdobeCommon.Handle] = { outputFH: PFS.OpenFile ¬ NIL; <> sortKeysFileName: Rope.ROPE ¬ NIL; reportQL: AdobeOps.QueryList ¬ NIL; index: INT ¬ 0; newReportFile, success: BOOLEAN ¬ TRUE; useAccels: BOOLEAN ¬ TRUE; instanceData: AdobeCommonInternal.InstanceDataHandle ¬ NARROW[windowData.instanceData]; WITH instanceData SELECT FROM reportData: REF AdobeCommonInternal.InstanceData.report => { BEGIN ErrorCleanup: PROCEDURE = { IF reportData.outSH # NIL THEN { IO.Close[reportData.outSH]; <> IF newReportFile THEN PFS.Delete[ PFS.PathFromRope[reportData.outputFile] ! PFS.Error => CONTINUE] <> <> < CONTINUE]>> }; IF reportData.sortKeysSH # NIL THEN { IO.Close[reportData.sortKeysSH]; <> IF newReportFile AND ~Rope.IsEmpty[sortKeysFileName] THEN PFS.Delete[ PFS.PathFromRope[sortKeysFileName] ! PFS.Error => CONTINUE] <> <> < CONTINUE]>> }}; reportData.outputFile ¬ windowData.getContents[windowData.editors[1]]; { ENABLE { UNWIND => ErrorCleanup[]; templateProblem => {ErrorCleanup[]; GOTO badTemplateFile}}; AdobeCommon.PostMessage[windowData, FALSE, "Reporting..."]; <> outputFH ¬ PFS.Open[ PFS.PathFromRope[reportData.outputFile] ! PFS.Error => IF error.code = $unknownFile THEN CONTINUE ELSE GOTO outputFileProblem]; <> <> <>> <> <> IF outputFH # NIL THEN { IF ~reportData.overwrite THEN { AdobeCommon.PostMessage[windowData, TRUE, "The output file specified already exists!"]; PFS.Close[outputFH]; <> RETURN}; newReportFile ¬ FALSE; PFS.Close[outputFH]; <> }; reportQL ¬ AdobeCommon.FindThisQL[ windowData.getContents[windowData.editors[3]], windowData]; IF reportQL = NIL OR reportQL.list = NIL OR reportQL.list.len = 0 THEN { AdobeCommon.PostMessage[windowData, TRUE, "Empty QueryList!"]; RETURN}; reportData.outSH ¬ PFS.StreamOpen[PFS.PathFromRope[reportData.outputFile], create]; <> <> < GOTO outputFileProblem];>> sortKeysFileName ¬ NIL; --String.MakeString[windowData.heap, reportData.outputFile.length + 9]; UNTIL index = reportData.outputFile.Length OR reportData.outputFile.Fetch[index] = '. DO sortKeysFileName ¬ sortKeysFileName.Concat[ Convert.RopeFromChar[reportData.outputFile.Fetch[index], FALSE]]; <> index ¬ index + 1; ENDLOOP; sortKeysFileName ¬ sortKeysFileName.Concat[".sortKeys"]; <> reportData.sortKeysSH ¬ PFS.StreamOpen[ PFS.PathFromRope[sortKeysFileName], create ! PFS.Error => GOTO sortKeysFileProblem]; <> <> < GOTO sortKeysFileProblem];>> success ¬ WriteReport[windowData, reportQL];} END; --enable IO.Close[reportData.outSH]; IO.Close[reportData.sortKeysSH]; <> <> IF ~success THEN { PFS.Delete[ PFS.PathFromRope[reportData.outputFile] ! PFS.Error => CONTINUE]; PFS.Delete[ PFS.PathFromRope[sortKeysFileName] ! PFS.Error => CONTINUE] <> <> < CONTINUE];>> <> <> < CONTINUE]>> }; AdobeCommon.PostMessage[windowData, TRUE, "Done."]}; ENDCASE => ERROR; EXITS outputFileProblem => AdobeCommon.PostMessage[ windowData, TRUE, "Cannot acquire the output file specified!"]; sortKeysFileProblem => AdobeCommon.PostMessage[windowData, TRUE, "Cannot acquire sortKeys file for the output file specified!"]; badTemplateFile => AdobeCommon.PostMessage[ windowData, TRUE, "Invalid template file specified!"]}; WriteReport: PROCEDURE [data: AdobeCommon.Handle, ql: AdobeOps.QueryList] RETURNS [success: BOOLEAN ¬ TRUE] = { entryStartPos: LONG CARDINAL ¬ 0; <> instanceData: AdobeCommonInternal.InstanceDataHandle ¬ NARROW[data.instanceData]; qlStatus: AdobeCommon.SetStatus ¬ AdobeCommon.InitialSetStatus; ar: AdobeOps.ARNumber; arStream: ARAccess.ARStorage ¬ NIL; <> fieldCount: CARDINAL ¬ 0; useAccels: BOOLEAN ¬ TRUE; template: AdobeCommon.Template ¬ NIL; valueArray: REF AdobeCommon.StringArray ¬ NIL; listOfFields: REF AdobeCommon.StringArray ¬ NIL; <> <> GetFromAccels: CrRPC.BulkDataXferProc = { currentField, currentAR, len, b1, b2: CARD ¬ 0; valueArray ¬ NEW[AdobeCommon.StringArray[listOfFields.length]]; IF checkAbort[h] THEN { AdobeCommon.PostMessage[data, TRUE, "Instant Abort."]; RETURN[FALSE]; }; IF IO.EndOf[s] THEN { AdobeCommon.PostMessage[data, TRUE, "Empty stream."]; RETURN[FALSE]; }; WHILE NOT IO.EndOf[s] DO b1 ¬ ORD[IO.GetByte[s]]; b2 ¬ ORD[IO.GetByte[s]]; len ¬ (b1 * (ORD[LAST[CHAR]] + 1)) + b2; FOR i: CARD IN [0..len) DO valueArray[currentField] ¬ ARAccess.AppendChar[valueArray[currentField], IO.GetChar[s]]; ENDLOOP; IF (len MOD 2) = 1 THEN [] ¬ IO.GetChar[s]; currentField ¬ currentField + 1; IF currentField >= listOfFields.length THEN { entryStartPos ¬ PutValues[valueArray, data, template, entryStartPos]; FOR j: CARD IN [0..valueArray.length) DO valueArray[j] ¬ NIL; ENDLOOP; currentField ¬ 0; currentAR ¬ currentAR + 1; }; ENDLOOP; RETURN[FALSE]; }; WITH instanceData SELECT FROM id: REF AdobeCommonInternal.InstanceData.report => { id.entryBytes.eb ¬ 0; IF id.format = template THEN { <> ResetProc[data, FALSE]; template ¬ ParseTemplate[data, TRUE]; <> <> } ELSE id.orderInfo ¬ MakeOrderInfo[ id.fieldsInReport, data.systemHandle.fieldList, data.systemHandle.formSWOrderArray[report]]; IF id.orderInfo.length = 0 THEN { success ¬ FALSE; GOTO noFieldsSpecified}; WriteHeader[data, data.systemHandle.fieldList]; listOfFields ¬ NEW[AdobeCommon.StringArray[id.orderInfo.length]]; FOR i: CARDINAL IN [0..id.orderInfo.length) DO WITH data.systemHandle.fieldList[id.orderInfo[i].flIndex] SELECT FROM fio: AdobeOps.StrFIO => useAccels ¬ FALSE; ENDCASE; listOfFields[i] ¬ id.orderInfo[i].flName; ENDLOOP; valueArray ¬ NEW[AdobeCommon.StringArray[listOfFields.length]]; WriteSortHeader[data]; entryStartPos ¬ id.entryBytes.eb; IF useAccels THEN { fieldList: AdobeOps.FieldList ¬ NEW[AdobeOps.FieldListArray[listOfFields.length]]; FOR i: CARD IN [0..listOfFields.length) DO fieldList[i] ¬ NEW[AdobeOps.FieldItemObjectRec.arId]; -- arId was chosen because it doesn't matter fieldList[i].name ¬ listOfFields[i]; ENDLOOP; XNSAdobeClientOps.GetAcceleratorInfo[ server: data.systemHandle.service, system: AccessCH.NSNameFromRope[data.systemHandle.name].local, version: data.systemHandle.version, arSet: ql.list, fieldList: fieldList, to: GetFromAccels]; } ELSE { arStream ¬ AdobeToolContext.CreateStream[ data.systemHandle.fieldList]; [ar, qlStatus] ¬ AdobeCommon.GetNextAR[ql.list, qlStatus]; WHILE ar # AdobeOps.nilARNumber DO GetARVaues[ ar, listOfFields, valueArray, id.orderInfo, arStream, data ! ARAccess.Error => { SELECT why FROM arNotFound => { AdobeCommon.PostMessage[data, FALSE, "AR "]; AdobeCommon.PostNumber[data, FALSE, ar]; AdobeCommon.PostMessage[data, TRUE, " was not found."]; [ar, qlStatus] ¬ AdobeCommon.GetNextAR[ql.list, qlStatus]}; ENDCASE; LOOP} ]; entryStartPos ¬ PutValues[valueArray, data, template, entryStartPos]; [ar, qlStatus] ¬ AdobeCommon.GetNextAR[ql.list, qlStatus]; ENDLOOP; <> <> }; IF template # NIL THEN template ¬ NIL; <