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;
47with AMF.Internals.Tables.CMOF_Attributes;
48with AMF.Internals.Tables.OCL_String_Data_00;
49
50package body AMF.Internals.Tables.OCL_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      Initialize_16;
74      Initialize_17;
75      Initialize_18;
76      Initialize_19;
77      Initialize_20;
78      Initialize_21;
79      Initialize_22;
80      Initialize_23;
81      Initialize_24;
82      Initialize_25;
83      Initialize_26;
84      Initialize_27;
85      Initialize_28;
86      Initialize_29;
87      Initialize_30;
88      Initialize_31;
89      Initialize_32;
90      Initialize_33;
91      Initialize_34;
92      Initialize_35;
93      Initialize_36;
94      Initialize_37;
95      Initialize_38;
96      Initialize_39;
97      Initialize_40;
98      Initialize_41;
99      Initialize_42;
100      Initialize_43;
101      Initialize_44;
102      Initialize_45;
103      Initialize_46;
104      Initialize_47;
105      Initialize_48;
106      Initialize_49;
107      Initialize_50;
108      Initialize_51;
109      Initialize_52;
110      Initialize_53;
111      Initialize_54;
112      Initialize_55;
113      Initialize_56;
114      Initialize_57;
115      Initialize_58;
116      Initialize_59;
117      Initialize_60;
118      Initialize_61;
119      Initialize_62;
120      Initialize_63;
121      Initialize_64;
122      Initialize_65;
123      Initialize_66;
124      Initialize_67;
125      Initialize_68;
126      Initialize_69;
127      Initialize_70;
128      Initialize_71;
129      Initialize_72;
130      Initialize_73;
131      Initialize_74;
132      Initialize_75;
133      Initialize_76;
134      Initialize_77;
135      Initialize_78;
136      Initialize_79;
137      Initialize_80;
138      Initialize_81;
139      Initialize_82;
140      Initialize_83;
141      Initialize_84;
142      Initialize_85;
143      Initialize_86;
144      Initialize_87;
145      Initialize_88;
146      Initialize_89;
147      Initialize_90;
148      Initialize_91;
149      Initialize_92;
150      Initialize_93;
151      Initialize_94;
152      Initialize_95;
153      Initialize_96;
154      Initialize_97;
155      Initialize_98;
156      Initialize_99;
157      Initialize_100;
158      Initialize_101;
159      Initialize_102;
160      Initialize_103;
161      Initialize_104;
162      Initialize_105;
163      Initialize_106;
164      Initialize_107;
165      Initialize_108;
166      Initialize_109;
167      Initialize_110;
168      Initialize_111;
169      Initialize_112;
170      Initialize_113;
171      Initialize_114;
172      Initialize_115;
173      Initialize_116;
174      Initialize_117;
175      Initialize_118;
176      Initialize_119;
177      Initialize_120;
178      Initialize_121;
179      Initialize_122;
180      Initialize_123;
181      Initialize_124;
182      Initialize_125;
183      Initialize_126;
184      Initialize_127;
185      Initialize_128;
186      Initialize_129;
187      Initialize_130;
188      Initialize_131;
189      Initialize_132;
190      Initialize_133;
191      Initialize_134;
192      Initialize_135;
193      Initialize_136;
194      Initialize_137;
195      Initialize_138;
196      Initialize_139;
197      Initialize_140;
198      Initialize_141;
199      Initialize_142;
200      Initialize_143;
201      Initialize_144;
202      Initialize_145;
203      Initialize_146;
204      Initialize_147;
205      Initialize_148;
206      Initialize_149;
207      Initialize_150;
208      Initialize_151;
209      Initialize_152;
210      Initialize_153;
211      Initialize_154;
212      Initialize_155;
213      Initialize_156;
214      Initialize_157;
215      Initialize_158;
216      Initialize_159;
217      Initialize_160;
218      Initialize_161;
219      Initialize_162;
220      Initialize_163;
221      Initialize_164;
222      Initialize_165;
223      Initialize_166;
224      Initialize_167;
225      Initialize_168;
226      Initialize_169;
227      Initialize_170;
228      Initialize_171;
229      Initialize_172;
230      Initialize_173;
231      Initialize_174;
232      Initialize_175;
233      Initialize_176;
234      Initialize_177;
235      Initialize_178;
236   end Initialize;
237
238   ------------------
239   -- Initialize_1 --
240   ------------------
241
242   procedure Initialize_1 is
243   begin
244      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
245       (Base + 1,
246        AMF.Internals.Tables.OCL_String_Data_00.MS_001F'Access);
247      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 1, (False, AMF.CMOF.Public_Visibility));
248   end Initialize_1;
249
250   ------------------
251   -- Initialize_2 --
252   ------------------
253
254   procedure Initialize_2 is
255   begin
256      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
257       (Base + 2,
258        AMF.Internals.Tables.OCL_String_Data_00.MS_0046'Access);
259      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 2, (False, AMF.CMOF.Public_Visibility));
260   end Initialize_2;
261
262   ------------------
263   -- Initialize_3 --
264   ------------------
265
266   procedure Initialize_3 is
267   begin
268      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
269       (Base + 3,
270        AMF.Internals.Tables.OCL_String_Data_00.MS_003A'Access);
271      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 3, (False, AMF.CMOF.Public_Visibility));
272   end Initialize_3;
273
274   ------------------
275   -- Initialize_4 --
276   ------------------
277
278   procedure Initialize_4 is
279   begin
280      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
281       (Base + 4,
282        AMF.Internals.Tables.OCL_String_Data_00.MS_0001'Access);
283      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 4, (False, AMF.CMOF.Public_Visibility));
284   end Initialize_4;
285
286   ------------------
287   -- Initialize_5 --
288   ------------------
289
290   procedure Initialize_5 is
291   begin
292      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 5, True);
293      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
294       (Base + 5,
295        AMF.Internals.Tables.OCL_String_Data_00.MS_0080'Access);
296      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 5, (False, AMF.CMOF.Public_Visibility));
297   end Initialize_5;
298
299   ------------------
300   -- Initialize_6 --
301   ------------------
302
303   procedure Initialize_6 is
304   begin
305      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
306       (Base + 6,
307        AMF.Internals.Tables.OCL_String_Data_00.MS_004C'Access);
308      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 6, (False, AMF.CMOF.Public_Visibility));
309   end Initialize_6;
310
311   ------------------
312   -- Initialize_7 --
313   ------------------
314
315   procedure Initialize_7 is
316   begin
317      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
318       (Base + 7,
319        AMF.Internals.Tables.OCL_String_Data_00.MS_003E'Access);
320      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 7, (False, AMF.CMOF.Public_Visibility));
321   end Initialize_7;
322
323   ------------------
324   -- Initialize_8 --
325   ------------------
326
327   procedure Initialize_8 is
328   begin
329      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 8, True);
330      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
331       (Base + 8,
332        AMF.Internals.Tables.OCL_String_Data_00.MS_0030'Access);
333      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 8, (False, AMF.CMOF.Public_Visibility));
334   end Initialize_8;
335
336   ------------------
337   -- Initialize_9 --
338   ------------------
339
340   procedure Initialize_9 is
341   begin
342      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
343       (Base + 9,
344        AMF.Internals.Tables.OCL_String_Data_00.MS_001A'Access);
345      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 9, (False, AMF.CMOF.Public_Visibility));
346   end Initialize_9;
347
348   -------------------
349   -- Initialize_10 --
350   -------------------
351
352   procedure Initialize_10 is
353   begin
354      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
355       (Base + 10,
356        AMF.Internals.Tables.OCL_String_Data_00.MS_004D'Access);
357      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 10, (False, AMF.CMOF.Public_Visibility));
358   end Initialize_10;
359
360   -------------------
361   -- Initialize_11 --
362   -------------------
363
364   procedure Initialize_11 is
365   begin
366      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
367       (Base + 11,
368        AMF.Internals.Tables.OCL_String_Data_00.MS_001D'Access);
369      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 11, (False, AMF.CMOF.Public_Visibility));
370   end Initialize_11;
371
372   -------------------
373   -- Initialize_12 --
374   -------------------
375
376   procedure Initialize_12 is
377   begin
378      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
379       (Base + 12,
380        AMF.Internals.Tables.OCL_String_Data_00.MS_0023'Access);
381      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 12, (False, AMF.CMOF.Public_Visibility));
382   end Initialize_12;
383
384   -------------------
385   -- Initialize_13 --
386   -------------------
387
388   procedure Initialize_13 is
389   begin
390      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 13, True);
391      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
392       (Base + 13,
393        AMF.Internals.Tables.OCL_String_Data_00.MS_0040'Access);
394      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 13, (False, AMF.CMOF.Public_Visibility));
395   end Initialize_13;
396
397   -------------------
398   -- Initialize_14 --
399   -------------------
400
401   procedure Initialize_14 is
402   begin
403      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
404       (Base + 14,
405        AMF.Internals.Tables.OCL_String_Data_00.MS_0048'Access);
406      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 14, (False, AMF.CMOF.Public_Visibility));
407   end Initialize_14;
408
409   -------------------
410   -- Initialize_15 --
411   -------------------
412
413   procedure Initialize_15 is
414   begin
415      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
416       (Base + 15,
417        AMF.Internals.Tables.OCL_String_Data_00.MS_003B'Access);
418      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 15, (False, AMF.CMOF.Public_Visibility));
419   end Initialize_15;
420
421   -------------------
422   -- Initialize_16 --
423   -------------------
424
425   procedure Initialize_16 is
426   begin
427      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
428       (Base + 16,
429        AMF.Internals.Tables.OCL_String_Data_00.MS_0020'Access);
430      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 16, (False, AMF.CMOF.Public_Visibility));
431   end Initialize_16;
432
433   -------------------
434   -- Initialize_17 --
435   -------------------
436
437   procedure Initialize_17 is
438   begin
439      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
440       (Base + 17,
441        AMF.Internals.Tables.OCL_String_Data_00.MS_000A'Access);
442      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 17, (False, AMF.CMOF.Public_Visibility));
443   end Initialize_17;
444
445   -------------------
446   -- Initialize_18 --
447   -------------------
448
449   procedure Initialize_18 is
450   begin
451      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
452       (Base + 18,
453        AMF.Internals.Tables.OCL_String_Data_00.MS_0032'Access);
454      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 18, (False, AMF.CMOF.Public_Visibility));
455   end Initialize_18;
456
457   -------------------
458   -- Initialize_19 --
459   -------------------
460
461   procedure Initialize_19 is
462   begin
463      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
464       (Base + 19,
465        AMF.Internals.Tables.OCL_String_Data_00.MS_0074'Access);
466      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 19, (False, AMF.CMOF.Public_Visibility));
467   end Initialize_19;
468
469   -------------------
470   -- Initialize_20 --
471   -------------------
472
473   procedure Initialize_20 is
474   begin
475      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
476       (Base + 20,
477        AMF.Internals.Tables.OCL_String_Data_00.MS_0062'Access);
478      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 20, (False, AMF.CMOF.Public_Visibility));
479   end Initialize_20;
480
481   -------------------
482   -- Initialize_21 --
483   -------------------
484
485   procedure Initialize_21 is
486   begin
487      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 21, True);
488      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
489       (Base + 21,
490        AMF.Internals.Tables.OCL_String_Data_00.MS_0006'Access);
491      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 21, (False, AMF.CMOF.Public_Visibility));
492   end Initialize_21;
493
494   -------------------
495   -- Initialize_22 --
496   -------------------
497
498   procedure Initialize_22 is
499   begin
500      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 22, True);
501      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
502       (Base + 22,
503        AMF.Internals.Tables.OCL_String_Data_00.MS_0079'Access);
504      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 22, (False, AMF.CMOF.Public_Visibility));
505   end Initialize_22;
506
507   -------------------
508   -- Initialize_23 --
509   -------------------
510
511   procedure Initialize_23 is
512   begin
513      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
514       (Base + 23,
515        AMF.Internals.Tables.OCL_String_Data_00.MS_007D'Access);
516      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 23, (False, AMF.CMOF.Public_Visibility));
517   end Initialize_23;
518
519   -------------------
520   -- Initialize_24 --
521   -------------------
522
523   procedure Initialize_24 is
524   begin
525      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
526       (Base + 24,
527        AMF.Internals.Tables.OCL_String_Data_00.MS_002C'Access);
528      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 24, (False, AMF.CMOF.Public_Visibility));
529   end Initialize_24;
530
531   -------------------
532   -- Initialize_25 --
533   -------------------
534
535   procedure Initialize_25 is
536   begin
537      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 25, True);
538      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
539       (Base + 25,
540        AMF.Internals.Tables.OCL_String_Data_00.MS_004B'Access);
541      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 25, (False, AMF.CMOF.Public_Visibility));
542   end Initialize_25;
543
544   -------------------
545   -- Initialize_26 --
546   -------------------
547
548   procedure Initialize_26 is
549   begin
550      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
551       (Base + 26,
552        AMF.Internals.Tables.OCL_String_Data_00.MS_0029'Access);
553      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 26, (False, AMF.CMOF.Public_Visibility));
554   end Initialize_26;
555
556   -------------------
557   -- Initialize_27 --
558   -------------------
559
560   procedure Initialize_27 is
561   begin
562      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 27, True);
563      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
564       (Base + 27,
565        AMF.Internals.Tables.OCL_String_Data_00.MS_006F'Access);
566      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 27, (False, AMF.CMOF.Public_Visibility));
567   end Initialize_27;
568
569   -------------------
570   -- Initialize_28 --
571   -------------------
572
573   procedure Initialize_28 is
574   begin
575      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 28, True);
576      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
577       (Base + 28,
578        AMF.Internals.Tables.OCL_String_Data_00.MS_0049'Access);
579      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 28, (False, AMF.CMOF.Public_Visibility));
580   end Initialize_28;
581
582   -------------------
583   -- Initialize_29 --
584   -------------------
585
586   procedure Initialize_29 is
587   begin
588      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
589       (Base + 29,
590        AMF.Internals.Tables.OCL_String_Data_00.MS_0054'Access);
591      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 29, (False, AMF.CMOF.Public_Visibility));
592   end Initialize_29;
593
594   -------------------
595   -- Initialize_30 --
596   -------------------
597
598   procedure Initialize_30 is
599   begin
600      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
601       (Base + 30,
602        AMF.Internals.Tables.OCL_String_Data_00.MS_0041'Access);
603      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 30, (False, AMF.CMOF.Public_Visibility));
604   end Initialize_30;
605
606   -------------------
607   -- Initialize_31 --
608   -------------------
609
610   procedure Initialize_31 is
611   begin
612      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Abstract (Base + 31, True);
613      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
614       (Base + 31,
615        AMF.Internals.Tables.OCL_String_Data_00.MS_005D'Access);
616      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 31, (False, AMF.CMOF.Public_Visibility));
617   end Initialize_31;
618
619   -------------------
620   -- Initialize_32 --
621   -------------------
622
623   procedure Initialize_32 is
624   begin
625      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
626       (Base + 32,
627        AMF.Internals.Tables.OCL_String_Data_00.MS_000E'Access);
628      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 32, (False, AMF.CMOF.Public_Visibility));
629   end Initialize_32;
630
631   -------------------
632   -- Initialize_33 --
633   -------------------
634
635   procedure Initialize_33 is
636   begin
637      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
638       (Base + 33,
639        AMF.Internals.Tables.OCL_String_Data_00.MS_0058'Access);
640      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 33, (False, AMF.CMOF.Public_Visibility));
641   end Initialize_33;
642
643   -------------------
644   -- Initialize_34 --
645   -------------------
646
647   procedure Initialize_34 is
648   begin
649      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
650       (Base + 34,
651        AMF.Internals.Tables.OCL_String_Data_00.MS_0073'Access);
652      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 34, (False, AMF.CMOF.Public_Visibility));
653   end Initialize_34;
654
655   -------------------
656   -- Initialize_35 --
657   -------------------
658
659   procedure Initialize_35 is
660   begin
661      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
662       (Base + 35,
663        AMF.Internals.Tables.OCL_String_Data_00.MS_0081'Access);
664      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 35, (False, AMF.CMOF.Public_Visibility));
665   end Initialize_35;
666
667   -------------------
668   -- Initialize_36 --
669   -------------------
670
671   procedure Initialize_36 is
672   begin
673      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
674       (Base + 36,
675        AMF.Internals.Tables.OCL_String_Data_00.MS_0051'Access);
676      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 36, (False, AMF.CMOF.Public_Visibility));
677   end Initialize_36;
678
679   -------------------
680   -- Initialize_37 --
681   -------------------
682
683   procedure Initialize_37 is
684   begin
685      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
686       (Base + 37,
687        AMF.Internals.Tables.OCL_String_Data_00.MS_0060'Access);
688      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 37, (False, AMF.CMOF.Public_Visibility));
689   end Initialize_37;
690
691   -------------------
692   -- Initialize_38 --
693   -------------------
694
695   procedure Initialize_38 is
696   begin
697      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
698       (Base + 38,
699        AMF.Internals.Tables.OCL_String_Data_00.MS_0061'Access);
700      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 38, (False, AMF.CMOF.Public_Visibility));
701   end Initialize_38;
702
703   -------------------
704   -- Initialize_39 --
705   -------------------
706
707   procedure Initialize_39 is
708   begin
709      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
710       (Base + 39,
711        AMF.Internals.Tables.OCL_String_Data_00.MS_005C'Access);
712      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 39, (False, AMF.CMOF.Public_Visibility));
713   end Initialize_39;
714
715   -------------------
716   -- Initialize_40 --
717   -------------------
718
719   procedure Initialize_40 is
720   begin
721      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
722       (Base + 40,
723        AMF.Internals.Tables.OCL_String_Data_00.MS_0019'Access);
724      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 40, (False, AMF.CMOF.Public_Visibility));
725   end Initialize_40;
726
727   -------------------
728   -- Initialize_41 --
729   -------------------
730
731   procedure Initialize_41 is
732   begin
733      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
734       (Base + 41,
735        AMF.Internals.Tables.OCL_String_Data_00.MS_0052'Access);
736      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 41, (False, AMF.CMOF.Public_Visibility));
737   end Initialize_41;
738
739   -------------------
740   -- Initialize_42 --
741   -------------------
742
743   procedure Initialize_42 is
744   begin
745      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
746       (Base + 42,
747        AMF.Internals.Tables.OCL_String_Data_00.MS_0007'Access);
748      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 42, (False, AMF.CMOF.Public_Visibility));
749   end Initialize_42;
750
751   -------------------
752   -- Initialize_43 --
753   -------------------
754
755   procedure Initialize_43 is
756   begin
757      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
758       (Base + 43,
759        AMF.Internals.Tables.OCL_String_Data_00.MS_0075'Access);
760      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 43, (False, AMF.CMOF.Public_Visibility));
761   end Initialize_43;
762
763   -------------------
764   -- Initialize_44 --
765   -------------------
766
767   procedure Initialize_44 is
768   begin
769      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
770       (Base + 44,
771        AMF.Internals.Tables.OCL_String_Data_00.MS_005E'Access);
772      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 44, (False, AMF.CMOF.Public_Visibility));
773   end Initialize_44;
774
775   -------------------
776   -- Initialize_45 --
777   -------------------
778
779   procedure Initialize_45 is
780   begin
781      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
782       (Base + 45,
783        AMF.Internals.Tables.OCL_String_Data_00.MS_0011'Access);
784      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 45, (False, AMF.CMOF.Public_Visibility));
785   end Initialize_45;
786
787   -------------------
788   -- Initialize_46 --
789   -------------------
790
791   procedure Initialize_46 is
792   begin
793      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
794       (Base + 46,
795        AMF.Internals.Tables.OCL_String_Data_00.MS_000C'Access);
796      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 46, (False, AMF.CMOF.Public_Visibility));
797   end Initialize_46;
798
799   -------------------
800   -- Initialize_47 --
801   -------------------
802
803   procedure Initialize_47 is
804   begin
805      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
806       (Base + 47,
807        AMF.Internals.Tables.OCL_String_Data_00.MS_0039'Access);
808      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 47, (False, AMF.CMOF.Public_Visibility));
809   end Initialize_47;
810
811   -------------------
812   -- Initialize_48 --
813   -------------------
814
815   procedure Initialize_48 is
816   begin
817      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 48, True);
818      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Ordered (Base + 48, True);
819      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 48, (False, 0));
820      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
821       (Base + 48,
822        AMF.Internals.Tables.OCL_String_Data_00.MS_0065'Access);
823      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 48, (False, (Unlimited => True)));
824      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 48, (False, AMF.CMOF.Public_Visibility));
825   end Initialize_48;
826
827   -------------------
828   -- Initialize_49 --
829   -------------------
830
831   procedure Initialize_49 is
832   begin
833      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 49, True);
834      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Ordered (Base + 49, True);
835      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 49, (False, 0));
836      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
837       (Base + 49,
838        AMF.Internals.Tables.OCL_String_Data_00.MS_0036'Access);
839      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 49, (False, (Unlimited => True)));
840      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 49, (False, AMF.CMOF.Public_Visibility));
841   end Initialize_49;
842
843   -------------------
844   -- Initialize_50 --
845   -------------------
846
847   procedure Initialize_50 is
848   begin
849      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 50, True);
850      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Ordered (Base + 50, True);
851      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 50, (False, 0));
852      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
853       (Base + 50,
854        AMF.Internals.Tables.OCL_String_Data_00.MS_005F'Access);
855      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 50, (False, (Unlimited => True)));
856      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 50, (False, AMF.CMOF.Public_Visibility));
857   end Initialize_50;
858
859   -------------------
860   -- Initialize_51 --
861   -------------------
862
863   procedure Initialize_51 is
864   begin
865      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 51, True);
866      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Ordered (Base + 51, True);
867      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 51, (False, 0));
868      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
869       (Base + 51,
870        AMF.Internals.Tables.OCL_String_Data_00.MS_0013'Access);
871      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 51, (False, (Unlimited => True)));
872      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 51, (False, AMF.CMOF.Public_Visibility));
873   end Initialize_51;
874
875   -------------------
876   -- Initialize_52 --
877   -------------------
878
879   procedure Initialize_52 is
880   begin
881      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 52, True);
882      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Ordered (Base + 52, True);
883      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 52, (False, 0));
884      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
885       (Base + 52,
886        AMF.Internals.Tables.OCL_String_Data_00.MS_006B'Access);
887      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 52, (False, (Unlimited => True)));
888      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 52, (False, AMF.CMOF.Public_Visibility));
889   end Initialize_52;
890
891   -------------------
892   -- Initialize_53 --
893   -------------------
894
895   procedure Initialize_53 is
896   begin
897      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 53, True);
898      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Ordered (Base + 53, True);
899      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 53, (False, 0));
900      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
901       (Base + 53,
902        AMF.Internals.Tables.OCL_String_Data_00.MS_0013'Access);
903      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 53, (False, (Unlimited => True)));
904      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 53, (False, AMF.CMOF.Public_Visibility));
905   end Initialize_53;
906
907   -------------------
908   -- Initialize_54 --
909   -------------------
910
911   procedure Initialize_54 is
912   begin
913      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 54, True);
914      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Ordered (Base + 54, True);
915      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 54, (False, 0));
916      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
917       (Base + 54,
918        AMF.Internals.Tables.OCL_String_Data_00.MS_0065'Access);
919      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 54, (False, (Unlimited => True)));
920      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 54, (False, AMF.CMOF.Public_Visibility));
921   end Initialize_54;
922
923   -------------------
924   -- Initialize_55 --
925   -------------------
926
927   procedure Initialize_55 is
928   begin
929      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 55, (False, 0));
930      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
931       (Base + 55,
932        AMF.Internals.Tables.OCL_String_Data_00.MS_0000'Access);
933      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 55, (False, AMF.CMOF.Public_Visibility));
934   end Initialize_55;
935
936   -------------------
937   -- Initialize_56 --
938   -------------------
939
940   procedure Initialize_56 is
941   begin
942      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
943       (Base + 56,
944        AMF.Internals.Tables.OCL_String_Data_00.MS_002F'Access);
945      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 56, (False, AMF.CMOF.Public_Visibility));
946   end Initialize_56;
947
948   -------------------
949   -- Initialize_57 --
950   -------------------
951
952   procedure Initialize_57 is
953   begin
954      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 57, True);
955      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 57, (False, 0));
956      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
957       (Base + 57,
958        AMF.Internals.Tables.OCL_String_Data_00.MS_007E'Access);
959      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 57, (False, AMF.CMOF.Public_Visibility));
960   end Initialize_57;
961
962   -------------------
963   -- Initialize_58 --
964   -------------------
965
966   procedure Initialize_58 is
967   begin
968      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 58, True);
969      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
970       (Base + 58,
971        AMF.Internals.Tables.OCL_String_Data_00.MS_0016'Access);
972      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 58, (False, AMF.CMOF.Public_Visibility));
973   end Initialize_58;
974
975   -------------------
976   -- Initialize_59 --
977   -------------------
978
979   procedure Initialize_59 is
980   begin
981      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
982       (Base + 59,
983        AMF.Internals.Tables.OCL_String_Data_00.MS_0057'Access);
984      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 59, (False, AMF.CMOF.Public_Visibility));
985   end Initialize_59;
986
987   -------------------
988   -- Initialize_60 --
989   -------------------
990
991   procedure Initialize_60 is
992   begin
993      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 60, True);
994      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
995       (Base + 60,
996        AMF.Internals.Tables.OCL_String_Data_00.MS_006E'Access);
997      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 60, (False, AMF.CMOF.Public_Visibility));
998   end Initialize_60;
999
1000   -------------------
1001   -- Initialize_61 --
1002   -------------------
1003
1004   procedure Initialize_61 is
1005   begin
1006      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 61, True);
1007      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1008       (Base + 61,
1009        AMF.Internals.Tables.OCL_String_Data_00.MS_006D'Access);
1010      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 61, (False, AMF.CMOF.Public_Visibility));
1011   end Initialize_61;
1012
1013   -------------------
1014   -- Initialize_62 --
1015   -------------------
1016
1017   procedure Initialize_62 is
1018   begin
1019      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1020       (Base + 62,
1021        AMF.Internals.Tables.OCL_String_Data_00.MS_0064'Access);
1022      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 62, (False, AMF.CMOF.Public_Visibility));
1023   end Initialize_62;
1024
1025   -------------------
1026   -- Initialize_63 --
1027   -------------------
1028
1029   procedure Initialize_63 is
1030   begin
1031      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 63, (False, 0));
1032      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1033       (Base + 63,
1034        AMF.Internals.Tables.OCL_String_Data_00.MS_0083'Access);
1035      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 63, (False, AMF.CMOF.Public_Visibility));
1036   end Initialize_63;
1037
1038   -------------------
1039   -- Initialize_64 --
1040   -------------------
1041
1042   procedure Initialize_64 is
1043   begin
1044      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 64, True);
1045      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1046       (Base + 64,
1047        AMF.Internals.Tables.OCL_String_Data_00.MS_0022'Access);
1048      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 64, (False, AMF.CMOF.Public_Visibility));
1049   end Initialize_64;
1050
1051   -------------------
1052   -- Initialize_65 --
1053   -------------------
1054
1055   procedure Initialize_65 is
1056   begin
1057      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 65, True);
1058      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 65, (False, 0));
1059      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1060       (Base + 65,
1061        AMF.Internals.Tables.OCL_String_Data_00.MS_0044'Access);
1062      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 65, (False, AMF.CMOF.Public_Visibility));
1063   end Initialize_65;
1064
1065   -------------------
1066   -- Initialize_66 --
1067   -------------------
1068
1069   procedure Initialize_66 is
1070   begin
1071      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 66, True);
1072      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 66, (False, 0));
1073      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1074       (Base + 66,
1075        AMF.Internals.Tables.OCL_String_Data_00.MS_002D'Access);
1076      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 66, (False, AMF.CMOF.Public_Visibility));
1077   end Initialize_66;
1078
1079   -------------------
1080   -- Initialize_67 --
1081   -------------------
1082
1083   procedure Initialize_67 is
1084   begin
1085      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 67, True);
1086      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 67, (False, 0));
1087      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1088       (Base + 67,
1089        AMF.Internals.Tables.OCL_String_Data_00.MS_0025'Access);
1090      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 67, (False, AMF.CMOF.Public_Visibility));
1091   end Initialize_67;
1092
1093   -------------------
1094   -- Initialize_68 --
1095   -------------------
1096
1097   procedure Initialize_68 is
1098   begin
1099      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 68, True);
1100      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1101       (Base + 68,
1102        AMF.Internals.Tables.OCL_String_Data_00.MS_0034'Access);
1103      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 68, (False, AMF.CMOF.Public_Visibility));
1104   end Initialize_68;
1105
1106   -------------------
1107   -- Initialize_69 --
1108   -------------------
1109
1110   procedure Initialize_69 is
1111   begin
1112      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 69, True);
1113      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1114       (Base + 69,
1115        AMF.Internals.Tables.OCL_String_Data_00.MS_003C'Access);
1116      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 69, (False, AMF.CMOF.Public_Visibility));
1117   end Initialize_69;
1118
1119   -------------------
1120   -- Initialize_70 --
1121   -------------------
1122
1123   procedure Initialize_70 is
1124   begin
1125      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 70, True);
1126      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1127       (Base + 70,
1128        AMF.Internals.Tables.OCL_String_Data_00.MS_0028'Access);
1129      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 70, (False, AMF.CMOF.Public_Visibility));
1130   end Initialize_70;
1131
1132   -------------------
1133   -- Initialize_71 --
1134   -------------------
1135
1136   procedure Initialize_71 is
1137   begin
1138      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1139       (Base + 71,
1140        AMF.Internals.Tables.OCL_String_Data_00.MS_001B'Access);
1141      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 71, (False, AMF.CMOF.Public_Visibility));
1142   end Initialize_71;
1143
1144   -------------------
1145   -- Initialize_72 --
1146   -------------------
1147
1148   procedure Initialize_72 is
1149   begin
1150      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 72, True);
1151      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 72, (False, 0));
1152      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1153       (Base + 72,
1154        AMF.Internals.Tables.OCL_String_Data_00.MS_0026'Access);
1155      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 72, (False, AMF.CMOF.Public_Visibility));
1156   end Initialize_72;
1157
1158   -------------------
1159   -- Initialize_73 --
1160   -------------------
1161
1162   procedure Initialize_73 is
1163   begin
1164      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 73, True);
1165      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1166       (Base + 73,
1167        AMF.Internals.Tables.OCL_String_Data_00.MS_004F'Access);
1168      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 73, (False, AMF.CMOF.Public_Visibility));
1169   end Initialize_73;
1170
1171   -------------------
1172   -- Initialize_74 --
1173   -------------------
1174
1175   procedure Initialize_74 is
1176   begin
1177      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 74, True);
1178      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1179       (Base + 74,
1180        AMF.Internals.Tables.OCL_String_Data_00.MS_005B'Access);
1181      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 74, (False, AMF.CMOF.Public_Visibility));
1182   end Initialize_74;
1183
1184   -------------------
1185   -- Initialize_75 --
1186   -------------------
1187
1188   procedure Initialize_75 is
1189   begin
1190      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 75, True);
1191      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1192       (Base + 75,
1193        AMF.Internals.Tables.OCL_String_Data_00.MS_0056'Access);
1194      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 75, (False, AMF.CMOF.Public_Visibility));
1195   end Initialize_75;
1196
1197   -------------------
1198   -- Initialize_76 --
1199   -------------------
1200
1201   procedure Initialize_76 is
1202   begin
1203      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 76, True);
1204      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 76, (False, 0));
1205      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1206       (Base + 76,
1207        AMF.Internals.Tables.OCL_String_Data_00.MS_0003'Access);
1208      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 76, (False, AMF.CMOF.Public_Visibility));
1209   end Initialize_76;
1210
1211   -------------------
1212   -- Initialize_77 --
1213   -------------------
1214
1215   procedure Initialize_77 is
1216   begin
1217      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 77, True);
1218      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 77, (False, 0));
1219      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1220       (Base + 77,
1221        AMF.Internals.Tables.OCL_String_Data_00.MS_0053'Access);
1222      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 77, (False, AMF.CMOF.Public_Visibility));
1223   end Initialize_77;
1224
1225   -------------------
1226   -- Initialize_78 --
1227   -------------------
1228
1229   procedure Initialize_78 is
1230   begin
1231      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 78, True);
1232      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1233       (Base + 78,
1234        AMF.Internals.Tables.OCL_String_Data_00.MS_003D'Access);
1235      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 78, (False, AMF.CMOF.Public_Visibility));
1236   end Initialize_78;
1237
1238   -------------------
1239   -- Initialize_79 --
1240   -------------------
1241
1242   procedure Initialize_79 is
1243   begin
1244      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 79, (False, 0));
1245      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1246       (Base + 79,
1247        AMF.Internals.Tables.OCL_String_Data_00.MS_001C'Access);
1248      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 79, (False, AMF.CMOF.Public_Visibility));
1249   end Initialize_79;
1250
1251   -------------------
1252   -- Initialize_80 --
1253   -------------------
1254
1255   procedure Initialize_80 is
1256   begin
1257      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 80, (False, 0));
1258      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1259       (Base + 80,
1260        AMF.Internals.Tables.OCL_String_Data_00.MS_0012'Access);
1261      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 80, (False, AMF.CMOF.Public_Visibility));
1262   end Initialize_80;
1263
1264   -------------------
1265   -- Initialize_81 --
1266   -------------------
1267
1268   procedure Initialize_81 is
1269   begin
1270      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 81, (False, 0));
1271      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1272       (Base + 81,
1273        AMF.Internals.Tables.OCL_String_Data_00.MS_0031'Access);
1274      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 81, (False, AMF.CMOF.Public_Visibility));
1275   end Initialize_81;
1276
1277   -------------------
1278   -- Initialize_82 --
1279   -------------------
1280
1281   procedure Initialize_82 is
1282   begin
1283      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 82, (False, 0));
1284      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1285       (Base + 82,
1286        AMF.Internals.Tables.OCL_String_Data_00.MS_001C'Access);
1287      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 82, (False, AMF.CMOF.Public_Visibility));
1288   end Initialize_82;
1289
1290   -------------------
1291   -- Initialize_83 --
1292   -------------------
1293
1294   procedure Initialize_83 is
1295   begin
1296      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 83, (False, 0));
1297      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1298       (Base + 83,
1299        AMF.Internals.Tables.OCL_String_Data_00.MS_0017'Access);
1300      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 83, (False, AMF.CMOF.Public_Visibility));
1301   end Initialize_83;
1302
1303   -------------------
1304   -- Initialize_84 --
1305   -------------------
1306
1307   procedure Initialize_84 is
1308   begin
1309      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1310       (Base + 84,
1311        AMF.Internals.Tables.OCL_String_Data_00.MS_0010'Access);
1312      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 84, (False, AMF.CMOF.Public_Visibility));
1313   end Initialize_84;
1314
1315   -------------------
1316   -- Initialize_85 --
1317   -------------------
1318
1319   procedure Initialize_85 is
1320   begin
1321      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 85, (False, 0));
1322      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1323       (Base + 85,
1324        AMF.Internals.Tables.OCL_String_Data_00.MS_0068'Access);
1325      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 85, (False, AMF.CMOF.Public_Visibility));
1326   end Initialize_85;
1327
1328   -------------------
1329   -- Initialize_86 --
1330   -------------------
1331
1332   procedure Initialize_86 is
1333   begin
1334      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1335       (Base + 86,
1336        AMF.Internals.Tables.OCL_String_Data_00.MS_001E'Access);
1337      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 86, (False, AMF.CMOF.Public_Visibility));
1338   end Initialize_86;
1339
1340   -------------------
1341   -- Initialize_87 --
1342   -------------------
1343
1344   procedure Initialize_87 is
1345   begin
1346      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 87, (False, 0));
1347      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1348       (Base + 87,
1349        AMF.Internals.Tables.OCL_String_Data_00.MS_0038'Access);
1350      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 87, (False, AMF.CMOF.Public_Visibility));
1351   end Initialize_87;
1352
1353   -------------------
1354   -- Initialize_88 --
1355   -------------------
1356
1357   procedure Initialize_88 is
1358   begin
1359      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 88, True);
1360      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1361       (Base + 88,
1362        AMF.Internals.Tables.OCL_String_Data_00.MS_002A'Access);
1363      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 88, (False, AMF.CMOF.Public_Visibility));
1364   end Initialize_88;
1365
1366   -------------------
1367   -- Initialize_89 --
1368   -------------------
1369
1370   procedure Initialize_89 is
1371   begin
1372      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 89, (False, 0));
1373      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1374       (Base + 89,
1375        AMF.Internals.Tables.OCL_String_Data_00.MS_0055'Access);
1376      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 89, (False, AMF.CMOF.Public_Visibility));
1377   end Initialize_89;
1378
1379   -------------------
1380   -- Initialize_90 --
1381   -------------------
1382
1383   procedure Initialize_90 is
1384   begin
1385      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1386       (Base + 90,
1387        AMF.Internals.Tables.OCL_String_Data_00.MS_0045'Access);
1388      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 90, (False, AMF.CMOF.Public_Visibility));
1389   end Initialize_90;
1390
1391   -------------------
1392   -- Initialize_91 --
1393   -------------------
1394
1395   procedure Initialize_91 is
1396   begin
1397      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Is_Composite (Base + 91, True);
1398      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 91, (False, 0));
1399      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1400       (Base + 91,
1401        AMF.Internals.Tables.OCL_String_Data_00.MS_0027'Access);
1402      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 91, (False, AMF.CMOF.Public_Visibility));
1403   end Initialize_91;
1404
1405   -------------------
1406   -- Initialize_92 --
1407   -------------------
1408
1409   procedure Initialize_92 is
1410   begin
1411      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 92, (False, 0));
1412      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1413       (Base + 92,
1414        AMF.Internals.Tables.OCL_String_Data_00.MS_000F'Access);
1415      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 92, (False, AMF.CMOF.Public_Visibility));
1416   end Initialize_92;
1417
1418   -------------------
1419   -- Initialize_93 --
1420   -------------------
1421
1422   procedure Initialize_93 is
1423   begin
1424      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 93, (False, 0));
1425      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1426       (Base + 93,
1427        AMF.Internals.Tables.OCL_String_Data_00.MS_007A'Access);
1428      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 93, (False, AMF.CMOF.Public_Visibility));
1429   end Initialize_93;
1430
1431   -------------------
1432   -- Initialize_94 --
1433   -------------------
1434
1435   procedure Initialize_94 is
1436   begin
1437      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 94, (False, AMF.CMOF.Public_Visibility));
1438   end Initialize_94;
1439
1440   -------------------
1441   -- Initialize_95 --
1442   -------------------
1443
1444   procedure Initialize_95 is
1445   begin
1446      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 95, (False, AMF.CMOF.Public_Visibility));
1447   end Initialize_95;
1448
1449   -------------------
1450   -- Initialize_96 --
1451   -------------------
1452
1453   procedure Initialize_96 is
1454   begin
1455      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 96, (False, AMF.CMOF.Public_Visibility));
1456   end Initialize_96;
1457
1458   -------------------
1459   -- Initialize_97 --
1460   -------------------
1461
1462   procedure Initialize_97 is
1463   begin
1464      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 97, (False, AMF.CMOF.Public_Visibility));
1465   end Initialize_97;
1466
1467   -------------------
1468   -- Initialize_98 --
1469   -------------------
1470
1471   procedure Initialize_98 is
1472   begin
1473      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 98, (False, AMF.CMOF.Public_Visibility));
1474   end Initialize_98;
1475
1476   -------------------
1477   -- Initialize_99 --
1478   -------------------
1479
1480   procedure Initialize_99 is
1481   begin
1482      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 99, (False, AMF.CMOF.Public_Visibility));
1483   end Initialize_99;
1484
1485   --------------------
1486   -- Initialize_100 --
1487   --------------------
1488
1489   procedure Initialize_100 is
1490   begin
1491      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 100, (False, AMF.CMOF.Public_Visibility));
1492   end Initialize_100;
1493
1494   --------------------
1495   -- Initialize_101 --
1496   --------------------
1497
1498   procedure Initialize_101 is
1499   begin
1500      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 101, (False, AMF.CMOF.Public_Visibility));
1501   end Initialize_101;
1502
1503   --------------------
1504   -- Initialize_102 --
1505   --------------------
1506
1507   procedure Initialize_102 is
1508   begin
1509      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 102, (False, AMF.CMOF.Public_Visibility));
1510   end Initialize_102;
1511
1512   --------------------
1513   -- Initialize_103 --
1514   --------------------
1515
1516   procedure Initialize_103 is
1517   begin
1518      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 103, (False, AMF.CMOF.Public_Visibility));
1519   end Initialize_103;
1520
1521   --------------------
1522   -- Initialize_104 --
1523   --------------------
1524
1525   procedure Initialize_104 is
1526   begin
1527      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 104, (False, AMF.CMOF.Public_Visibility));
1528   end Initialize_104;
1529
1530   --------------------
1531   -- Initialize_105 --
1532   --------------------
1533
1534   procedure Initialize_105 is
1535   begin
1536      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 105, (False, AMF.CMOF.Public_Visibility));
1537   end Initialize_105;
1538
1539   --------------------
1540   -- Initialize_106 --
1541   --------------------
1542
1543   procedure Initialize_106 is
1544   begin
1545      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 106, (False, AMF.CMOF.Public_Visibility));
1546   end Initialize_106;
1547
1548   --------------------
1549   -- Initialize_107 --
1550   --------------------
1551
1552   procedure Initialize_107 is
1553   begin
1554      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 107, (False, AMF.CMOF.Public_Visibility));
1555   end Initialize_107;
1556
1557   --------------------
1558   -- Initialize_108 --
1559   --------------------
1560
1561   procedure Initialize_108 is
1562   begin
1563      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 108, (False, AMF.CMOF.Public_Visibility));
1564   end Initialize_108;
1565
1566   --------------------
1567   -- Initialize_109 --
1568   --------------------
1569
1570   procedure Initialize_109 is
1571   begin
1572      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 109, (False, AMF.CMOF.Public_Visibility));
1573   end Initialize_109;
1574
1575   --------------------
1576   -- Initialize_110 --
1577   --------------------
1578
1579   procedure Initialize_110 is
1580   begin
1581      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 110, (False, AMF.CMOF.Public_Visibility));
1582   end Initialize_110;
1583
1584   --------------------
1585   -- Initialize_111 --
1586   --------------------
1587
1588   procedure Initialize_111 is
1589   begin
1590      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 111, (False, AMF.CMOF.Public_Visibility));
1591   end Initialize_111;
1592
1593   --------------------
1594   -- Initialize_112 --
1595   --------------------
1596
1597   procedure Initialize_112 is
1598   begin
1599      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 112, (False, AMF.CMOF.Public_Visibility));
1600   end Initialize_112;
1601
1602   --------------------
1603   -- Initialize_113 --
1604   --------------------
1605
1606   procedure Initialize_113 is
1607   begin
1608      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 113, (False, AMF.CMOF.Public_Visibility));
1609   end Initialize_113;
1610
1611   --------------------
1612   -- Initialize_114 --
1613   --------------------
1614
1615   procedure Initialize_114 is
1616   begin
1617      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 114, (False, AMF.CMOF.Public_Visibility));
1618   end Initialize_114;
1619
1620   --------------------
1621   -- Initialize_115 --
1622   --------------------
1623
1624   procedure Initialize_115 is
1625   begin
1626      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 115, (False, AMF.CMOF.Public_Visibility));
1627   end Initialize_115;
1628
1629   --------------------
1630   -- Initialize_116 --
1631   --------------------
1632
1633   procedure Initialize_116 is
1634   begin
1635      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 116, (False, AMF.CMOF.Public_Visibility));
1636   end Initialize_116;
1637
1638   --------------------
1639   -- Initialize_117 --
1640   --------------------
1641
1642   procedure Initialize_117 is
1643   begin
1644      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 117, (False, AMF.CMOF.Public_Visibility));
1645   end Initialize_117;
1646
1647   --------------------
1648   -- Initialize_118 --
1649   --------------------
1650
1651   procedure Initialize_118 is
1652   begin
1653      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 118, (False, AMF.CMOF.Public_Visibility));
1654   end Initialize_118;
1655
1656   --------------------
1657   -- Initialize_119 --
1658   --------------------
1659
1660   procedure Initialize_119 is
1661   begin
1662      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 119, (False, AMF.CMOF.Public_Visibility));
1663   end Initialize_119;
1664
1665   --------------------
1666   -- Initialize_120 --
1667   --------------------
1668
1669   procedure Initialize_120 is
1670   begin
1671      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 120, (False, AMF.CMOF.Public_Visibility));
1672   end Initialize_120;
1673
1674   --------------------
1675   -- Initialize_121 --
1676   --------------------
1677
1678   procedure Initialize_121 is
1679   begin
1680      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 121, (False, AMF.CMOF.Public_Visibility));
1681   end Initialize_121;
1682
1683   --------------------
1684   -- Initialize_122 --
1685   --------------------
1686
1687   procedure Initialize_122 is
1688   begin
1689      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 122, (False, AMF.CMOF.Public_Visibility));
1690   end Initialize_122;
1691
1692   --------------------
1693   -- Initialize_123 --
1694   --------------------
1695
1696   procedure Initialize_123 is
1697   begin
1698      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 123, (False, AMF.CMOF.Public_Visibility));
1699   end Initialize_123;
1700
1701   --------------------
1702   -- Initialize_124 --
1703   --------------------
1704
1705   procedure Initialize_124 is
1706   begin
1707      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 124, (False, AMF.CMOF.Public_Visibility));
1708   end Initialize_124;
1709
1710   --------------------
1711   -- Initialize_125 --
1712   --------------------
1713
1714   procedure Initialize_125 is
1715   begin
1716      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 125, (False, AMF.CMOF.Public_Visibility));
1717   end Initialize_125;
1718
1719   --------------------
1720   -- Initialize_126 --
1721   --------------------
1722
1723   procedure Initialize_126 is
1724   begin
1725      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 126, (False, AMF.CMOF.Public_Visibility));
1726   end Initialize_126;
1727
1728   --------------------
1729   -- Initialize_127 --
1730   --------------------
1731
1732   procedure Initialize_127 is
1733   begin
1734      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 127, (False, AMF.CMOF.Public_Visibility));
1735   end Initialize_127;
1736
1737   --------------------
1738   -- Initialize_128 --
1739   --------------------
1740
1741   procedure Initialize_128 is
1742   begin
1743      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 128, (False, AMF.CMOF.Public_Visibility));
1744   end Initialize_128;
1745
1746   --------------------
1747   -- Initialize_129 --
1748   --------------------
1749
1750   procedure Initialize_129 is
1751   begin
1752      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 129, (False, AMF.CMOF.Public_Visibility));
1753   end Initialize_129;
1754
1755   --------------------
1756   -- Initialize_130 --
1757   --------------------
1758
1759   procedure Initialize_130 is
1760   begin
1761      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 130, (False, AMF.CMOF.Public_Visibility));
1762   end Initialize_130;
1763
1764   --------------------
1765   -- Initialize_131 --
1766   --------------------
1767
1768   procedure Initialize_131 is
1769   begin
1770      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 131, (False, AMF.CMOF.Public_Visibility));
1771   end Initialize_131;
1772
1773   --------------------
1774   -- Initialize_132 --
1775   --------------------
1776
1777   procedure Initialize_132 is
1778   begin
1779      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 132, (False, AMF.CMOF.Public_Visibility));
1780   end Initialize_132;
1781
1782   --------------------
1783   -- Initialize_133 --
1784   --------------------
1785
1786   procedure Initialize_133 is
1787   begin
1788      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1789       (Base + 133,
1790        AMF.Internals.Tables.OCL_String_Data_00.MS_0002'Access);
1791      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Uri
1792       (Base + 133,
1793        AMF.Internals.Tables.OCL_String_Data_00.MS_0047'Access);
1794      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 133, (False, AMF.CMOF.Public_Visibility));
1795   end Initialize_133;
1796
1797   --------------------
1798   -- Initialize_134 --
1799   --------------------
1800
1801   procedure Initialize_134 is
1802   begin
1803      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 134, (False, 0));
1804      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1805       (Base + 134,
1806        AMF.Internals.Tables.OCL_String_Data_00.MS_002E'Access);
1807      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 134, (False, AMF.CMOF.Public_Visibility));
1808   end Initialize_134;
1809
1810   --------------------
1811   -- Initialize_135 --
1812   --------------------
1813
1814   procedure Initialize_135 is
1815   begin
1816      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1817       (Base + 135,
1818        AMF.Internals.Tables.OCL_String_Data_00.MS_0024'Access);
1819      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 135, (False, AMF.CMOF.Public_Visibility));
1820   end Initialize_135;
1821
1822   --------------------
1823   -- Initialize_136 --
1824   --------------------
1825
1826   procedure Initialize_136 is
1827   begin
1828      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1829       (Base + 136,
1830        AMF.Internals.Tables.OCL_String_Data_00.MS_0066'Access);
1831      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 136, (False, AMF.CMOF.Public_Visibility));
1832   end Initialize_136;
1833
1834   --------------------
1835   -- Initialize_137 --
1836   --------------------
1837
1838   procedure Initialize_137 is
1839   begin
1840      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1841       (Base + 137,
1842        AMF.Internals.Tables.OCL_String_Data_00.MS_0084'Access);
1843      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 137, (False, AMF.CMOF.Public_Visibility));
1844   end Initialize_137;
1845
1846   --------------------
1847   -- Initialize_138 --
1848   --------------------
1849
1850   procedure Initialize_138 is
1851   begin
1852      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1853       (Base + 138,
1854        AMF.Internals.Tables.OCL_String_Data_00.MS_004E'Access);
1855      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 138, (False, AMF.CMOF.Public_Visibility));
1856   end Initialize_138;
1857
1858   --------------------
1859   -- Initialize_139 --
1860   --------------------
1861
1862   procedure Initialize_139 is
1863   begin
1864      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1865       (Base + 139,
1866        AMF.Internals.Tables.OCL_String_Data_00.MS_0021'Access);
1867      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 139, (False, AMF.CMOF.Public_Visibility));
1868   end Initialize_139;
1869
1870   --------------------
1871   -- Initialize_140 --
1872   --------------------
1873
1874   procedure Initialize_140 is
1875   begin
1876      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1877       (Base + 140,
1878        AMF.Internals.Tables.OCL_String_Data_00.MS_005A'Access);
1879      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 140, (False, AMF.CMOF.Public_Visibility));
1880   end Initialize_140;
1881
1882   --------------------
1883   -- Initialize_141 --
1884   --------------------
1885
1886   procedure Initialize_141 is
1887   begin
1888      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 141, (False, 0));
1889      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1890       (Base + 141,
1891        AMF.Internals.Tables.OCL_String_Data_00.MS_0008'Access);
1892      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 141, (False, (Unlimited => True)));
1893      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 141, (False, AMF.CMOF.Public_Visibility));
1894   end Initialize_141;
1895
1896   --------------------
1897   -- Initialize_142 --
1898   --------------------
1899
1900   procedure Initialize_142 is
1901   begin
1902      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 142, (False, 0));
1903      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1904       (Base + 142,
1905        AMF.Internals.Tables.OCL_String_Data_00.MS_006C'Access);
1906      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 142, (False, AMF.CMOF.Public_Visibility));
1907   end Initialize_142;
1908
1909   --------------------
1910   -- Initialize_143 --
1911   --------------------
1912
1913   procedure Initialize_143 is
1914   begin
1915      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 143, (False, 0));
1916      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1917       (Base + 143,
1918        AMF.Internals.Tables.OCL_String_Data_00.MS_0014'Access);
1919      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 143, (False, AMF.CMOF.Public_Visibility));
1920   end Initialize_143;
1921
1922   --------------------
1923   -- Initialize_144 --
1924   --------------------
1925
1926   procedure Initialize_144 is
1927   begin
1928      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 144, (False, 0));
1929      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1930       (Base + 144,
1931        AMF.Internals.Tables.OCL_String_Data_00.MS_0069'Access);
1932      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 144, (False, AMF.CMOF.Public_Visibility));
1933   end Initialize_144;
1934
1935   --------------------
1936   -- Initialize_145 --
1937   --------------------
1938
1939   procedure Initialize_145 is
1940   begin
1941      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 145, (False, 0));
1942      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1943       (Base + 145,
1944        AMF.Internals.Tables.OCL_String_Data_00.MS_0043'Access);
1945      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 145, (False, AMF.CMOF.Public_Visibility));
1946   end Initialize_145;
1947
1948   --------------------
1949   -- Initialize_146 --
1950   --------------------
1951
1952   procedure Initialize_146 is
1953   begin
1954      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 146, (False, 0));
1955      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1956       (Base + 146,
1957        AMF.Internals.Tables.OCL_String_Data_00.MS_0082'Access);
1958      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 146, (False, AMF.CMOF.Public_Visibility));
1959   end Initialize_146;
1960
1961   --------------------
1962   -- Initialize_147 --
1963   --------------------
1964
1965   procedure Initialize_147 is
1966   begin
1967      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 147, (False, 0));
1968      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1969       (Base + 147,
1970        AMF.Internals.Tables.OCL_String_Data_00.MS_007B'Access);
1971      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 147, (False, AMF.CMOF.Public_Visibility));
1972   end Initialize_147;
1973
1974   --------------------
1975   -- Initialize_148 --
1976   --------------------
1977
1978   procedure Initialize_148 is
1979   begin
1980      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 148, (False, 0));
1981      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1982       (Base + 148,
1983        AMF.Internals.Tables.OCL_String_Data_00.MS_005B'Access);
1984      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 148, (False, (Unlimited => True)));
1985      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 148, (False, AMF.CMOF.Public_Visibility));
1986   end Initialize_148;
1987
1988   --------------------
1989   -- Initialize_149 --
1990   --------------------
1991
1992   procedure Initialize_149 is
1993   begin
1994      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 149, (False, 0));
1995      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
1996       (Base + 149,
1997        AMF.Internals.Tables.OCL_String_Data_00.MS_007F'Access);
1998      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 149, (False, (Unlimited => True)));
1999      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 149, (False, AMF.CMOF.Public_Visibility));
2000   end Initialize_149;
2001
2002   --------------------
2003   -- Initialize_150 --
2004   --------------------
2005
2006   procedure Initialize_150 is
2007   begin
2008      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 150, (False, 0));
2009      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2010       (Base + 150,
2011        AMF.Internals.Tables.OCL_String_Data_00.MS_007F'Access);
2012      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 150, (False, (Unlimited => True)));
2013      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 150, (False, AMF.CMOF.Public_Visibility));
2014   end Initialize_150;
2015
2016   --------------------
2017   -- Initialize_151 --
2018   --------------------
2019
2020   procedure Initialize_151 is
2021   begin
2022      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 151, (False, 0));
2023      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2024       (Base + 151,
2025        AMF.Internals.Tables.OCL_String_Data_00.MS_0018'Access);
2026      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 151, (False, (Unlimited => True)));
2027      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 151, (False, AMF.CMOF.Public_Visibility));
2028   end Initialize_151;
2029
2030   --------------------
2031   -- Initialize_152 --
2032   --------------------
2033
2034   procedure Initialize_152 is
2035   begin
2036      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 152, (False, 0));
2037      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2038       (Base + 152,
2039        AMF.Internals.Tables.OCL_String_Data_00.MS_0059'Access);
2040      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 152, (False, AMF.CMOF.Public_Visibility));
2041   end Initialize_152;
2042
2043   --------------------
2044   -- Initialize_153 --
2045   --------------------
2046
2047   procedure Initialize_153 is
2048   begin
2049      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 153, (False, 0));
2050      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2051       (Base + 153,
2052        AMF.Internals.Tables.OCL_String_Data_00.MS_004A'Access);
2053      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 153, (False, AMF.CMOF.Public_Visibility));
2054   end Initialize_153;
2055
2056   --------------------
2057   -- Initialize_154 --
2058   --------------------
2059
2060   procedure Initialize_154 is
2061   begin
2062      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 154, (False, 0));
2063      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2064       (Base + 154,
2065        AMF.Internals.Tables.OCL_String_Data_00.MS_0005'Access);
2066      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 154, (False, AMF.CMOF.Public_Visibility));
2067   end Initialize_154;
2068
2069   --------------------
2070   -- Initialize_155 --
2071   --------------------
2072
2073   procedure Initialize_155 is
2074   begin
2075      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 155, (False, 0));
2076      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2077       (Base + 155,
2078        AMF.Internals.Tables.OCL_String_Data_00.MS_007F'Access);
2079      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 155, (False, (Unlimited => True)));
2080      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 155, (False, AMF.CMOF.Public_Visibility));
2081   end Initialize_155;
2082
2083   --------------------
2084   -- Initialize_156 --
2085   --------------------
2086
2087   procedure Initialize_156 is
2088   begin
2089      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 156, (False, 0));
2090      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2091       (Base + 156,
2092        AMF.Internals.Tables.OCL_String_Data_00.MS_0070'Access);
2093      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 156, (False, AMF.CMOF.Public_Visibility));
2094   end Initialize_156;
2095
2096   --------------------
2097   -- Initialize_157 --
2098   --------------------
2099
2100   procedure Initialize_157 is
2101   begin
2102      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2103       (Base + 157,
2104        AMF.Internals.Tables.OCL_String_Data_00.MS_0009'Access);
2105      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 157, (False, AMF.CMOF.Public_Visibility));
2106   end Initialize_157;
2107
2108   --------------------
2109   -- Initialize_158 --
2110   --------------------
2111
2112   procedure Initialize_158 is
2113   begin
2114      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 158, (False, 0));
2115      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2116       (Base + 158,
2117        AMF.Internals.Tables.OCL_String_Data_00.MS_0042'Access);
2118      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 158, (False, AMF.CMOF.Private_Visibility));
2119   end Initialize_158;
2120
2121   --------------------
2122   -- Initialize_159 --
2123   --------------------
2124
2125   procedure Initialize_159 is
2126   begin
2127      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 159, (False, 0));
2128      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2129       (Base + 159,
2130        AMF.Internals.Tables.OCL_String_Data_00.MS_0035'Access);
2131      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 159, (False, AMF.CMOF.Public_Visibility));
2132   end Initialize_159;
2133
2134   --------------------
2135   -- Initialize_160 --
2136   --------------------
2137
2138   procedure Initialize_160 is
2139   begin
2140      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 160, (False, 0));
2141      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2142       (Base + 160,
2143        AMF.Internals.Tables.OCL_String_Data_00.MS_0072'Access);
2144      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 160, (False, AMF.CMOF.Public_Visibility));
2145   end Initialize_160;
2146
2147   --------------------
2148   -- Initialize_161 --
2149   --------------------
2150
2151   procedure Initialize_161 is
2152   begin
2153      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 161, (False, 0));
2154      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2155       (Base + 161,
2156        AMF.Internals.Tables.OCL_String_Data_00.MS_003F'Access);
2157      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 161, (False, AMF.CMOF.Public_Visibility));
2158   end Initialize_161;
2159
2160   --------------------
2161   -- Initialize_162 --
2162   --------------------
2163
2164   procedure Initialize_162 is
2165   begin
2166      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 162, (False, 0));
2167      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2168       (Base + 162,
2169        AMF.Internals.Tables.OCL_String_Data_00.MS_0050'Access);
2170      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 162, (False, AMF.CMOF.Public_Visibility));
2171   end Initialize_162;
2172
2173   --------------------
2174   -- Initialize_163 --
2175   --------------------
2176
2177   procedure Initialize_163 is
2178   begin
2179      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 163, (False, 0));
2180      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2181       (Base + 163,
2182        AMF.Internals.Tables.OCL_String_Data_00.MS_0078'Access);
2183      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 163, (False, AMF.CMOF.Public_Visibility));
2184   end Initialize_163;
2185
2186   --------------------
2187   -- Initialize_164 --
2188   --------------------
2189
2190   procedure Initialize_164 is
2191   begin
2192      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 164, (False, 0));
2193      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2194       (Base + 164,
2195        AMF.Internals.Tables.OCL_String_Data_00.MS_0004'Access);
2196      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 164, (False, AMF.CMOF.Public_Visibility));
2197   end Initialize_164;
2198
2199   --------------------
2200   -- Initialize_165 --
2201   --------------------
2202
2203   procedure Initialize_165 is
2204   begin
2205      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 165, (False, 0));
2206      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2207       (Base + 165,
2208        AMF.Internals.Tables.OCL_String_Data_00.MS_002B'Access);
2209      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 165, (False, AMF.CMOF.Public_Visibility));
2210   end Initialize_165;
2211
2212   --------------------
2213   -- Initialize_166 --
2214   --------------------
2215
2216   procedure Initialize_166 is
2217   begin
2218      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 166, (False, 0));
2219      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2220       (Base + 166,
2221        AMF.Internals.Tables.OCL_String_Data_00.MS_0015'Access);
2222      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 166, (False, AMF.CMOF.Public_Visibility));
2223   end Initialize_166;
2224
2225   --------------------
2226   -- Initialize_167 --
2227   --------------------
2228
2229   procedure Initialize_167 is
2230   begin
2231      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 167, (False, 0));
2232      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2233       (Base + 167,
2234        AMF.Internals.Tables.OCL_String_Data_00.MS_0071'Access);
2235      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 167, (False, AMF.CMOF.Public_Visibility));
2236   end Initialize_167;
2237
2238   --------------------
2239   -- Initialize_168 --
2240   --------------------
2241
2242   procedure Initialize_168 is
2243   begin
2244      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 168, (False, 0));
2245      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2246       (Base + 168,
2247        AMF.Internals.Tables.OCL_String_Data_00.MS_006A'Access);
2248      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 168, (False, AMF.CMOF.Public_Visibility));
2249   end Initialize_168;
2250
2251   --------------------
2252   -- Initialize_169 --
2253   --------------------
2254
2255   procedure Initialize_169 is
2256   begin
2257      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 169, (False, 0));
2258      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2259       (Base + 169,
2260        AMF.Internals.Tables.OCL_String_Data_00.MS_000B'Access);
2261      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 169, (False, (Unlimited => True)));
2262      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 169, (False, AMF.CMOF.Public_Visibility));
2263   end Initialize_169;
2264
2265   --------------------
2266   -- Initialize_170 --
2267   --------------------
2268
2269   procedure Initialize_170 is
2270   begin
2271      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 170, (False, 0));
2272      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2273       (Base + 170,
2274        AMF.Internals.Tables.OCL_String_Data_00.MS_000D'Access);
2275      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 170, (False, (Unlimited => True)));
2276      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 170, (False, AMF.CMOF.Public_Visibility));
2277   end Initialize_170;
2278
2279   --------------------
2280   -- Initialize_171 --
2281   --------------------
2282
2283   procedure Initialize_171 is
2284   begin
2285      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 171, (False, 0));
2286      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2287       (Base + 171,
2288        AMF.Internals.Tables.OCL_String_Data_00.MS_007C'Access);
2289      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 171, (False, AMF.CMOF.Public_Visibility));
2290   end Initialize_171;
2291
2292   --------------------
2293   -- Initialize_172 --
2294   --------------------
2295
2296   procedure Initialize_172 is
2297   begin
2298      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 172, (False, 0));
2299      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2300       (Base + 172,
2301        AMF.Internals.Tables.OCL_String_Data_00.MS_0037'Access);
2302      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 172, (False, AMF.CMOF.Public_Visibility));
2303   end Initialize_172;
2304
2305   --------------------
2306   -- Initialize_173 --
2307   --------------------
2308
2309   procedure Initialize_173 is
2310   begin
2311      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 173, (False, 0));
2312      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2313       (Base + 173,
2314        AMF.Internals.Tables.OCL_String_Data_00.MS_0063'Access);
2315      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 173, (False, (Unlimited => True)));
2316      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 173, (False, AMF.CMOF.Public_Visibility));
2317   end Initialize_173;
2318
2319   --------------------
2320   -- Initialize_174 --
2321   --------------------
2322
2323   procedure Initialize_174 is
2324   begin
2325      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 174, (False, 0));
2326      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2327       (Base + 174,
2328        AMF.Internals.Tables.OCL_String_Data_00.MS_0076'Access);
2329      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 174, (False, (Unlimited => True)));
2330      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 174, (False, AMF.CMOF.Public_Visibility));
2331   end Initialize_174;
2332
2333   --------------------
2334   -- Initialize_175 --
2335   --------------------
2336
2337   procedure Initialize_175 is
2338   begin
2339      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 175, (False, 0));
2340      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2341       (Base + 175,
2342        AMF.Internals.Tables.OCL_String_Data_00.MS_000B'Access);
2343      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 175, (False, (Unlimited => True)));
2344      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 175, (False, AMF.CMOF.Public_Visibility));
2345   end Initialize_175;
2346
2347   --------------------
2348   -- Initialize_176 --
2349   --------------------
2350
2351   procedure Initialize_176 is
2352   begin
2353      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 176, (False, 0));
2354      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2355       (Base + 176,
2356        AMF.Internals.Tables.OCL_String_Data_00.MS_0033'Access);
2357      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 176, (False, (Unlimited => True)));
2358      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 176, (False, AMF.CMOF.Public_Visibility));
2359   end Initialize_176;
2360
2361   --------------------
2362   -- Initialize_177 --
2363   --------------------
2364
2365   procedure Initialize_177 is
2366   begin
2367      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 177, (False, 0));
2368      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2369       (Base + 177,
2370        AMF.Internals.Tables.OCL_String_Data_00.MS_0077'Access);
2371      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 177, (False, (Unlimited => True)));
2372      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 177, (False, AMF.CMOF.Public_Visibility));
2373   end Initialize_177;
2374
2375   --------------------
2376   -- Initialize_178 --
2377   --------------------
2378
2379   procedure Initialize_178 is
2380   begin
2381      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Lower (Base + 178, (False, 0));
2382      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
2383       (Base + 178,
2384        AMF.Internals.Tables.OCL_String_Data_00.MS_0067'Access);
2385      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Upper (Base + 178, (False, (Unlimited => True)));
2386      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 178, (False, AMF.CMOF.Public_Visibility));
2387   end Initialize_178;
2388
2389end AMF.Internals.Tables.OCL_Metamodel.Properties;
2390