PFSNarrowImpl.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Last tweaked by Mike Spreitzer May 28, 1992 2:59 pm PDT
Interface to views that implement search paths.
DIRECTORY PFS, PFSClass, PFSNarrow;
PFSNarrowImpl:
CEDAR
PROGRAM
EXPORTS PFSNarrow, PFS
= {
OpenFileObject: PUBLIC TYPE ~ PFSClass.OpenFileObject;
IsOpenFile:
PUBLIC
PROC [ra:
REF
ANY]
RETURNS [
BOOL] ~ {
RETURN [ISTYPE[ra, PFSClass.OpenFile]]};
ToOpenFile:
PUBLIC
PROC [ra:
REF
ANY]
RETURNS [
PFS.OpenFile] ~ {
RETURN [NARROW[ra, PFSClass.OpenFile]]};
}.