Data.Naming.Current_Spec_Suffix := Ada_Spec_Suffix;
else
- Data.Naming.Current_Spec_Suffix := Ada_Default_Spec_Suffix;
+ Data.Naming.Current_Spec_Suffix := Default_Ada_Spec_Suffix;
end if;
end;
Data.Naming.Current_Impl_Suffix := Ada_Impl_Suffix;
else
- Data.Naming.Current_Impl_Suffix := Ada_Default_Impl_Suffix;
+ Data.Naming.Current_Impl_Suffix := Default_Ada_Impl_Suffix;
end if;
end;
Check_Ada_Naming_Scheme (Data.Naming);
else
- Data.Naming.Current_Spec_Suffix := Ada_Default_Spec_Suffix;
- Data.Naming.Current_Impl_Suffix := Ada_Default_Impl_Suffix;
- Data.Naming.Separate_Suffix := Ada_Default_Impl_Suffix;
+ Data.Naming.Current_Spec_Suffix := Default_Ada_Spec_Suffix;
+ Data.Naming.Current_Impl_Suffix := Default_Ada_Impl_Suffix;
+ Data.Naming.Separate_Suffix := Default_Ada_Impl_Suffix;
end if;
end;
The_Empty_String : String_Id;
- Default_Ada_Spec_Suffix : Name_Id := No_Name;
- Default_Ada_Impl_Suffix : Name_Id := No_Name;
-
subtype Known_Casing is Casing_Type range All_Upper_Case .. Mixed_Case;
The_Casing_Images : array (Known_Casing) of String_Access :=
Flag1 => False,
Flag2 => False);
- -----------------------------
- -- Ada_Default_Spec_Suffix --
- -----------------------------
-
- function Ada_Default_Spec_Suffix return Name_Id is
- begin
- return Default_Ada_Spec_Suffix;
- end Ada_Default_Spec_Suffix;
-
- -----------------------------
- -- Ada_Default_Impl_Suffix --
- -----------------------------
-
- function Ada_Default_Impl_Suffix return Name_Id is
- begin
- return Default_Ada_Impl_Suffix;
- end Ada_Default_Impl_Suffix;
-
-------------------
-- Empty_Project --
-------------------
package Prj is
+ Default_Ada_Spec_Suffix : Name_Id := No_Name;
+ -- The Name_Id for the standard GNAT suffix for Ada spec source file
+ -- name ".ads". Initialized by Prj.Initialize.
+
+ Default_Ada_Impl_Suffix : Name_Id := No_Name;
+ -- The Name_Id for the standard GNAT suffix for Ada body source file
+ -- name ".adb". Initialized by Prj.Initialize.
+
type Put_Line_Access is access procedure (Line : String);
-- Use to customize error reporting in Prj.Proc and Prj.Nmsc.
-- it is called for B. With_State may be used by Action to choose a
-- behavior or to report some global result.
- function Ada_Default_Spec_Suffix return Name_Id;
- -- Return the Name_Id for the standard GNAT suffix for Ada spec source
- -- file name ".ads".
-
- function Ada_Default_Impl_Suffix return Name_Id;
- -- Return the Name_Id for the standard GNAT suffix for Ada body source
- -- file name ".adb".
-
private
procedure Scan;