1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
// --------------------------------------------------------------------
//
// HArray2 Implementation :
//
// Last Revision : Feb,10 1992 J.P Tirault
// Implementation of ShallowCopy, ShallowDump
// methods.
// --------------------------------------------------------------------
// --------------------------------------------------------------------
// Exceptions raised
// --------------------------------------------------------------------
#include <Standard_OutOfRange.hxx>
#include <Standard_RangeError.hxx>
#include <Standard_NotImplemented.hxx>
// --------------------------------------------------------------------
// Constructor
// --------------------------------------------------------------------
PCollection_HArray2::PCollection_HArray2
(const Standard_Integer R1,
const Standard_Integer R2,
const Standard_Integer C1,
const Standard_Integer C2) : Data( (C2-C1+1)*(R2-R1+1) )
{
Standard_RangeError_Raise_if((C2-C1+1 <= 0 || R2-R1+1 <= 0 ),
"Attempt to create a Double Array with negative size");
myLowerRow = R1;
myLowerCol = C1;
myUpperRow = R2;
myUpperCol = C2;
}
// ----------------------------------------------------------------------
// datas
// ----------------------------------------------------------------------
Standard_Address PCollection_HArray2::Datas() const
{
return ((Standard_Address)Data.Lock());
}
// --------------------------------------------------------------------
// Constructor
// --------------------------------------------------------------------
PCollection_HArray2::PCollection_HArray2
(const Standard_Integer R1,
const Standard_Integer R2,
const Standard_Integer C1,
const Standard_Integer C2,
const Item& V) : Data ( (C2-C1+1)*(R2-R1+1) )
{
Standard_RangeError_Raise_if((C2-C1+1 <= 0 || R2-R1+1 <= 0 ),
"Attempt to create a Double Array with negative size");
myLowerRow = R1;
myLowerCol = C1;
myUpperRow = R2;
myUpperCol = C2;
Standard_Integer Size = Data.Length();
for (Standard_Integer I = 0; I < Size ; I++) Data.SetValue(I,V);
}
// --------------------------------------------------------------------
// Destructor : Not Implemented
// --------------------------------------------------------------------
/*
void PCollection_HArray2::~PCollection_HArray2 ()
{
delete Data ;
}
*/
// --------------------------------------------------------------------
// ShallowCopy
// --------------------------------------------------------------------
Handle(Standard_Persistent) PCollection_HArray2::ShallowCopy() const
{
PCollection_HArray2* TheCopy = new PCollection_HArray2(*this);
// PCollection_FieldOfHArray2 DataCopy (Data);
// TheCopy->Data = DataCopy;
return TheCopy;
}
// --------------------------------------------------------------------
// ShallowDump
// --------------------------------------------------------------------
void PCollection_HArray2::ShallowDump(Standard_OStream& S) const
{
::ShallowDump(Data,S);
}
/* Anciens INLINE */
// --------------------------------------------------------------------
// SetValue
// --------------------------------------------------------------------
void PCollection_HArray2::SetValue ( const Standard_Integer Row,
const Standard_Integer Col,
const Item& Value)
{
Standard_OutOfRange_Raise_if((Row <myLowerRow || Row > myUpperRow ||
Col <myLowerCol || Col > myUpperCol),
"Index out of range in HArray2::SetValue");
Data.SetValue((Row-myLowerRow)*(myUpperCol-myLowerCol+1)+
(Col-myLowerCol), Value) ;
}
// --------------------------------------------------------------------
// Value
// --------------------------------------------------------------------
Item PCollection_HArray2::Value (const Standard_Integer Row,
const Standard_Integer Col) const
{
Standard_OutOfRange_Raise_if((Row <myLowerRow || Row > myUpperRow ||
Col <myLowerCol || Col > myUpperCol),
"Index out of range in HArray2::SetValue");
return Data((Row-myLowerRow) * (myUpperCol-myLowerCol+1) +
(Col-myLowerCol)) ;
}
// ------------------------------------------------------------------
//
// ------------------------------------------------------------------
PCollection_FieldOfHArray2 PCollection_HArray2::Field () const
{
return Data ;
}
|
