Copyright (C) 1994, Digital Equipment Corp.
MODULE; IMPORT Process; PROCEDURE Filename FileIsReadable (filename: TEXT): BOOLEAN = BEGIN Die (); RETURN FALSE; END FileIsReadable; PROCEDURERoot (filename: TEXT): TEXT = BEGIN Die (); RETURN NIL; END Root; PROCEDUREExtension (filename: TEXT): TEXT = BEGIN Die (); RETURN NIL; END Extension; PROCEDUREHead (filename: TEXT): TEXT = BEGIN Die (); RETURN NIL; END Head; PROCEDURETail (filename: TEXT): TEXT = BEGIN Die (); RETURN NIL; END Tail; PROCEDUREDefaultExtension (filename, ext: TEXT): TEXT = BEGIN Die (); RETURN NIL; END DefaultExtension; PROCEDUREExpandTilde (filename: TEXT): TEXT RAISES {Error} = BEGIN Die (); RAISE Error; END ExpandTilde; PROCEDURESearchPath (path, filename: TEXT; pred: FilePredicate := FileIsReadable): TEXT = BEGIN Die (); RETURN NIL; END SearchPath; PROCEDURERdFromPath (path, filename: TEXT): Rd.T RAISES {Rd.Failure} = BEGIN Die (); RETURN NIL; END RdFromPath; PROCEDUREDie () = BEGIN Process.Crash ("Filename is not implemented on NT, use Pathname"); END Die; BEGIN END Filename.