Warnings on vc14 were eliminated
[occt.git] / src / QADNaming / QADNaming_SelectionCommands.cxx
1 // Created on: 1997-10-20
2 // Created by: Yves FRICAUD
3 // Copyright (c) 1997-1999 Matra Datavision
4 // Copyright (c) 1999-2014 OPEN CASCADE SAS
5 //
6 // This file is part of Open CASCADE Technology software library.
7 //
8 // This library is free software; you can redistribute it and/or modify it under
9 // the terms of the GNU Lesser General Public License version 2.1 as published
10 // by the Free Software Foundation, with special exception defined in the file
11 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12 // distribution for complete text of the license and disclaimer of any warranty.
13 //
14 // Alternatively, this file may be used under the terms of Open CASCADE
15 // commercial license or contractual agreement.
16
17 #include <QADNaming.hxx>
18
19 #include <DDF.hxx>
20
21 #include <TNaming_NamedShape.hxx>
22 #include <TNaming_ListOfNamedShape.hxx>
23 #include <TNaming_ListIteratorOfListOfNamedShape.hxx>
24 #include <TNaming_Tool.hxx>
25 #include <TDF_Label.hxx>
26 #include <TDF_AttributeMap.hxx>
27 #include <TDF_MapIteratorOfAttributeMap.hxx>
28 #include <TDF_ChildIterator.hxx>
29 #include <TDF_Tool.hxx>
30 #include <TNaming_Name.hxx>
31 #include <TNaming.hxx>
32 #include <TNaming_Naming.hxx>
33 #include <TNaming_MapOfNamedShape.hxx>
34 #include <TNaming_MapIteratorOfMapOfNamedShape.hxx>
35 #include <TDF_ChildIterator.hxx>
36 #include <TNaming_Selector.hxx>
37 #include <TopoDS_Shape.hxx>
38 #include <TopAbs.hxx>
39 #include <TCollection_AsciiString.hxx>
40 #include <TDF_LabelMap.hxx>
41
42 #include <DBRep.hxx>
43 #include <Draw_Appli.hxx>
44 #include <Draw.hxx>
45 #include <Draw_Interpretor.hxx>
46 #include <Draw_Drawable3D.hxx>
47 #include <DBRep.hxx>
48 #include <DBRep_DrawableShape.hxx>
49 #include <stdio.h>
50
51 //=======================================================================
52 //function : Display
53 //purpose  : 
54 //=======================================================================
55
56 static void Display (const Standard_CString Name, const TopoDS_Shape& S)
57 {  
58   //char* name = Name;
59   static Standard_Integer nbIsos  = 2;
60   static Standard_Real size    = 100.;
61   static Standard_Integer discret = 30;
62
63   Handle(DBRep_DrawableShape) D = new DBRep_DrawableShape(S,
64                                                           Draw_jaune,
65                                                           Draw_vert,
66                                                           Draw_bleu,
67                                                           Draw_rouge,
68                                                           size,
69                                                           nbIsos,
70                                                           discret);
71   Draw::Set(Name,D);
72 }
73
74 //=======================================================================
75 //function : DumpNaming
76 //purpose  : 
77 //=======================================================================
78
79 static void DumpNaming (const Handle(TNaming_Naming)& naming, Draw_Interpretor& di) 
80 {
81   TCollection_AsciiString Entry;
82   const TNaming_Name& AName = naming->GetName();
83
84   //TNaming::Print(AName.Type(),cout);
85   Standard_SStream aSStream1;
86   TNaming::Print(AName.Type(),aSStream1);
87   di << aSStream1;
88   di << " ";
89
90   //TopAbs::Print(AName.ShapeType(),cout);
91   Standard_SStream aSStream2;
92   TopAbs::Print(AName.ShapeType(),aSStream2);
93   di << aSStream2;
94
95   const TNaming_ListOfNamedShape& NSS = AName.Arguments();
96   for (TNaming_ListIteratorOfListOfNamedShape it(NSS); it.More(); it.Next()) {
97     TDF_Tool::Entry(it.Value()->Label(),Entry); 
98     di << " " << Entry.ToCString();
99   }
100   if(!AName.StopNamedShape().IsNull()) {
101     TDF_Tool::Entry(AName.StopNamedShape()->Label(),Entry); 
102     di << " Stop " << Entry.ToCString();
103   }
104 }
105
106 //=======================================================================
107 //function : SelectShape ou SelectGeometry
108 //purpose  : "Select DF entry shape [context]", 
109 //=======================================================================
110
111 static Standard_Integer QADNaming_Select (Draw_Interpretor& di, Standard_Integer n, const char** a)
112 {
113   if (n == 4 || n == 5) {
114     Standard_Boolean geometry = (strcmp(a[0],"SelectGeometry")==0?1:0); 
115     Handle(TDF_Data) DF;
116     if(!DDF::GetDF(a[1], DF))  return 1;
117     TDF_Label L;
118     DDF::AddLabel(DF,a[2],L);
119     TNaming_Selector SL (L);
120     if (n == 4) {
121       TopoDS_Shape S = DBRep::Get(a[3], TopAbs_SHAPE);  
122       SL.Select (S, geometry); 
123     }
124     if (n == 5) {  
125       TopoDS_Shape S = DBRep::Get(a[3], TopAbs_SHAPE);
126       TopoDS_Shape C = DBRep::Get(a[4], TopAbs_SHAPE);
127       SL.Select (S, C, geometry); 
128     }
129     return 0;  
130   }
131   di << "QADNaming_Select : Error\n";
132   return 1;
133 }
134
135 //=======================================================================
136 //function : SolveSelection
137 //purpose  : "SolveSelection DF entry", 
138 //=======================================================================
139
140 static Standard_Integer QADNaming_SolveSelection (Draw_Interpretor& di, Standard_Integer n, const char** a)
141 {
142   if (n >= 3) {
143     TDF_Label aLabel;
144     if (!QADNaming::Entry(a, aLabel)) return 1;
145     char name[100];
146     TNaming_Selector SL (aLabel);
147     TDF_LabelMap valid;
148     Standard_Integer i;
149     for(i=3;i<n;i++) {
150       TDF_Label aValidLab;
151       if (!DDF::FindLabel(aLabel.Data(),a[i],aValidLab)) di<<"Warning: label "<<a[i]<<" not exists\n";
152       else valid.Add(aValidLab);
153     }
154     Standard_Boolean done = SL.Solve(valid);
155     TopoDS_Shape Res = TNaming_Tool::CurrentShape(SL.NamedShape());
156     //TopoDS_Shape Res = TNaming_Tool::CurrentShape(NS);
157     Sprintf (name,"%s_%s","new",a[2]);
158     Display (name,Res);
159     return done?0:1;
160   }
161   di << "Usage:  DumpSelection DF entry [validlabel1 validlabel2 ...]\n";
162   return 1;
163 }
164
165 //=======================================================================
166 //function : DumpSelection
167 //purpose  : DumpSelection DF entry (R)
168 //=======================================================================
169
170 static Standard_Integer QADNaming_DumpSelection (Draw_Interpretor& di, 
171                                               Standard_Integer n, const char** a)
172 {
173   if (n == 3 || n == 4) { 
174     Handle(TDF_Data) DF;
175     if (!DDF::GetDF(a[1],DF)) return 1;  
176     TDF_Label L;
177     if (!DDF::FindLabel(DF,a[2],L)) return 1;
178     Handle(TNaming_Naming) naming;
179     if (!L.FindAttribute(TNaming_Naming::GetID(),naming)) {  
180       di <<"QADNaming_DumpSelection : not a selection\n";
181       return 1;
182     }
183     DumpNaming(naming, di);
184     di << "\n";
185     if (n == 4) { 
186       Standard_Integer depth = L.Depth();  
187       Standard_Integer curdepth = 0;
188       TCollection_AsciiString Entry;
189       TDF_ChildIterator it (naming->Label(),Standard_True);
190       for (;it.More();it.Next()) {
191         if (it.Value().FindAttribute(TNaming_Naming::GetID(),naming)) { 
192           curdepth = (naming->Label().Depth()- depth);
193           for (Standard_Integer i = 1; i <= curdepth; i++) di << " ";    
194           TDF_Tool::Entry (naming->Label(),Entry); 
195           di << Entry.ToCString() << " "; 
196           DumpNaming(naming, di);
197           di << "\n";
198         }
199       }
200     }
201     return 0;
202   }
203   di << "QADNaming_DumpSelection : Error\n";
204   return 1;  
205 }
206
207 //=======================================================================
208 //function : ArgsSelection
209 //purpose  : ArgsSelection DF entry
210 //=======================================================================
211
212 static Standard_Integer QADNaming_ArgsSelection (Draw_Interpretor& di, 
213                                               Standard_Integer n, const char** a)
214 {
215   if (n == 3) { 
216     Handle(TDF_Data) DF;
217     if (!DDF::GetDF(a[1],DF)) return 1;  
218     TDF_Label L;
219     if (!DDF::FindLabel(DF,a[2],L)) return 1;
220     Handle(TNaming_Naming) naming;
221     if (!L.FindAttribute(TNaming_Naming::GetID(),naming)) {  
222       di <<"QADNaming_DumpSelection : not a selection\n";
223       return 1;
224     }  
225     TCollection_AsciiString Entry;
226     TNaming_Selector SL (L);
227     di <<" Selection Arguments : ";
228     TDF_AttributeMap args;
229     SL.Arguments(args);
230     for (TDF_MapIteratorOfAttributeMap it(args); it.More(); it.Next()) {
231       TDF_Tool::Entry(it.Key()->Label(),Entry); 
232       di << Entry.ToCString() << " ";
233     }
234     di << "\n";
235     return 0;
236   }
237   di << "QADNaming_ArgsSelection : Error\n";
238   return 1;  
239 }
240
241 //=======================================================================
242 //function : CollectAttachment
243 //purpose  : 
244 //=======================================================================
245
246 static void CollectAttachment (const TDF_Label& root,
247                                const Handle(TNaming_Naming)& naming, 
248                                TNaming_MapOfNamedShape& attachment)
249 {
250   TNaming_ListIteratorOfListOfNamedShape itarg;
251   const TNaming_ListOfNamedShape& args = naming->GetName().Arguments();
252   for (itarg.Initialize(args);itarg.More();itarg.Next()) {
253     if (!itarg.Value()->Label().IsDescendant(root)) attachment.Add(itarg.Value());
254   }  
255   Handle(TNaming_Naming) subnaming; 
256   for (TDF_ChildIterator it(naming->Label(),Standard_True);it.More();it.Next()) {
257     if (it.Value().FindAttribute(TNaming_Naming::GetID(),subnaming)) {   
258       const TNaming_ListOfNamedShape& subargs = subnaming->GetName().Arguments();
259       for (itarg.Initialize(subargs);itarg.More();itarg.Next()) {
260         if (!itarg.Value()->Label().IsDescendant(root)) attachment.Add(itarg.Value());
261       }
262     }
263   }
264 }  
265
266
267 //=======================================================================
268 //function : Attachment
269 //purpose  : Attachment DF entry
270 //=======================================================================
271
272 static Standard_Integer QADNaming_Attachment (Draw_Interpretor& di, 
273                                             Standard_Integer n, 
274                                             const char** a)
275 {
276   if (n == 3) { 
277     Handle(TDF_Data) DF;
278     if (!DDF::GetDF(a[1],DF)) return 1;  
279     TDF_Label L;
280     if (!DDF::FindLabel(DF,a[2],L)) return 1;  
281     Handle(TNaming_Naming) naming; 
282     TNaming_MapOfNamedShape attachment;
283     if (L.FindAttribute(TNaming_Naming::GetID(),naming)) {
284       CollectAttachment (L,naming,attachment);
285     }
286     else {
287       for (TDF_ChildIterator it (L,Standard_True); it.More();it.Next()) {
288         if (it.Value().FindAttribute(TNaming_Naming::GetID(),naming)) {
289           CollectAttachment (L,naming,attachment);
290           it.NextBrother();
291         }
292       }
293     }
294     TCollection_AsciiString Entry;   
295     TDF_Tool::Entry(L,Entry); 
296     di << " Attachment of " << Entry.ToCString();
297     di << "\n";
298     for (TNaming_MapIteratorOfMapOfNamedShape ita (attachment); ita.More(); ita.Next()) {
299       TDF_Tool::Entry (ita.Key()->Label(),Entry); 
300       di << Entry.ToCString() << " ";
301     }
302     di << "\n";
303     return 0;
304   }
305   di << "QADNaming_Attachment : Error\n";
306   return 1;  
307 }
308
309 //=======================================================================
310 //function : SelectionCommands
311 //purpose  : 
312 //=======================================================================
313
314 void QADNaming::SelectionCommands(Draw_Interpretor& theCommands) 
315 {
316   
317   static Standard_Boolean done = Standard_False;
318   if (done) return;
319   done = Standard_True;
320   
321   const char* g = "Naming data commands";
322
323   theCommands.Add("SelectShape",
324                   "SelectShape DF entry shape [context]", 
325                   __FILE__, QADNaming_Select, g);
326   
327   theCommands.Add("SelectGeometry",
328                   "SelectGeometry DF entry shape [context]", 
329                   __FILE__, QADNaming_Select, g);
330   
331   theCommands.Add("DumpSelection",         
332                   "DumpSelected DF entry", 
333                   __FILE__, QADNaming_DumpSelection, g);    
334
335   theCommands.Add("ArgsSelection",         
336                   "ArgsSelection DF entry", 
337                   __FILE__, QADNaming_ArgsSelection, g);  
338
339   theCommands.Add("SolveSelection",         
340                   "DumpSelection DF entry [validlabel1 validlabel2 ...]", 
341                   __FILE__, QADNaming_SolveSelection, g);  
342
343   theCommands.Add("Attachment",         
344                   "Attachment DF entry", 
345                   __FILE__, QADNaming_Attachment, g);
346
347 }