GNATCOLL.Projects: fix Library_Files for C/C++ headers

Never consider header files as being the "main source" for a LI file.
These are always produced from ".c"/".cpp" files (i.e. bodies).

TN: V816-018
Change-Id: Iefa81413c8e53002b9c67bd65bc5e44e04c8235c

Author: pmderodat

src/gnatcoll-projects.adb

@@ -1170,7 +1170,7 @@ package body GNATCOLL.Projects is
                   --  same basename as Key, even if we skip the header files.
 
                   if Extended_P = SFD.Project
-                    and then +SFD.File.File_Extension not in ".h" | ".hpp"
+                    and then Kind_To_Part (SFD.Source) = Unit_Body
                   then
                      Local_Obj_Map.Include (Key, SFD);
 

testsuite/tests/projects/library_files_c++/bar.hh

@@ -0,0 +1,3 @@
+project P is
+   for Languages use ("C++");
+end P;

testsuite/tests/projects/library_files_c++/foo.cpp

@@ -0,0 +1,33 @@
+with GNATCOLL.Projects; use GNATCOLL.Projects;
+with GNATCOLL.VFS;      use GNATCOLL.VFS;
+
+with Test_Assert;
+
+function Test return Integer is
+   Env  : Project_Environment_Access;
+   Tree : Project_Tree;
+   LIL  : Library_Info_List;
+   LI   : Library_Info;
+begin
+   Initialize (Env);
+   Tree.Load (Env => Env, Root_Project_Path => Create (+"p.gpr"));
+
+   Tree.Root_Project.Library_Files (List => LIL, ALI_Ext => "^.*\.gli$");
+   Test_Assert.Assert
+     (Integer (LIL.Length), 1, "unexpected number of library files");
+
+   LI := LIL.First_Element;
+   Test_Assert.Assert
+     (+LI.Library_File.Base_Name,
+      "foo.cpp.gli",
+      "unexpected LI file name");
+   Test_Assert.Assert
+     (+LI.Source.File.Base_Name,
+      "foo.cpp",
+      "unexpected source file associated to foo.cpp.gli");
+
+   LIL.Clear;
+   Tree.Unload;
+   Free (Env);
+   return Test_Assert.Report;
+end Test;

testsuite/tests/projects/library_files_c++/foo.hh

@@ -0,0 +1,6 @@
+description:
+    Library_File used to assume C/C++ bodies had ".c"/".cc" suffixes (it's
+    wrong for C++ by default, and both can be configured anyway), and used to
+    assume that C++ headers had ".hpp" suffixes (likewise, and it's ".hh" by
+    default).
+data: ["p.gpr", "foo.cpp", "foo.cpp.gli", "foo.hh", "bar.hh", "bar.hh.gli"]