src/TObj/TObj_OcafObjectIterator.cxx

   1 // Created on: 2004-11-23
   2 // Created by: Pavel TELKOV
   3 // Copyright (c) 2004-2014 OPEN CASCADE SAS
   4 //
   5 // This file is part of Open CASCADE Technology software library.
   6 //
   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.
  12 //
  13 // Alternatively, this file may be used under the terms of Open CASCADE
  14 // commercial license or contractual agreement.
  15
  16 // The original implementation Copyright: (C) RINA S.p.A
  17
  18 #include <TObj_OcafObjectIterator.hxx>
  19 #include <TObj_Object.hxx>
  20
  21
  22 IMPLEMENT_STANDARD_RTTIEXT(TObj_OcafObjectIterator,TObj_LabelIterator)
  23
  24 //=======================================================================
  25 //function : TObj_OcafObjectIterator
  26 //purpose  :
  27 //=======================================================================
  28
  29 TObj_OcafObjectIterator::TObj_OcafObjectIterator
  30                          (const TDF_Label&             theLabel,
  31                           const Handle(Standard_Type)& theType,
  32                           const Standard_Boolean       theRecursive)
  33      : TObj_LabelIterator( theLabel, theRecursive ), myType( theType )
  34 {
  35   MakeStep();
  36 }
  37
  38 //=======================================================================
  39 //function : MakeStep
  40 //purpose  :
  41 //=======================================================================
  42
  43 void TObj_OcafObjectIterator::MakeStep()
  44 {
  45   for(;myIterator.More() && myNode.IsNull(); )
  46   {
  47     TDF_Label L = myIterator.Value();
  48     Handle(TObj_Object) anObject;
  49     if(TObj_Object::GetObj(L,anObject))
  50     {
  51       if (myType.IsNull() || anObject->IsKind( myType ))
  52       {
  53         myObject = anObject;
  54         myNode = L;
  55       }
  56       myIterator.NextBrother();
  57     }
  58     else
  59       myIterator.Next();
  60   }
  61 }