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 { cout<<"DDataStd_TreeBrowser"<<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: "<<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 TCollection_AsciiString tmpStr(name->Get(),'?');
175 tmpStr.ChangeAll(' ','_');
176 aList.AssignCat(tmpStr);
178 aList.AssignCat("\"");
180 aList.AssignCat(TDF_BrowserSeparator2);
181 TCollection_ExtendedString ext;
182 if (TDF::ProgIDFromGUID(aTreeNode->ID(), ext))
183 aList.AssignCat(TCollection_AsciiString(ext,'?'));
184 else aList.AssignCat(aTreeNode->DynamicType()->Name());
185 // Executable or Forgotten? -3
186 // aList.AssignCat(TDF_BrowserSeparator2);
187 // if (aTreeNode->IsExecutable()) aList.AssignCat("Executable");
188 // else aList.AssignCat("Forgotten");
189 // Failed or Success? -4
190 // aList.AssignCat(TDF_BrowserSeparator2);
191 // if (aTreeNode->Failed()) aList.AssignCat("Failed");
192 // else aList.AssignCat("Success");
194 aList.AssignCat(TDF_BrowserSeparator2);
195 if (aTreeNode->First().IsNull()) aList.AssignCat("Null");
196 else aList.AssignCat("First");
198 aList.AssignCat(TDF_BrowserSeparator2);
199 if (!aTreeNode->HasFather()) aList.AssignCat("Null");
201 TDF_Tool::Entry(aTreeNode->Father()->Label(),tmp);
202 aList.AssignCat(tmp);
205 aList.AssignCat(TDF_BrowserSeparator2);
206 if (!aTreeNode->HasFirst()) aList.AssignCat("Null");
208 TDF_Tool::Entry(aTreeNode->First()->Label(),tmp);
209 aList.AssignCat(tmp);
212 aList.AssignCat(TDF_BrowserSeparator2);
213 if (!aTreeNode->HasNext()) aList.AssignCat("Null");
215 TDF_Tool::Entry(aTreeNode->Next()->Label(),tmp);
216 aList.AssignCat(tmp);
219 aList.AssignCat(TDF_BrowserSeparator2);
220 if (!aTreeNode->HasPrevious()) aList.AssignCat("Null");
222 TDF_Tool::Entry(aTreeNode->Previous()->Label(),tmp);
223 aList.AssignCat(tmp);