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.CMOF; 47with AMF.Internals.Tables.CMOF_Attributes; 48with AMF.Internals.Tables.Standard_Profile_L3_String_Data_00; 49 50package body AMF.Internals.Tables.Standard_Profile_L3_Metamodel.Properties is 51 52 ---------------- 53 -- Initialize -- 54 ---------------- 55 56 procedure Initialize is 57 begin 58 Initialize_1; 59 Initialize_2; 60 Initialize_3; 61 Initialize_4; 62 Initialize_5; 63 Initialize_6; 64 Initialize_7; 65 Initialize_8; 66 Initialize_9; 67 Initialize_10; 68 Initialize_11; 69 Initialize_12; 70 Initialize_13; 71 Initialize_14; 72 Initialize_15; 73 end Initialize; 74 75 ------------------ 76 -- Initialize_1 -- 77 ------------------ 78 79 procedure Initialize_1 is 80 begin 81 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 82 (Base + 1, 83 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_0003'Access); 84 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 1, (Is_Empty => True)); 85 end Initialize_1; 86 87 ------------------ 88 -- Initialize_2 -- 89 ------------------ 90 91 procedure Initialize_2 is 92 begin 93 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 94 (Base + 2, 95 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_000D'Access); 96 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 2, (Is_Empty => True)); 97 end Initialize_2; 98 99 ------------------ 100 -- Initialize_3 -- 101 ------------------ 102 103 procedure Initialize_3 is 104 begin 105 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 106 (Base + 3, 107 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_0007'Access); 108 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 3, (Is_Empty => True)); 109 end Initialize_3; 110 111 ------------------ 112 -- Initialize_4 -- 113 ------------------ 114 115 procedure Initialize_4 is 116 begin 117 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 118 (Base + 4, 119 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_0006'Access); 120 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 4, (False, AMF.CMOF.Public_Visibility)); 121 end Initialize_4; 122 123 ------------------ 124 -- Initialize_5 -- 125 ------------------ 126 127 procedure Initialize_5 is 128 begin 129 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 130 (Base + 5, 131 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_0005'Access); 132 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 5, (False, AMF.CMOF.Public_Visibility)); 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.Standard_Profile_L3_String_Data_00.MS_0005'Access); 144 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 6, (False, AMF.CMOF.Public_Visibility)); 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_Name 154 (Base + 7, 155 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_0001'Access); 156 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 7, (Is_Empty => True)); 157 end Initialize_7; 158 159 ------------------ 160 -- Initialize_8 -- 161 ------------------ 162 163 procedure Initialize_8 is 164 begin 165 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 166 (Base + 8, 167 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_000B'Access); 168 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 8, (Is_Empty => True)); 169 end Initialize_8; 170 171 ------------------ 172 -- Initialize_9 -- 173 ------------------ 174 175 procedure Initialize_9 is 176 begin 177 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 178 (Base + 9, 179 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_0009'Access); 180 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 9, (Is_Empty => True)); 181 end Initialize_9; 182 183 ------------------- 184 -- Initialize_10 -- 185 ------------------- 186 187 procedure Initialize_10 is 188 begin 189 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 190 (Base + 10, 191 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_0008'Access); 192 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Uri 193 (Base + 10, 194 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_0004'Access); 195 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 10, (Is_Empty => True)); 196 end Initialize_10; 197 198 ------------------- 199 -- Initialize_11 -- 200 ------------------- 201 202 procedure Initialize_11 is 203 begin 204 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 11, AMF.CMOF.Public_Visibility); 205 end Initialize_11; 206 207 ------------------- 208 -- Initialize_12 -- 209 ------------------- 210 211 procedure Initialize_12 is 212 begin 213 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 12, True); 214 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 12, (False, 0)); 215 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 216 (Base + 12, 217 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_000C'Access); 218 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 12, (False, AMF.CMOF.Public_Visibility)); 219 end Initialize_12; 220 221 ------------------- 222 -- Initialize_13 -- 223 ------------------- 224 225 procedure Initialize_13 is 226 begin 227 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 13, True); 228 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 13, (False, 0)); 229 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 230 (Base + 13, 231 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_0000'Access); 232 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 13, (False, AMF.CMOF.Public_Visibility)); 233 end Initialize_13; 234 235 ------------------- 236 -- Initialize_14 -- 237 ------------------- 238 239 procedure Initialize_14 is 240 begin 241 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 14, True); 242 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 14, (False, 0)); 243 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 244 (Base + 14, 245 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_0002'Access); 246 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 14, (False, AMF.CMOF.Public_Visibility)); 247 end Initialize_14; 248 249 ------------------- 250 -- Initialize_15 -- 251 ------------------- 252 253 procedure Initialize_15 is 254 begin 255 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name 256 (Base + 15, 257 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_000A'Access); 258 AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Value 259 (Base + 15, 260 AMF.Internals.Tables.Standard_Profile_L3_String_Data_00.MS_0008'Access); 261 end Initialize_15; 262 263end AMF.Internals.Tables.Standard_Profile_L3_Metamodel.Properties; 264