DIRECTORY DB, Icons USING [IconFlavor], IO USING[STREAM], Rope USING [ROPE];DBIcons: CEDAR DEFINITIONS = BEGINEstablishIconDB: PROC [file: Rope.ROPE];Close: PROC[];IconDB: READONLY Rope.ROPE;defaultDatabase: Rope.ROPE;readOnly: READONLY BOOLEAN;Failed: ERROR [why: Failure, reason: Rope.ROPE];Failure: TYPE = {badSegment, noSuchIcon, fileNotFound, invalidIndex};RegisterIcon: PROC [iconName: Rope.ROPE, fileName: Rope.ROPE, index: CARDINAL]; Registration: PROC[iconName: Rope.ROPE] RETURNS[file: Rope.ROPE, index: CARDINAL];Exists: PROC[iconName: Rope.ROPE] RETURNS[yes: BOOL];GetIcon: PROC [iconName: Rope.ROPE, default: Icons.IconFlavor _ unInit] RETURNS [Icons.IconFlavor];FlushCache: PROC [iconName: Rope.ROPE _ NIL];WriteCatalogue: PROC[ file: Rope.ROPE ];ReadCatalogue: PROC[ file: Rope.ROPE, errlog: IO.STREAM _ NIL ];END.  Ì  File: DBIcons.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Implemented By: DBIconsImplLast edited byWidom, June 18, 1984 8:55:28 am PDTDonahue, June 17, 1985 9:00:10 am PDTClose the database connection.  When the next interrogation or update operation occurs, the database will be reopened (and the cache flushed, if necessary).The default database to be used if no user profile entry for "Icons.Segment" existsThe file name provided can be either a full path name or a simple name.  The simple names are interpreted relative to the working directory from which DBIconsImpl was run.Return the registration information for the named iconDoes the icon currently exist in the database GetIcon uses the icon name to attempt to find a registration.  If it finds one, the search rules are used to find the file in which the icon resides and then Icons.NewIconFromFile is used to create a new icon.  If the icon has been previously fetched, then GetIcon will simply return the icon flavor found in the cache (unless, of course, the cache has been flushed!)  InvalidIcon will be raised if either the icon name doesn't exist or the file cannot be foundIf iconName is NIL, the entire cache is flushedÊ2  ˜ šœ™Icodešœ
Ïmœ1™<—Jšœ™šœ™Jšœ#™#K™%—J˜ JšÏk	˜	J˜ Jšœžœ˜Jšœžœ˜Jšœžœžœžœ˜Jšœžœžœ˜J˜ Jšœ	žœžœž˜"J˜ JšÏnœžœžœ˜(J˜ šŸœžœ˜J™œ—J˜ Jšœžœžœ˜J˜ šœžœ˜JšœS™S—J˜ Jšœ
žœžœ˜J˜ Jšœžœžœ˜0J˜ Jšœ	žœ8˜EJ˜ š
Ÿœžœžœžœ	žœ˜PJšœ«™«—J˜ šŸœžœžœžœžœ	žœ˜RJšœ6™6—J˜ š
Ÿœžœžœžœžœ˜5Jšœ.™.—J˜ šŸœžœžœ&žœ˜cJšœÍ™Í—J˜ šŸ
œžœžœžœ˜-Jšœ/™/—J˜ JšŸœžœžœ˜(J˜ JšŸœžœžœ
žœžœžœ˜@J˜ Jšžœ˜J˜ J˜ J˜ J˜ J˜ J˜ J˜ — …—    l  
j  