0031313: Foundation Classes - Dump improvement for classes
[occt.git] / src / XCAFDoc / XCAFDoc_Dimension.cxx
1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
2 //
3 // This file is part of Open CASCADE Technology software library.
4 //
5 // This library is free software; you can redistribute it and/or modify it under
6 // the terms of the GNU Lesser General Public License version 2.1 as published
7 // by the Free Software Foundation, with special exception defined in the file
8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9 // distribution for complete text of the license and disclaimer of any warranty.
10 //
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
13
14 #include <XCAFDoc_Dimension.hxx>
15
16 #include <TDF_RelocationTable.hxx>
17 #include <TDF_ChildIterator.hxx>
18 #include <XCAFDoc.hxx>
19 #include <TDataStd_TreeNode.hxx>
20 #include <Precision.hxx>
21 #include <TColgp_HArray1OfPnt.hxx>
22 #include <TDataStd_Integer.hxx>
23 #include <TDataStd_IntegerArray.hxx>
24 #include <TDataStd_ExtStringArray.hxx>
25 #include <TDataStd_Real.hxx>
26 #include <TDataStd_RealArray.hxx>
27 #include <TNaming_Builder.hxx>
28 #include <TNaming_NamedShape.hxx>
29 #include <TColStd_HArray1OfReal.hxx>
30 #include <TopoDS.hxx>
31 #include <XCAFDimTolObjects_DimensionObject.hxx>
32 #include <TNaming_Tool.hxx>
33 #include <TDataStd_Name.hxx>
34
35 IMPLEMENT_STANDARD_RTTIEXT(XCAFDoc_Dimension,TDF_Attribute)
36
37 enum ChildLab
38 {
39   ChildLab_Type = 1,
40   ChildLab_Value,
41   ChildLab_Qualifier,
42   ChildLab_Class,
43   ChildLab_Dec,
44   ChildLab_Modifiers,
45   ChildLab_Path,
46   ChildLab_Dir,
47   ChildLab_Pnt1,
48   ChildLab_Pnt2,
49   ChildLab_PlaneLoc,
50   ChildLab_PlaneN,
51   ChildLab_PlaneRef,
52   ChildLab_PntText,
53   ChildLab_Presentation,
54   ChildLab_Descriptions,
55   ChildLab_DescriptionNames
56 };
57
58 //=======================================================================
59 //function : XCAFDoc_Dimension
60 //purpose  : 
61 //=======================================================================
62
63 XCAFDoc_Dimension::XCAFDoc_Dimension()
64 {
65 }
66
67
68 //=======================================================================
69 //function : GetID
70 //purpose  : 
71 //=======================================================================
72
73 const Standard_GUID& XCAFDoc_Dimension::GetID() 
74 {
75   static Standard_GUID DGTID ("58ed092c-44de-11d8-8776-001083004c77");
76   //static Standard_GUID ID("efd212e9-6dfd-11d4-b9c8-0060b0ee281b");
77   return DGTID; 
78   //return ID;
79 }
80
81 //=======================================================================
82 //function : Set
83 //purpose  : 
84 //=======================================================================
85 Handle(XCAFDoc_Dimension) XCAFDoc_Dimension::Set(const TDF_Label& theLabel) 
86 {
87   Handle(XCAFDoc_Dimension) A;
88   if (!theLabel.FindAttribute(XCAFDoc_Dimension::GetID(), A)) {
89     A = new XCAFDoc_Dimension();
90     theLabel.AddAttribute(A);
91   }
92   return A;
93 }
94
95 //=======================================================================
96 //function : SetObject
97 //purpose  : 
98 //=======================================================================
99 void XCAFDoc_Dimension::SetObject (const Handle(XCAFDimTolObjects_DimensionObject)& theObject)
100 {
101   Backup();
102
103   if (theObject->GetSemanticName())
104   {
105     TCollection_ExtendedString str(theObject->GetSemanticName()->String());
106     TDataStd_Name::Set(Label(), str);
107   }
108
109   TDF_ChildIterator anIter(Label());
110   for(;anIter.More(); anIter.Next())
111   {
112     anIter.Value().ForgetAllAttributes();
113   }
114   Handle(TDataStd_Integer) aType = TDataStd_Integer::Set(Label().FindChild(ChildLab_Type), theObject->GetType());
115
116   if(!theObject->GetValues().IsNull())
117   {
118     Handle(TDataStd_RealArray) aVal = TDataStd_RealArray::Set(Label().FindChild(ChildLab_Value), theObject->GetValues()->Lower(), 
119                                       theObject->GetValues()->Lower() + theObject->GetValues()->Length() - 1);
120     if(!aVal.IsNull())
121       aVal->ChangeArray(theObject->GetValues());
122   }
123
124   Handle(TDataStd_Integer) aQualifier = TDataStd_Integer::Set(Label().FindChild(ChildLab_Qualifier), theObject->GetQualifier());
125  
126   Standard_Boolean aH;
127   XCAFDimTolObjects_DimensionFormVariance aF;
128   XCAFDimTolObjects_DimensionGrade aG;
129   theObject->GetClassOfTolerance(aH,aF,aG);
130   Handle(TColStd_HArray1OfInteger) anArrI;
131   if(aF != XCAFDimTolObjects_DimensionFormVariance_None)
132   {
133     anArrI = new TColStd_HArray1OfInteger(1,3);
134     anArrI->SetValue(1,aH);
135     anArrI->SetValue(2,aF);
136     anArrI->SetValue(3,aG);
137     Handle(TDataStd_IntegerArray) aClass = TDataStd_IntegerArray::Set(Label().FindChild(ChildLab_Class), 1, 3);
138     if(!aClass.IsNull())
139       aClass->ChangeArray(anArrI);
140   }
141
142   Standard_Integer aL, aR;
143   theObject->GetNbOfDecimalPlaces(aL, aR);
144   if (aL > 0 || aR > 0)
145   {
146     anArrI = new TColStd_HArray1OfInteger(1,2);
147     anArrI->SetValue(1,aL);
148     anArrI->SetValue(2,aR);
149     Handle(TDataStd_IntegerArray) aDec = TDataStd_IntegerArray::Set(Label().FindChild(ChildLab_Dec), 1, 2);
150     if(!aDec.IsNull())
151       aDec->ChangeArray(anArrI);
152   }
153
154   if(theObject->GetModifiers().Length() > 0)
155   {
156     anArrI = new TColStd_HArray1OfInteger(1,theObject->GetModifiers().Length());
157     for(Standard_Integer i = 1; i <= theObject->GetModifiers().Length(); i++)
158       anArrI->SetValue(i,theObject->GetModifiers().Value(i));
159     Handle(TDataStd_IntegerArray) aModifiers = TDataStd_IntegerArray::Set(Label().FindChild(ChildLab_Modifiers), 
160                                                1, theObject->GetModifiers().Length());
161     if(!aModifiers.IsNull())
162       aModifiers->ChangeArray(anArrI);
163   }
164
165   if(!theObject->GetPath().IsNull())
166   {
167     TNaming_Builder tnBuild(Label().FindChild(ChildLab_Path));
168     tnBuild.Generated(theObject->GetPath());
169   }
170
171   Handle(TColStd_HArray1OfReal) anArrR;
172   if(theObject->GetType() == XCAFDimTolObjects_DimensionType_Location_Oriented)
173   {
174     gp_Dir aD;
175     theObject->GetDirection(aD);
176     anArrR = new TColStd_HArray1OfReal(1, 3);
177     anArrR->SetValue(1, aD.X());
178     anArrR->SetValue(2, aD.Y());
179     anArrR->SetValue(3, aD.Z());
180     Handle(TDataStd_RealArray) aDir = TDataStd_RealArray::Set(Label().FindChild(ChildLab_Dir), 1, 3);
181     if (!aDir.IsNull())
182       aDir->ChangeArray(anArrR);
183   }
184
185   if (theObject->HasPoint())
186   {
187     gp_Pnt aPnt1 = theObject->GetPoint();
188
189     Handle(TColStd_HArray1OfReal) aPntArr = new TColStd_HArray1OfReal(1, 3);
190     for (Standard_Integer i = 1; i <= 3; i++)
191       aPntArr->SetValue(i, aPnt1.Coord(i));
192     Handle(TDataStd_RealArray) aPnt = TDataStd_RealArray::Set(Label().FindChild(ChildLab_Pnt1), 1, 3);
193     if (!aPnt.IsNull())
194       aPnt->ChangeArray(aPntArr);
195   }
196
197   if (theObject->HasPoint2())
198   {
199     gp_Pnt aPnt2 = theObject->GetPoint2();
200
201     Handle(TColStd_HArray1OfReal) aPntArr = new TColStd_HArray1OfReal(1, 3);
202     for (Standard_Integer i = 1; i <= 3; i++)
203       aPntArr->SetValue(i, aPnt2.Coord(i));
204     Handle(TDataStd_RealArray) aPnt = TDataStd_RealArray::Set(Label().FindChild(ChildLab_Pnt2), 1, 3);
205     if (!aPnt.IsNull())
206       aPnt->ChangeArray(aPntArr);
207   }
208
209   if (theObject->HasPlane())
210   {
211     gp_Ax2 anAx = theObject->GetPlane();
212
213     Handle(TColStd_HArray1OfReal) aLocArr = new TColStd_HArray1OfReal(1, 3);
214     for (Standard_Integer i = 1; i <= 3; i++)
215       aLocArr->SetValue(i, anAx.Location().Coord(i));
216     Handle(TDataStd_RealArray) aLoc = TDataStd_RealArray::Set(Label().FindChild(ChildLab_PlaneLoc), 1, 3);
217     if (!aLoc.IsNull())
218       aLoc->ChangeArray(aLocArr);
219
220     Handle(TColStd_HArray1OfReal) aNArr = new TColStd_HArray1OfReal(1, 3);
221     for (Standard_Integer i = 1; i <= 3; i++)
222       aNArr->SetValue(i, anAx.Direction().Coord(i));
223     Handle(TDataStd_RealArray) aN = TDataStd_RealArray::Set(Label().FindChild(ChildLab_PlaneN), 1, 3);
224     if (!aN.IsNull())
225       aN->ChangeArray(aNArr);
226
227     Handle(TColStd_HArray1OfReal) aRArr = new TColStd_HArray1OfReal(1, 3);
228     for (Standard_Integer i = 1; i <= 3; i++)
229       aRArr->SetValue(i, anAx.XDirection().Coord(i));
230     Handle(TDataStd_RealArray) aRAtt = TDataStd_RealArray::Set(Label().FindChild(ChildLab_PlaneRef), 1, 3);
231     if (!aRAtt.IsNull())
232       aRAtt->ChangeArray(aRArr);
233   }
234
235   if (theObject->HasTextPoint())
236   {
237     gp_Pnt aPntText = theObject->GetPointTextAttach();
238
239     Handle(TColStd_HArray1OfReal) aLocArr = new TColStd_HArray1OfReal(1, 3);
240     for (Standard_Integer i = 1; i <= 3; i++)
241       aLocArr->SetValue(i, aPntText.Coord(i));
242     Handle(TDataStd_RealArray) aLoc = TDataStd_RealArray::Set(Label().FindChild(ChildLab_PntText), 1, 3);
243     if (!aLoc.IsNull())
244       aLoc->ChangeArray(aLocArr);
245   }
246
247   TopoDS_Shape aPresentation = theObject->GetPresentation();
248   if( !aPresentation.IsNull())
249   {
250     TDF_Label aLPres = Label().FindChild( ChildLab_Presentation);
251     TNaming_Builder tnBuild(aLPres);
252     tnBuild.Generated(aPresentation);
253     Handle(TCollection_HAsciiString) aName =  theObject->GetPresentationName();
254     if( !aName.IsNull() )
255     {
256       TCollection_ExtendedString str ( aName->String() );
257       TDataStd_Name::Set ( aLPres, str );
258     }
259   }
260
261   if (theObject->HasDescriptions())
262   {
263     Handle(TColStd_HArray1OfExtendedString) aDescrArr = new TColStd_HArray1OfExtendedString(1, theObject->NbDescriptions());
264     Handle(TColStd_HArray1OfExtendedString) aDescrNameArr = new TColStd_HArray1OfExtendedString(1, theObject->NbDescriptions());
265     for (Standard_Integer i = 0; i < theObject->NbDescriptions(); i++) {
266       TCollection_ExtendedString aDescr(theObject->GetDescription(i)->String());
267       aDescrArr->SetValue(i + 1, aDescr);
268       TCollection_ExtendedString aDescrName(theObject->GetDescriptionName(i)->String());
269       aDescrNameArr->SetValue(i + 1, aDescrName);
270     }
271     Handle(TDataStd_ExtStringArray) aDescriptions = TDataStd_ExtStringArray::Set(Label().FindChild(ChildLab_Descriptions),
272                                                     1, theObject->NbDescriptions());
273     Handle(TDataStd_ExtStringArray) aDescriptionNames = TDataStd_ExtStringArray::Set(Label().FindChild(ChildLab_DescriptionNames),
274                                                         1, theObject->NbDescriptions());
275     if(!aDescriptions.IsNull())
276       aDescriptions->ChangeArray(aDescrArr);
277     if(!aDescriptionNames.IsNull())
278       aDescriptionNames->ChangeArray(aDescrNameArr);
279   }
280 }
281
282 //=======================================================================
283 //function : GetObject
284 //purpose  : 
285 //=======================================================================
286 Handle(XCAFDimTolObjects_DimensionObject) XCAFDoc_Dimension::GetObject()  const
287 {
288   Handle(XCAFDimTolObjects_DimensionObject) anObj = new XCAFDimTolObjects_DimensionObject();
289
290   Handle(TDataStd_Name) aSemanticNameAttr;
291   Handle(TCollection_HAsciiString) aSemanticName;
292   if (Label().FindAttribute(TDataStd_Name::GetID(), aSemanticNameAttr))
293   {
294     const TCollection_ExtendedString& aName = aSemanticNameAttr->Get();
295     if (!aName.IsEmpty())
296       aSemanticName = new TCollection_HAsciiString(aName);
297   }
298   anObj->SetSemanticName(aSemanticName);
299
300   Handle(TDataStd_Integer) aType;
301   if(Label().FindChild(ChildLab_Type).FindAttribute(TDataStd_Integer::GetID(), aType))
302   {
303     anObj->SetType((XCAFDimTolObjects_DimensionType)aType->Get());
304   }
305
306   Handle(TDataStd_RealArray) aVal;
307   if(Label().FindChild(ChildLab_Value).FindAttribute(TDataStd_RealArray::GetID(), aVal) 
308      && !aVal->Array().IsNull())
309   {
310     anObj->SetValues(aVal->Array());
311   }
312
313   Handle(TDataStd_Integer) aQualifier;
314   if(Label().FindChild(ChildLab_Qualifier).FindAttribute(TDataStd_Integer::GetID(), aQualifier))
315   {
316     anObj->SetQualifier((XCAFDimTolObjects_DimensionQualifier)aQualifier->Get());
317   }
318  
319   Handle(TDataStd_IntegerArray) aClass;
320   if(Label().FindChild(ChildLab_Class).FindAttribute(TDataStd_IntegerArray::GetID(), aClass) 
321      && !aClass->Array().IsNull() && aClass->Array()->Length() > 0)
322   {
323     anObj->SetClassOfTolerance(aClass->Array()->Value(1) != 0, (XCAFDimTolObjects_DimensionFormVariance)aClass->Array()->Value(2), (XCAFDimTolObjects_DimensionGrade)aClass->Array()->Value(3));
324   }
325
326   Handle(TDataStd_IntegerArray) aDec;
327   if(Label().FindChild(ChildLab_Dec).FindAttribute(TDataStd_IntegerArray::GetID(), aDec)
328      && !aDec->Array().IsNull() && aDec->Array()->Length() > 0)
329   {
330       anObj->SetNbOfDecimalPlaces(aDec->Array()->Value(1), aDec->Array()->Value(2));
331   }
332  
333   Handle(TDataStd_IntegerArray) aModifiers;
334   if(Label().FindChild(ChildLab_Modifiers).FindAttribute(TDataStd_IntegerArray::GetID(), aModifiers) 
335      && !aModifiers->Array().IsNull())
336   {
337     XCAFDimTolObjects_DimensionModifiersSequence aM;
338     for(Standard_Integer i = 1; i <= aModifiers->Array()->Length(); i++)
339       aM.Append((XCAFDimTolObjects_DimensionModif)aModifiers->Array()->Value(i));
340     anObj->SetModifiers(aM);
341   }
342
343   Handle(TNaming_NamedShape) aShape;
344   if(Label().FindChild(ChildLab_Path).FindAttribute(TNaming_NamedShape::GetID(), aShape)
345     && !aShape.IsNull())
346   {
347     anObj->SetPath(TopoDS::Edge(aShape->Get()));
348   }
349
350   Handle(TDataStd_RealArray) aDir;
351   if (Label().FindChild(ChildLab_Dir).FindAttribute(TDataStd_RealArray::GetID(), aDir)
352     && !aDir->Array().IsNull() && aDir->Array()->Length() > 0)
353   {
354     gp_Dir aD(aDir->Array()->Value(1), aDir->Array()->Value(2), aDir->Array()->Value(3));
355     anObj->SetDirection(aD);
356   }
357
358   Handle(TDataStd_RealArray) aPnt1;
359   if (Label().FindChild(ChildLab_Pnt1).FindAttribute(TDataStd_RealArray::GetID(), aPnt1) && aPnt1->Length() == 3)
360   {
361     gp_Pnt aP(aPnt1->Value(aPnt1->Lower()), aPnt1->Value(aPnt1->Lower() + 1), aPnt1->Value(aPnt1->Lower() + 2));
362     anObj->SetPoint(aP);
363   }
364
365   Handle(TDataStd_RealArray) aPnt2;
366   if (Label().FindChild(ChildLab_Pnt2).FindAttribute(TDataStd_RealArray::GetID(), aPnt2) && aPnt2->Length() == 3)
367   {
368     gp_Pnt aP(aPnt2->Value(aPnt2->Lower()), aPnt2->Value(aPnt2->Lower() + 1), aPnt2->Value(aPnt2->Lower() + 2));
369     anObj->SetPoint2(aP);
370   }
371
372
373   Handle(TDataStd_RealArray) aLoc, aN, aR;
374   if (Label().FindChild(ChildLab_PlaneLoc).FindAttribute(TDataStd_RealArray::GetID(), aLoc) && aLoc->Length() == 3 &&
375       Label().FindChild(ChildLab_PlaneN).FindAttribute(TDataStd_RealArray::GetID(), aN) && aN->Length() == 3 &&
376       Label().FindChild(ChildLab_PlaneRef).FindAttribute(TDataStd_RealArray::GetID(), aR) && aR->Length() == 3)
377   {
378     gp_Pnt aL(aLoc->Value(aLoc->Lower()), aLoc->Value(aLoc->Lower() + 1), aLoc->Value(aLoc->Lower() + 2));
379     gp_Dir aD(aN->Value(aN->Lower()), aN->Value(aN->Lower() + 1), aN->Value(aN->Lower() + 2));
380     gp_Dir aDR(aR->Value(aR->Lower()), aR->Value(aR->Lower() + 1), aR->Value(aR->Lower() + 2));
381     gp_Ax2 anAx(aL, aD, aDR);
382     anObj->SetPlane(anAx);
383   }
384
385   Handle(TDataStd_RealArray) aPntText;
386   if (Label().FindChild(ChildLab_PntText).FindAttribute(TDataStd_RealArray::GetID(), aPntText) && aPntText->Length() == 3)
387   {
388     gp_Pnt aP(aPntText->Value(aPntText->Lower()), aPntText->Value(aPntText->Lower() + 1), aPntText->Value(aPntText->Lower() + 2));
389     anObj->SetPointTextAttach(aP);
390   }
391
392   Handle(TNaming_NamedShape) aNS;
393   TDF_Label aLPres = Label().FindChild( ChildLab_Presentation);
394   if ( aLPres.FindAttribute(TNaming_NamedShape::GetID(), aNS) ) 
395   {
396     TopoDS_Shape aPresentation = TNaming_Tool::GetShape(aNS);
397     if( !aPresentation.IsNull())
398     {
399       Handle(TDataStd_Name) aNameAtrr;
400       Handle(TCollection_HAsciiString) aPresentName;
401       if (aLPres.FindAttribute(TDataStd_Name::GetID(),aNameAtrr))
402       {
403         const TCollection_ExtendedString& aName = aNameAtrr->Get();
404         if( !aName.IsEmpty())
405           aPresentName = new TCollection_HAsciiString(aName);
406       }
407       anObj->SetPresentation(aPresentation, aPresentName);
408     }
409   }
410
411   Handle(TDataStd_ExtStringArray) aDescriptions, aDescriptionNames;
412   if (Label().FindChild(ChildLab_Descriptions).FindAttribute(TDataStd_ExtStringArray::GetID(), aDescriptions) &&
413     Label().FindChild(ChildLab_DescriptionNames).FindAttribute(TDataStd_ExtStringArray::GetID(), aDescriptionNames)) {
414     for (Standard_Integer i = 1; i <= aDescriptions->Length(); i++) {
415       Handle(TCollection_HAsciiString) aDescription, aDescriptionName;
416       aDescription = new TCollection_HAsciiString(TCollection_AsciiString(aDescriptions->Value(i)));
417       aDescriptionName = new TCollection_HAsciiString(TCollection_AsciiString(aDescriptionNames->Value(i)));
418       anObj->AddDescription(aDescription, aDescriptionName);
419     }
420   }
421   return anObj;
422 }
423
424 //=======================================================================
425 //function : ID
426 //purpose  : 
427 //=======================================================================
428
429 const Standard_GUID& XCAFDoc_Dimension::ID() const
430 {
431   return GetID();
432 }
433
434 //=======================================================================
435 //function : Restore
436 //purpose  : 
437 //=======================================================================
438
439 void XCAFDoc_Dimension::Restore(const Handle(TDF_Attribute)& /*With*/) 
440 {
441 }
442
443
444 //=======================================================================
445 //function : NewEmpty
446 //purpose  : 
447 //=======================================================================
448
449 Handle(TDF_Attribute) XCAFDoc_Dimension::NewEmpty() const
450 {
451   return new XCAFDoc_Dimension();
452 }
453
454
455 //=======================================================================
456 //function : Paste
457 //purpose  : 
458 //=======================================================================
459
460 void XCAFDoc_Dimension::Paste(const Handle(TDF_Attribute)& /*Into*/,
461                            const Handle(TDF_RelocationTable)& /*RT*/) const
462 {
463 }
464
465 //=======================================================================
466 //function : DumpJson
467 //purpose  : 
468 //=======================================================================
469 void XCAFDoc_Dimension::DumpJson (Standard_OStream& theOStream, Standard_Integer theDepth) const
470 {
471   OCCT_DUMP_TRANSIENT_CLASS_BEGIN (theOStream)
472
473   OCCT_DUMP_BASE_CLASS (theOStream, theDepth, TDF_Attribute)
474 }