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.
15 #include <Interface_Check.hxx>
16 #include <Interface_EntityIterator.hxx>
17 #include <Interface_InterfaceMismatch.hxx>
18 #include <Standard_Type.hxx>
19 #include <StepData_ESDescr.hxx>
20 #include <StepData_Field.hxx>
21 #include <StepData_FieldListN.hxx>
22 #include <StepData_Simple.hxx>
24 StepData_Simple::StepData_Simple (const Handle(StepData_ESDescr)& descr)
25 : StepData_Described (descr) , thefields (descr->NbFields()) { }
27 Handle(StepData_ESDescr) StepData_Simple::ESDescr () const
28 { return Handle(StepData_ESDescr)::DownCast (Description()); }
30 Standard_CString StepData_Simple::StepType () const
31 { return ESDescr()->TypeName(); }
34 Standard_Boolean StepData_Simple::IsComplex () const
35 { return Standard_False; }
37 Standard_Boolean StepData_Simple::Matches (const Standard_CString steptype) const
38 { return ESDescr()->Matches (steptype); }
40 Handle(StepData_Simple) StepData_Simple::As (const Standard_CString steptype) const
42 Handle(StepData_Simple) nulent;
43 if (Matches(steptype)) return this;
48 Standard_Boolean StepData_Simple::HasField (const Standard_CString name) const
50 Standard_Integer num = ESDescr()->Rank (name);
54 const StepData_Field& StepData_Simple::Field (const Standard_CString name) const
56 Standard_Integer num = ESDescr()->Rank (name);
57 if (num == 0) Interface_InterfaceMismatch::Raise("StepData_Simple : Field");
58 return FieldNum (num);
61 StepData_Field& StepData_Simple::CField (const Standard_CString name)
63 Standard_Integer num = ESDescr()->Rank (name);
64 if (num == 0) Interface_InterfaceMismatch::Raise("StepData_Simple : Field");
65 return CFieldNum (num);
68 Standard_Integer StepData_Simple::NbFields () const
69 { return thefields.NbFields(); }
71 const StepData_Field& StepData_Simple::FieldNum (const Standard_Integer num) const
72 { return thefields.Field(num); }
74 StepData_Field& StepData_Simple::CFieldNum (const Standard_Integer num)
75 { return thefields.CField(num); }
77 const StepData_FieldListN& StepData_Simple::Fields () const
80 StepData_FieldListN& StepData_Simple::CFields ()
84 void StepData_Simple::Check(Handle(Interface_Check)& /*ach*/) const
86 } // qq chose ? cf la description
89 void StepData_Simple::Shared (Interface_EntityIterator& list) const
91 Standard_Integer i, nb = thefields.NbFields();
92 for (i = 1; i <= nb; i ++) {
93 const StepData_Field& fi = thefields.Field(i);
94 Standard_Integer j1,j2,l1,l2; l1 = l2 = 1;
95 if (fi.Arity() >= 1) l1 = fi.Length(1);
96 if (fi.Arity() > 1) l2 = fi.Length(2);
97 for (j1 = 1; j1 <= l1; j1 ++) {
98 for (j2 = 1; j2 <= l2; j2 ++) {
99 Handle(Standard_Transient) ent = fi.Entity(j1,j2);
100 if (!ent.IsNull()) list.AddItem(ent);