multitab.h

Go to the documentation of this file.

// Copyright (C) 1997-2010 by Pawel Pilarczyk.
//
// This file is part of the Homology Library.  This library is free software;
// you can redistribute it and/or modify it under the terms of the GNU
// General Public License as published by the Free Software Foundation;
// either version 2 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License along
// with this software; see the file "license.txt".  If not, write to the
// Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
// MA 02111-1307, USA.

// Started in January 2002. Last revision: February 21, 2007.


#ifndef _CHOMP_STRUCT_MULTITAB_H_
#define _CHOMP_STRUCT_MULTITAB_H_

#include "chomp/system/config.h"
//#include "chomp/system/textfile.h"
//#include "chomp/struct/integer.h"

//#include <cstdlib>
//#include <ctime>
//#include <iostream>

namespace chomp {
namespace homology {


// --------------------------------------------------
// ------------------- swap data --------------------
// --------------------------------------------------

template <typename T>
inline void my_swap (T &x, T &y)
{
        T tmp = x;
        x = y;
        y = tmp;
        return;
} /* my_swap */


// --------------------------------------------------
// ------------------ multi table -------------------
// --------------------------------------------------

#define DEFAULTPIECESIZE 32

template <class element>
class multitable
{
public:
        multitable (int piecesize = 0);

        multitable (const multitable<element> &m);

        multitable<element> &operator = (const multitable<element> &m);

        ~multitable ();

        element &operator [] (int_t n);

        const element &operator () (int_t n) const;

        const element &operator [] (int_t n) const;

        void allocate (int_t n);

        void fill (const element &e, int_t n);

        void swap (multitable<element> &other);

private:
        int_t npieces;

        int shiftbits;

        int offsetmask;

        element **tab;

        void increase (int_t n);

}; /* class multitable */

// --------------------------------------------------

template <class element>
inline multitable<element>::multitable (int piecesize)
{
        tab = 0;
        npieces = 0;
        if (piecesize <= 0)
                piecesize = DEFAULTPIECESIZE;
        shiftbits = 1;
        while ((1 << shiftbits) < piecesize)
                ++ shiftbits;
        offsetmask = (1 << shiftbits) - 1;
        return;
} /* multitable<element>::multitable */

template <class element>
multitable<element>::multitable (const multitable<element> &m):
        npieces (m. npieces), shiftbits (m. shiftbits),
        offsetmask (m. offsetmask)
{
        int piecesize = 1 << shiftbits;
        tab = new element * [npieces];
        if (!tab)
                throw "Cannot alloc mem in copying constructor of a table.";
        for (int_t i = 0; i < npieces; ++ i)
        {
                if (m. tab [i])
                {
                        tab [i] = new element [piecesize];
                        if (!tab [i])
                                throw "No memory in copying constr.";
                        for (int j = 0; j < piecesize; ++ j)
                                tab [i] [j] = m. tab [i] [j];
                }
                else
                {
                        tab [i] = 0;
                }
        }
        return;
} /* multitable<element>::multitable */

template <class element>
multitable<element> &multitable<element>::operator =
        (const multitable<element> &m)
{
        // if this is the same object then do nothing
        if (this == &m)
                return *this;

        // have all the tables been deallocated?
        int deallocated = 0;

        // if the size of pieces does not match, they must be deallocated
        if (shiftbits != m. shiftbits)
        {
                // deallocate all the pieces
                for (int_t i = 0; i < npieces; ++ i)
                {
                        if (tab [i])
                        {
                                delete [] tab [i];
                                tab [i] = 0;
                        }
                }
                deallocated = 1;
                shiftbits = m. shiftbits;
                offsetmask = m. offsetmask;
        }

        // if the number of pieces is not the same, change the table
        // and for the moment gather in the new table all the pieces
        // that are already allocated
        if (npieces != m. npieces)
        {
                // allocate a new table of pieces
                element **newtab = (m. npieces) ?
                        (new element * [m. npieces]) : 0;
                if (!newtab && m. npieces)
                        throw "No memory for a table in operator =.";

                // if there may be some not deallocated elements,
                // gather them at the beginning of the table
                // and set the rest of the pointers to 0s
                if (!deallocated)
                {
                        // 'i' points to the current entry in the new table,
                        // 'j' points to the current entry in the old table
                        int_t i = 0;
                        int_t j = 0;
                        while (i < m. npieces)
                        {
                                // find an allocated piece in the old table
                                while ((j < npieces) && !tab [j])
                                        ++ j;
                                // if found, take it to the new table
                                if (j < npieces)
                                        newtab [i ++] = tab [j ++];
                                // otherwise zero the rest of the new table
                                else
                                {
                                        while (i < m. npieces)
                                                newtab [i ++] = 0;
                                }
                        }
                        // if there are some pieces remaining, delete them
                        while (j < npieces)
                        {
                                if (tab [j])
                                        delete [] tab [j];
                                ++ j;
                        }
                }
                else
                {
                        for (int_t i = 0; i < m. npieces; ++ i)
                                newtab [i] = 0;
                }

                if (tab)
                        delete [] tab;
                tab = newtab;
                npieces = m. npieces;
        }

        // if the table is empty, then finish now
        if (!npieces)
                return *this;

        // copy the data from 'm' to the current table;
        // try to use pieces which are already allocated
        int_t first_nonempty = 0;
        int_t first_empty = 0;
        int_t pos = 0;
        int piecesize = 1 << shiftbits;

        // find the first nonempty piece and the first empty one
        while ((first_nonempty < npieces) && !tab [first_nonempty])
                ++ first_nonempty;
        while ((first_empty < npieces) && tab [first_empty])
                ++ first_empty;

        // copy all the pieces
        while (pos < npieces)
        {
                if (m. tab [pos])
                {
                        if (!tab [pos])
                        {
                                if (first_nonempty < npieces)
                                {
                                        tab [pos] = tab [first_nonempty];
                                        tab [first_nonempty ++] = 0;
                                }
                                else
                                {
                                        tab [pos] = new element [piecesize];
                                        if (!tab [pos])
                                                throw "Error in operator =.";
                                }
                                ++ first_empty;
                        }
                        else
                        {
                                ++ first_nonempty;
                        }

                        // copy the source piece to this piece
                        for (int i = 0; i < piecesize; ++ i)
                                tab [pos] [i] = m. tab [pos] [i];
                }
                else if (tab [pos])
                {
                        if (first_empty < npieces)
                        {
                                tab [first_empty] = tab [pos];
                                ++ first_empty;
                        }
                        else
                                delete [] tab [pos];
                        ++ first_nonempty;
                        tab [pos] = 0;
                }
                else
                {
                        ++ first_empty;
                }

                // move to the next position
                ++ pos;

                // update pointers to the first available [non]empty piece
                while ((first_nonempty < npieces) && !tab [first_nonempty])
                        ++ first_nonempty;
                while ((first_empty < npieces) && tab [first_empty])
                        ++ first_empty;
        }

        return *this;
} /* multitable<element>::operator = */

template <class element>
inline multitable<element>::~multitable ()
{
        if (!tab)
                return;
        for (int_t i = 0; i < npieces; ++ i)
        {
                if (tab [i])
                        delete [] tab [i];
        }
        delete [] tab;
        return;
} /* multitable<element>::~multitable */

template <class element>
inline element &multitable<element>::operator [] (int_t n)
{
        if (n < 0)
                throw "Negative index of an element in a table used.";

        // calculate the number of piece of interest
        int_t piece = n >> shiftbits;

        // increase the number of pieces if necessary
        if (piece >= npieces)
        {
                int_t newnpieces = (npieces << 1) + 1;
                if (newnpieces <= piece)
                        newnpieces = piece + 1;
                increase (newnpieces);
        }

        // allocate the piece if necessary
        if (!tab [piece])
        {
                tab [piece] = new element [1 << shiftbits];
                if (!tab [piece])
                        throw "Cannot allocate a piece of a table";
        }

        return tab [piece] [n & offsetmask];
} /* multitable<element>::operator [] */

template <class element>
inline const element &multitable<element>::operator () (int_t n) const
{
        if (n < 0)
                throw "Negative index of an element in a table used.";

        // calculate the number of piece of interest
        int_t piece = n >> shiftbits;

        if ((piece >= npieces) || (!tab [piece]))
                throw "Non-existent table entry requested.";

        return tab [piece] [n & offsetmask];
} /* multitable<element>::operator () */

template <class element>
inline const element &multitable<element>::operator [] (int_t n) const
{
        return (*this) (n);
} /* multitable<element>::operator [] const */

template <class element>
void multitable<element>::allocate (int_t n)
{
        if (n <= 0)
                return;
        int piecesize = 1 << shiftbits;
        int_t necessarypieces = (n + piecesize - 1) / piecesize;

        // allocate more pieces if needed
        if (necessarypieces > npieces)
                increase (necessarypieces);

        // deallocate unnecessary pieces
        for (int_t i = necessarypieces; i < npieces; ++ i)
        {
                if (tab [i])
                {
                        delete [] tab [i];
                        tab [i] = 0;
                }
        }
        return;
} /* multitable<element>::allocate */

template <class element>
void multitable<element>::fill (const element &e, int_t n)
{
        if (n <= 0)
                return;
        int piecesize = 1 << shiftbits;
        int_t maxpiece = (n + piecesize - 1) / piecesize;
        if (maxpiece > npieces)
                increase (maxpiece);
        for (int_t piece = 0; piece < maxpiece; ++ piece)
        {
                if (!tab [piece])
                {
                        tab [piece] = new element [piecesize];
                        if (!tab [piece])
                                throw "Too little mem for a piece.";

                }
                if ((piece == maxpiece - 1) && (n & offsetmask))
                        piecesize = n & offsetmask;
                for (int i = 0; i < piecesize; ++ i)
                        tab [piece] [i] = e;
        }
        return;
} /* multitable<element>::fill */

template <class element>
inline void multitable<element>::swap (multitable<element> &other)
{
        my_swap (npieces, other. npieces);
        my_swap (shiftbits, other. shiftbits);
        my_swap (offsetmask, other. offsetmask);
        my_swap (tab, other. tab);
        return;
} /* multitable<element>::swap */

template <class element>
void multitable<element>::increase (int_t n)
{
        // DEBUG
//      if (n != 1)
//              sbug << "Inc " << n << ".\n";
        if (n <= npieces)
                throw "Trying to increase a multitable incorrectly.";
        element **newtab = new element * [n];
        if (!newtab)
                throw "Cannot increase a table.";
        for (int_t i = 0; i < npieces; ++ i)
                newtab [i] = tab [i];
        for (int_t i = npieces; i < n; ++ i)
                newtab [i] = 0;
        delete [] tab;
        tab = newtab;
        npieces = n;
        return;
} /* multitable<element>::increase */


} // namespace homology
} // namespace chomp

#endif // _CHOMP_STRUCT_MULTITAB_H_