0031501: Foundation Classes, Message_Printer - remove theToPutEndl argument -- prepar...
[occt.git] / src / IGESSelect / IGESSelect_SelectSingleViewFrom.cxx
1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
2 //
3 // This file is part of Open CASCADE Technology software library.
4 //
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.
10 //
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
13
14
15 #include <IGESData_IGESEntity.hxx>
16 #include <IGESData_IGESModel.hxx>
17 #include <IGESSelect_SelectSingleViewFrom.hxx>
18 #include <IGESSelect_ViewSorter.hxx>
19 #include <Interface_EntityIterator.hxx>
20 #include <Interface_Graph.hxx>
21 #include <Interface_InterfaceError.hxx>
22 #include <Interface_Macros.hxx>
23 #include <Standard_Type.hxx>
24 #include <TCollection_AsciiString.hxx>
25
26 IMPLEMENT_STANDARD_RTTIEXT(IGESSelect_SelectSingleViewFrom,IFSelect_SelectDeduct)
27
28 IGESSelect_SelectSingleViewFrom::IGESSelect_SelectSingleViewFrom ()    {  }
29
30     Standard_Boolean  IGESSelect_SelectSingleViewFrom::HasUniqueResult () const
31       {  return Standard_True;  }
32
33     Interface_EntityIterator  IGESSelect_SelectSingleViewFrom::RootResult
34   (const Interface_Graph& G) const
35 {
36   Handle(IGESSelect_ViewSorter) sorter = new IGESSelect_ViewSorter;
37   sorter->SetModel (GetCasted(IGESData_IGESModel,G.Model()));
38   sorter->Clear();
39   sorter->AddList (InputResult(G).Content());
40   sorter->SortSingleViews(Standard_True);
41   Interface_EntityIterator list;
42   Standard_Integer nb = sorter->NbSets(Standard_True);
43   for (Standard_Integer i = 1; i <= nb; i ++)
44     list.GetOneItem(sorter->SetItem(i,Standard_True));
45   return list;
46 }
47
48
49     TCollection_AsciiString  IGESSelect_SelectSingleViewFrom::Label () const
50       {  return TCollection_AsciiString ("Single Views attached");  }