0025418: Debug output to be limited to OCC development environment
[occt.git] / src / StepData / StepData_FieldList.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 #include <StepData_FieldList.ixx>
15 #include <Standard_OutOfRange.hxx>
16
17
18 static StepData_Field nulfild;
19
20 StepData_FieldList::StepData_FieldList  ()    {  }
21
22 Standard_Integer  StepData_FieldList::NbFields () const
23 {  return 0;  }
24
25 const StepData_Field&  StepData_FieldList::Field (const Standard_Integer) const
26 {
27   Standard_OutOfRange::Raise("StepData_FieldList : Field");
28   return nulfild;
29 }
30
31 StepData_Field&  StepData_FieldList::CField (const Standard_Integer)
32 {
33   Standard_OutOfRange::Raise("StepData_FieldList : CField");
34   return nulfild;
35 }
36
37
38 void  StepData_FieldList::FillShared (Interface_EntityIterator& iter) const
39 {
40   Standard_Integer i, nb = NbFields();
41   for (i = 1; i <= nb; i ++) {
42     const StepData_Field& fi = Field(i);
43     if (fi.Kind() != 7) continue;  // KindEntity
44     Standard_Integer i1,i2, nb1 = 1, nb2 = 1, ari = fi.Arity();
45     if (ari == 1)   nb1 = fi.Length();
46     if (ari == 2) { nb1 = fi.Length(1); nb2 = fi.Length(2); }
47     for (i1 = 1; i1 <= nb1; i1 ++)
48       for (i2 = 1; i2 <= nb2; i2 ++)
49         iter.AddItem (fi.Entity(i1,i2));
50   }
51 }