libdbusada0.2-dev 0.2-2 / usr / share / ada / adainclude / dbus-ada / d_bus-arguments.ads

This file is indexed.

/usr/share/ada/adainclude/dbus-ada/d_bus-arguments.ads is in libdbusada0.2-dev 0.2-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
134
135
136
137
138
139
140
141
142
143
--
--  D_Bus/Ada - An Ada binding to D-Bus
--
--  Copyright (C) 2011  Reto Buerki <reet@codelabs.ch>
--
--  This program 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 program 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 program; if not, write to the Free Software
--  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301,
--  USA.
--
--  As a special exception, if other files instantiate generics from this
--  unit,  or  you  link  this  unit  with  other  files  to  produce  an
--  executable   this  unit  does  not  by  itself  cause  the  resulting
--  executable to  be  covered by the  GNU General  Public License.  This
--  exception does  not  however  invalidate  any  other reasons why  the
--  executable file might be covered by the GNU Public License.
--

with Ada.Containers.Indefinite_Doubly_Linked_Lists;

with dbus_message_h;

with D_Bus.Marshaling;

package D_Bus.Arguments is

   type Argument_Type is interface and Marshaling.Object;
   --  D-Bus argument type.

   function To_String (Arg : Argument_Type) return String is abstract;
   --  Return string representation of an argument.

   function Get_Signature (Arg : Argument_Type) return String is abstract;
   --  Return the argument's signature.

   function Get_Code (Arg : Argument_Type'Class) return Integer;
   --  Return D-Bus code of argument type implementation. See the chapter
   --  'Type Signatures' in the D-Bus specification for more information.

   type Argument_List_Type is new Marshaling.Object with private;
   --  List of D-Bus arguments.

   Empty_Argument_List : constant Argument_List_Type;

   overriding
   procedure Serialize
     (Args   : Argument_List_Type;
      D_Args : not null access dbus_message_h.DBusMessageIter);
   --  Serialize list of argument types to D-Bus arguments.

   overriding
   function Deserialize
     (D_Args : not null access dbus_message_h.DBusMessageIter)
      return Argument_List_Type;
   --  Deserialize argument types from low-level D-Bus message starting at
   --  given message iterator position.

   procedure Append
     (List     : in out Argument_List_Type;
      New_Item :        Argument_Type'Class);
   --  Append argument to list.

   procedure Iterate
     (List    : Argument_List_Type;
      Process : not null access procedure (Arg : Argument_Type'Class));
   --  Iterate over arguments in the argument list.

   function First_Element
     (List : Argument_List_Type)
      return Argument_Type'Class;
   --  Return the first element in the argument list.

   function Last_Element
     (List : Argument_List_Type)
      return Argument_Type'Class;
   --  Return the last element in the argument list.

   function Get_Count (List : Argument_List_Type) return Natural;
   --  Return argument count.

   function Is_Empty (List : Argument_List_Type) return Boolean;
   --  Return True if argument list is empty.

   type Basic_Type is abstract new Argument_Type with private;
   --  Parent of all basic types.

   overriding
   function Get_Signature (Arg : Basic_Type) return String;
   --  Return the argument's signature.

   No_Arguments : exception;

private

   type Basic_Type is abstract new Argument_Type with null record;

   package Argument_List_Package is new
     Ada.Containers.Indefinite_Doubly_Linked_Lists
       (Element_Type => Argument_Type'Class);

   package ALP renames Argument_List_Package;

   type Argument_List_Type is new Marshaling.Object with record
      Data : ALP.List;
   end record;

   Empty_Argument_List : constant Argument_List_Type
     := Argument_List_Type'(others => <>);

   type ASCII_Code is (a, b, e, i, n, q, r, s, t, u, v, x, y);
   --  ASCII type codes of D-Bus types (see 'Type Signatures' in the D-Bus
   --  specification).

   Code_Table : constant array (ASCII_Code) of Integer
     := (a => Character'Pos ('a'),
         b => Character'Pos ('b'),
         e => Character'Pos ('e'),
         i => Character'Pos ('i'),
         n => Character'Pos ('n'),
         q => Character'Pos ('q'),
         r => Character'Pos ('r'),
         s => Character'Pos ('s'),
         t => Character'Pos ('t'),
         u => Character'Pos ('u'),
         v => Character'Pos ('v'),
         y => Character'Pos ('y'),
         x => Character'Pos ('x'));
   --  Mapping of ASCII codes to their integer representation.

   function Get_Tag (Arg : Argument_Type'Class) return String;
   --  Return the external tag of the given argument.

end D_Bus.Arguments;

APT Browse - Built by Thomas Orozco.