m3tk/src/files/Common/M3PathDefaults.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE M3PathDefaults;

IMPORT M3PathElem, M3PathElemList;
This interface provides support for prepending the current directory to an M3PathElemList.T

PROCEDURE EnsureCurrentFirst(l: M3PathElemList.T): M3PathElemList.T;
Ensure that the current working directory appears first in the returned list. If it already occurs in l and is not at the front it is moved to the front.

PROCEDURE Add(l: M3PathElemList.T; d: M3PathElem.T): M3PathElemList.T;
If d does not occur in l, where the comparison is via M3PathElem.Equal, add it to the end of l and return the new list.

END M3PathDefaults.