1
-----------------------------------------------------------------------
2
-- GtkAda - Ada95 binding for the Gimp Toolkit --
4
-- Copyright (C) 2006, AdaCore --
6
-- This library is free software; you can redistribute it and/or --
7
-- modify it under the terms of the GNU General Public --
8
-- License as published by the Free Software Foundation; either --
9
-- version 2 of the License, or (at your option) any later version. --
11
-- This library is distributed in the hope that it will be useful, --
12
-- but WITHOUT ANY WARRANTY; without even the implied warranty of --
13
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU --
14
-- General Public License for more details. --
16
-- You should have received a copy of the GNU General Public --
17
-- License along with this library; if not, write to the --
18
-- Free Software Foundation, Inc., 59 Temple Place - Suite 330, --
19
-- Boston, MA 02111-1307, USA. --
21
-----------------------------------------------------------------------
23
package body Gtkada.C is
25
----------------------
26
-- Unbounded_Arrays --
27
----------------------
29
package body Unbounded_Arrays is
36
(Arr : Unbounded_Array_Access; N : Index) return T_Array
40
return (Index'Val (1) .. Index'Val (0) => Null_T);
43
Result : T_Array (Index'Val (1) .. N);
45
for R in Index'Val (1) .. N loop
46
Result (R) := Arr (R);