1------------------------------------------------------------------------------
2--                                                                          --
3--                            Matreshka Project                             --
4--                                                                          --
5--                          Ada Modeling Framework                          --
6--                                                                          --
7--                        Runtime Library Component                         --
8--                                                                          --
9------------------------------------------------------------------------------
10--                                                                          --
11-- Copyright © 2012-2013, 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: 3646 $ $Date: 2013-01-07 22:05:34 +0400 (Mon, 07 Jan 2013) $
43------------------------------------------------------------------------------
44--  This file is generated, don't edit it.
45------------------------------------------------------------------------------
46with AMF.CMOF.Associations;
47with AMF.CMOF.Classes;
48with AMF.CMOF.Data_Types;
49with AMF.Factories.OCL_Factories;
50with AMF.Links;
51with AMF.OCL.Any_Types;
52with AMF.OCL.Association_Class_Call_Exps;
53with AMF.OCL.Bag_Types;
54with AMF.OCL.Boolean_Literal_Exps;
55with AMF.OCL.Collection_Items;
56with AMF.OCL.Collection_Literal_Exps;
57with AMF.OCL.Collection_Ranges;
58with AMF.OCL.Collection_Types;
59with AMF.OCL.Enum_Literal_Exps;
60with AMF.OCL.Expression_In_Ocls;
61with AMF.OCL.If_Exps;
62with AMF.OCL.Integer_Literal_Exps;
63with AMF.OCL.Invalid_Literal_Exps;
64with AMF.OCL.Invalid_Types;
65with AMF.OCL.Iterate_Exps;
66with AMF.OCL.Iterator_Exps;
67with AMF.OCL.Let_Exps;
68with AMF.OCL.Message_Exps;
69with AMF.OCL.Message_Types;
70with AMF.OCL.Null_Literal_Exps;
71with AMF.OCL.Operation_Call_Exps;
72with AMF.OCL.Ordered_Set_Types;
73with AMF.OCL.Property_Call_Exps;
74with AMF.OCL.Real_Literal_Exps;
75with AMF.OCL.Sequence_Types;
76with AMF.OCL.Set_Types;
77with AMF.OCL.State_Exps;
78with AMF.OCL.String_Literal_Exps;
79with AMF.OCL.Template_Parameter_Types;
80with AMF.OCL.Tuple_Literal_Exps;
81with AMF.OCL.Tuple_Literal_Parts;
82with AMF.OCL.Tuple_Types;
83with AMF.OCL.Type_Exps;
84with AMF.OCL.Unlimited_Natural_Literal_Exps;
85with AMF.OCL.Unspecified_Value_Exps;
86with AMF.OCL.Variable_Exps;
87with AMF.OCL.Variables;
88with AMF.OCL.Void_Types;
89with League.Holders;
90
91package AMF.Internals.Factories.OCL_Factories is
92
93   type OCL_Factory is
94     limited new AMF.Internals.Factories.Metamodel_Factory_Base
95       and AMF.Factories.OCL_Factories.OCL_Factory with null record;
96
97   overriding function Convert_To_String
98    (Self      : not null access OCL_Factory;
99     Data_Type : not null access AMF.CMOF.Data_Types.CMOF_Data_Type'Class;
100     Value     : League.Holders.Holder) return League.Strings.Universal_String;
101
102   overriding function Create
103    (Self       : not null access OCL_Factory;
104     Meta_Class : not null access AMF.CMOF.Classes.CMOF_Class'Class)
105       return not null AMF.Elements.Element_Access;
106
107   overriding function Create_From_String
108    (Self      : not null access OCL_Factory;
109     Data_Type : not null access AMF.CMOF.Data_Types.CMOF_Data_Type'Class;
110     Image     : League.Strings.Universal_String) return League.Holders.Holder;
111
112   overriding function Create_Link
113    (Self           : not null access OCL_Factory;
114     Association    :
115       not null access AMF.CMOF.Associations.CMOF_Association'Class;
116     First_Element  : not null AMF.Elements.Element_Access;
117     Second_Element : not null AMF.Elements.Element_Access)
118       return not null AMF.Links.Link_Access;
119
120   overriding function Get_Package
121    (Self : not null access constant OCL_Factory)
122       return AMF.CMOF.Packages.Collections.Set_Of_CMOF_Package;
123
124   function Constructor
125    (Extent : AMF.Internals.AMF_Extent)
126       return not null AMF.Factories.Factory_Access;
127
128   function Get_Package return not null AMF.CMOF.Packages.CMOF_Package_Access;
129
130   function Create_Any_Type
131    (Self : not null access OCL_Factory)
132       return AMF.OCL.Any_Types.OCL_Any_Type_Access;
133
134   function Create_Association_Class_Call_Exp
135    (Self : not null access OCL_Factory)
136       return AMF.OCL.Association_Class_Call_Exps.OCL_Association_Class_Call_Exp_Access;
137
138   function Create_Bag_Type
139    (Self : not null access OCL_Factory)
140       return AMF.OCL.Bag_Types.OCL_Bag_Type_Access;
141
142   function Create_Boolean_Literal_Exp
143    (Self : not null access OCL_Factory)
144       return AMF.OCL.Boolean_Literal_Exps.OCL_Boolean_Literal_Exp_Access;
145
146   function Create_Collection_Item
147    (Self : not null access OCL_Factory)
148       return AMF.OCL.Collection_Items.OCL_Collection_Item_Access;
149
150   function Create_Collection_Literal_Exp
151    (Self : not null access OCL_Factory)
152       return AMF.OCL.Collection_Literal_Exps.OCL_Collection_Literal_Exp_Access;
153
154   function Create_Collection_Range
155    (Self : not null access OCL_Factory)
156       return AMF.OCL.Collection_Ranges.OCL_Collection_Range_Access;
157
158   function Create_Collection_Type
159    (Self : not null access OCL_Factory)
160       return AMF.OCL.Collection_Types.OCL_Collection_Type_Access;
161
162   function Create_Enum_Literal_Exp
163    (Self : not null access OCL_Factory)
164       return AMF.OCL.Enum_Literal_Exps.OCL_Enum_Literal_Exp_Access;
165
166   function Create_Expression_In_Ocl
167    (Self : not null access OCL_Factory)
168       return AMF.OCL.Expression_In_Ocls.OCL_Expression_In_Ocl_Access;
169
170   function Create_If_Exp
171    (Self : not null access OCL_Factory)
172       return AMF.OCL.If_Exps.OCL_If_Exp_Access;
173
174   function Create_Integer_Literal_Exp
175    (Self : not null access OCL_Factory)
176       return AMF.OCL.Integer_Literal_Exps.OCL_Integer_Literal_Exp_Access;
177
178   function Create_Invalid_Literal_Exp
179    (Self : not null access OCL_Factory)
180       return AMF.OCL.Invalid_Literal_Exps.OCL_Invalid_Literal_Exp_Access;
181
182   function Create_Invalid_Type
183    (Self : not null access OCL_Factory)
184       return AMF.OCL.Invalid_Types.OCL_Invalid_Type_Access;
185
186   function Create_Iterate_Exp
187    (Self : not null access OCL_Factory)
188       return AMF.OCL.Iterate_Exps.OCL_Iterate_Exp_Access;
189
190   function Create_Iterator_Exp
191    (Self : not null access OCL_Factory)
192       return AMF.OCL.Iterator_Exps.OCL_Iterator_Exp_Access;
193
194   function Create_Let_Exp
195    (Self : not null access OCL_Factory)
196       return AMF.OCL.Let_Exps.OCL_Let_Exp_Access;
197
198   function Create_Message_Exp
199    (Self : not null access OCL_Factory)
200       return AMF.OCL.Message_Exps.OCL_Message_Exp_Access;
201
202   function Create_Message_Type
203    (Self : not null access OCL_Factory)
204       return AMF.OCL.Message_Types.OCL_Message_Type_Access;
205
206   function Create_Null_Literal_Exp
207    (Self : not null access OCL_Factory)
208       return AMF.OCL.Null_Literal_Exps.OCL_Null_Literal_Exp_Access;
209
210   function Create_Operation_Call_Exp
211    (Self : not null access OCL_Factory)
212       return AMF.OCL.Operation_Call_Exps.OCL_Operation_Call_Exp_Access;
213
214   function Create_Ordered_Set_Type
215    (Self : not null access OCL_Factory)
216       return AMF.OCL.Ordered_Set_Types.OCL_Ordered_Set_Type_Access;
217
218   function Create_Property_Call_Exp
219    (Self : not null access OCL_Factory)
220       return AMF.OCL.Property_Call_Exps.OCL_Property_Call_Exp_Access;
221
222   function Create_Real_Literal_Exp
223    (Self : not null access OCL_Factory)
224       return AMF.OCL.Real_Literal_Exps.OCL_Real_Literal_Exp_Access;
225
226   function Create_Sequence_Type
227    (Self : not null access OCL_Factory)
228       return AMF.OCL.Sequence_Types.OCL_Sequence_Type_Access;
229
230   function Create_Set_Type
231    (Self : not null access OCL_Factory)
232       return AMF.OCL.Set_Types.OCL_Set_Type_Access;
233
234   function Create_State_Exp
235    (Self : not null access OCL_Factory)
236       return AMF.OCL.State_Exps.OCL_State_Exp_Access;
237
238   function Create_String_Literal_Exp
239    (Self : not null access OCL_Factory)
240       return AMF.OCL.String_Literal_Exps.OCL_String_Literal_Exp_Access;
241
242   function Create_Template_Parameter_Type
243    (Self : not null access OCL_Factory)
244       return AMF.OCL.Template_Parameter_Types.OCL_Template_Parameter_Type_Access;
245
246   function Create_Tuple_Literal_Exp
247    (Self : not null access OCL_Factory)
248       return AMF.OCL.Tuple_Literal_Exps.OCL_Tuple_Literal_Exp_Access;
249
250   function Create_Tuple_Literal_Part
251    (Self : not null access OCL_Factory)
252       return AMF.OCL.Tuple_Literal_Parts.OCL_Tuple_Literal_Part_Access;
253
254   function Create_Tuple_Type
255    (Self : not null access OCL_Factory)
256       return AMF.OCL.Tuple_Types.OCL_Tuple_Type_Access;
257
258   function Create_Type_Exp
259    (Self : not null access OCL_Factory)
260       return AMF.OCL.Type_Exps.OCL_Type_Exp_Access;
261
262   function Create_Unlimited_Natural_Literal_Exp
263    (Self : not null access OCL_Factory)
264       return AMF.OCL.Unlimited_Natural_Literal_Exps.OCL_Unlimited_Natural_Literal_Exp_Access;
265
266   function Create_Unspecified_Value_Exp
267    (Self : not null access OCL_Factory)
268       return AMF.OCL.Unspecified_Value_Exps.OCL_Unspecified_Value_Exp_Access;
269
270   function Create_Variable
271    (Self : not null access OCL_Factory)
272       return AMF.OCL.Variables.OCL_Variable_Access;
273
274   function Create_Variable_Exp
275    (Self : not null access OCL_Factory)
276       return AMF.OCL.Variable_Exps.OCL_Variable_Exp_Access;
277
278   function Create_Void_Type
279    (Self : not null access OCL_Factory)
280       return AMF.OCL.Void_Types.OCL_Void_Type_Access;
281
282end AMF.Internals.Factories.OCL_Factories;
283