/usr/share/ada/adainclude/gtkada/gdk-rgba.adb 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 122 123 124 125 126 127 128 129 130 131 132 133 | ------------------------------------------------------------------------------
-- --
-- Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet --
-- Copyright (C) 2000-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/>. --
-- --
------------------------------------------------------------------------------
pragma Style_Checks (Off);
pragma Warnings (Off, "*is already use-visible*");
with Glib.Generic_Properties; use Glib.Generic_Properties;
with Gtkada.Bindings; use Gtkada.Bindings;
pragma Warnings(Off); -- might be unused
with Interfaces.C.Strings; use Interfaces.C.Strings;
pragma Warnings(On);
package body Gdk.RGBA is
function From_Object_Free (B : access Gdk_RGBA) return Gdk_RGBA is
Result : constant Gdk_RGBA := B.all;
begin
Glib.g_free (B.all'Address);
return Result;
end From_Object_Free;
function To_Address
(Val : Gdk_RGBA; Addr : System.Address) return System.Address;
package RGBA_Properties is new Generic_Internal_Boxed_Property
(Gdk_RGBA, Gdk.RGBA.Get_Type, To_Address);
procedure Set_Property
(Object : access Glib.Object.GObject_Record'Class;
Name : Property_RGBA;
Value : Gdk_RGBA) is
begin
RGBA_Properties.Set_Property
(Object, RGBA_Properties.Property (Name), Value);
end Set_Property;
function Get_Property
(Object : access Glib.Object.GObject_Record'Class;
Name : Property_RGBA) return Gdk_RGBA is
begin
return RGBA_Properties.Get_Property
(Object, RGBA_Properties.Property (Name));
end Get_Property;
function Gdk_RGBA_Or_Null (Val : System.Address) return System.Address is
function Internal is new Gtkada.Bindings.Generic_To_Address_Or_Null
(Gdk_RGBA, Null_RGBA);
begin
return Internal (Val);
end Gdk_RGBA_Or_Null;
function Get_Value (Value : Glib.Values.GValue) return Gdk_RGBA
renames RGBA_Properties.Get_Value;
procedure Set_Value (Value : in out Glib.Values.GValue; Val : Gdk_RGBA)
renames RGBA_Properties.Set_Value;
function To_Address
(Val : Gdk_RGBA; Addr : System.Address) return System.Address is
begin
if Val = Null_RGBA then
return System.Null_Address;
else
return Addr;
end if;
end To_Address;
-----------
-- Equal --
-----------
function Equal (Self : Gdk_RGBA; P2 : Gdk_RGBA) return Boolean is
function Internal
(Self : Gdk_RGBA;
P2 : Gdk_RGBA) return Glib.Gboolean;
pragma Import (C, Internal, "gdk_rgba_equal");
begin
return Internal (Self, P2) /= 0;
end Equal;
-----------
-- Parse --
-----------
procedure Parse
(Self : out Gdk_RGBA;
Spec : UTF8_String;
Success : out Boolean)
is
function Internal
(Acc_Self : access Gdk_RGBA;
Spec : Interfaces.C.Strings.chars_ptr) return Glib.Gboolean;
pragma Import (C, Internal, "gdk_rgba_parse");
Acc_Self : aliased Gdk_RGBA;
Tmp_Spec : Interfaces.C.Strings.chars_ptr := New_String (Spec);
Tmp_Return : Glib.Gboolean;
begin
Tmp_Return := Internal (Acc_Self'Access, Tmp_Spec);
Free (Tmp_Spec);
Self := Acc_Self;
Success := Tmp_Return /= 0;
end Parse;
---------------
-- To_String --
---------------
function To_String (Self : Gdk_RGBA) return UTF8_String is
function Internal
(Self : Gdk_RGBA) return Interfaces.C.Strings.chars_ptr;
pragma Import (C, Internal, "gdk_rgba_to_string");
begin
return Gtkada.Bindings.Value_And_Free (Internal (Self));
end To_String;
end Gdk.RGBA;
|