0024171: Eliminate CLang compiler warning -Wreorder
[occt.git] / src / IGESDefs / IGESDefs_ToolAttributeTable.cxx
1 // Created by: CKY / Contract Toubro-Larsen
2 // Copyright (c) 1993-1999 Matra Datavision
3 // Copyright (c) 1999-2012 OPEN CASCADE SAS
4 //
5 // The content of this file is subject to the Open CASCADE Technology Public
6 // License Version 6.5 (the "License"). You may not use the content of this file
7 // except in compliance with the License. Please obtain a copy of the License
8 // at http://www.opencascade.org and read it completely before using this file.
9 //
10 // The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
11 // main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
12 //
13 // The Original Code and all software distributed under the License is
14 // distributed on an "AS IS" basis, without warranty of any kind, and the
15 // Initial Developer hereby disclaims all such warranties, including without
16 // limitation, any warranties of merchantability, fitness for a particular
17 // purpose or non-infringement. Please see the License for the specific terms
18 // and conditions governing the rights and limitations under the License.
19
20 //--------------------------------------------------------------------
21 //--------------------------------------------------------------------
22
23 #include <IGESDefs_ToolAttributeTable.ixx>
24 #include <IGESData_ParamCursor.hxx>
25 #include <IGESDefs_AttributeDef.hxx>
26 #include <TColStd_HArray2OfTransient.hxx>
27 #include <TColStd_HArray1OfReal.hxx>
28 #include <TColStd_HArray1OfInteger.hxx>
29 #include <Interface_HArray1OfHAsciiString.hxx>
30 #include <IGESData_HArray1OfIGESEntity.hxx>
31 #include <TCollection_HAsciiString.hxx>
32 #include <Interface_Macros.hxx>
33 #include <IGESData_Dump.hxx>
34
35
36 IGESDefs_ToolAttributeTable::IGESDefs_ToolAttributeTable ()    {  }
37
38
39 void  IGESDefs_ToolAttributeTable::ReadOwnParams
40   (const Handle(IGESDefs_AttributeTable)& ent,
41    const Handle(IGESData_IGESReaderData)& IR, IGESData_ParamReader& PR) const
42
43   Standard_Integer nr = 1;
44   Standard_Integer j;
45   Standard_Boolean st = Standard_True;
46
47   Handle(IGESDefs_AttributeDef) ab = ent->Definition();  // formerly loaded
48   Handle(TColStd_HArray2OfTransient) list2;
49   if (ab.IsNull()) {
50     PR.AddFail("No Attribute Definition as Structure");
51     return;
52   }
53   Standard_Integer na = ab->NbAttributes();
54
55   if (ent->FormNumber() == 1)
56     st = PR.ReadInteger(PR.Current(),"No. of rows",nr);
57   if (st) list2 = new TColStd_HArray2OfTransient(1,na,1,nr);
58
59 //  AttributeDef repeated once (Form 0) or <nr> times (Form 1)
60   for (Standard_Integer k = 1; k <= nr; k ++)
61     {
62       for (Standard_Integer i = 1; i <= na; i ++)
63         {
64           Standard_Integer avc   = ab->AttributeValueCount(i);
65           Standard_Integer atype = ab->AttributeValueDataType(i);
66           switch (atype)
67             {
68             case 0 : 
69               for (j = 1; j <= avc; j ++)
70                 PR.SetCurrentNumber(PR.CurrentNumber() + 1);  // skip
71               break;
72             case 1 : {
73               Handle(TColStd_HArray1OfInteger) attrInt = new TColStd_HArray1OfInteger(1,avc);
74               list2->SetValue(i,k,attrInt);
75               Standard_Integer item;
76               for (j = 1; j <= avc; j ++)  {
77                 //st = PR.ReadInteger(PR.Current(),"Value",item); //szv#4:S4163:12Mar99 moved in if
78                 if (PR.ReadInteger(PR.Current(),"Value",item))
79                   attrInt->SetValue(j,item);
80               }
81             }
82               break;
83             case 2 : {
84               Handle(TColStd_HArray1OfReal) attrReal = new TColStd_HArray1OfReal(1,avc);
85               list2->SetValue(i,k,attrReal);
86               Standard_Real item;
87               for (j = 1; j <= avc; j ++) {
88                 //st = PR.ReadReal(PR.Current(),"Value",item); //szv#4:S4163:12Mar99 moved in if
89                 if (PR.ReadReal(PR.Current(),"Value",item))
90                   attrReal->SetValue(j,item);
91               }
92             }
93               break;
94             case 3 : {
95               Handle(Interface_HArray1OfHAsciiString) attrStr = new Interface_HArray1OfHAsciiString(1,avc);
96               list2->SetValue(i,k,attrStr);
97               Handle(TCollection_HAsciiString) item;
98               for (j = 1; j <= avc; j ++) {
99                 //st = PR.ReadText(PR.Current(),"Value",item); //szv#4:S4163:12Mar99 moved in if
100                 if (PR.ReadText(PR.Current(),"Value",item))
101                   attrStr->SetValue(j,item);
102               }
103             }
104               break;
105             case 4 : {
106               Handle(IGESData_HArray1OfIGESEntity) attrEnt = new IGESData_HArray1OfIGESEntity(1,avc);
107               list2->SetValue(i,k,attrEnt);
108               Handle(IGESData_IGESEntity) item;
109               for (j = 1; j <= avc; j ++) {
110                 //st = PR.ReadEntity(IR,PR.Current(),"Value",item); //szv#4:S4163:12Mar99 moved in if
111                 if (PR.ReadEntity(IR,PR.Current(),"Value",item))
112                   attrEnt->SetValue(j,item);
113               }
114             }
115               break;
116             case 5 :
117               for (j = 1; j <= avc; j ++)
118                   PR.SetCurrentNumber(PR.CurrentNumber() + 1);  // skip
119               break;
120             case 6 : {    // Here item takes value 0 or 1
121               Handle(TColStd_HArray1OfInteger) attrInt  = new TColStd_HArray1OfInteger(1,avc);
122               list2->SetValue(i,k,attrInt);
123               Standard_Integer item;
124               for (j = 1; j <= avc; j ++) {
125                   //st = PR.ReadInteger(PR.Current(),"Value",item); //szv#4:S4163:12Mar99 moved in if
126                   if (PR.ReadInteger(PR.Current(),"Value",item))
127                     attrInt->SetValue(j,item);
128                 }
129             }
130               break;
131               default : break;
132             }
133         }
134     }
135   DirChecker(ent).CheckTypeAndForm(PR.CCheck(),ent);
136   ent->Init(list2);
137 }
138
139 void  IGESDefs_ToolAttributeTable::WriteOwnParams
140   (const Handle(IGESDefs_AttributeTable)& ent, IGESData_IGESWriter& IW) const 
141 {
142   Handle(IGESDefs_AttributeDef) ab = ent->Definition();
143
144   Standard_Integer nr = ent->NbRows();
145   Standard_Integer na = ent->NbAttributes();
146   if (ent->FormNumber() == 1) IW.Send(nr);
147   for (Standard_Integer k = 1; k <= nr; k ++)
148     {
149       for (Standard_Integer i = 1; i <= na; i ++)
150         {
151           Standard_Integer count = ab->AttributeValueCount(i);
152           for (Standard_Integer j = 1;j <= count; j++)
153             {
154               switch(ab->AttributeValueDataType(i))
155                 {
156                 case 0 : IW.SendVoid();  break;
157                 case 1 : IW.Send(ent->AttributeAsInteger(i,k,j));  break;
158                 case 2 : IW.Send(ent->AttributeAsReal   (i,k,j));  break;
159                 case 3 : IW.Send(ent->AttributeAsString (i,k,j));  break;
160                 case 4 : IW.Send(ent->AttributeAsEntity (i,k,j));  break;
161                 case 5 : IW.SendVoid();  break;
162                 case 6 : IW.SendBoolean(ent->AttributeAsLogical(i,k,j)); break;
163                 default : break;
164                 }
165             }
166         }
167     }
168 }
169
170 void  IGESDefs_ToolAttributeTable::OwnShared
171   (const Handle(IGESDefs_AttributeTable)& ent, Interface_EntityIterator& iter) const
172 {
173   Handle(IGESDefs_AttributeDef) ab = ent->Definition();
174   Standard_Integer na = ent->NbAttributes();
175   Standard_Integer nr = ent->NbRows();
176   for (Standard_Integer k = 1; k <= nr; k ++)
177     {
178       for (Standard_Integer i = 1; i <= na; i ++)
179         {
180           if (ab->AttributeValueDataType(i) != 4) continue;
181           Standard_Integer avc = ab->AttributeValueCount(i);
182           for (Standard_Integer j = 1; j <= avc; j ++)
183             iter.GetOneItem(ent->AttributeAsEntity(i,k,j));
184         }
185     }
186 }
187
188 void  IGESDefs_ToolAttributeTable::OwnCopy
189   (const Handle(IGESDefs_AttributeTable)& another,
190    const Handle(IGESDefs_AttributeTable)& ent, Interface_CopyTool& TC) const
191
192   Standard_Integer j = 1;
193   Handle(IGESDefs_AttributeDef) ab = another->Definition();
194   Standard_Integer na = another->NbAttributes();
195   Standard_Integer nr = another->NbRows();
196   Handle(TColStd_HArray2OfTransient) list2 =
197     new TColStd_HArray2OfTransient(1,na,1,nr);
198   for (Standard_Integer k = 1; k <= nr; k ++)
199     {
200       for (Standard_Integer i = 1; i <= na; i ++)
201         {
202           Standard_Integer avc   = ab->AttributeValueCount(i);
203           Standard_Integer atype = ab->AttributeValueDataType(i);
204           switch (atype)
205             {
206             case 0 : ////    list2->SetValue(i,k,NULL);    par defaut
207               break;
208             case 1 : {
209               DeclareAndCast(TColStd_HArray1OfInteger,otherInt,
210                              another->AttributeList(i,k));
211               Handle(TColStd_HArray1OfInteger) attrInt  =
212                 new TColStd_HArray1OfInteger (1,avc);
213               list2->SetValue(i,k,attrInt);
214               for (j = 1; j <= avc; j++)
215                 attrInt->SetValue(j,otherInt->Value(j));
216             }
217               break;
218             case 2 : {
219               DeclareAndCast(TColStd_HArray1OfReal,otherReal,
220                              another->AttributeList(i,k));
221               Handle(TColStd_HArray1OfReal) attrReal  =
222                 new TColStd_HArray1OfReal (1,avc);
223               list2->SetValue(i,k,attrReal);
224               for (j = 1; j <= avc; j++)
225                 attrReal->SetValue(j,otherReal->Value(j));
226             }
227               break;
228             case 3 : {
229               DeclareAndCast(Interface_HArray1OfHAsciiString,otherStr,
230                              another->AttributeList(i,k));
231               Handle(Interface_HArray1OfHAsciiString) attrStr  =
232                 new Interface_HArray1OfHAsciiString (1,avc);
233               list2->SetValue(i,k,attrStr);
234               for (j = 1; j <= avc; j++)
235                 attrStr->SetValue
236                   (j,new TCollection_HAsciiString(otherStr->Value(j)));
237             }
238               break;
239             case 4 : {
240               DeclareAndCast(IGESData_HArray1OfIGESEntity,otherEnt,
241                              another->AttributeList(i,k));
242               Handle(IGESData_HArray1OfIGESEntity) attrEnt  =
243                 new IGESData_HArray1OfIGESEntity (1,avc);
244               list2->SetValue(i,k,attrEnt);
245               for (j = 1; j <= avc; j++)
246                 attrEnt->SetValue(j,GetCasted(IGESData_IGESEntity,
247                                               TC.Transferred(otherEnt->Value(j))));
248             }
249               break;
250             case 5 : /////            list2->SetValue(i,k,NULL);    par defaut
251               break;
252             case 6 :{    // Here item takes value 0 or 1
253               DeclareAndCast(TColStd_HArray1OfInteger,otherInt,
254                              another->AttributeList(i,k));
255               Handle(TColStd_HArray1OfInteger) attrInt  =
256                 new TColStd_HArray1OfInteger (1,avc);
257               list2->SetValue(i,k,attrInt);
258               for (j = 1; j <= avc; j++)
259                 attrInt->SetValue(j,otherInt->Value(j));
260             }
261               break;
262               default : break;
263             }
264         }
265     }
266   ent->Init(list2);
267 }
268
269 IGESData_DirChecker  IGESDefs_ToolAttributeTable::DirChecker
270   (const Handle(IGESDefs_AttributeTable)& /* ent */ ) const 
271
272   IGESData_DirChecker DC(422,0,1);
273   DC.Structure(IGESData_DefReference);
274   DC.GraphicsIgnored();
275   DC.BlankStatusIgnored();
276   DC.HierarchyStatusIgnored();
277   return DC;
278 }
279
280 void  IGESDefs_ToolAttributeTable::OwnCheck
281   (const Handle(IGESDefs_AttributeTable)& ent,
282    const Interface_ShareTool& , Handle(Interface_Check)& ach) const 
283 {
284   if (ent->Definition().IsNull()) {
285     if (ent->HasStructure()) ach->AddFail
286       ("Structure in Directory Entry is not an Attribute Definition Table");
287     else ach->AddFail("No Attribute Definition defined");
288   }
289   if (ent->FormNumber() == 0 && ent->NbRows() != 1)
290     ach->AddFail("Form 0 with several Rows");
291   if (ent->NbAttributes() != ent->Definition()->NbAttributes())
292     ach->AddFail("Mismatch between Definition (Structure) and Content");
293 }
294
295 void  IGESDefs_ToolAttributeTable::OwnDump
296   (const Handle(IGESDefs_AttributeTable)& ent, const IGESData_IGESDumper& dumper,
297    const Handle(Message_Messenger)& S, const Standard_Integer level) const
298
299   S << "IGESDefs_AttributeTable" << endl;
300
301   Handle(IGESDefs_AttributeDef) ab = ent->Definition();
302
303   Standard_Integer na = ent->NbAttributes();
304   Standard_Integer nr = ent->NbRows();
305   if (ent->FormNumber() == 1)
306     S << "Number of Rows (i.e. complete sets of Attributes) : " << nr << endl;
307   else S << "One set of Attributes" << endl;
308   S << "Number of defined Attributes : " << na << endl;
309   if (level <= 4) S <<
310     " [ structure : see Structure in Directory Entry; content : level > 4 ]" <<endl;
311   else
312     for (Standard_Integer k = 1; k <= nr; k ++)
313       {
314         for (Standard_Integer i = 1; i <= na; i ++)
315           {
316             Standard_Integer avc = ab->AttributeValueCount(i);
317             S << "[At.no."<<i<<" Row:"<<k<<"]";
318             switch (ab->AttributeValueDataType(i)) {
319               case 0 : S << "  (Void) ";   break;
320               case 1 : S << "  Integer";  break;
321               case 2 : S << "  Real   ";  break;
322               case 3 : S << "  String ";  break;
323               case 4 : S << "  Entity ";  break;
324               case 5 : S << " (Not used)"; break;
325               case 6 : S << "  Logical";  break;
326               default : break;
327             }
328             S << " :";
329             for (Standard_Integer j = 1;j <= avc; j++) {
330               S << "  ";
331               switch(ab->AttributeValueDataType(i)) {
332                 case 1 : S << ent->AttributeAsInteger(i,k,j);  break;
333                 case 2 : S << ent->AttributeAsReal   (i,k,j);  break;
334                 case 3 : IGESData_DumpString(S,ent->AttributeAsString (i,k,j));
335                   break;
336                 case 4 : dumper.Dump(ent->AttributeAsEntity (i,k,j),S,level-5);
337                   break;
338                 case 6 : S << (ent->AttributeAsLogical(i,k,j) ? "True" : "False");
339                   break;
340                 default : break;
341               }
342             }
343             S << endl;
344           }
345       }
346   S << endl;
347 }