1 // SALOME SALOMEDS : data structure of SALOME and sources of Salome data server
3 // Copyright (C) 2003 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
4 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
6 // This library is free software; you can redistribute it and/or
7 // modify it under the terms of the GNU Lesser General Public
8 // License as published by the Free Software Foundation; either
9 // version 2.1 of the License.
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 // Lesser General Public License for more details.
16 // You should have received a copy of the GNU Lesser General Public
17 // License along with this library; if not, write to the Free Software
18 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 // See http://www.opencascade.org/SALOME/ or email : webmaster.salome@opencascade.org
24 // File : SALOMEDS_AttributeSequenceOfInteger_i.cxx
25 // Author : Yves FRICAUD
30 #include "SALOMEDS_AttributeSequenceOfInteger_i.hxx"
31 #include "SALOMEDS_SObject_i.hxx"
32 #include <TColStd_HSequenceOfInteger.hxx>
35 void SALOMEDS_AttributeSequenceOfInteger_i::Assign(const SALOMEDS::LongSeq& other)
38 Handle(TColStd_HSequenceOfInteger) CasCadeSeq = new TColStd_HSequenceOfInteger;
39 for (int i = 0; i < other.length(); i++) {
40 CasCadeSeq->Append(other[i]);
42 Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr)->Assign(CasCadeSeq);
45 SALOMEDS::LongSeq* SALOMEDS_AttributeSequenceOfInteger_i::CorbaSequence()
47 SALOMEDS::LongSeq_var CorbaSeq = new SALOMEDS::LongSeq;
48 Handle(SALOMEDS_SequenceOfIntegerAttribute) CasCadeSeq = Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr);
49 CorbaSeq->length(CasCadeSeq->Length());
50 for (int i = 0; i < CasCadeSeq->Length(); i++) {
51 CorbaSeq[i] = CasCadeSeq->Value(i+1);;
53 return CorbaSeq._retn();
56 void SALOMEDS_AttributeSequenceOfInteger_i::Add(CORBA::Long value)
59 Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr)->Add(value);
62 void SALOMEDS_AttributeSequenceOfInteger_i::Remove(CORBA::Long index)
65 Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr)->Remove(index);
68 void SALOMEDS_AttributeSequenceOfInteger_i::ChangeValue(CORBA::Long index, CORBA::Long value)
71 Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr)->ChangeValue(index, value);
74 CORBA::Long SALOMEDS_AttributeSequenceOfInteger_i::Value(CORBA::Short index)
76 return Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr)->Value(index);
79 CORBA::Long SALOMEDS_AttributeSequenceOfInteger_i::Length()
81 return Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr)->Length();
84 char* SALOMEDS_AttributeSequenceOfInteger_i::Store() {
85 Handle(SALOMEDS_SequenceOfIntegerAttribute) CasCadeSeq = Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr);
86 Standard_Integer aLength = CasCadeSeq->Length();
87 char* aResult = new char[aLength * 25];
89 Standard_Integer aPosition = 0;
90 for (int i = 1; i <= aLength; i++) {
91 sprintf(aResult + aPosition , "%d ", CasCadeSeq->Value(i));
92 aPosition += strlen(aResult + aPosition);
97 void SALOMEDS_AttributeSequenceOfInteger_i::Restore(const char* value) {
98 Handle(TColStd_HSequenceOfInteger) CasCadeSeq = new TColStd_HSequenceOfInteger;
100 char* aCopy = CORBA::string_dup(value);
101 char* adr = strtok(aCopy, " ");
103 CORBA::Long l = atol(adr);
104 CasCadeSeq->Append(l);
105 adr = strtok(NULL, " ");
108 Handle(SALOMEDS_SequenceOfIntegerAttribute)::DownCast(_myAttr)->Assign(CasCadeSeq);