0031313: Foundation Classes - Dump improvement for classes
[occt.git] / src / TDataStd / TDataStd_DeltaOnModificationOfIntArray.cxx
1 // Created on: 2007-09-06
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_DeltaOnModificationOfIntArray.hxx>
17
18 #include <Standard_Type.hxx>
19 #include <TColStd_HArray1OfInteger.hxx>
20 #include <TColStd_ListIteratorOfListOfInteger.hxx>
21 #include <TColStd_ListOfInteger.hxx>
22 #include <TDataStd_IntegerArray.hxx>
23 #include <TDF_AttributeIterator.hxx>
24 #include <TDF_DeltaOnModification.hxx>
25 #include <TDF_Label.hxx>
26
27 IMPLEMENT_STANDARD_RTTIEXT(TDataStd_DeltaOnModificationOfIntArray,TDF_DeltaOnModification)
28
29 #ifdef OCCT_DEBUG
30 #define MAXUP 1000
31 #endif
32 //=======================================================================
33 //function : TDataStd_DeltaOnModificationOfIntArray
34 //purpose  : 
35 //=======================================================================
36
37 TDataStd_DeltaOnModificationOfIntArray::TDataStd_DeltaOnModificationOfIntArray(const Handle(TDataStd_IntegerArray)& OldAtt)
38 : TDF_DeltaOnModification(OldAtt)
39 {
40   Handle(TDataStd_IntegerArray) CurrAtt;
41   if (Label().FindAttribute(OldAtt->ID(),CurrAtt)) {
42     {
43       Handle(TColStd_HArray1OfInteger) Arr1, Arr2;
44       Arr1 = OldAtt->Array();
45       Arr2 = CurrAtt->Array();
46 #ifdef OCCT_DEBUG
47       if(Arr1.IsNull())
48         std::cout <<"DeltaOnModificationOfIntArray:: Old IntArray is Null" <<std::endl;
49       if(Arr2.IsNull())
50         std::cout <<"DeltaOnModificationOfIntArray:: Current IntArray 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_HArray1OfInteger(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     }
84     OldAtt->RemoveArray();
85 #ifdef OCCT_DEBUG
86     if(OldAtt->Array().IsNull())
87       std::cout << "BackUp Arr is Nullified" << std::endl;
88 #endif
89   }
90 }
91
92
93 //=======================================================================
94 //function : Apply
95 //purpose  : 
96 //=======================================================================
97
98 void TDataStd_DeltaOnModificationOfIntArray::Apply()
99 {
100
101   Handle(TDF_Attribute) TDFAttribute = Attribute();
102   Handle(TDataStd_IntegerArray) BackAtt = Handle(TDataStd_IntegerArray)::DownCast (TDFAttribute);
103   if(BackAtt.IsNull()) {
104 #ifdef OCCT_DEBUG
105     std::cout << "DeltaOnModificationOfIntArray::Apply: OldAtt is Null" <<std::endl;
106 #endif
107     return;
108   }
109   
110   Handle(TDataStd_IntegerArray) aCurAtt;
111   if (!Label().FindAttribute(BackAtt->ID(),aCurAtt)) {
112
113     Label().AddAttribute(BackAtt);
114   }
115
116   if(aCurAtt.IsNull()) {
117 #ifdef OCCT_DEBUG
118     std::cout << "DeltaOnModificationOfIntArray::Apply: CurAtt is Null" <<std::endl;
119 #endif
120     return;
121   }
122   else 
123     aCurAtt->Backup();
124
125   Standard_Integer aCase;
126   if(myUp1 == myUp2) 
127     aCase = 1;
128   else if(myUp1 < myUp2) 
129     aCase = 2;
130   else 
131     aCase = 3;//Up1 > Up2
132 ////
133   if (aCase == 1 && (myIndxes.IsNull() || myValues.IsNull()))
134     return;
135   
136   Standard_Integer i;
137   Handle(TColStd_HArray1OfInteger) IntArr = aCurAtt->Array();
138   if(IntArr.IsNull()) return;
139   if(aCase == 1) 
140     for(i = 1; i <= myIndxes->Upper();i++) 
141       IntArr->ChangeArray1().SetValue(myIndxes->Value(i), myValues->Value(i));
142   else if(aCase == 2) {    
143     Handle(TColStd_HArray1OfInteger) intArr = new TColStd_HArray1OfInteger(IntArr->Lower(), myUp1);
144     for(i = IntArr->Lower(); i <= myUp1 && i <= IntArr->Upper(); i++) 
145       intArr->SetValue(i, IntArr->Value(i));
146     if(!myIndxes.IsNull() && !myValues.IsNull())
147       for(i = 1; i <= myIndxes->Upper();i++) 
148         intArr->ChangeArray1().SetValue(myIndxes->Value(i), myValues->Value(i));
149     aCurAtt->myValue = intArr;
150   }
151   else { // aCase == 3
152     Standard_Integer low = IntArr->Lower();
153     Handle(TColStd_HArray1OfInteger) intArr = new TColStd_HArray1OfInteger(low, myUp1);
154     for(i = IntArr->Lower(); i <= myUp2 && i <= IntArr->Upper(); i++) 
155       intArr->SetValue(i, IntArr->Value(i));
156     if(!myIndxes.IsNull() && !myValues.IsNull())
157       for(i = 1; i <= myIndxes->Upper();i++) {
158 #ifdef OCCT_DEBUG
159         std::cout << "i = " << i << "  myIndxes->Upper = " << myIndxes->Upper() << std::endl;
160         std::cout << "myIndxes->Value(i) = " << myIndxes->Value(i) << std::endl;
161         std::cout << "myValues->Value(i) = " << myValues->Value(i) << std::endl;
162 #endif
163         intArr->ChangeArray1().SetValue(myIndxes->Value(i), myValues->Value(i));      
164       }
165     aCurAtt->myValue = intArr;
166   }
167   
168 #ifdef OCCT_DEBUG
169   std::cout << " << Array Dump after Delta Apply >>" <<std::endl;
170   Handle(TColStd_HArray1OfInteger) IntArr2 = aCurAtt->Array();
171   for(i=IntArr2->Lower(); i<=IntArr2->Upper() && i <= MAXUP;i++)
172     std::cout << IntArr2->Value(i) << "  ";
173   std::cout <<std::endl;
174 #endif
175 }
176
177