Salome HOME
Support of attributes located in the same switch in several cases
[modules/shaper.git] / src / Model / Model_Expression.cpp
1 // Copyright (C) 2014-20xx CEA/DEN, EDF R&D
2
3 // File:        Model_Expression.cpp
4 // Created:     5 Aug 2015
5 // Author:      Sergey POKHODENKO
6
7 #include "Model_Expression.h"
8
9 #include <TCollection_AsciiString.hxx>
10 #include <TCollection_ExtendedString.hxx>
11 #include <TDataStd_ListIteratorOfListOfExtendedString.hxx>
12 #include <TDataStd_UAttribute.hxx>
13
14 #include <TDataStd_RealArray.hxx>
15 #include <TDataStd_ExtStringArray.hxx>
16
17 Model_Expression::Model_Expression(TDF_Label& theLabel)
18 {
19   myIsInitialized = true;
20   if (!theLabel.FindAttribute(TDataStd_Name::GetID(), myText)) {
21     myText = TDataStd_Name::Set(theLabel, TCollection_ExtendedString());
22     myIsInitialized = false;
23   }
24   if (!theLabel.FindAttribute(TDataStd_Comment::GetID(), myError)) {
25     myError = TDataStd_Comment::Set(theLabel, TCollection_ExtendedString());
26     myIsInitialized = false;
27   }
28   if (!theLabel.FindAttribute(TDataStd_ExtStringList::GetID(), myUsedParameters)) {
29     myUsedParameters = TDataStd_ExtStringList::Set(theLabel);
30     myIsInitialized = false;
31   }
32   if (!theLabel.FindAttribute(TDataStd_Real::GetID(), myReal)) {
33     myReal = TDataStd_Real::Set(theLabel, 0.);
34     myIsInitialized = false;
35     // MPV: temporarily to support the previously saved files (to check and resolve bugs), to be removed
36     Handle(TDataStd_RealArray) anOldArray;
37     if (theLabel.Father().FindAttribute(TDataStd_RealArray::GetID(), anOldArray) == Standard_True) {
38       myReal->Set(anOldArray->Value(theLabel.Tag() - 1));
39       myIsInitialized = true;
40       Handle(TDataStd_ExtStringArray) anOldExp;
41       if (theLabel.Father().FindAttribute(TDataStd_ExtStringArray::GetID(), anOldExp) == Standard_True) {
42         myText->Set(anOldExp->Value(theLabel.Tag() - 1));
43       }
44     } else {
45       Handle(TDataStd_Real) anOldReal;
46       if (theLabel.Father().FindAttribute(TDataStd_Real::GetID(), anOldReal)) {
47         myIsInitialized = true;
48         myReal->Set(anOldReal->Get());
49         Handle(TDataStd_Name) aText;
50         if (theLabel.Father().FindAttribute(TDataStd_Name::GetID(), aText)) {
51           myText->Set(aText->Get());
52         }
53       }
54     }
55
56   }
57 }
58
59 void Model_Expression::setValue(const double theValue)
60 {
61   if (value() != theValue)
62     myReal->Set(theValue);
63 }
64
65 double Model_Expression::value()
66 {
67   return myReal->Get();
68 }
69
70 void Model_Expression::setText(const std::string& theValue)
71 {
72   if (text() != theValue)
73     myText->Set(TCollection_ExtendedString(theValue.c_str()));
74 }
75
76 std::string Model_Expression::text() const 
77 {
78   return TCollection_AsciiString(myText->Get()).ToCString();
79 }
80
81 static Standard_GUID kInvalidGUID("caee5ce4-34b1-4b29-abcb-685287d18096");
82
83 void Model_Expression::setInvalid(const bool theFlag)
84 {
85   if (theFlag) {
86     TDataStd_UAttribute::Set(myReal->Label(), kInvalidGUID);
87   } else {
88     myReal->Label().ForgetAttribute(kInvalidGUID);
89   }
90 }
91
92 bool Model_Expression::isInvalid()
93 {
94   return myReal->Label().IsAttribute(kInvalidGUID) == Standard_True;
95 }
96
97 void Model_Expression::setError(const std::string& theError)
98 {
99   if (error() != theError)
100     myError->Set(TCollection_ExtendedString(theError.c_str()));
101 }
102
103 std::string Model_Expression::error()
104 {
105   return TCollection_AsciiString(myError->Get()).ToCString();
106 }
107
108 void Model_Expression::setUsedParameters(const std::set<std::string>& theUsedParameters)
109 {
110   myUsedParameters->Clear();
111   std::set<std::string>::const_iterator anIt = theUsedParameters.begin();
112   for (; anIt != theUsedParameters.end(); ++anIt)
113     myUsedParameters->Append(TCollection_ExtendedString(anIt->c_str()));
114 }
115
116 std::set<std::string> Model_Expression::usedParameters() const
117 {
118   std::set<std::string> aResult;
119   TDataStd_ListIteratorOfListOfExtendedString aIt;
120   for (aIt.Initialize(myUsedParameters->List()); aIt.More(); aIt.Next())
121     aResult.insert(TCollection_AsciiString(aIt.Value()).ToCString());
122   return aResult;
123 }