1------------------------------------------------------------------------------ 2-- -- 3-- Matreshka Project -- 4-- -- 5-- Ada Modeling Framework -- 6-- -- 7-- Runtime Library Component -- 8-- -- 9------------------------------------------------------------------------------ 10-- -- 11-- Copyright © 2012, 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: 2928 $ $Date: 2012-05-01 12:43:19 +0400 (Tue, 01 May 2012) $ 43------------------------------------------------------------------------------ 44-- This file is generated, don't edit it. 45------------------------------------------------------------------------------ 46with AMF.Internals.Tables.CMOF_Attributes; 47with AMF.Internals.Tables.Primitive_Types_String_Data_00; 48 49package body AMF.Internals.Tables.Primitive_Types_Metamodel.Properties is 50 51 ---------------- 52 -- Initialize -- 53 ---------------- 54 55 procedure Initialize is 56 begin 57 Initialize_1; 58 Initialize_2; 59 Initialize_3; 60 Initialize_4; 61 Initialize_5; 62 Initialize_6; 63 Initialize_7; 64 Initialize_8; 65 Initialize_9; 66 Initialize_10; 67 Initialize_11; 68 Initialize_12; 69 Initialize_13; 70 Initialize_14; 71 Initialize_15; 72 end Initialize; 73 74 ------------------ 75 -- Initialize_1 -- 76 ------------------ 77 78 procedure Initialize_1 is 79 begin 80 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 81 (Base + 1, 82 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_000E'Access); 83 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Uri 84 (Base + 1, 85 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0001'Access); 86 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 1, (Is_Empty => True)); 87 end Initialize_1; 88 89 ------------------ 90 -- Initialize_2 -- 91 ------------------ 92 93 procedure Initialize_2 is 94 begin 95 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 96 (Base + 2, 97 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0009'Access); 98 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 2, (Is_Empty => True)); 99 end Initialize_2; 100 101 ------------------ 102 -- Initialize_3 -- 103 ------------------ 104 105 procedure Initialize_3 is 106 begin 107 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 108 (Base + 3, 109 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0006'Access); 110 end Initialize_3; 111 112 ------------------ 113 -- Initialize_4 -- 114 ------------------ 115 116 procedure Initialize_4 is 117 begin 118 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 119 (Base + 4, 120 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0003'Access); 121 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 4, (Is_Empty => True)); 122 end Initialize_4; 123 124 ------------------ 125 -- Initialize_5 -- 126 ------------------ 127 128 procedure Initialize_5 is 129 begin 130 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 131 (Base + 5, 132 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_000B'Access); 133 end Initialize_5; 134 135 ------------------ 136 -- Initialize_6 -- 137 ------------------ 138 139 procedure Initialize_6 is 140 begin 141 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 142 (Base + 6, 143 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_000D'Access); 144 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 6, (Is_Empty => True)); 145 end Initialize_6; 146 147 ------------------ 148 -- Initialize_7 -- 149 ------------------ 150 151 procedure Initialize_7 is 152 begin 153 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 154 (Base + 7, 155 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0008'Access); 156 end Initialize_7; 157 158 ------------------ 159 -- Initialize_8 -- 160 ------------------ 161 162 procedure Initialize_8 is 163 begin 164 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 165 (Base + 8, 166 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0011'Access); 167 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 8, (Is_Empty => True)); 168 end Initialize_8; 169 170 ------------------ 171 -- Initialize_9 -- 172 ------------------ 173 174 procedure Initialize_9 is 175 begin 176 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 177 (Base + 9, 178 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0010'Access); 179 end Initialize_9; 180 181 ------------------- 182 -- Initialize_10 -- 183 ------------------- 184 185 procedure Initialize_10 is 186 begin 187 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 188 (Base + 10, 189 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0002'Access); 190 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 10, (Is_Empty => True)); 191 end Initialize_10; 192 193 ------------------- 194 -- Initialize_11 -- 195 ------------------- 196 197 procedure Initialize_11 is 198 begin 199 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body 200 (Base + 11, 201 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_000A'Access); 202 end Initialize_11; 203 204 ------------------- 205 -- Initialize_12 -- 206 ------------------- 207 208 procedure Initialize_12 is 209 begin 210 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 211 (Base + 12, 212 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_000F'Access); 213 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Value 214 (Base + 12, 215 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0000'Access); 216 end Initialize_12; 217 218 ------------------- 219 -- Initialize_13 -- 220 ------------------- 221 222 procedure Initialize_13 is 223 begin 224 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 225 (Base + 13, 226 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0004'Access); 227 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Value 228 (Base + 13, 229 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0005'Access); 230 end Initialize_13; 231 232 ------------------- 233 -- Initialize_14 -- 234 ------------------- 235 236 procedure Initialize_14 is 237 begin 238 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 239 (Base + 14, 240 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0004'Access); 241 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Value 242 (Base + 14, 243 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_000C'Access); 244 end Initialize_14; 245 246 ------------------- 247 -- Initialize_15 -- 248 ------------------- 249 250 procedure Initialize_15 is 251 begin 252 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 253 (Base + 15, 254 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0004'Access); 255 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Value 256 (Base + 15, 257 AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0007'Access); 258 end Initialize_15; 259 260end AMF.Internals.Tables.Primitive_Types_Metamodel.Properties; 261