1 // Copyright (c) 2015 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 <StdLPersistent_NamedData.hxx>
16 #include <TColStd_DataMapOfStringInteger.hxx>
17 #include <TDataStd_DataMapOfStringReal.hxx>
18 #include <TDataStd_DataMapOfStringString.hxx>
19 #include <TDataStd_DataMapOfStringByte.hxx>
20 #include <TDataStd_DataMapOfStringHArray1OfInteger.hxx>
21 #include <TDataStd_DataMapOfStringHArray1OfReal.hxx>
24 static const TCollection_ExtendedString&
25 String (Handle(StdObjMgt_Persistent) theValue)
28 return theValue->ExtString()->String();
30 static TCollection_ExtendedString anEmptyString;
34 template <class HArray>
35 static typename HArray::ArrayHandle
36 Array (Handle(StdObjMgt_Persistent) theValue)
38 Handle(HArray) anArray = Handle(HArray)::DownCast (theValue);
39 return anArray ? anArray->Array() : NULL;
42 //=======================================================================
44 //purpose : Import transient attribuite from the persistent data
45 //=======================================================================
46 void StdLPersistent_NamedData::Import
47 (const Handle(TDataStd_NamedData)& theAttribute) const
49 if (myDimensions.IsNull())
54 TColStd_DataMapOfStringInteger aMap;
55 for (Standard_Integer i = lower(0); i <= upper(0); i++)
56 aMap.Bind (myInts.Key(i), myInts.Value(i));
58 theAttribute->ChangeIntegers (aMap);
63 TDataStd_DataMapOfStringReal aMap;
64 for (Standard_Integer i = lower(1); i <= upper(1); i++)
65 aMap.Bind (myReals.Key(i), myReals.Value(i));
67 theAttribute->ChangeReals (aMap);
72 TDataStd_DataMapOfStringString aMap;
73 for (Standard_Integer i = lower(2); i <= upper(2); i++)
74 aMap.Bind (myStrings.Key(i), String (myStrings.Value(i)));
76 theAttribute->ChangeStrings (aMap);
81 TDataStd_DataMapOfStringByte aMap;
82 for (Standard_Integer i = lower(3); i <= upper(3); i++)
83 aMap.Bind (myBytes.Key(i), myBytes.Value(i));
85 theAttribute->ChangeBytes (aMap);
90 TDataStd_DataMapOfStringHArray1OfInteger aMap;
91 for (Standard_Integer i = lower(4); i <= upper(4); i++)
92 aMap.Bind (myIntArrays.Key(i),
93 Array<StdLPersistent_HArray1::Integer> (myIntArrays.Value(i)));
95 theAttribute->ChangeArraysOfIntegers (aMap);
100 TDataStd_DataMapOfStringHArray1OfReal aMap;
101 for (Standard_Integer i = lower(5); i <= upper(5); i++)
102 aMap.Bind (myRealArrays.Key(i),
103 Array<StdLPersistent_HArray1::Real> (myRealArrays.Value(i)));
105 theAttribute->ChangeArraysOfReals (aMap);
110 StdLPersistent_NamedData::lower (Standard_Integer theIndex) const
112 const Handle(TColStd_HArray2OfInteger)& aDimensions = myDimensions->Array();
113 return aDimensions->Value (aDimensions->LowerRow() + theIndex,
114 aDimensions->LowerCol());
118 StdLPersistent_NamedData::upper (Standard_Integer theIndex) const
120 const Handle(TColStd_HArray2OfInteger)& aDimensions = myDimensions->Array();
121 return aDimensions->Value (aDimensions->LowerRow() + theIndex,
122 aDimensions->UpperCol());