

DIRECTORY PFS, PFSNames, Rope;

SearchPaths: CEDAR DEFINITIONS
= {

ROPE: TYPE ~ Rope.ROPE;
PATH: TYPE ~ PFSNames.PATH;
SearchPath: TYPE ~ LIST OF PATH;

SetPath: PROC [name: ROPE, search: SearchPath];

GetScratchPath: PROC [base: ROPE, search: SearchPath] RETURNS [name: ROPE];

GetPath: PROC [name: ROPE] RETURNS [search: SearchPath];

DeletePath: PROC [name: ROPE] RETURNS [had: BOOL];

c0: READONLY PFSNames.Component;

ConsSearchDir: PROC [pathName: ROPE] RETURNS [--absolute directory--PATH];

ConsFileSearch: PROC [pathName: ROPE, short: PFSNames.Component] RETURNS [PATH];

}.
   š  
SearchPaths.mesa
Copyright Ó 1992 by Xerox Corporation.  All rights reserved.
Last tweaked by Mike Spreitzer May 28, 1992 5:36 pm PDT
Interface to views that implement search paths.
Each element is an absolute directory.  They are consulted in order.
Associates the given search path with the given name.
May be called multiple times per name.
Invents a path name not previously associated with any path.  The invented name begins with base, and is returned in name.  The given search path is associated with the invented name.
Raises PFS.Error[[environment, $SearchPathNotFound, IO.PutFR1["search path %g not found", [rope[name]] ], name]] if name hasn't been defined.
Disassociates the given name from its search path; returns an indication of whether it had an association.
PFSNames.ConstructName[LIST[c0, name]] names a directory that contains the union of the contents of the directories associated with name.
Ê¼  –(cedarcode) style•NewlineDelimiter
™ code™Kšœ
Ïeœ1™<K™7K˜ K™/—K˜ KšÏk	œžœ˜K˜ KšÏnœžœž˜K˜K˜ Kšžœžœžœ˜Kšžœžœžœ˜š	œžœžœžœžœ˜ K™D—K˜ šŸœžœžœ˜/K™5K™&—K˜ š
Ÿœžœžœžœžœ˜KKšœ\œœ>™·—K˜ šŸœžœžœžœ˜8Kšœ`œœœ™—K˜ š
Ÿ
œžœžœžœžœ˜2K™j—K˜ šœžœ˜ Kšœ œ`œ™‰—K˜ šŸœžœžœžœÏcžœ˜JK˜ —Kš
Ÿœžœžœžœžœ˜PK˜ K˜— …—    L  ¢  