- Prj.Proc.Process
- (In_Tree => In_Tree,
- Project => The_Project,
- Success => Success,
- From_Project_Node => Project_Node,
- From_Project_Node_Tree => Project_Node_Tree,
- Report_Error => null,
- Follow_Links => Opt.Follow_Links,
- When_No_Sources => When_No_Sources,
- Reset_Tree => Reset_Tree);
+ begin
+ -- No config file should be read from the disk for gnatmake.
+ -- However, we will simulate one that only contains the
+ -- default GNAT naming scheme.
+
+ Process_Project_And_Apply_Config
+ (Main_Project => The_Project,
+ User_Project_Node => Project_Node,
+ Config_File_Name => "",
+ Autoconf_Specified => False,
+ Project_Tree => In_Tree,
+ Project_Node_Tree => Project_Node_Tree,
+ Packages_To_Check => null,
+ Allow_Automatic_Generation => False,
+ Automatically_Generated => Automatically_Generated,
+ Config_File_Path => Config_File_Path,
+ Flags => Flags,
+ Normalized_Hostname => "",
+ On_Load_Config =>
+ Add_Default_GNAT_Naming_Scheme'Access,
+ Reset_Tree => Reset_Tree);
+
+ Success := The_Project /= No_Project;
+
+ exception
+ when Invalid_Config =>
+ Success := False;
+ end;
+