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.
14 #include <StepData_FieldList.ixx>
15 #include <Standard_OutOfRange.hxx>
18 static StepData_Field nulfild;
20 StepData_FieldList::StepData_FieldList () { }
22 Standard_Integer StepData_FieldList::NbFields () const
25 const StepData_Field& StepData_FieldList::Field (const Standard_Integer) const
27 Standard_OutOfRange::Raise("StepData_FieldList : Field");
31 StepData_Field& StepData_FieldList::CField (const Standard_Integer)
33 Standard_OutOfRange::Raise("StepData_FieldList : CField");
38 void StepData_FieldList::FillShared (Interface_EntityIterator& iter) const
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));