1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
3 // This file is part of Open CASCADE Technology software library.
5 // This library is free software; you can redistribute it and/or modify it under
6 // the terms of the GNU Lesser General Public License version 2.1 as published
7 // by the Free Software Foundation, with special exception defined in the file
8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9 // distribution for complete text of the license and disclaimer of any warranty.
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
15 #include <IFGraph_SCRoots.hxx>
16 #include <IFGraph_SubPartsIterator.hxx>
17 #include <IFSelect_DispPerFiles.hxx>
18 #include <IFSelect_IntParam.hxx>
19 #include <IFSelect_Selection.hxx>
20 #include <Interface_EntityIterator.hxx>
21 #include <Interface_Graph.hxx>
22 #include <Interface_InterfaceError.hxx>
23 #include <Interface_InterfaceModel.hxx>
24 #include <Standard_Type.hxx>
25 #include <TCollection_AsciiString.hxx>
27 IMPLEMENT_STANDARD_RTTIEXT(IFSelect_DispPerFiles,IFSelect_Dispatch)
29 IFSelect_DispPerFiles::IFSelect_DispPerFiles () { }
31 Handle(IFSelect_IntParam) IFSelect_DispPerFiles::Count () const
34 void IFSelect_DispPerFiles::SetCount
35 (const Handle(IFSelect_IntParam)& pcount)
36 { thecount = pcount; }
38 Standard_Integer IFSelect_DispPerFiles::CountValue () const
40 Standard_Integer pcount = 0;
41 if (!thecount.IsNull()) pcount = thecount->Value();
42 if (pcount <= 0) pcount = 1; // option prise par defaut
46 TCollection_AsciiString IFSelect_DispPerFiles::Label () const
48 TCollection_AsciiString lab(CountValue());
49 lab.Insert(1,"Maximum ");
50 lab.AssignCat(" Files");
55 Standard_Boolean IFSelect_DispPerFiles::LimitedMax
56 (const Standard_Integer /* nbent */, Standard_Integer& pcount) const
58 pcount = CountValue();
62 void IFSelect_DispPerFiles::Packets
63 (const Interface_Graph& G, IFGraph_SubPartsIterator& packs) const
65 // Ressemble a DispPerOne, mais fait "count" AddPart racines
66 Standard_Integer pcount = CountValue();
68 IFGraph_SCRoots roots(G,Standard_False);
70 roots.GetFromIter(FinalSelection()->UniqueResult(G));
71 // SCRoots a initie la resolution : decoupage en StrongComponants + selection
72 // des racines. Un paquet correspond des lors a <count> racines
73 // Donc, il faut iterer sur les Parts de roots et les prendre par <count>
74 roots.Start(); // Start fait Evaluate specifique
75 Standard_Integer nb = roots.NbParts();
76 if (pcount > 0) pcount = (nb-1) / pcount +1; // par packet
78 Standard_Integer i = 0;
79 for (; roots.More(); roots.Next()) { // Start deja fait
80 if (i == 0) packs.AddPart();
81 i ++; if (i >= pcount) i = 0; // regroupement selon "count"
82 packs.GetFromIter(roots.Entities());