0031313: Foundation Classes - Dump improvement for classes
[occt.git] / src / TDataStd / TDataStd_Real.cxx
1 // Created on: 1997-03-06
2 // Created by: Denis PASCAL
3 // Copyright (c) 1997-1999 Matra Datavision
4 // Copyright (c) 1999-2014 OPEN CASCADE SAS
5 //
6 // This file is part of Open CASCADE Technology software library.
7 //
8 // This library is free software; you can redistribute it and/or modify it under
9 // the terms of the GNU Lesser General Public License version 2.1 as published
10 // by the Free Software Foundation, with special exception defined in the file
11 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12 // distribution for complete text of the license and disclaimer of any warranty.
13 //
14 // Alternatively, this file may be used under the terms of Open CASCADE
15 // commercial license or contractual agreement.
16
17 #include <TDataStd_Real.hxx>
18
19 #include <Standard_Dump.hxx>
20 #include <Standard_GUID.hxx>
21 #include <Standard_Type.hxx>
22 #include <TDataStd.hxx>
23 #include <TDF_Attribute.hxx>
24 #include <TDF_Label.hxx>
25 #include <TDF_Reference.hxx>
26 #include <TDF_RelocationTable.hxx>
27
28 IMPLEMENT_STANDARD_RTTIEXT(TDataStd_Real,TDF_Attribute)
29
30 //=======================================================================
31 //function : GetID
32 //purpose  : 
33 //=======================================================================
34 const Standard_GUID& TDataStd_Real::GetID() 
35 {
36   static Standard_GUID TDataStd_RealID("2a96b60f-ec8b-11d0-bee7-080009dc3333");
37   return TDataStd_RealID;
38 }
39
40 //=======================================================================
41 //function : SetAttr
42 //purpose  : Implements Set functionality
43 //=======================================================================
44 static Handle(TDataStd_Real) SetAttr(const TDF_Label&     label,
45                                      const Standard_Real  V,
46                                      const Standard_GUID& theGuid)
47 {
48   Handle(TDataStd_Real) A;
49   if (!label.FindAttribute(theGuid, A)) {
50     A = new TDataStd_Real ();
51     A->SetID(theGuid);
52     label.AddAttribute(A);
53   }
54   A->Set (V); 
55   return A;
56 }
57
58 //=======================================================================
59 //function : Set
60 //purpose  : 
61 //=======================================================================
62
63 Handle(TDataStd_Real) TDataStd_Real::Set (const TDF_Label&    L,
64                                           const Standard_Real V) 
65 {
66   return SetAttr(L, V, GetID());
67 }
68
69 //=======================================================================
70 //function : Set
71 //purpose  : User defined attribute
72 //=======================================================================
73
74 Handle(TDataStd_Real) TDataStd_Real::Set (const TDF_Label&    L,
75                                           const Standard_GUID& theGuid,
76                                           const Standard_Real V) 
77 {
78   return SetAttr(L, V, theGuid);
79 }
80
81 //=======================================================================
82 //function : TDataStd_Real
83 //purpose  : Empty constructor
84 //=======================================================================
85
86 TDataStd_Real::TDataStd_Real ()
87      : myValue     (RealFirst()),
88        myDimension (TDataStd_SCALAR),
89        myID(GetID())
90 {}
91
92
93
94 //=======================================================================
95 //function : IsCaptured
96 //purpose  : 
97 //=======================================================================
98
99 Standard_Boolean TDataStd_Real::IsCaptured() const
100 {
101   Handle(TDF_Reference) reference;
102   // pour test
103
104   if (Label().FindAttribute(TDF_Reference::GetID(),reference)) {
105     const TDF_Label& aLabel = reference->Get(); 
106     return aLabel.IsAttribute (myID);
107
108   }
109   return Standard_False;
110 }
111
112
113 //=======================================================================
114 //function : Set
115 //purpose  : 
116 //=======================================================================
117
118 void TDataStd_Real::Set(const Standard_Real v) 
119 {
120   // OCC2932 correction
121   if( myValue == v) return;
122
123   Backup();
124   myValue = v;
125 }
126
127 //=======================================================================
128 //function : Get
129 //purpose  : 
130 //=======================================================================
131
132 Standard_Real TDataStd_Real::Get() const { return myValue; }
133
134
135 //=======================================================================
136 //function : SetDimension 
137 //purpose  : 
138 //=======================================================================
139
140 void TDataStd_Real::SetDimension (const TDataStd_RealEnum DIM) 
141 {
142   // OCC2932 correction  
143   if(myDimension == DIM) return;
144
145   Backup();
146   myDimension = DIM;
147 }
148
149
150 //=======================================================================
151 //function : GetDimension
152 //purpose  : 
153 //=======================================================================
154
155 TDataStd_RealEnum TDataStd_Real::GetDimension () const
156 {
157   return myDimension;
158 }
159
160
161 //=======================================================================
162 //function : ID
163 //purpose  : 
164 //=======================================================================
165
166 const Standard_GUID& TDataStd_Real::ID() const { return myID; }
167
168 //=======================================================================
169 //function : SetID
170 //purpose  :
171 //=======================================================================
172
173 void TDataStd_Real::SetID( const Standard_GUID&  theGuid)
174 {  
175   if(myID == theGuid) return;
176
177   Backup();
178   myID = theGuid;
179 }
180
181 //=======================================================================
182 //function : SetID
183 //purpose  : sets default ID
184 //=======================================================================
185 void TDataStd_Real::SetID()
186 {
187   Backup();
188   myID = GetID();
189 }
190 //=======================================================================
191 //function : NewEmpty
192 //purpose  : 
193 //=======================================================================
194
195 Handle(TDF_Attribute) TDataStd_Real::NewEmpty () const
196 {
197   return new TDataStd_Real();
198 }
199
200 //=======================================================================
201 //function : Restore
202 //purpose  : 
203 //=======================================================================
204
205 void TDataStd_Real::Restore(const Handle(TDF_Attribute)& With) 
206 {
207   Handle(TDataStd_Real) R = Handle(TDataStd_Real)::DownCast (With);
208   myValue = R->Get();
209   Standard_DISABLE_DEPRECATION_WARNINGS
210   myDimension = R->GetDimension();
211   Standard_ENABLE_DEPRECATION_WARNINGS
212   myID = R->ID();
213 }
214
215
216
217 //=======================================================================
218 //function : Paste
219 //purpose  : 
220 //=======================================================================
221
222 void TDataStd_Real::Paste (const Handle(TDF_Attribute)& Into,
223                            const Handle(TDF_RelocationTable)& /*RT*/) const
224
225   Handle(TDataStd_Real) R = Handle(TDataStd_Real)::DownCast (Into);
226   R->Set(myValue);
227   Standard_DISABLE_DEPRECATION_WARNINGS
228   R->SetDimension(myDimension);
229   Standard_ENABLE_DEPRECATION_WARNINGS
230   R->SetID(myID);
231 }
232
233 //=======================================================================
234 //function : Dump
235 //purpose  : 
236 //=======================================================================
237
238 Standard_OStream& TDataStd_Real::Dump (Standard_OStream& anOS) const
239 {  
240   anOS << "Real "; 
241   Standard_DISABLE_DEPRECATION_WARNINGS
242   TDataStd::Print(GetDimension(), anOS);
243   Standard_ENABLE_DEPRECATION_WARNINGS
244   anOS << myValue; 
245   Standard_Character sguid[Standard_GUID_SIZE_ALLOC];
246   myID.ToCString(sguid);
247   anOS << sguid;
248   return anOS;
249 }
250
251 //=======================================================================
252 //function : DumpJson
253 //purpose  : 
254 //=======================================================================
255 void TDataStd_Real::DumpJson (Standard_OStream& theOStream, Standard_Integer theDepth) const
256 {
257   OCCT_DUMP_TRANSIENT_CLASS_BEGIN (theOStream)
258
259   OCCT_DUMP_BASE_CLASS (theOStream, theDepth, TDF_Attribute)
260
261   OCCT_DUMP_FIELD_VALUE_NUMERICAL (theOStream, myValue)
262   OCCT_DUMP_FIELD_VALUE_NUMERICAL (theOStream, myDimension)
263   OCCT_DUMP_FIELD_VALUE_GUID (theOStream, myID)
264 }