0024530: TKMesh - remove unused package IntPoly
[occt.git] / src / StepData / StepData_FieldList.cxx
... / ...
CommitLineData
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
6// under the terms of the GNU Lesser General Public 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
18static StepData_Field nulfild;
19
20StepData_FieldList::StepData_FieldList () { }
21
22Standard_Integer StepData_FieldList::NbFields () const
23{ return 0; }
24
25const StepData_Field& StepData_FieldList::Field (const Standard_Integer) const
26{
27 Standard_OutOfRange::Raise("StepData_FieldList : Field");
28 return nulfild;
29}
30
31StepData_Field& StepData_FieldList::CField (const Standard_Integer)
32{
33 Standard_OutOfRange::Raise("StepData_FieldList : CField");
34 return nulfild;
35}
36
37
38void 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}