1------------------------------------------------------------------------------
2--                                                                          --
3--                            Matreshka Project                             --
4--                                                                          --
5--                               XML Processor                              --
6--                                                                          --
7--                        Runtime Library Component                         --
8--                                                                          --
9------------------------------------------------------------------------------
10--                                                                          --
11-- Copyright © 2011, Vadim Godunko <vgodunko@gmail.com>                     --
12-- All rights reserved.                                                     --
13--                                                                          --
14-- Redistribution and use in source and binary forms, with or without       --
15-- modification, are permitted provided that the following conditions       --
16-- are met:                                                                 --
17--                                                                          --
18--  * Redistributions of source code must retain the above copyright        --
19--    notice, this list of conditions and the following disclaimer.         --
20--                                                                          --
21--  * Redistributions in binary form must reproduce the above copyright     --
22--    notice, this list of conditions and the following disclaimer in the   --
23--    documentation and/or other materials provided with the distribution.  --
24--                                                                          --
25--  * Neither the name of the Vadim Godunko, IE nor the names of its        --
26--    contributors may be used to endorse or promote products derived from  --
27--    this software without specific prior written permission.              --
28--                                                                          --
29-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS      --
30-- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT        --
31-- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR    --
32-- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT     --
33-- HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,   --
34-- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED --
35-- TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR   --
36-- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF   --
37-- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING     --
38-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS       --
39-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.             --
40--                                                                          --
41------------------------------------------------------------------------------
42--  $Revision: 2098 $ $Date: 2011-08-19 21:18:33 +0400 (Fri, 19 Aug 2011) $
43------------------------------------------------------------------------------
44
45package body Matreshka.XML_Catalogs.Entry_Files is
46
47   ------------
48   -- Append --
49   ------------
50
51   procedure Append
52    (Self                  : in out Catalog_Entry_File;
53     Delegate_Public_Entry : not null Delegate_Public_Entry_Access) is
54   begin
55      Self.Delegate_Public_Entries.Append (Delegate_Public_Entry);
56   end Append;
57
58   ------------
59   -- Append --
60   ------------
61
62   procedure Append
63    (Self                  : in out Catalog_Entry_File;
64     Delegate_System_Entry : not null Delegate_System_Entry_Access) is
65   begin
66      Self.Delegate_System_Entries.Append (Delegate_System_Entry);
67   end Append;
68
69   ------------
70   -- Append --
71   ------------
72
73   procedure Append
74    (Self               : in out Catalog_Entry_File;
75     Delegate_URI_Entry : not null Delegate_URI_Entry_Access) is
76   begin
77      Self.Delegate_URI_Entries.Append (Delegate_URI_Entry);
78   end Append;
79
80   ------------
81   -- Append --
82   ------------
83
84   procedure Append
85    (Self               : in out Catalog_Entry_File;
86     Next_Catalog_Entry : not null Next_Catalog_Entry_Access) is
87   begin
88      Self.Next_Catalog_Entries.Append (Next_Catalog_Entry);
89   end Append;
90
91   ------------
92   -- Append --
93   ------------
94
95   procedure Append
96    (Self         : in out Catalog_Entry_File;
97     Public_Entry : not null Public_Entry_Access) is
98   begin
99      Self.Public_Entries.Append (Public_Entry);
100   end Append;
101
102   ------------
103   -- Append --
104   ------------
105
106   procedure Append
107    (Self                 : in out Catalog_Entry_File;
108     Rewrite_System_Entry : not null Rewrite_System_Entry_Access) is
109   begin
110      Self.Rewrite_System_Entries.Append (Rewrite_System_Entry);
111   end Append;
112
113   ------------
114   -- Append --
115   ------------
116
117   procedure Append
118    (Self              : in out Catalog_Entry_File;
119     Rewrite_URI_Entry : not null Rewrite_URI_Entry_Access) is
120   begin
121      Self.Rewrite_URI_Entries.Append (Rewrite_URI_Entry);
122   end Append;
123
124   ------------
125   -- Append --
126   ------------
127
128   procedure Append
129    (Self         : in out Catalog_Entry_File;
130     System_Entry : not null System_Entry_Access) is
131   begin
132      Self.System_Entries.Append (System_Entry);
133   end Append;
134
135   ------------
136   -- Append --
137   ------------
138
139   procedure Append
140    (Self                : in out Catalog_Entry_File;
141     System_Suffix_Entry : not null System_Suffix_Entry_Access) is
142   begin
143      Self.System_Suffix_Entries.Append (System_Suffix_Entry);
144   end Append;
145
146   ------------
147   -- Append --
148   ------------
149
150   procedure Append
151    (Self      : in out Catalog_Entry_File;
152     URI_Entry : not null URI_Entry_Access) is
153   begin
154      Self.URI_Entries.Append (URI_Entry);
155   end Append;
156
157   ------------
158   -- Append --
159   ------------
160
161   procedure Append
162    (Self             : in out Catalog_Entry_File;
163     URI_Suffix_Entry : not null URI_Suffix_Entry_Access) is
164   begin
165      Self.URI_Suffix_Entries.Append (URI_Suffix_Entry);
166   end Append;
167
168end Matreshka.XML_Catalogs.Entry_Files;
169