This file is indexed.

/usr/share/ada/adainclude/gtkada/cairo-pdf.ads is in libgtkada2.24.1-dev 2.24.1-14.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
-----------------------------------------------------------------------
--               GtkAda - Ada95 binding for Gtk+/Gnome               --
--                                                                   --
--                    Copyright (C) 2011, AdaCore                    --
--                                                                   --
-- This library is free software; you can redistribute it and/or     --
-- modify it under the terms of the GNU General Public               --
-- License as published by the Free Software Foundation; either      --
-- version 2 of the License, or (at your option) any later version.  --
--                                                                   --
-- This library is distributed in the hope that it will be useful,   --
-- but WITHOUT ANY WARRANTY; without even the implied warranty of    --
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --
-- General Public License for more details.                          --
--                                                                   --
-- You should have received a copy of the GNU General Public         --
-- License along with this library; if not, write to the             --
-- Free Software Foundation, Inc., 59 Temple Place - Suite 330,      --
-- Boston, MA 02111-1307, USA.                                       --
--                                                                   --
-----------------------------------------------------------------------

package Cairo.PDF is

   function Create
     (Filename         : String;
      Width_In_Points  : Gdouble;
      Height_In_Points : Gdouble) return Cairo_Surface;
   --  Creates a PDF surface of the specified size in points to be written to
   --  filename.
   --
   --  filename :
   --   a filename for the PDF output (must be writable), NULL may be used to
   --   specify no output. This will generate a PDF surface that may be queried
   --   and used as a source, without generating a temporary file.
   --  width_in_points:
   --   width of the surface, in points (1 point == 1/72.0 inch)
   --  height_in_points:
   --   height of the surface, in points (1 point == 1/72.0 inch)
   --  Returns:
   --   a pointer to the newly created surface. The caller owns the surface and
   --   should call cairo_surface_destroy() when done with it. This function
   --   always returns a valid pointer, but it will return a pointer to a "nil"
   --   surface if an error such as out of memory occurs. You can use
   --   cairo_surface_status() to check for this.
   --
   --  Since 1.2

end Cairo.PDF;