This file is indexed.

/usr/share/ada/adainclude/gnatprj/sdefault.adb is in libgnatprj4.9-dev 4.9.3-3ubuntu5.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
pragma Style_Checks (Off);
with Osint; use Osint;
package body Sdefault is
   S0 : constant String := "/usr/";
   S1 : constant String := "/usr/lib/gcc/x86_64-linux-gnu/4.9/adainclude/";
   S2 : constant String := "/usr/lib/gcc/x86_64-linux-gnu/4.9/adalib/";
   S3 : constant String := "x86_64-linux-gnu/";
   S4 : constant String := "/usr/lib/gcc/x86_64-linux-gnu/4.9/";
   S5 : constant String := "/usr/share/ada/adainclude/";
   function Include_Dir_Default_Name return String_Ptr is
   begin
      return Relocate_Path (S0, S1);
   end Include_Dir_Default_Name;
   function Object_Dir_Default_Name return String_Ptr is
   begin
      return Relocate_Path (S0, S2);
   end Object_Dir_Default_Name;
   function Target_Name return String_Ptr is
   begin
      return new String'(S3);
   end Target_Name;
   function Search_Dir_Prefix return String_Ptr is
   begin
      return Relocate_Path (S0, S4);
   end Search_Dir_Prefix;
   function Project_Dir_Prefix return String_Ptr is
   begin
      return Relocate_Path (S0, S5);
   end Project_Dir_Prefix;
end Sdefault;