package Activity_Utilities is

    procedure Unset (For_Job : Boolean := True; For_Session : Boolean := True);

    -- Associates Activity_Implementation.Null_Activity with the
    -- current job and/or session.


    function Current_Spec_View (For_Subsystem : String) return String;
    function Current_Load_View (For_Subsystem : String) return String;

    -- Returns the full pathname of the specified subsystem view in
    -- the activity file currently associated with this job (or session
    -- if none).


    function Current_Subsystem return String;
    function Current_View return String;

    -- Returns the full pathname of the subsystem or view that
    -- encloses the current context.


    Error : exception;

    -- Raised for all problems.

end Activity_Utilities;