mirror of
https://github.com/AdaCore/gpr.git
synced 2026-02-12 12:58:39 -08:00
a3bfb1733f
The Interface attribute is not limited to libraries, unlike Library_Interface. Update the relevant APIs that handle these interfaces accordingly, along with the Ada compilation import permission code.
118 lines
3.1 KiB
Ada
118 lines
3.1 KiB
Ada
with Ada.Strings.Fixed;
|
|
with Ada.Text_IO;
|
|
|
|
with GPR2.Build.Source.Sets;
|
|
with GPR2.Options;
|
|
with GPR2.Message;
|
|
with GPR2.Path_Name;
|
|
with GPR2.Project.View;
|
|
with GPR2.Project.Tree;
|
|
|
|
procedure Main is
|
|
|
|
use Ada;
|
|
use GPR2;
|
|
|
|
procedure Check (Project_Name : String);
|
|
-- Do check the given project's sources
|
|
|
|
procedure Output_Filename (Filename : Path_Name.Full_Name);
|
|
-- Remove the leading tmp directory
|
|
|
|
-----------
|
|
-- Check --
|
|
-----------
|
|
|
|
procedure Check (Project_Name : String) is
|
|
|
|
procedure List_Sources (View : Project.View.Object);
|
|
|
|
------------------
|
|
-- List_Sources --
|
|
------------------
|
|
|
|
procedure List_Sources (View : Project.View.Object) is
|
|
begin
|
|
Text_IO.New_Line;
|
|
Text_IO.Put_Line ("---------- ALL");
|
|
|
|
for Source of View.Sources loop
|
|
declare
|
|
U : constant Optional_Name_Type := Source.Unit.Name;
|
|
begin
|
|
Output_Filename (Source.Path_Name.Value);
|
|
|
|
Text_IO.Put (", language: " & Image (Source.Language));
|
|
Text_IO.Put (", Kind: " & Source.Kind'Image);
|
|
Text_IO.Put (", unit: " & String (U));
|
|
|
|
Text_IO.New_Line;
|
|
end;
|
|
end loop;
|
|
|
|
Text_IO.New_Line;
|
|
Text_IO.Put_Line ("---------- INTERFACE ONLY");
|
|
|
|
for Source of View.Sources (Interface_Only => True) loop
|
|
declare
|
|
U : constant Optional_Name_Type := Source.Unit.Name;
|
|
begin
|
|
Output_Filename (Source.Path_Name.Value);
|
|
Text_IO.Put (", Kind: " & Source.Kind'Image);
|
|
Text_IO.Put (", unit: " & String (U));
|
|
Text_IO.New_Line;
|
|
end;
|
|
end loop;
|
|
|
|
Text_IO.New_Line;
|
|
Text_IO.Put_Line ("---------- COMPILABLE ONLY");
|
|
|
|
for Source of View.Sources (Compilable_Only => True) loop
|
|
declare
|
|
U : constant Optional_Name_Type := Source.Unit.Name;
|
|
begin
|
|
Output_Filename (Source.Path_Name.Value);
|
|
Text_IO.Put (", Kind: " & Source.Kind'Image);
|
|
Text_IO.Put (", unit: " & String (U));
|
|
Text_IO.New_Line;
|
|
end;
|
|
end loop;
|
|
end List_Sources;
|
|
|
|
Prj : Project.Tree.Object;
|
|
Opt : Options.Object;
|
|
View : Project.View.Object;
|
|
|
|
begin
|
|
Opt.Add_Switch (Options.P, Project_Name);
|
|
if not Prj.Load (Opt, Absent_Dir_Error => No_Error) then
|
|
return;
|
|
end if;
|
|
|
|
View := Prj.Root_Project;
|
|
Text_IO.Put_Line ("Project: " & String (View.Name));
|
|
|
|
Prj.Update_Sources;
|
|
|
|
List_Sources (View);
|
|
Prj.Unload;
|
|
end Check;
|
|
|
|
---------------------
|
|
-- Output_Filename --
|
|
---------------------
|
|
|
|
procedure Output_Filename (Filename : Path_Name.Full_Name) is
|
|
S : constant String := String (Filename);
|
|
Test : constant String := "interface";
|
|
I : constant Positive := Strings.Fixed.Index (S, Test);
|
|
begin
|
|
Text_IO.Put (" > " & S (I + Test'Length + 1 .. S'Last));
|
|
end Output_Filename;
|
|
|
|
begin
|
|
Check ("demo.gpr");
|
|
Check ("demo2.gpr");
|
|
Check ("demo3.gpr");
|
|
end Main;
|