98 lines
2.6 KiB
C++
98 lines
2.6 KiB
C++
|
/*
|
||
|
|
* Open BEAGLE
|
||
|
|
* Copyright (C) 2001-2007 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 EqualTo.cpp
|
||
|
|
* \brief Implementation of the class EqualTo.
|
||
|
|
* \author Christian Gagne
|
||
|
|
* \author Marc Parizeau
|
||
|
|
* $Revision: 1.10.2.1 $
|
||
|
|
* $Date: 2007/05/09 01:51:23 $
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "beagle/GP.hpp"
|
||
|
|
#include "EqualTo.hpp"
|
||
|
|
|
||
|
|
#include <cmath>
|
||
|
|
#include <fstream>
|
||
|
|
|
||
|
|
using namespace Beagle;
|
||
|
|
|
||
|
|
|
||
|
|
/*!
|
||
|
|
* \brief Construct a new EqualTo primitive.
|
||
|
|
*/
|
||
|
|
EqualTo::EqualTo() :
|
||
|
|
Beagle::GP::Primitive(2, "EQ")
|
||
|
|
{ }
|
||
|
|
|
||
|
|
|
||
|
|
#ifdef BEAGLE_HAVE_RTTI
|
||
|
|
|
||
|
|
/*!
|
||
|
|
* \brief Return the Double tag needed as input for the primitive EqualTo.
|
||
|
|
* \param inN Index of the argument to get the tag.
|
||
|
|
* \param ioContext Evolutionary context.
|
||
|
|
* \return RTTI type_info of the data type Double.
|
||
|
|
* \throw AssertException If the index inN given is > to 1.
|
||
|
|
*/
|
||
|
|
const std::type_info* EqualTo::getArgType(unsigned int inN, Beagle::GP::Context& ioContext) const
|
||
|
|
{
|
||
|
|
Beagle_AssertM(inN < 2);
|
||
|
|
return &typeid(Double);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/*!
|
||
|
|
* \brief Return the string tagging the Bool type returned but the primitive EqualTo.
|
||
|
|
* \param ioContext Evolutionary context.
|
||
|
|
* \return RTTI type_info of the Bool type returned.
|
||
|
|
*/
|
||
|
|
const std::type_info* EqualTo::getReturnType(Beagle::GP::Context& ioContext) const
|
||
|
|
{
|
||
|
|
return &typeid(Bool);
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif // BEAGLE_HAVE_RTTI
|
||
|
|
|
||
|
|
|
||
|
|
/*!
|
||
|
|
* \brief Test the equality between two Double, returning a Bool.
|
||
|
|
* \param outDatum Result of the test.
|
||
|
|
* \param ioContext Evolutionary context.
|
||
|
|
*/
|
||
|
|
void EqualTo::execute(GP::Datum& outDatum, GP::Context& ioContext)
|
||
|
|
{
|
||
|
|
Bool& lResult = castObjectT<Bool&>(outDatum);
|
||
|
|
Double lArgs[2];
|
||
|
|
getArguments(lArgs, sizeof(Double), ioContext);
|
||
|
|
lResult = lArgs[0].getWrappedValue() == lArgs[1].getWrappedValue();
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|