--  vim: ft=ada

function P_Designated_Unit
  (Node : access Bare_Name_Type'Class) return Analysis_Unit
is
    Filename : constant String := Image (Node.Text) & ".txt";
    Context  : constant Analysis_Context := Node.Unit.Context;
begin
    return Get_From_File (Context, Filename);
end P_Designated_Unit;
