1 // Copyright (c) 1999-2012 OPEN CASCADE SAS
3 // The content of this file is subject to the Open CASCADE Technology Public
4 // License Version 6.5 (the "License"). You may not use the content of this file
5 // except in compliance with the License. Please obtain a copy of the License
6 // at http://www.opencascade.org and read it completely before using this file.
8 // The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
9 // main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
11 // The Original Code and all software distributed under the License is
12 // distributed on an "AS IS" basis, without warranty of any kind, and the
13 // Initial Developer hereby disclaims all such warranties, including without
14 // limitation, any warranties of merchantability, fitness for a particular
15 // purpose or non-infringement. Please see the License for the specific terms
16 // and conditions governing the rights and limitations under the License.
19 #include <RWStepBasic_RWDerivedUnit.ixx>
20 #include <StepBasic_DerivedUnitElement.hxx>
21 #include <StepBasic_HArray1OfDerivedUnitElement.hxx>
24 #include <Interface_EntityIterator.hxx>
27 #include <StepBasic_DerivedUnit.hxx>
30 RWStepBasic_RWDerivedUnit::RWStepBasic_RWDerivedUnit () {}
32 void RWStepBasic_RWDerivedUnit::ReadStep
33 (const Handle(StepData_StepReaderData)& data,
34 const Standard_Integer num,
35 Handle(Interface_Check)& ach,
36 const Handle(StepBasic_DerivedUnit)& ent) const
40 // --- Number of Parameter Control ---
42 if (!data->CheckNbParams(num,1,ach,"derived_unit")) return;
44 // --- own field : elements ---
46 Handle(StepBasic_HArray1OfDerivedUnitElement) elts;
47 Handle(StepBasic_DerivedUnitElement) anelt;
48 Standard_Integer nsub1;
49 if (data->ReadSubList (num,1,"elements",ach,nsub1)) {
50 Standard_Integer nb1 = data->NbParams(nsub1);
51 elts = new StepBasic_HArray1OfDerivedUnitElement (1,nb1);
52 for (Standard_Integer i1 = 1; i1 <= nb1; i1 ++) {
53 //szv#4:S4163:12Mar99 `Standard_Boolean st1 =` not needed
54 if (data->ReadEntity (nsub1,i1,"element",ach,STANDARD_TYPE(StepBasic_DerivedUnitElement),anelt))
55 elts->SetValue (i1,anelt);
59 //--- Initialisation of the read entity ---
66 void RWStepBasic_RWDerivedUnit::WriteStep
67 (StepData_StepWriter& SW,
68 const Handle(StepBasic_DerivedUnit)& ent) const
71 // --- own field : dimensions ---
73 Standard_Integer i, nb = ent->NbElements();
75 for (i = 1; i <= nb; i ++) {
76 SW.Send (ent->ElementsValue(i));
82 void RWStepBasic_RWDerivedUnit::Share(const Handle(StepBasic_DerivedUnit)& ent, Interface_EntityIterator& iter) const
85 Standard_Integer i, nb = ent->NbElements();
86 for (i = 1; i <= nb; i ++) {
87 iter.GetOneItem(ent->ElementsValue(i));