[_CDCSL_93-16_]<1>Cedar>release>Adobe>AdobeServer.mesa

AdobeServer.mesa

PJames, February 16, 1990 3:19:54 pm PST

Philip James, February 18, 1991 8:57 am PST

DIRECTORY

AdobeOps USING [FieldItemObject, FieldType],

AdobeP75V2,

BasicTime USING [GMT],

Rope USING [ROPE];

AdobeServer: CEDAR DEFINITIONS = {

Error: ERROR;

FieldItemValue: TYPE = AdobeP75V2.FieldItemValue;

FieldItemValueRec: TYPE = AdobeP75V2.FieldItemValueRec;

FieldItemValue: TYPE ~ REF FieldItemValueRec;

FieldItemValueRec: TYPE ~ RECORD[

body: SELECT type: AdobeOps.FieldType FROM

arId => [ar: CARDINAL],

dateTime => [time: BasicTime.GMT],

numeric => [number: CARD],

fixedLengthString => [string: Rope.ROPE, maxLength: CARDINAL],

enumerated => [enumVal: CARDINAL],

ENDCASE];

ArFIV: TYPE ~ REF arId FieldItemValueRec;

DateFIV: TYPE ~ REF dateTime FieldItemValueRec;

NumFIV: TYPE ~ REF numeric FieldItemValueRec;

BoundFIV: TYPE ~ REF fixedLengthString FieldItemValueRec;

EnumFIV: TYPE ~ REF enumerated FieldItemValueRec;

FieldItemQueryValue: TYPE = AdobeP75V2.FieldItemQueryValue;

FieldItemQueryValue: TYPE = RECORD [
relationalOp: AdobeP75V2.Relation, value: FieldItemValue];

StringArray: TYPE = RECORD [
array: SEQUENCE length: CARDINAL OF Rope.ROPE];

ChangeList: TYPE = AdobeP75V2.ChangeList;

Changes: TYPE = AdobeP75V2.Changes;

ChangeItem: TYPE = AdobeP75V2.ChangeItem;

ChangeList: TYPE = LONG POINTER TO Changes;

Changes: TYPE = RECORD [seq: SEQUENCE length: CARDINAL OF ChangeItem];

ChangeItem: TYPE = RECORD [

oldFieldName: Rope.ROPE,

newItem:SELECT changeType: AdobeP75V2.ChangeType FROM

add, modify => [newFlItem: AdobeOps.FieldItemObject],

remove => NULL,

ENDCASE];

FreeLocationOfARs: PROCEDURE [referenceToARs: AdobeP75V2.Reference];