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