0030773: Application Framework - To allow to inherit existing attributes to reuse...
[occt.git] / src / XmlMXCAFDoc / XmlMXCAFDoc_AreaDriver.cxx
1 // Created on: 2001-08-24
2 // Created by: Alexnder GRIGORIEV
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 <TDF_Attribute.hxx>
20 #include <XCAFDoc_Area.hxx>
21 #include <XmlMXCAFDoc_AreaDriver.hxx>
22 #include <XmlObjMgt.hxx>
23 #include <XmlObjMgt_Persistent.hxx>
24
25 IMPLEMENT_STANDARD_RTTIEXT(XmlMXCAFDoc_AreaDriver,XmlMDF_ADriver)
26
27 //=======================================================================
28 //function : XmlMXCAFDoc_AreaDriver
29 //purpose  : Constructor
30 //=======================================================================
31 XmlMXCAFDoc_AreaDriver::XmlMXCAFDoc_AreaDriver
32                         (const Handle(Message_Messenger)& theMsgDriver)
33       : XmlMDF_ADriver (theMsgDriver, "xcaf", "Area")
34 {}
35
36 //=======================================================================
37 //function : NewEmpty
38 //purpose  : 
39 //=======================================================================
40 Handle(TDF_Attribute) XmlMXCAFDoc_AreaDriver::NewEmpty() const
41 {
42   return (new XCAFDoc_Area());
43 }
44
45 //=======================================================================
46 //function : Paste
47 //purpose  : persistent -> transient (retrieve)
48 //=======================================================================
49 Standard_Boolean XmlMXCAFDoc_AreaDriver::Paste
50                                         (const XmlObjMgt_Persistent&  theSource,
51                                          const Handle(TDF_Attribute)& theTarget,
52                                          XmlObjMgt_RRelocationTable&  ) const
53 {
54   Standard_Real aValue;
55   XmlObjMgt_DOMString aRealStr = XmlObjMgt::GetStringValue (theSource);
56
57   if (XmlObjMgt::GetReal(aRealStr, aValue) == Standard_False) {
58     TCollection_ExtendedString aMessageString =
59       TCollection_ExtendedString("Cannot retrieve Area attribute from \"")
60         + aRealStr + "\"";
61     myMessageDriver->Send (aMessageString, Message_Fail);
62     return Standard_False;
63   }
64
65   Handle(XCAFDoc_Area) anInt = Handle(XCAFDoc_Area)::DownCast(theTarget);
66   anInt->Set(aValue);
67
68   return Standard_True;
69 }
70
71 //=======================================================================
72 //function : Paste
73 //purpose  : transient -> persistent (store)
74 //=======================================================================
75 void XmlMXCAFDoc_AreaDriver::Paste (const Handle(TDF_Attribute)& theSource,
76                                     XmlObjMgt_Persistent&        theTarget,
77                                     XmlObjMgt_SRelocationTable&  ) const
78 {
79   Handle(XCAFDoc_Area) anInt = Handle(XCAFDoc_Area)::DownCast(theSource);
80   TCollection_AsciiString aValueStr (anInt->Get());
81   XmlObjMgt::SetStringValue (theTarget, aValueStr.ToCString());
82 }