DIRECTORY FileOps USING [LooksIndex, PropIndex, FormatIndex, numLooks, numProps, numFormats], TextLooks USING [Looks, noLooks]; PGSupport: CEDAR DEFINITIONS = BEGIN Looks: TYPE ~ TextLooks.Looks; noLooks: Looks ~ TextLooks.noLooks; PropIndex: TYPE ~ FileOps.PropIndex; FormatIndex: TYPE ~ FileOps.FormatIndex; LooksIndex: TYPE ~ FileOps.LooksIndex; PGF: TYPE = REF PGFBody; PGFBody: TYPE = RECORD [ propNext: NAT _ 0, -- next available PropIndex propTable: ARRAY PropIndex OF ATOM, propHashKeys: ARRAY PropHashIndex OF PropHashKey, propHashVals: ARRAY PropHashIndex OF PropHashVal, formatNext: NAT _ 0, -- next available FormatIndex formatTable: ARRAY FormatIndex OF ATOM, formatHashKeys: ARRAY FormatHashIndex OF FormatHashKey, formatHashVals: ARRAY FormatHashIndex OF FormatHashVal, looksNext: NAT _ 0, -- next available LooksIndex, looksTable: ARRAY LooksIndex OF Looks, looksHashKeys: ARRAY LooksHashIndex OF LooksHashKey, looksHashVals: ARRAY LooksHashIndex OF LooksHashVal ]; FormatHashIndex: TYPE = [0 .. formatHashSize); formatHashSize: PRIVATE NAT = IF FileOps.numFormats > 85 THEN 256 ELSE 128; -- Should be power of 2 FormatHashKey: PRIVATE TYPE = RECORD [formatName: ATOM _ NIL]; FormatHashVal: PRIVATE TYPE = RECORD [index: FormatIndex]; LooksHashIndex: TYPE = [0 .. looksHashSize); looksHashSize: PRIVATE NAT = IF FileOps.numLooks > 85 THEN 256 ELSE 128; -- Should be power of 2 LooksHashKey: PRIVATE TYPE = RECORD [looks: Looks _ noLooks]; LooksHashVal: PRIVATE TYPE = RECORD [index: LooksIndex]; PropHashIndex: TYPE = [0 .. propHashSize); propHashSize: PRIVATE NAT = IF FileOps.numProps > 85 THEN 256 ELSE 128; -- Should be power of 2 PropHashKey: PRIVATE TYPE = RECORD [propname: ATOM _ NIL]; PropHashVal: PRIVATE TYPE = RECORD [index: PropIndex]; CreatePGF: PROC RETURNS [PGF]; FreePGF: PROC [PGF]; -- don't return it more than once! BadIndex: ERROR; RetrieveFormatName: PROC [index: FormatIndex, pgf: PGF] RETURNS [formatName: ATOM]; EnterFormatName: PROC [formatName: ATOM, pgf: PGF] RETURNS [ok: BOOL, index: FormatIndex]; RetrieveLooks: PROC [index: LooksIndex, pgf: PGF] RETURNS [looks: Looks]; EnterLooks: PROC [looks: Looks, pgf: PGF] RETURNS [ok: BOOL, index: LooksIndex]; RetrieveProp: PROC [index: PropIndex, pgf: PGF] RETURNS [propname: ATOM]; EnterProp: PROC [propname: ATOM, pgf: PGF] RETURNS [ok: BOOL, index: PropIndex]; END. ŠPGSupport.mesa Copyright Σ 1985, 1986 by Xerox Corporation. All rights reserved. written by Paxton. January 1981 last written by Paxton. 22-May-81 10:04:43 Doug Wyatt, March 2, 1985 4:00:03 pm PST Michael Plass, March 29, 1985 2:06:39 pm PST Rick Beach, March 27, 1985 1:12:35 pm PST PGF is the file-level symbol table structure for put/get May be raised by the retrieve procs below ΚΓ˜codešœ™KšœB™BKšœ ™ Kšœ*™*K™(K™,K™)—K˜šΟk ˜ KšœœF˜SKšœ œ˜!—K˜KšΠbl œœ ˜Kšœ˜K˜K˜Kšœœ˜Kšœ#˜#K˜Kšœ œ˜$Kšœ œ˜(Kšœ œ˜&K˜šœœœ ˜Kšœ8™8K™—šœ œœ˜Kšœ œΟc˜.Kšœ œ œœ˜#Kšœœœ ˜1Kšœœœ ˜1Kšœ œŸ˜2Kšœ œ œœ˜'Kšœœœ˜7Kšœœœ˜7Kšœ œŸ˜1Kšœ œ œ˜&Kšœœœ˜4Kšœœœ ˜3K˜K˜—K˜Kšœœ˜.šœœœ˜KšœœœŸ˜E—Kš œœœœœœ˜>Kšœœœœ˜:K˜Kšœœ˜,šœœœ˜KšœœœŸ˜C—Kšœœœœ˜=Kšœœœœ˜8K˜Kšœœ˜*šœœœ˜KšœœœŸ˜C—Kš œ œœœ œœ˜:Kšœ œœœ˜6K˜KšΟn œœœœ˜Kš œœœŸ"˜7K˜šœ œ˜Kšœ)™)K™—š  œœœœœ˜SK˜—š  œœœœœœ˜ZK˜—š  œœœœ˜IK˜—š   œœœœœ˜PK˜—š   œœœœ œ˜IK˜—š   œœ œœœœ˜PK˜—K˜Kšœ˜—…— P