src/TCollection/TCollection_Array2.gxx

   1 // Copyright (c) 1993-1999 Matra Datavision
   2 // Copyright (c) 1999-2012 OPEN CASCADE SAS
   3 //
   4 // The content of this file is subject to the Open CASCADE Technology Public
   5 // License Version 6.5 (the "License"). You may not use the content of this file
   6 // except in compliance with the License. Please obtain a copy of the License
   7 // at http://www.opencascade.org and read it completely before using this file.
   8 //
   9 // The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
  10 // main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
  11 //
  12 // The Original Code and all software distributed under the License is
  13 // distributed on an "AS IS" basis, without warranty of any kind, and the
  14 // Initial Developer hereby disclaims all such warranties, including without
  15 // limitation, any warranties of merchantability, fitness for a particular
  16 // purpose or non-infringement. Please see the License for the specific terms
  17 // and conditions governing the rights and limitations under the License.
  18
  19 #include <Standard_DimensionMismatch.hxx>
  20 #include <Standard_RangeError.hxx>
  21 #include <Standard_OutOfMemory.hxx>
  22 #include <Standard.hxx>
  23
  24 //=======================================================================
  25 //function : Allocate
  26 //purpose  : Allocate memory for the array, set up indirection table
  27 //=======================================================================
  28
  29 void TCollection_Array2::Allocate ()
  30 {
  31   Standard_Integer RowSize    = myUpperColumn-myLowerColumn+1;
  32   Standard_Integer ColumnSize = myUpperRow-myLowerRow+1;
  33
  34   if (myDeletable) {
  35     // allocation of the data in the array
  36
  37     Standard_Integer Size = RowSize * ColumnSize;
  38
  39 //  Modified by Sergey KHROMOV - Mon Feb 10 11:46:14 2003 Begin
  40 //     Standard_RangeError_Raise_if(( RowSize < 0  || ColumnSize < 0 ),
  41 //                               "TCollection_Array2::Create");
  42     Standard_RangeError_Raise_if(( RowSize <= 0  || ColumnSize <= 0 ),
  43                                  "TCollection_Array2::Create");
  44 //  Modified by Sergey KHROMOV - Mon Feb 10 11:46:15 2003 End
  45     myData = new Array2Item [Size];
  46
  47     if (!myData) Standard_OutOfMemory::Raise("Array2 : Allocation failed");
  48   }
  49
  50   // allocation of the indirection table (pointers on rows)
  51   Array2Item*  p = (Array2Item*) myData;
  52   Array2Item** q = (Array2Item**)Standard::Allocate(ColumnSize * sizeof(Array2Item*));
  53
  54   for (Standard_Integer i = 0; i < ColumnSize; i++) {
  55     q[i] = p - myLowerColumn;
  56     p += RowSize;
  57   }
  58
  59   myData = (void*) (q - myLowerRow);
  60 }
  61
  62
  63 //=======================================================================
  64 //function : Assign
  65 //purpose  :
  66 //=======================================================================
  67
  68 const TCollection_Array2& TCollection_Array2::Assign
  69   (const TCollection_Array2& Right)
  70 {
  71   Standard_Integer MaxColumn = RowLength() ;
  72   Standard_Integer MaxRow    = ColLength() ;
  73   Standard_Integer MaxSize   = MaxColumn * MaxRow;
  74
  75   Standard_DimensionMismatch_Raise_if(MaxRow != Right.ColLength() ||
  76                                       MaxColumn != Right.RowLength(),
  77                                       "Array2::Operator=");
  78
  79   Array2Item* p = &ChangeValue(myLowerRow,myLowerColumn);
  80   const Array2Item* q = &Right.Value(Right.LowerRow(),Right.LowerCol());
  81   for (Standard_Integer i=0; i<MaxSize; i++) {
  82     p[i] = q[i];
  83   }
  84   return *this;
  85 }
  86
  87