1 // Created by: DAUTRY Philippe
2 // Copyright (c) 1997-1999 Matra Datavision
3 // Copyright (c) 1999-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 // --------------------
18 //Version Date Purpose
19 // 0.0 Nov 27 1997 Creation
21 #include <DDataStd.hxx>
22 #include <DDataStd_TreeBrowser.hxx>
23 #include <Draw_Display.hxx>
24 #include <Draw_Drawable3D.hxx>
25 #include <Standard_Type.hxx>
26 #include <TCollection_AsciiString.hxx>
27 #include <TCollection_ExtendedString.hxx>
28 #include <TDataStd_Name.hxx>
29 #include <TDataStd_TreeNode.hxx>
31 #include <TDF_Label.hxx>
32 #include <TDF_Tool.hxx>
34 IMPLEMENT_STANDARD_RTTIEXT(DDataStd_TreeBrowser,Draw_Drawable3D)
36 //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
37 // Communication convention with tcl:
38 // tcl waits for a string of characters, being an information list.
39 // In this list, each item is separated from another by a separator: '\'.
40 //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
41 #define TDF_BrowserSeparator1 '\\'
42 #define TDF_BrowserSeparator2 ' '
43 #define TDF_BrowserSeparator3 '#'
44 #define TDF_BrowserSeparator4 ','
47 //=======================================================================
48 //function : DDesign_TreeNodeBrowser
50 //=======================================================================
52 DDataStd_TreeBrowser::DDataStd_TreeBrowser(const TDF_Label& aLabel)
57 //=======================================================================
60 //=======================================================================
62 void DDataStd_TreeBrowser::DrawOn(Draw_Display& /*dis*/) const
63 { std::cout<<"DDataStd_TreeBrowser"<<std::endl; }
66 //=======================================================================
69 //=======================================================================
71 Handle(Draw_Drawable3D) DDataStd_TreeBrowser::Copy() const
72 { return new DDataStd_TreeBrowser(myRoot); }
75 //=======================================================================
78 //=======================================================================
80 void DDataStd_TreeBrowser::Dump(Standard_OStream& S) const
82 S<<"DDataStd_TreeBrowser on a label: "<<std::endl;
87 //=======================================================================
90 //=======================================================================
92 void DDataStd_TreeBrowser::Whatis(Draw_Interpretor& I) const
93 { I<<"function browser"; }
96 //=======================================================================
99 //=======================================================================
101 void DDataStd_TreeBrowser::Label(const TDF_Label& aLabel)
105 //=======================================================================
108 //=======================================================================
110 TDF_Label DDataStd_TreeBrowser::Label() const
114 //=======================================================================
115 //function : OpenRoot
117 //=======================================================================
119 TCollection_AsciiString DDataStd_TreeBrowser::OpenRoot() const
121 TCollection_AsciiString list;
122 Handle(TDataStd_TreeNode) TN;
123 if (myRoot.FindAttribute (TDataStd_TreeNode::GetDefaultTreeID(),TN)) {
130 //=======================================================================
131 //function : OpenNode
133 // the items are separated by "\\".
134 //=======================================================================
136 TCollection_AsciiString DDataStd_TreeBrowser::OpenNode(const TDF_Label& aLabel) const
138 TCollection_AsciiString list;
139 Handle(TDataStd_TreeNode) nodeToOpen;
140 if (aLabel.FindAttribute(TDataStd_TreeNode::GetDefaultTreeID(), nodeToOpen)) {
141 Standard_Boolean split = Standard_False;
142 Handle(TDataStd_TreeNode) current = nodeToOpen->First();
143 while (!current.IsNull()) {
144 if (split) list.AssignCat(TDF_BrowserSeparator1);
145 OpenNode(current,list);
146 split = Standard_True;
147 current = current->Next();
154 //=======================================================================
155 //function : OpenNode
157 // An item is composed as follows:
158 // "LabelEntry "Name" DynamicType Executable|Forgotten Failed|Success First|Null [ LabelFather]"
159 // First/Null : has/has not child
160 //=======================================================================
162 void DDataStd_TreeBrowser::OpenNode (const Handle(TDataStd_TreeNode)& aTreeNode,
163 TCollection_AsciiString& aList) const
166 TCollection_AsciiString tmp;
167 TDF_Tool::Entry(aTreeNode->Label(),tmp);
168 aList.AssignCat(tmp);
170 aList.AssignCat(TDF_BrowserSeparator2);
171 Handle(TDataStd_Name) name;
172 aList.AssignCat("\"");
173 if (aTreeNode->Label().FindAttribute(TDataStd_Name::GetID(),name)) {
174 aList.AssignCat(name->Get());
176 aList.AssignCat("\"");
178 aList.AssignCat(TDF_BrowserSeparator2);
179 TCollection_ExtendedString ext;
180 if (TDF::ProgIDFromGUID(aTreeNode->ID(), ext))
181 aList.AssignCat(ext);
182 else aList.AssignCat(aTreeNode->DynamicType()->Name());
183 // Executable or Forgotten? -3
184 // aList.AssignCat(TDF_BrowserSeparator2);
185 // if (aTreeNode->IsExecutable()) aList.AssignCat("Executable");
186 // else aList.AssignCat("Forgotten");
187 // Failed or Success? -4
188 // aList.AssignCat(TDF_BrowserSeparator2);
189 // if (aTreeNode->Failed()) aList.AssignCat("Failed");
190 // else aList.AssignCat("Success");
192 aList.AssignCat(TDF_BrowserSeparator2);
193 if (aTreeNode->First().IsNull()) aList.AssignCat("Null");
194 else aList.AssignCat("First");
196 aList.AssignCat(TDF_BrowserSeparator2);
197 if (!aTreeNode->HasFather()) aList.AssignCat("Null");
199 TDF_Tool::Entry(aTreeNode->Father()->Label(),tmp);
200 aList.AssignCat(tmp);
203 aList.AssignCat(TDF_BrowserSeparator2);
204 if (!aTreeNode->HasFirst()) aList.AssignCat("Null");
206 TDF_Tool::Entry(aTreeNode->First()->Label(),tmp);
207 aList.AssignCat(tmp);
210 aList.AssignCat(TDF_BrowserSeparator2);
211 if (!aTreeNode->HasNext()) aList.AssignCat("Null");
213 TDF_Tool::Entry(aTreeNode->Next()->Label(),tmp);
214 aList.AssignCat(tmp);
217 aList.AssignCat(TDF_BrowserSeparator2);
218 if (!aTreeNode->HasPrevious()) aList.AssignCat("Null");
220 TDF_Tool::Entry(aTreeNode->Previous()->Label(),tmp);
221 aList.AssignCat(tmp);