0030773: Application Framework - To allow to inherit existing attributes to reuse...
[occt.git] / src / XmlMDataStd / XmlMDataStd_RelationDriver.cxx
1 // Created on: 2001-09-12
2 // Created by: Julia DOROVSKIKH
3 // Copyright (c) 2001-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
17 #include <Message_Messenger.hxx>
18 #include <Standard_Type.hxx>
19 #include <TDataStd_Relation.hxx>
20 #include <TDataStd_Variable.hxx>
21 #include <TDF_Attribute.hxx>
22 #include <TDF_ListIteratorOfAttributeList.hxx>
23 #include <XmlMDataStd_RelationDriver.hxx>
24 #include <XmlObjMgt.hxx>
25 #include <XmlObjMgt_Persistent.hxx>
26
27 IMPLEMENT_STANDARD_RTTIEXT(XmlMDataStd_RelationDriver,XmlMDF_ADriver)
28 IMPLEMENT_DOMSTRING (VariablesString, "variables")
29
30 //=======================================================================
31 //function : XmlMDataStd_RelationDriver
32 //purpose  : Constructor
33 //=======================================================================
34 XmlMDataStd_RelationDriver::XmlMDataStd_RelationDriver
35                         (const Handle(Message_Messenger)& theMsgDriver)
36       : XmlMDF_ADriver (theMsgDriver, NULL)
37 {}
38
39 //=======================================================================
40 //function : NewEmpty
41 //purpose  : 
42 //=======================================================================
43 Handle(TDF_Attribute) XmlMDataStd_RelationDriver::NewEmpty() const
44 {
45   return (new TDataStd_Relation());
46 }
47
48 //=======================================================================
49 //function : Paste
50 //purpose  : persistent -> transient (retrieve)
51 //=======================================================================
52 Standard_Boolean XmlMDataStd_RelationDriver::Paste
53                         (const XmlObjMgt_Persistent&  theSource,
54                          const Handle(TDF_Attribute)& theTarget,
55                          XmlObjMgt_RRelocationTable&  theRelocTable) const
56 {
57   Handle(TDataStd_Relation) aC = 
58     Handle(TDataStd_Relation)::DownCast(theTarget);
59   const XmlObjMgt_Element& anElem = theSource;
60
61   Standard_Integer aNb;
62   TCollection_ExtendedString aMsgString;
63
64   // expression
65   TCollection_ExtendedString aString;
66   if (!XmlObjMgt::GetExtendedString (theSource, aString))
67   {
68     myMessageDriver->Send("error retrieving ExtendedString for type TDataStd_Relation", Message_Fail);
69     return Standard_False;
70   }
71   aC->SetRelation(aString);
72
73   // variables
74   XmlObjMgt_DOMString aDOMStr = anElem.getAttribute(::VariablesString());
75   if (aDOMStr != NULL)
76   {
77     Standard_CString aVs = Standard_CString(aDOMStr.GetString());
78
79     // first variable
80     if (!XmlObjMgt::GetInteger(aVs, aNb))
81     {
82       aMsgString = TCollection_ExtendedString
83         ("XmlMDataStd_RelationDriver: Cannot retrieve reference on first variable from \"")
84           + aDOMStr + "\"";
85       myMessageDriver->Send (aMsgString, Message_Fail);
86       return Standard_False;
87     }
88     Standard_Integer i = 1;
89     while (aNb > 0)
90     {
91       Handle(TDF_Attribute) aV;
92       if (theRelocTable.IsBound(aNb))
93         aV = Handle(TDataStd_Variable)::DownCast(theRelocTable.Find(aNb));
94       else
95       {
96         aV = new TDataStd_Variable;
97         theRelocTable.Bind(aNb, aV);
98       }
99       aC->GetVariables().Append(aV);
100
101       // next variable
102       if (!XmlObjMgt::GetInteger(aVs, aNb)) aNb = 0;
103       i++;
104     }
105   }
106
107   return Standard_True;
108 }
109
110 //=======================================================================
111 //function : Paste
112 //purpose  : transient -> persistent (store)
113 //=======================================================================
114 void XmlMDataStd_RelationDriver::Paste
115                         (const Handle(TDF_Attribute)& theSource,
116                          XmlObjMgt_Persistent&        theTarget,
117                          XmlObjMgt_SRelocationTable&  theRelocTable) const
118 {
119   Handle(TDataStd_Relation) aC =
120     Handle(TDataStd_Relation)::DownCast(theSource);
121   XmlObjMgt_Element& anElem = theTarget;
122
123   Standard_Integer aNb;
124   Handle(TDF_Attribute) TV;   
125
126   // expression
127   XmlObjMgt::SetExtendedString (theTarget, aC->Name());
128
129   // variables
130   Standard_Integer nbvar = aC->GetVariables().Extent();
131   if (nbvar >= 1)
132   {
133     TCollection_AsciiString aGsStr;
134     TDF_ListIteratorOfAttributeList it;
135     Standard_Integer index = 0;
136     for (it.Initialize(aC->GetVariables()); it.More(); it.Next())
137     {
138       index++;
139       TV = it.Value(); 
140       if (!TV.IsNull())
141       {
142         aNb = theRelocTable.FindIndex(TV);
143         if (aNb == 0)
144         {
145           aNb = theRelocTable.Add(TV);
146         }
147         aGsStr += TCollection_AsciiString(aNb) + " ";
148       }
149       else aGsStr += "0 ";
150     }
151     anElem.setAttribute(::VariablesString(), aGsStr.ToCString());
152   }
153 }