aws_24.0.0_2b75fe6d/demos/web_elements/web_elements_containers.adb

 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
------------------------------------------------------------------------------
--                              Ada Web Server                              --
--                                                                          --
--                     Copyright (C) 2004-2012, AdaCore                     --
--                                                                          --
--  This 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 software 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   --
--  distributed  with  this  software;   see  file COPYING3.  If not, go    --
--  to http://www.gnu.org/licenses for a complete copy of the license.      --
------------------------------------------------------------------------------

with Ada.Containers.Indefinite_Vectors;

with AWS.Templates;

package body Web_Elements_Containers is

   use AWS.Templates;

   package String_Vectors is
     new Ada.Containers.Indefinite_Vectors (Positive, String);

   Groups : String_Vectors.Vector;
   Users  : String_Vectors.Vector;

   ---------------
   -- Add_Group --
   ---------------

   procedure Add_Group (Name : String) is
   begin
      String_Vectors.Append (Groups, Name);
   end Add_Group;

   --------------
   -- Add_User --
   --------------

   procedure Add_User (Name : String) is
   begin
      String_Vectors.Append (Users, Name);
   end Add_User;

   ----------------
   -- Get_Groups --
   ----------------

   function Get_Groups return AWS.Templates.Vector_Tag is
      Result : Vector_Tag;
   begin
      for K in 1 .. String_Vectors.Length (Groups) loop
         Result := Result & String_Vectors.Element (Groups, Positive (K));
      end loop;

      return Result;
   end Get_Groups;

   ---------------
   -- Get_Users --
   ---------------

   function Get_Users return AWS.Templates.Vector_Tag is
      Result : Vector_Tag;
   begin
      for K in 1 .. String_Vectors.Length (Users) loop
         Result := Result & String_Vectors.Element (Users, Positive (K));
      end loop;

      return Result;
   end Get_Users;

end Web_Elements_Containers;