0031313: Foundation Classes - Dump improvement for classes
[occt.git] / src / TDataStd / TDataStd_DeltaOnModificationOfRealArray.cxx
1 // Created on: 2007-10-30
2 // Created by: Sergey ZARITCHNY
3 // Copyright (c) 2007-2014 OPEN CASCADE SAS
4 //
5 // This file is part of Open CASCADE Technology software library.
6 //
7 // This library is free software; you can redistribute it and/or modify it under
8 // the terms of the GNU Lesser General Public License version 2.1 as published
9 // by the Free Software Foundation, with special exception defined in the file
10 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 // distribution for complete text of the license and disclaimer of any warranty.
12 //
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
15
16 #include <TDataStd_DeltaOnModificationOfRealArray.hxx>
17
18 #include <Standard_Type.hxx>
19 #include <TColStd_HArray1OfReal.hxx>
20 #include <TColStd_ListIteratorOfListOfInteger.hxx>
21 #include <TColStd_ListOfInteger.hxx>
22 #include <TDataStd_RealArray.hxx>
23 #include <TDF_AttributeIterator.hxx>
24 #include <TDF_DeltaOnModification.hxx>
25 #include <TDF_Label.hxx>
26
27 IMPLEMENT_STANDARD_RTTIEXT(TDataStd_DeltaOnModificationOfRealArray,TDF_DeltaOnModification)
28
29 #ifdef OCCT_DEBUG
30 #define MAXUP 1000
31 #endif
32 //=======================================================================
33 //function : TDataStd_DeltaOnModificationOfRealArray
34 //purpose  : 
35 //=======================================================================
36
37 TDataStd_DeltaOnModificationOfRealArray::
38   TDataStd_DeltaOnModificationOfRealArray(const Handle(TDataStd_RealArray)& OldAtt)
39 : TDF_DeltaOnModification(OldAtt)
40 {
41   Handle(TDataStd_RealArray) CurrAtt;
42   if (Label().FindAttribute(OldAtt->ID(),CurrAtt)) {
43     Handle(TColStd_HArray1OfReal) Arr1, Arr2;
44     Arr1 = OldAtt->Array();
45     Arr2 = CurrAtt->Array();
46 #ifdef OCCT_DEBUG
47     if(Arr1.IsNull())
48       std::cout <<"DeltaOnModificationOfRealArray:: Old Array is Null" <<std::endl;
49     if(Arr2.IsNull())
50       std::cout <<"DeltaOnModificationOfRealArray:: Current Array is Null" <<std::endl;
51 #endif
52
53     if(Arr1.IsNull() || Arr2.IsNull()) return;
54     if(Arr1 != Arr2) {
55       myUp1 = Arr1->Upper();
56       myUp2 = Arr2->Upper();
57       Standard_Integer i, N =0, aCase=0; 
58       if(myUp1 == myUp2) 
59         {aCase = 1; N = myUp1;}
60       else if(myUp1 < myUp2) 
61         {aCase = 2; N = myUp1;}
62       else 
63         {aCase = 3; N = myUp2;}//Up1 > Up2
64
65       TColStd_ListOfInteger aList;
66       for(i=Arr1->Lower();i <= N; i++)
67         if(Arr1->Value(i) != Arr2->Value(i)) 
68           aList.Append(i);
69       if(aCase == 3) {
70         for(i = N+1;i <= myUp1; i++)
71           aList.Append(i);
72       }
73       if(aList.Extent()) {
74         myIndxes = new TColStd_HArray1OfInteger(1,aList.Extent());
75         myValues = new TColStd_HArray1OfReal(1,aList.Extent());
76         TColStd_ListIteratorOfListOfInteger anIt(aList);
77         for(i =1;anIt.More();anIt.Next(),i++) {
78           myIndxes->SetValue(i, anIt.Value());
79           myValues->SetValue(i, Arr1->Value(anIt.Value()));
80         }
81       }
82     }
83     OldAtt->RemoveArray();
84 #ifdef OCCT_DEBUG
85     if(OldAtt->Array().IsNull())
86       std::cout << "BackUp Arr is Nullified" << std::endl;
87 #endif
88   }
89 }
90
91
92 //=======================================================================
93 //function : Apply
94 //purpose  : 
95 //=======================================================================
96
97 void TDataStd_DeltaOnModificationOfRealArray::Apply()
98 {
99
100   Handle(TDF_Attribute) TDFAttribute = Attribute();
101   Handle(TDataStd_RealArray) BackAtt = Handle(TDataStd_RealArray)::DownCast (TDFAttribute);
102   if(BackAtt.IsNull()) {
103 #ifdef OCCT_DEBUG
104     std::cout << "DeltaOnModificationOfRealArray::Apply: OldAtt is Null" <<std::endl;
105 #endif
106     return;
107   }
108   
109   Handle(TDataStd_RealArray) aCurAtt;
110   if (!Label().FindAttribute(BackAtt->ID(),aCurAtt)) {
111
112     Label().AddAttribute(BackAtt);
113   }
114
115   if(aCurAtt.IsNull()) {
116 #ifdef OCCT_DEBUG
117     std::cout << "DeltaOnModificationOfRealArray::Apply: CurAtt is Null" <<std::endl;
118 #endif
119     return;
120   }
121   else 
122     aCurAtt->Backup();
123
124   Standard_Integer aCase;
125   if(myUp1 == myUp2) 
126     aCase = 1;
127   else if(myUp1 < myUp2) 
128     aCase = 2;
129   else 
130     aCase = 3;//Up1 > Up2
131
132   if (aCase == 1 && (myIndxes.IsNull() || myValues.IsNull()))
133     return;
134   
135   Standard_Integer i;
136   Handle(TColStd_HArray1OfReal) aRealArr = aCurAtt->Array();
137   if(aRealArr.IsNull()) return;
138   if(aCase == 1)   
139     for(i = 1; i <= myIndxes->Upper();i++) 
140       aRealArr->ChangeArray1().SetValue(myIndxes->Value(i), myValues->Value(i));
141   else if(aCase == 2) {    
142     Handle(TColStd_HArray1OfReal) realArr = new TColStd_HArray1OfReal(aRealArr->Lower(), myUp1);
143     for(i = aRealArr->Lower(); i <= myUp1 && i <= aRealArr->Upper(); i++) 
144       realArr->SetValue(i, aRealArr->Value(i));
145     if(!myIndxes.IsNull() && !myValues.IsNull())
146       for(i = 1; i <= myIndxes->Upper();i++) 
147         realArr->ChangeArray1().SetValue(myIndxes->Value(i), myValues->Value(i));
148     aCurAtt->myValue = realArr;
149   }
150   else { // == 3
151     Standard_Integer low = aRealArr->Lower();
152     Handle(TColStd_HArray1OfReal) realArr = new TColStd_HArray1OfReal(low, myUp1);
153     for(i = aRealArr->Lower(); i <= myUp2 && i <= aRealArr->Upper(); i++) 
154       realArr->SetValue(i, aRealArr->Value(i));
155     if(!myIndxes.IsNull() && !myValues.IsNull())
156       for(i = 1; i <= myIndxes->Upper();i++) {
157 #ifdef OCCT_DEBUG
158         std::cout << "i = " << i << "  myIndxes->Upper = " << myIndxes->Upper() << std::endl;
159         std::cout << "myIndxes->Value(i) = " << myIndxes->Value(i) << std::endl;
160         std::cout << "myValues->Value(i) = " << myValues->Value(i) << std::endl;
161 #endif
162         realArr->ChangeArray1().SetValue(myIndxes->Value(i), myValues->Value(i));      
163       }
164     aCurAtt->myValue = realArr;
165   }
166     
167
168 #ifdef OCCT_DEBUG
169   std::cout << " << RealArray Dump after Delta Apply >>" <<std::endl;
170   Handle(TColStd_HArray1OfReal) aRArr = aCurAtt->Array();
171   for(i=aRArr->Lower(); i<=aRArr->Upper() && i <= MAXUP;i++)
172     std::cout << aRArr->Value(i) << "  ";
173   std::cout <<std::endl;
174 #endif
175 }
176
177