0031313: Foundation Classes - Dump improvement for classes
[occt.git] / src / XmlTObjDrivers / XmlTObjDrivers_ObjectDriver.cxx
1 // Created on: 2004-11-24
2 // Created by: Edward AGAPOV
3 // Copyright (c) 2004-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 // The original implementation Copyright: (C) RINA S.p.A
17
18
19 #include <Message_Messenger.hxx>
20 #include "XmlTObjDrivers_ObjectDriver.hxx"
21 #include <TObj_TObject.hxx>
22 #include <TObj_Persistence.hxx>
23 #include <XmlObjMgt_Persistent.hxx>
24 #include <XmlObjMgt_RRelocationTable.hxx>
25 #include <XmlObjMgt.hxx>
26
27
28
29
30 IMPLEMENT_STANDARD_RTTIEXT(XmlTObjDrivers_ObjectDriver,XmlMDF_ADriver)
31
32 //=======================================================================
33 //function : XmlTObjDrivers_ObjectDriver
34 //purpose  : constructor
35 //=======================================================================
36
37 XmlTObjDrivers_ObjectDriver::XmlTObjDrivers_ObjectDriver
38                          (const Handle(Message_Messenger)& theMessageDriver)
39 : XmlMDF_ADriver( theMessageDriver, NULL)
40 {
41 }
42
43 //=======================================================================
44 //function : NewEmpty
45 //purpose  : Creates a new attribute
46 //=======================================================================
47
48 Handle(TDF_Attribute) XmlTObjDrivers_ObjectDriver::NewEmpty() const
49 {
50   return new TObj_TObject;
51 }
52
53 //=======================================================================
54 //function : Paste
55 //purpose  : Translate the contents of <aSource> and put it
56 //           into <aTarget>, using the relocation table
57 //           <aRelocTable> to keep the sharings.
58 //=======================================================================
59
60 Standard_Boolean XmlTObjDrivers_ObjectDriver::Paste
61                          (const XmlObjMgt_Persistent&  Source,
62                           const Handle(TDF_Attribute)& Target,
63                           XmlObjMgt_RRelocationTable&  /*RelocTable*/) const
64 {
65   TCollection_ExtendedString aString;
66   if (XmlObjMgt::GetExtendedString (Source, aString))
67   {
68     TCollection_AsciiString anAscii (aString);
69     Handle(TObj_Object) anObject = 
70       TObj_Persistence::CreateNewObject(anAscii.ToCString(),Target->Label());
71     Handle(TObj_TObject)::DownCast (Target) ->Set( anObject );
72     return Standard_True;
73   }
74   myMessageDriver->Send("error retrieving ExtendedString for type TObj_TModel", Message_Fail);
75   return Standard_False;
76 }
77
78 //=======================================================================
79 //function : Paste
80 //purpose  : Translate the contents of <aSource> and put it
81 //           into <aTarget>, using the relocation table
82 //           <aRelocTable> to keep the sharings.
83 //           anObject is stored as a Name of class derived from TObj_Object
84 //=======================================================================
85
86 void XmlTObjDrivers_ObjectDriver::Paste
87                          (const Handle(TDF_Attribute)& Source,
88                           XmlObjMgt_Persistent&        Target,
89                           XmlObjMgt_SRelocationTable&  /*RelocTable*/) const
90 {
91   Handle(TObj_TObject) aTObj =
92     Handle(TObj_TObject)::DownCast( Source );
93   Handle(TObj_Object) anIObject = aTObj->Get();
94   
95   XmlObjMgt::SetExtendedString (Target, anIObject->DynamicType()->Name());
96 }
97