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