filename/src/WINNT/Filename.m3


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.

interface Filename is in: