1 // Created on: 2004-11-24
2 // Created by: Edward AGAPOV
3 // Copyright (c) 2004-2014 OPEN CASCADE SAS
5 // This file is part of Open CASCADE Technology software library.
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.
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
16 // The original implementation Copyright: (C) RINA S.p.A
19 #include <BinTObjDrivers_ReferenceDriver.hxx>
20 #include <CDM_MessageDriver.hxx>
21 #include <TDF_Attribute.hxx>
22 #include <TObj_TReference.hxx>
23 #include <BinObjMgt_Persistent.hxx>
24 #include <TObj_Object.hxx>
25 #include <TObj_Model.hxx>
26 #include <TObj_Assistant.hxx>
27 #include <TDF_ChildIterator.hxx>
28 #include <TDF_Tool.hxx>
31 //=======================================================================
32 //function : BinTObjDrivers_ReferenceDriver
33 //purpose : constructor
34 //=======================================================================
36 BinTObjDrivers_ReferenceDriver::BinTObjDrivers_ReferenceDriver
37 (const Handle(CDM_MessageDriver)& theMessageDriver)
38 : BinMDF_ADriver( theMessageDriver, NULL)
42 //=======================================================================
44 //purpose : Creates a new attribute
45 //=======================================================================
47 Handle(TDF_Attribute) BinTObjDrivers_ReferenceDriver::NewEmpty() const
49 return new TObj_TReference;
52 //=======================================================================
54 //purpose : Translate the contents of <theSource> and put it
56 //=======================================================================
58 Standard_Boolean BinTObjDrivers_ReferenceDriver::Paste
59 (const BinObjMgt_Persistent& theSource,
60 const Handle(TDF_Attribute)& theTarget,
61 BinObjMgt_RRelocationTable&) const
64 TDF_Label aMasterLabel;
65 Handle(TDF_Data) aDS = theTarget->Label().Data();
66 if (! theSource.GetLabel (aDS, aMasterLabel)) return Standard_False;
69 Standard_Boolean isSameDoc = Standard_False;
70 if (! (theSource >> isSameDoc)) return Standard_False;
72 // DS for referred label
75 TCollection_AsciiString aName;
76 if (! (theSource >> aName)) return Standard_False;
77 Handle(TObj_Model) aModel = Handle(TObj_Model)::DownCast
78 ( TObj_Assistant::FindModel( aName.ToCString() ));
81 TCollection_AsciiString anEntry;
82 TDF_Tool::Entry (theTarget->Label(), anEntry);
83 WriteMessage (TCollection_ExtendedString ("TObj_TReference retrieval: ")
84 + "wrong model ID " + aName + ", entry " + anEntry);
85 return Standard_False;
87 aDS = aModel->GetLabel().Data();
91 if (! theSource.GetLabel (aDS, aLabel)) return Standard_False;
93 // set reference attribute fields
94 Handle(TObj_TReference) aTarget =
95 Handle(TObj_TReference)::DownCast (theTarget);
96 aTarget->Set ( aLabel, aMasterLabel );
98 return !aLabel.IsNull() && !aMasterLabel.IsNull();
101 //=======================================================================
103 //purpose : Translate the contents of <theSource> and put it
105 // Store master and referred labels as entry, the other model referred
106 // as entry in model-container
107 //=======================================================================
109 void BinTObjDrivers_ReferenceDriver::Paste
110 (const Handle(TDF_Attribute)& theSource,
111 BinObjMgt_Persistent& theTarget,
112 BinObjMgt_SRelocationTable&) const
114 Handle(TObj_TReference) aSource =
115 Handle(TObj_TReference)::DownCast (theSource);
117 Handle(TObj_Object) aLObject = aSource->Get();
118 if (aLObject.IsNull())
122 TDF_Label aLabel = aLObject->GetLabel();
123 TDF_Label aMasterLabel = aSource->GetMasterLabel();
124 Standard_Boolean isSameDoc = (aLabel.Root() == aMasterLabel.Root());
127 // 1 - the master label;
128 theTarget << aMasterLabel;
129 // 2 - isSameDoc flag plus may be a Model ID
130 theTarget << isSameDoc;
133 TCollection_AsciiString aName;
134 Handle(TObj_Model) aModel =
135 Handle(TObj_Model)::DownCast( aLObject->GetModel() );
136 aName = TCollection_AsciiString( aModel->GetModelName()->String() );
139 // 3 - referred label;