<<>> <> <> <> <> <> <> <> <> DIRECTORY AccessCH USING [Problem], AdobeCommon USING [--ChangeSystem, DataHandle, FreeHintStrings, GetDataSW, GetDescList, --Handle, InitialSetStatus--, LockedSysDescPtr--, PostMessage, ReportFields, ReportFieldsSeq, SetStatus--, StringArray--], <> AdobeOps USING [ARNumber, ARSystemHandle--, DefaultInfoObject--, FieldList, nilARNumber, QLHandle, QueryList, SetOfARs, ToolType, UserOrderSequence, UserSpecifiedOrder], <> AdobeP75V2, AdobeToolContext, ARAccess, Ascii USING [NUL], BasicTime USING [GMT], Convert USING [CardFromRope, RopeFromTime], <> IO USING [Close, EndOf, GetChar, PutChar, STREAM], <> <> CmFile USING [ Close, Error, FindSection, FreeString, Handle, NextItem, Open], CrRPC USING [BulkDataSink], <> PFS USING [Delete, PathFromRope, StreamOpen], <> Rope USING [Cat, Concat, Equal, Fetch, Length, Substr, ROPE], <> <> <> <> <> Token USING [ Alphabetic, AlphaNumeric, Brackets, Decimal, Filtered, FilterProcType, FreeTokenString, FreeStringHandle, Line, MaybeQuoted, NonWhiteSpace, Handle, StringToHandle, SyntaxError], XNSAdobeClientOps USING [GetSystemDefaultUserFile, StubError, UnknownAddress]; --Window USING [Handle, Place]; AdobeCommonImplE: CEDAR PROGRAM IMPORTS AccessCH, AdobeCommon, --AdobeCommonInternal, AdobeOps, AdobeServer, AdobeToolContext, ARAccess, Convert--, MFile, MStream--, CmFile, IO, PFS --Put, --, Rope--Stream, --String--, Token, XNSAdobeClientOps EXPORTS AdobeCommon = BEGIN <> ValueSequencePtr: TYPE = REF ValueSequence; ValueSequence: TYPE = RECORD [ seq: SEQUENCE length: CARDINAL OF Rope.ROPE]; InvalidFieldName: SIGNAL = CODE; SyntaxError: SIGNAL = CODE; CatchErrors: PUBLIC PROCEDURE [ h: AdobeCommon.Handle, --item: FormSW.ItemHandle, index: CARDINAL, --windowData: AdobeCommon.DataHandle, --proc: PROC[h: AdobeCommon.Handle]] = { errorMessage: Rope.ROPE; BEGIN ENABLE { AccessCH.Problem => { SELECT type FROM noClearinghouse => errorMessage Ź "Clearinghouse is unavailable."; authProblem => errorMessage Ź "Authentication problem."; badDatabaseName => errorMessage Ź "badDatabaseName."; badDatabaseFile => errorMessage Ź "Can't open database file."; accessProblem => errorMessage Ź "access problem in reaching clearinghouse."; ENDCASE => errorMessage Ź "AccessCH.Problem"}; < {>> <> <>> <> <>> <> <>> <> < errorMessage _ "Invalid login.";>> < errorMessage _ "systemAlreadyExists."; -- should never happen>> < errorMessage _ "File not found.";>> <>> <> < errorMessage _ "Adobe server is down.";>> <>> <> < errorMessage _ "Courier timed out.";>> <>> <> <<"Parameter Inconsistency - this tool and the Adobe service aren't compatible!";>> < GOTO GetNewSystemDescription;>> < errorMessage _ "systemNotRegistered."; -- should never happen>> <>> <> < errorMessage _ "Unknown Adobe service problem.";>> < errorMessage _ "Too many connections to Adobe service. Try again later.";>> < errorMessage _ "Unexpected Adobe service problem.";>> <> ABORTED => {errorMessage Ź "Aborted!"; GOTO ErrorExit}}; proc[h]; <> EXITS < {>> <> <> <> <> <<"This system description has become obsolete! "];>> <> <> <<"Retrieve new system description? Click to confirm."];>> <> <> <> <> <<"Retrieving new system description..."];>> <> <> ErrorExit => { AdobeCommon.PostMessage[h, TRUE, errorMessage]; h.isBusy Ź FALSE}; END}; ReadTil: PROCEDURE [r: Rope.ROPE, currentIndex: CARD, c: CHAR] RETURNS [newIndex: CARD] ~ { i: INT; FOR i Ź currentIndex + 1, i + 1 UNTIL i >= r.Length[] OR r.Fetch[i] = c DO ENDLOOP; RETURN[i]; }; AdobeTimeRope: PUBLIC PROCEDURE [time: BasicTime.GMT] RETURNS [timeRope: Rope.ROPE Ź NIL] = { cedarTime: Rope.ROPE Ź Convert.RopeFromTime[time, years, seconds, FALSE, FALSE, FALSE]; index, tmp: CARD Ź 0; timeRope Ź timeRope.Cat["-", Rope.Substr[cedarTime, index, 3], "-"]; index Ź ReadTil[cedarTime, index, ' ] + 1; tmp Ź ReadTil[cedarTime, index, ',] ; timeRope Ź Rope.Concat[Rope.Substr[cedarTime, index, tmp - index], timeRope]; index Ź tmp + 4; timeRope Ź timeRope.Cat[Rope.Substr[cedarTime, index, 2], " "]; index Ź index + 3; tmp Ź ReadTil[cedarTime, index, 'X]; timeRope Ź timeRope.Concat[Rope.Substr[cedarTime, index, tmp-index]]; }; SetFSWOrderAndDefaultFromUserFile: PUBLIC PROCEDURE [ systemName: Rope.ROPE, arSH: AdobeOps.ARSystemHandle, server: Rope.ROPE] = BEGIN fL: AdobeOps.FieldList Ź arSH.fieldList; localName: Rope.ROPE Ź GetLocalName[systemName]; userFile: Rope.ROPE Ź localName; cmH: CmFile.Handle Ź NIL; noUserFile: BOOLEAN Ź FALSE; localName Ź NIL; <> userFile Ź ConvertToUserFileName[userFile]; userFile Ź userFile.Concat[".user"]; <<[] _ String.AppendExtensionIfNeeded[>> <<@userFile, ".user", AdobeOps.z];>> <> cmH Ź CmFile.Open[ userFile ! CmFile.Error => IF code = fileNotFound THEN { [cmH, noUserFile] Ź GetUserFileFromService[ systemName, userFile]; IF noUserFile THEN CONTINUE ELSE RETRY}]; FOR tool: AdobeOps.ToolType IN AdobeOps.ToolType DO <> <> IF noUserFile THEN arSH.formSWOrderArray[tool] Ź AllDisplayed[fL.length] ELSE arSH.formSWOrderArray[tool] Ź SearchUserFileForDisplayed[ cmH, fL, tool]; ENDLOOP; <> IF ~noUserFile THEN { cmH Ź CmFile.Close[cmH]; }; <> END; <<>> AllDisplayed: PROCEDURE [length: CARDINAL] RETURNS [formSWOrder: AdobeOps.UserSpecifiedOrder] = BEGIN ENABLE UNWIND => NULL; --AdobeOps.z.FREE[@formSWOrder]; formSWOrder Ź NEW[AdobeOps .UserOrderSequence[length]]; FOR i: CARDINAL IN [0..length) DO formSWOrder[i] Ź i; <> <> ENDLOOP; END; <<>> SearchUserFileForDisplayed: PROCEDURE [cmH: CmFile.Handle, fL: AdobeOps.FieldList, tool: AdobeOps.ToolType] RETURNS [formSWOrder: AdobeOps.UserSpecifiedOrder] = BEGIN toolNames: ARRAY AdobeOps.ToolType OF Rope.ROPE Ź [ "Edit", "Submit", "Report", "Query", "Sort", "QueryList"]; isADefault: BOOLEAN Ź FALSE; values: ValueSequencePtr Ź NIL; name, value, default: Rope.ROPE Ź NIL; TempOrderType: TYPE = RECORD [ index: CARDINAL Ź 0, order: AdobeOps.UserSpecifiedOrder Ź NIL]; tempOrder: TempOrderType Ź []; incr: CARDINAL = 1; <<>> TruncateSequence: PROCEDURE [order: TempOrderType] RETURNS [formSWOrder: AdobeOps.UserSpecifiedOrder] = { IF tool # report THEN { formSWOrder Ź NEW[ AdobeOps .UserOrderSequence[order.index]]; FOR i: CARDINAL IN [0..formSWOrder.length) DO formSWOrder[i] Ź order.order[i]; ENDLOOP} ELSE { hasOrder: AdobeCommon.ReportFields Ź NEW[ AdobeCommon .ReportFieldsSeq[order.order.length]]; reportCount: CARDINAL Ź 0; FOR i: CARDINAL IN [0..hasOrder.length) DO hasOrder[i] Ź FALSE; ENDLOOP; formSWOrder Ź NEW[ AdobeOps .UserOrderSequence[order.order.length]]; FOR i: CARDINAL IN [0..order.order.length) DO IF order.order[i] # LAST[CARDINAL] THEN { formSWOrder[reportCount] Ź order.order[i]; hasOrder[order.order[i]] Ź TRUE; reportCount Ź reportCount + 1}; ENDLOOP; FOR i: CARDINAL IN [0..order.order.length) DO IF ~hasOrder[i] THEN { formSWOrder[reportCount] Ź i; reportCount Ź reportCount + 1}; ENDLOOP; <> }; <> }; <<>> IF CmFile.FindSection[h: cmH, title: toolNames[tool]] THEN BEGIN ENABLE UNWIND => { <> name Ź CmFile.FreeString[name]; value Ź CmFile.FreeString[value]; IF values # NIL THEN { <> <> <> }}; tempOrder Ź [ index: 0, order: NEW[AdobeOps .UserOrderSequence[fL.length]]]; IF tool = report THEN FOR i: CARDINAL IN [0..tempOrder.order.length) DO tempOrder.order[i] Ź LAST[CARDINAL]; ENDLOOP; [name, value] Ź CmFile.NextItem[h: cmH]; WHILE name # NIL DO fLIndex: CARDINAL Ź FindFieldInFL[ name, fL ! InvalidFieldName => { <> <> <> <> name Ź CmFile.FreeString[name]; value Ź CmFile.FreeString[value]; [name, value] Ź CmFile.NextItem[h: cmH]; LOOP}]; <> [fL[fLIndex].defaultInfo[tool].place, fL[fLIndex].defaultInfo[ tool].width, default] Ź ParseValueToken[ value ! SyntaxError => { <> <> <> GOTO syntaxError}]; <> IF default # NIL THEN IF --there is no systemMust value -- (fL[fLIndex].defaultInfo[tool].default.Length = 0) THEN fL[fLIndex].defaultInfo[tool].default Ź default ELSE {}; --AdobeOps.z.FREE[@default]; IF tool # report THEN { tempOrder.order[tempOrder.index] Ź fLIndex; tempOrder.index Ź tempOrder.index + incr} ELSE { IF fL[fLIndex].defaultInfo[tool].place.ord # 0 AND CARDINAL[fL[fLIndex].defaultInfo[tool].place.ord] <= fL.length THEN { tempOrder.order[fL[fLIndex].defaultInfo[tool].place.ord - 1] Ź fLIndex; tempOrder.index Ź tempOrder.index + incr}}; name Ź CmFile.FreeString[name]; value Ź CmFile.FreeString[value]; [name, value] Ź CmFile.NextItem[h: cmH]; ENDLOOP; name Ź CmFile.FreeString[name]; value Ź CmFile.FreeString[value]; RETURN[TruncateSequence[tempOrder]] END ELSE RETURN[AllDisplayed[fL.length]]; EXITS syntaxError => RETURN[AllDisplayed[fL.length]]; END; <<>> <<>> <<<< Not Apparently used>> <> <> <> <> <> <>>> <<>> FindFieldInFL: PROCEDURE [name: Rope.ROPE, fL: AdobeOps.FieldList] RETURNS [index: CARDINAL] = BEGIN FOR i: CARDINAL IN [0..fL.length) DO IF Rope.Equal[name, fL[i].name] THEN RETURN[i]; ENDLOOP; ERROR InvalidFieldName; END; <<>> ParseValueToken: PROCEDURE [token: Rope.ROPE] RETURNS [ place: AdobeP75V2.Coordinate, width: CARDINAL, default: Rope.ROPE Ź NIL] = BEGIN index: CARDINAL Ź 0; labels: ARRAY [0..2) OF Rope.ROPE Ź ["x", "y"]; sH: Token.Handle Ź NIL; temp, string: Rope.ROPE Ź NIL; thereIsADefault: BOOLEAN Ź FALSE; <<>> MustBeBracketed: Token.FilterProcType = {RETURN[FALSE]}; <<>> <> IF (token.Length > 0) AND (token.Fetch[0] = '[) THEN BEGIN ENABLE UNWIND => { [] Ź Token.FreeTokenString[string]; [] Ź Token.FreeStringHandle[sH]; }; sH Ź Token.StringToHandle[token]; <> string Ź Token.MaybeQuoted[ sH, NIL, MustBeBracketed, Token.Brackets]; [place, width] Ź GetXYFromString[ string ! Token.SyntaxError => ERROR SyntaxError]; string Ź Token.FreeTokenString[string]; IF sH.break # Ascii.NUL THEN BEGIN temp Ź Token.MaybeQuoted[sH, NIL, Token.Line]; default Ź temp; <> temp Ź Token.FreeTokenString[temp]; END; sH Ź Token.FreeStringHandle[sH]; END ELSE ERROR SyntaxError; END; <<>> GetXYFromString: PROCEDURE [string: Rope.ROPE] RETURNS [place: AdobeP75V2.Coordinate, width: CARDINAL Ź 0] = BEGIN temp: Rope.ROPE Ź NIL; sh: Token.Handle Ź Token.StringToHandle[string]; gotOne: BOOLEAN Ź FALSE; <<>> Numeric: Token.FilterProcType = BEGIN RETURN[SELECT c FROM IN ['0..'9] => TRUE, ENDCASE => FALSE]; END; <<>> DO ENABLE UNWIND => { [] Ź Token.FreeTokenString[temp]; [] Ź Token.FreeStringHandle[sh]}; temp Ź Token.Filtered[sh, NIL, Token.Alphabetic]; <<': was consumed and now is in sh.break>> IF sh.break = Ascii.NUL THEN EXIT; SELECT TRUE FROM Rope.Equal[temp, "x"] => place.ord Ź Token.Decimal[h: sh]; Rope.Equal[temp, "y"] => BEGIN temp Ź Token.FreeTokenString[temp]; temp Ź Token.MaybeQuoted[ h: sh, data: NIL, filter: Token.AlphaNumeric]; IF temp.Length > 4 THEN BEGIN tempHandle: Token.Handle Ź Token.StringToHandle[temp]; lineNumStr: Rope.ROPE Ź Token.Filtered[ h: tempHandle, data: NIL, filter: Numeric, skip: nonToken]; place.co Ź 2 --FormSW.line0-- - Convert.CardFromRope[lineNumStr]; --String.StringToDecimal[lineNumStr]; lineNumStr Ź Token.FreeTokenString[lineNumStr]; [] Ź Token.FreeStringHandle[tempHandle]; END ELSE place.co Ź Convert.CardFromRope[temp]; --String.StringToDecimal[temp]; END; Rope.Equal[temp, "w"] => width Ź Token.Decimal[h: sh]; ENDCASE => ERROR SyntaxError; temp Ź Token.FreeTokenString[temp]; ENDLOOP; [] Ź Token.FreeStringHandle[sh]; RETURN[place, width]; END; GetUserFileFromService: PROCEDURE [systemName, userFileName, server: Rope.ROPE Ź NIL] RETURNS [cmH: CmFile.Handle, noUserFile: BOOLEAN Ź FALSE] = BEGIN userSH: IO.STREAM Ź PFS.StreamOpen[PFS.PathFromRope[userFileName], write]; <> <> { ENABLE XNSAdobeClientOps.UnknownAddress, XNSAdobeClientOps.StubError => GOTO noUserFileExit; GSDUFile: CrRPC.BulkDataSink = { IF checkAbort[h] THEN { noUserFile Ź TRUE; RETURN[FALSE]; }; IF IO.EndOf[s] THEN { noUserFile Ź TRUE; RETURN[FALSE]; }; WHILE NOT IO.EndOf[s] DO IO.PutChar[userSH, IO.GetChar[s]]; ENDLOOP; RETURN[FALSE]; }; <> XNSAdobeClientOps.GetSystemDefaultUserFile[ server: server--System.nullNetworkAddress--, system: systemName, to: GSDUFile]; <<= 0);>> IO.Close[userSH]; <> IF noUserFile THEN PFS.Delete[PFS.PathFromRope[userFileName]]; <> EXITS noUserFileExit => { IF userSH # NIL THEN IO.Close[userSH]; --Stream.Delete[userSH]; PFS.Delete[PFS.PathFromRope[userFileName]]; <> RETURN[NIL, TRUE]}}; END; <<>> ConvertToUserFileName: PROCEDURE [userFileName: Rope.ROPE] RETURNS [Rope.ROPE Ź NIL] = { i, offset: CARDINAL Ź 0; newUFN: Rope.ROPE Ź NIL; FOR i IN [0.. userFileName.Length) DO IF userFileName.Fetch[i] # ' THEN newUFN Ź ARAccess.AppendChar[newUFN, userFileName.Fetch[i]]; ENDLOOP; RETURN[newUFN] }; <<>> <> <> <> <> <> <> <> <<>> <> <> <> <> <> <> <<>> <> <> <> <> <> <> <> <<(data.tool = queryList AND index = 8>> <<<< AdobeCommon.resultPos>> ) THEN>> <> <> <> <> <> <> <> <> <> <<(data.tool = queryList AND index = 8>> <<<< AdobeCommon.resultPos>> ) THEN {>> <> <> <> <> <> <> <> <> <> <> <> <<>> GetNextAR: PUBLIC PROCEDURE [ set: AdobeOps.SetOfARs, current: AdobeCommon.SetStatus] RETURNS [ nextAR: AdobeOps.ARNumber, newStatus: AdobeCommon.SetStatus] = <> { newStatus Ź current; IF set = NIL OR set.len = 0 THEN RETURN[AdobeOps.nilARNumber, newStatus]; IF newStatus = AdobeCommon.InitialSetStatus THEN RETURN[set[0].startValue, [0, 0]]; IF set[current.setIndex].runLength <= current.runOffset + 1 THEN { newStatus.runOffset Ź 0; newStatus.setIndex Ź newStatus.setIndex + 1; IF newStatus.setIndex >= set.len THEN RETURN[AdobeOps.nilARNumber, newStatus]} ELSE newStatus.runOffset Ź newStatus.runOffset + 1; nextAR Ź set[newStatus.setIndex].startValue + newStatus.runOffset; }; <<>> GetPreviousAR: PUBLIC PROCEDURE [ set: AdobeOps.SetOfARs, current: AdobeCommon.SetStatus] RETURNS [ nextAR: AdobeOps.ARNumber, newStatus: AdobeCommon.SetStatus] = <> BEGIN newStatus Ź current; IF current = AdobeCommon.InitialSetStatus THEN RETURN[ set[set.len - 1].startValue + set[set.len - 1].runLength - 1, [ runOffset: CARDINAL[set[set.len - 1].runLength - 1], setIndex: set.len - 1]]; IF current.runOffset < 1 THEN { IF newStatus.setIndex = 0 THEN RETURN[0, newStatus]; newStatus.setIndex Ź newStatus.setIndex - 1; newStatus.runOffset Ź CARDINAL[ set[newStatus.setIndex].runLength - 1]} ELSE newStatus.runOffset Ź newStatus.runOffset - 1; nextAR Ź set[newStatus.setIndex].startValue + newStatus.runOffset; END; <<>> FindThisQL: PUBLIC PROC[qlName: Rope.ROPE Ź NIL, arSH: AdobeCommon.Handle] RETURNS [ql: AdobeOps.QueryList Ź NIL] ~ { IF Rope.Equal["SysQL", qlName, FALSE] OR qlName = NIL OR qlName.Length = 0 THEN ql Ź arSH.systemHandle.sysQL ELSE FOR q: AdobeOps.QLHandle Ź arSH.systemHandle.otherQLs, q.next UNTIL q = NIL DO IF Rope.Equal[qlName, q.qL.name, FALSE] THEN ql Ź q.qL; ENDLOOP; RETURN[ql]; }; <> <> <> <> <> <> <> <> <> <> <> <> <<>> GetLocalName: PROCEDURE [fullName: Rope.ROPE] RETURNS [localName: Rope.ROPE] = { i: INT Ź 0; localName Ź NIL; --String.MakeString[AdobeOps.z, fullName.length]; WHILE i < fullName.Length[] AND fullName.Fetch[i] # ': --AND i < NSName.maxFullNameLength-- DO localName Ź ARAccess.AppendChar[localName, fullName.Fetch[i]]; <> i Ź i + 1; ENDLOOP; <> }; <<>> <> <> END.. <> <> <>