--  vim: ft=ada

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