<<>> <> <> <> <> <> <> <> DIRECTORY AdobeOps USING [ EnumeratedSequence, FieldList, KeyedPossibilities], AdobeToolContext, ARAccess USING [--AppendChar, --ARStorage, DataTable], Ascii USING [CR, SP], <> Rope USING [Equal, ROPE]; <> <> <> <> <> <> <> <> <> <> AdobeToolContextImplB: CEDAR MONITOR --LOCKS LOOPHOLE[sH, MyStreamHandle].lock USING sH: Stream.Handle IMPORTS --AdobeOps, Date,-- Rope --, Stream, String, Time EXPORTS AdobeToolContext = BEGIN DataTableHandle: TYPE = REF DataTable; DataTable: TYPE = RECORD [ index: CARDINAL, fieldValueSeq: SEQUENCE length: CARDINAL OF DataPair]; DataPair: TYPE = RECORD[ fieldName: Rope.ROPE ¬ NIL, value: Rope.ROPE ¬ NIL]; BufferHandle: TYPE = REF PACKED ARRAY [0..0) OF CHARACTER; PutStateType: TYPE = {normal, wasQuote, wasCR, wasColon}; GetStateType: TYPE = { normal, needsDoubleCR, needsColonSpace}; FieldStateType: TYPE = { normal, endOfFieldName, noValueField, endOfValue, noValueFieldAndendOfData, endOfData}; FieldType: TYPE = {fieldName, fieldValue}; nextPosInGetBlockType: TYPE = RECORD [ indexInSeq: CARDINAL ¬ 0, fieldType: FieldType ¬ fieldName, indexInString: CARDINAL ¬ 0]; ClientData: TYPE = REF Data; Data: TYPE = RECORD [ data: DataTableHandle ¬ NIL, dataTableIsDirty: BOOLEAN ¬ FALSE, dataString: Rope.ROPE ¬ NIL, prevPutBufState: PutStateType ¬ normal, prevGetBufState: GetStateType ¬ normal, fieldState: FieldStateType ¬ normal, wasSpecialChar: BOOLEAN ¬ FALSE, cachedField: Rope.ROPE ¬ NIL, nextPosInGetBlock: nextPosInGetBlockType ¬ []]; <> <> <> <> BlockTooSmall: PUBLIC ERROR = CODE; StreamError: PUBLIC ERROR [type: AdobeToolContext.Type] = CODE; EndOfBuffer: ERROR [bytesTransferred: CARDINAL, state: GetStateType] = CODE; EnumError: PUBLIC ERROR [ why: AdobeToolContext.EnumProblemType]= CODE; quoteChar: CHARACTER = ''; crChar: CHARACTER = Ascii.CR; spaceChar: CHARACTER = Ascii.SP; colonChar: CHARACTER = ':; <> <> <<{RETURN [z.NEW[MyStreamObject _ []]]};>> <<>> AllocateDataTable: PROCEDURE[fL: AdobeOps.FieldList] RETURNS[data: ARAccess.ARStorage] = { <> data ¬ NEW[ARAccess.DataTable[fL.length]]; FOR i: CARDINAL IN [0..data.length) DO data[i] ¬ [fL[i].name, NIL]; ENDLOOP; }; CreateStream: PUBLIC PROCEDURE [fL: AdobeOps.FieldList] RETURNS [handle: ARAccess.ARStorage] = { <> handle ¬ AllocateDataTable[fL: fL]; <> <> <> <> }; <> <> <> <> <> <> <> <> < NULL;>> <> <> <> <> <> <> <> <> <> <> <> < NULL;>> <> <> <> <> <> <> < NULL;>> <<[bytesTransferred, why, sst] _ PutDataTableIntoBlock[block, sH.clientData];>> <> <> <> <> <> <> <> <> <>> <> <> <> <>> <> <> <> <> <> <> <> <<>> RequiresQuote: PROCEDURE[char: CHARACTER, sData: ClientData] RETURNS[itDoes: BOOLEAN ¬ FALSE] = INLINE BEGIN IF sData.wasSpecialChar THEN RETURN [sData.wasSpecialChar ¬ FALSE] ELSE SELECT char FROM quoteChar, colonChar, crChar => RETURN[sData.wasSpecialChar ¬ TRUE] ENDCASE => RETURN[FALSE]; END; <> <> <> <> <>> <> <> <> <> <> <> <> <> <>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <>> <> <> <>> <> <> <> <> <> <> <> <<[char, streamData.fieldState] _ GetCharFromData[streamData];>> <> <> <> <> < NULL;>> <>> <> <> <> <> <> <> <> <>> <> <> <> <> <> <> <> <>> <> <> <> <> <> <>> <> <> <> <> <> <> <> <> <> <> <>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> WillFit: PROCEDURE [numOfChars: CARDINAL, index: CARDINAL, length: CARDINAL] RETURNS [itWill: BOOLEAN ¬ TRUE] = INLINE {RETURN[index + numOfChars - 1 < length]}; AppendSpecialChars: PROCEDURE[buff: BufferHandle, index: CARDINAL, specialCharType: GetStateType[needsDoubleCR..needsColonSpace]] RETURNS [newIndex: CARDINAL ¬ 0] = INLINE BEGIN SELECT specialCharType FROM needsColonSpace => { index ¬ CharToBuffer[colonChar, buff, index]; index ¬ CharToBuffer[spaceChar, buff, index]}; needsDoubleCR => { index ¬ CharToBuffer[crChar, buff, index]; index ¬ CharToBuffer[crChar, buff, index]}; ENDCASE; RETURN[index]; END; CharToBuffer: PROCEDURE [ char: CHARACTER, buff: BufferHandle, index: CARDINAL] RETURNS [newIndex: CARDINAL ¬ 0] = INLINE BEGIN buff[index] ¬ char; newIndex ¬ index + 1; END; <> <> <> <> <> <> <>> <> <> <> <> <> <> <> <> StateOfLastChar: PROCEDURE [char: CHARACTER] RETURNS [type: PutStateType] = BEGIN RETURN[ SELECT char FROM quoteChar => wasQuote, crChar => wasCR, colonChar => wasColon, ENDCASE => normal]; END; <> <> <> <> <> < AppendChar[buff[index], @sData.dataString];>> <>> <> <> <> <> <> <> <> <> < 0 THEN String.CopyToNewString[>> <> <> <> <> <>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> < {>> <> <> <> <<>> <> <> < --end of value field>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<@streamData.data[tableIndex].value,>> <> <> <> <> <> <> <>> <> <> <> <> <> <> <> < --end of field name field>> <> <> <> <> <> <> <> <> <<@streamData.cachedField, streamData.dataString, z];>> <> <> <> <> <>> <> <> <> <> <> <> <> <> <> <> <> <> <> <<(streamData.prevPutBufState _ StateOfLastChar[>> <> <> <> <<>> SearchForField: PROCEDURE [ data: DataTableHandle, name: Rope.ROPE] RETURNS [index: CARDINAL ¬ 0] = BEGIN FOR index IN [0..data.length) DO IF Rope.Equal[data[index].fieldName, name] THEN RETURN[index] ENDLOOP; <> ERROR StreamError[fieldNameNotFound]; END; <> <> <> < NULL;>> <> <> <> <> <> <> <> <> < >> <> <> <> <> <> <>> <> <>> <> <> <> <>> <> <> <> <> <>> <> <> <> <> < RESUME[NIL]]>> <> < { >> <> <> <> <> <<@body.temp, from.data[i].value, zone];>> < {>> <> <> <> <> <> < >> <> <> <> <>> <> <> <> <> <> <> <> <> <> <> <<>> <> <> <> <> <> < BEGIN>> <> <> <> <> <> <> <> <> < ERROR; --client error uC must be enumerated>> <> <<>> <> <> <> <> <> < WITH body: displayed.editableField SELECT FROM>> < RETURN[body.value]>> < ERROR>> < ERROR;>> <> <<>> FindPossibilities: PUBLIC PROCEDURE[value: CARDINAL, possibilities: AdobeOps.KeyedPossibilities] RETURNS[AdobeOps.EnumeratedSequence] = BEGIN FOR i: CARDINAL IN [0..possibilities.length) DO IF possibilities[i].keyedDependency = value THEN RETURN[possibilities[i].enumRecs] ENDLOOP; EnumError[noMatch]; END; FindValueInPossibilities: PROCEDURE[s: Rope.ROPE, poss: AdobeOps.EnumeratedSequence] RETURNS[value: CARDINAL] = BEGIN FOR i: CARDINAL IN [0..poss.length) DO IF Rope.Equal[s, poss[i].tag] THEN RETURN[poss[i].item] ENDLOOP; EnumError[noMatch]; END; <> <> <> < NULL;>> <> <> <<>> <> <> <> <> <> <> <> <>> <> <>> <> <> <>> <> <> <> <> <> <> <>> <> <> <> <> <> <> <>> <> <> <> < {>> <{ --put in currentTOD>> <> <> <> <> <> <<(Date.StringToPacked[body.temp].dt # Time.defaultTime) >> <> <> <>> <> <> <> <> <>> <> <> <> <> < body.possibilities>> < ERROR], z]>> <> <> <> <> <> <> <<>> GetEnumStringFromValue: PROCEDURE[value: CARDINAL, possiblities: AdobeOps.KeyedPossibilities] RETURNS [string: Rope.ROPE] = BEGIN <> FOR i: CARDINAL IN [0..possiblities.length) DO FOR j: CARDINAL IN [0..possiblities[i].enumRecs.length) DO IF possiblities[i].enumRecs[j].item = value THEN RETURN[possiblities[i].enumRecs[j].tag] ENDLOOP; ENDLOOP; ERROR; END; GetValuePairFromTable: PUBLIC PROCEDURE[ index: CARDINAL, sH: ARAccess.ARStorage] RETURNS[value: Rope.ROPE] = { <> <> <> <> RETURN[sH[index].value]}; <> FreeValues: PROCEDURE[table: DataTableHandle] = BEGIN <> <> <> table.index ¬ 0; END; <> <> <> <> <> <> <<>> END...