long.hpp

非常好的进化算法EC 实现平台 可以实现多种算法 GA GP

/*
 *  Open BEAGLE
 *  Copyright (C) 2001-2005 by Christian Gagne and Marc Parizeau
 *
 *  This library is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Lesser General Public
 *  License as published by the Free Software Foundation; either
 *  version 2.1 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
 *  Lesser General Public License for more details.
 *
 *  You should have received a copy of the GNU Lesser General Public
 *  License along with this library; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 *  Contact:
 *  Laboratoire de Vision et Systemes Numeriques
 *  Departement de genie electrique et de genie informatique
 *  Universite Laval, Quebec, Canada, G1K 7P4
 *  http://vision.gel.ulaval.ca
 *
 */

/*!
 *  \file   beagle/Long.hpp
 *  \brief  Definition of the type Long and related operators.
 *  \author Christian Gagne
 *  \author Marc Parizeau
 *  $Revision: 1.7 $
 *  $Date: 2005/09/30 15:04:54 $
 */

#ifndef Beagle_Long_hpp
#define Beagle_Long_hpp

#include "beagle/config.hpp"
#include "beagle/macros.hpp"
#include "beagle/WrapperT.hpp"
#include "beagle/ArrayT.hpp"


namespace Beagle {

/*!
 *  \brief Beagle wrapper of the atomic long type.
 *  \ingroup Adapt
 */
typedef WrapperT< long >
        Long;

/*!
 *  \brief Beagle array of the atomic long type.
 *  \ingroup Adapt
 */
typedef ArrayT< long >
        LongArray;

/*!
 *  \brief Evaluate absolute value of a Beagle::Long.
 *  \param inValue Long to evaluate the absolute value.
 *  \return Absolute value of the input.
 *  \ingroup Adapt
 */
template <>
inline Long absolute(const Long& inValue)
{
  Beagle_StackTraceBeginM();
  return Long(std::abs(inValue.getWrappedValue()));
  Beagle_StackTraceEndM("Long absolute(const Long& inValue)");
}

}


/*!
 *  \brief  Test whether an long is less than another.
 *  \param  inLeftLong  Left long compared.
 *  \param  inRightLong Right long compared.
 *  \return True if left long is less than the right one, false if not.
 *  \par Note:
 *    The operator is defined relatively to the function isLess of Beagle::Long.
 */
inline bool operator<(const Beagle::Long& inLeftLong, const Beagle::Long& inRightLong)
{
  Beagle_StackTraceBeginM();
  return inLeftLong.isLess(inRightLong);
  Beagle_StackTraceEndM("bool operator<(const Long& inLeftLong, const Long& inRightLong)");
}


/*!
 *  \brief  Test whether an long is less than, or equal to another.
 *  \param  inLeftLong  Left long compared.
 *  \param  inRightLong Right long compared.
 *  \return True if left long is less than, or equal to the right one, false if not.
 *  \par Note:
 *    The operator is defined relatively to the functions isLess and isEqual of Beagle::Long.
 */
inline bool operator<=(const Beagle::Long& inLeftLong, const Beagle::Long& inRightLong)
{
  Beagle_StackTraceBeginM();
  return ( inLeftLong.isLess(inRightLong) || inLeftLong.isEqual(inRightLong) );
  Beagle_StackTraceEndM("bool operator<=(const Long& inLeftLong, const Long& inRightLong)");
}


/*!
 *  \brief  Test whether an long is more than another.
 *  \param  inLeftLong  Left long compared.
 *  \param  inRightLong Right long compared.
 *  \return True if left long is more than the right one, false if not.
 *  \par Note:
 *    The operator is defined relatively to the function isLess of Beagle::Long.
 */
inline bool operator>(const Beagle::Long& inLeftLong, const Beagle::Long& inRightLong)
{
  Beagle_StackTraceBeginM();
  return inRightLong.isLess(inLeftLong);
  Beagle_StackTraceEndM("bool operator>(const Long& inLeftLong, const Long& inRightLong)");
}


/*!
 *  \brief  Test whether an long is more than, or equal to another.
 *  \param  inLeftLong  Left long compared.
 *  \param  inRightLong Right long compared.
 *  \return True if left long is more than, or equal to the right one, false if not.
 *  \par Note:
 *    The operator is defined relatively to the functions isLess and isEqual of Beagle::Long.
 */
inline bool operator>=(const Beagle::Long& inLeftLong, const Beagle::Long& inRightLong)
{
  Beagle_StackTraceBeginM();
  return ( inRightLong.isLess(inLeftLong) || inLeftLong.isEqual(inRightLong) );
  Beagle_StackTraceEndM("bool operator>=(const Long& inLeftLong, const Long& inRightLong)");
}


/*!
 *  \brief  Test whether an long is equal to another.
 *  \param  inLeftLong  Left long compared.
 *  \param  inRightLong Right long compared.
 *  \return True if left long is equal to the right one, false if not.
 *  \par Note:
 *    The operator is defined relatively to the function isEqual of Beagle::Long.
 */
inline bool operator==(const Beagle::Long& inLeftLong, const Beagle::Long& inRightLong)
{
  Beagle_StackTraceBeginM();
  return inLeftLong.isEqual(inRightLong);
  Beagle_StackTraceEndM("bool operator==(const Long& inLeftLong, const Long& inRightLong)");
}


/*!
 *  \brief  Test whether an long is not equal to another.
 *  \param  inLeftLong  Left long compared.
 *  \param  inRightLong Right long compared.
 *  \return True if left long is not equal to the right one, false if it is.
 *  \par Note:
 *    The operator is defined relatively to the function isEqual of Beagle::Long.
 */
inline bool operator!=(const Beagle::Long& inLeftLong, const Beagle::Long& inRightLong)
{
  Beagle_StackTraceBeginM();
  return ( inLeftLong.isEqual(inRightLong) == false);
  Beagle_StackTraceEndM("bool operator!=(const Long& inLeftLong, const Long& inRightLong)");
}


/*!
 *  \brief Compare equality of a Long with a long.
 *  \param inLeftLong Left value to compare.
 *  \param inRightLong Right value to compare.
 *  \return Result of the comparison.
 */
inline
bool operator==(const Beagle::Long& inLeftLong, long inRightLong)
{
  Beagle_StackTraceBeginM();
  return inLeftLong.getWrappedValue() == inRightLong;
  Beagle_StackTraceEndM("bool operator==(const Long& inLeftLong, long inRightLong)");
}


/*!
 *  \brief Compare inequality of a Long with a long.
 *  \param inLeftLong Left value to compare.
 *  \param inRightLong Right value to compare.
 *  \return Result of the comparison.
 */
inline
bool operator!=(const Beagle::Long& inLeftLong, long inRightLong)
{
  Beagle_StackTraceBeginM();
  return inLeftLong.getWrappedValue() != inRightLong;
  Beagle_StackTraceEndM("bool operator!=(const Long& inLeftLong, long inRightLong)");
}


/*!
 *  \brief Test if a Long is < than a long.
 *  \param inLeftLong Left value to compare.
 *  \param inRightLong Right value to compare.
 *  \return Result of the comparison.
 */
inline
bool operator<(const Beagle::Long& inLeftLong, long inRightLong)
{
  Beagle_StackTraceBeginM();
  return inLeftLong.getWrappedValue() < inRightLong;
  Beagle_StackTraceEndM("bool operator<(const Long& inLeftLong, long inRightLong)");
}


/*!
 *  \brief Test if a Long is <= than a long.
 *  \param inLeftLong Left value to compare.
 *  \param inRightLong Right value to compare.
 *  \return Result of the comparison.
 */
inline
bool operator<=(const Beagle::Long& inLeftLong, long inRightLong)
{
  Beagle_StackTraceBeginM();
  return inLeftLong.getWrappedValue() <= inRightLong;
  Beagle_StackTraceEndM("bool operator<=(const Long& inLeftLong, long inRightLong)");
}


/*!
 *  \brief Test if a Long is > than a long.
 *  \param inLeftLong Left value to compare.
 *  \param inRightLong Right value to compare.
 *  \return Result of the comparison.
 */
inline
bool operator>(const Beagle::Long& inLeftLong, long inRightLong)
{
  Beagle_StackTraceBeginM();
  return inLeftLong.getWrappedValue() > inRightLong;
  Beagle_StackTraceEndM("bool operator>(const Long& inLeftLong, long inRightLong)");
}


/*!
 *  \brief Test if a Long is >= than a long.
 *  \param inLeftLong Left value to compare.
 *  \param inRightLong Right value to compare.
 *  \return Result of the comparison.
 */
inline
bool operator>=(const Beagle::Long& inLeftLong, long inRightLong)
{
  Beagle_StackTraceBeginM();
  return inLeftLong.getWrappedValue() >= inRightLong;
  Beagle_StackTraceEndM("bool operator>=(const Long& inLeftLong, long inRightLong)");
}


/*!
 *  \brief Increment a Long (prefix version).
 *  \param inLong Long to increment.
 *  \return Long incremented.
 */
inline
Beagle::Long& operator++(Beagle::Long& inLong)
{
  Beagle_StackTraceBeginM();
  inLong.getWrappedValue()++;
  return inLong;
  Beagle_StackTraceEndM("Long& operator++(Long& inLong)");
}


/*!
 *  \brief Increment a Long (postfix version).
 *  \param inLong Long to increment.
 *  \return Long before being incremented.
 */
inline
Beagle::Long operator++(Beagle::Long& inLong, int)
{
  Beagle_StackTraceBeginM();
  Beagle::Long lLong = inLong;
  inLong.getWrappedValue()++;
  return lLong;