// Copyright (c) 1998-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

// --------------------------------------------------------------------
// 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 ;
}
*/

/* 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 ;
}