DIRECTORYDBStorage USING[FieldHandle],DBStorageConcrete USING[FieldType],DBStorageTID USING[TID];DBStorageField: CEDAR DEFINITIONS = BEGINTuplesetFieldHandle: PROC[] RETURNS[DBStorage.FieldHandle];IndexFieldHandle: PROC[] RETURNS[DBStorage.FieldHandle];CheckFieldHandleType: PROC[fh: DBStorage.FieldHandle, t: DBStorageConcrete.FieldType];FieldOffset: PROC[fh: DBStorage.FieldHandle] RETURNS[CARDINAL];NWordsInField: PROC[fh: DBStorage.FieldHandle] RETURNS[CARDINAL];GroupIDOfField: PROC[fh: DBStorage.FieldHandle] RETURNS[DBStorageTID.TID];END.--DBStorageFieldCHANGE LOGCreated by MBrown on June 8, 1980  10:34 PMChanged by MBrown on June 10, 1980  3:35 PMChanged by Cattell on September 14, 1983 3:09 pmChanged by Willie-Sue on February 15, 1985   $  File DBStorageField.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Contents: ops on DBStorage.FieldObject's used by modules that don't export FieldObjects.Last edited by:MBrown on June 10, 1980  3:36 PMCattell on September 14, 1983 3:21 pmWillie-Sue, February 15, 1985 11:24:15 am PSTReturns a field handle that may be used to access the tupleset object of a tuple.Returns a field handle that may be used to access the index object of a tuple.Generates an ERROR if fh's fieldType is not t.Moved all field handle definitions here from DBStoragePrivateA.  This seems to be the cheapestavailable experiment with exported types and machine-dependent enmumerations, since the field handlestuff is well localized in the implementation.  Moved CopyFieldObject here from StorageImplB.Added FreeFieldObject.  (This "cheap" experiment involves changes to 7 modules!)Moved all type definitions to DBStorageConcreteField.Don't need CopyFieldObject, FreeFieldObject any more: FieldHandles are REFs.made Cedar, Added tioga formattingÊ£  ˜ šœ™Jšœ
Ïmœ1™<—JšœX™XJšœ™Jšœ ™ šœ%™%J™-—J˜ J˜ šÏk	˜	Jšœ
žœ˜Jšœžœ˜#Jšœžœžœ˜J˜ —Jšœžœžœž˜)J˜ ˜ šÏnœžœžœ˜;JšœQ™QJ˜ —šŸœžœžœ˜8JšœN™NJ˜ —šŸœžœ<˜VJšœ.™.J˜ —JšŸœžœžœžœ˜?J˜ JšŸœžœžœžœ˜AJ˜ JšŸœžœžœžœ˜JJ˜ —JšžœÏc˜J˜ J˜ Jšžœž˜
J˜ Jšœ)ž˜+Jšœ^™^Jšœd™dJšœ]™]JšœP™PJ˜ Jšœ)ž˜+Jšœ5™5J˜ J˜0JšœL™LJ™ J˜*J™"— …—      Õ  