/usr/share/ada/adainclude/gtkada/glib-gnodes.ads is in libgtkada16.1.0-dev 17.0.2017-2.
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 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 | ------------------------------------------------------------------------------
-- GtkAda - Ada95 binding for Gtk+/Gnome --
-- --
-- Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet --
-- Copyright (C) 1998-2017, AdaCore --
-- --
-- This library is free software; you can redistribute it and/or modify it --
-- under terms of the GNU General Public License as published by the Free --
-- Software Foundation; either version 3, 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 MERCHAN- --
-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- --
-- --
-- --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
------------------------------------------------------------------------------
-- <group>Glib, the general-purpose library</group>
with Glib.Enums; use Glib.Enums;
package Glib.Gnodes is
type Gnode is new C_Proxy;
-- pop_allocator
-- push_allocator
function Child_Position (Node : Gnode; Child : Gnode) return Gint;
function Depth (Node : Gnode) return Guint;
procedure Destroy (Node : in out Gnode);
function First_Child (Node : Gnode) return Gnode;
function First_Sibling (Node : Gnode) return Gnode;
function Get_Root (Node : Gnode) return Gnode;
procedure Insert
(Parent : in out Gnode;
Position : Gint;
Node : in out Gnode);
procedure Insert_Before
(Parent : in out Gnode;
Sibling : in out Gnode;
Node : in out Gnode);
function Is_Ancestor
(Node : Gnode;
Descendant : Gnode) return Boolean;
function Is_Leaf (Node : Gnode) return Boolean;
function Is_Root (Node : Gnode) return Boolean;
function Last_Child (Node : Gnode) return Gnode;
function Last_Sibling (Node : Gnode) return Gnode;
function Max_Height (Root : Gnode) return Guint;
function N_Nodes
(Root : Gnode; Flags : Glib_Traverse_Flags) return Guint;
function Next_Sibling (Node : Gnode) return Gnode;
function Nth_Child (Node : Gnode; N : Guint) return Gnode;
procedure Prepend (Parent : in out Gnode; Node : in out Gnode);
function Prev_Sibling (Node : Gnode) return Gnode;
procedure Reverse_Children (Node : in out Gnode);
procedure Unlink (Node : in out Gnode);
generic
type Element (<>) is private;
type Element_Access is access all Element;
package Gnode_Data is
-- type Gnode_Traverse_Func
-- type Gnode_Foreach_Func
-- child_index
-- children_foreach
-- find
-- find_child
procedure Glib_New (Node : out Gnode; Data : Element_Access);
-- traverse
end Gnode_Data;
private
pragma Import (C, Child_Position, "g_node_child_position");
pragma Import (C, Depth, "g_node_depth");
pragma Import (C, First_Child, "ada_gnode_first_child");
pragma Import (C, First_Sibling, "g_node_first_sibling");
pragma Import (C, Get_Root, "g_node_get_root");
pragma Import (C, Insert, "g_node_insert");
pragma Import (C, Insert_Before, "g_node_insert_before");
pragma Import (C, Last_Child, "g_node_last_child");
pragma Import (C, Last_Sibling, "g_node_last_sibling");
pragma Import (C, Max_Height, "g_node_max_height");
pragma Import (C, Next_Sibling, "ada_gnode_next_sibling");
pragma Import (C, Nth_Child, "g_node_nth_child");
pragma Import (C, Prepend, "g_node_prepend");
pragma Import (C, Prev_Sibling, "ada_gnode_prev_sibling");
pragma Import (C, Reverse_Children, "g_node_reverse_children");
pragma Import (C, Unlink, "g_node_unlink");
end Glib.Gnodes;
|