nevrax.org : docs

00001 
00006 /* Copyright, 2000 Nevrax Ltd.
00007  *
00008  * This file is part of NEVRAX NEL.
00009  * NEVRAX NEL is free software; you can redistribute it and/or modify
00010  * it under the terms of the GNU General Public License as published by
00011  * the Free Software Foundation; either version 2, or (at your option)
00012  * any later version.
00013 
00014  * NEVRAX NEL is distributed in the hope that it will be useful, but
00015  * WITHOUT ANY WARRANTY; without even the implied warranty of
00016  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
00017  * General Public License for more details.
00018 
00019  * You should have received a copy of the GNU General Public License
00020  * along with NEVRAX NEL; see the file COPYING. If not, write to the
00021  * Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
00022  * MA 02111-1307, USA.
00023  */
00024 
00025 #include "nel/ai/agent/agentexport.h"
00026 #include "nel/ai/agent/agent_operator.h"
00027 #include "nel/ai/agent/agent_method_def.h"
00028 
00029 namespace NLAIAGENT
00030 {
00031 
00032         tQueue IObjetOp::isMember(const IVarName *className, const IVarName *name, const IObjectIA &params) const
00033         {
00034                 tQueue result;
00035 
00036                 result = IObjectIA::isMember( className, name, params );
00037 
00038                 if ( result.size() )
00039                         return result;
00040 
00041                 if(className != NULL) 
00042                 {
00043                         if ( *name == CStringVarName(_OPPLUS_) )
00044                         {
00045                                 result.push( NLAIAGENT::CIdMethod(op_add,0.0,NULL,NULL) );
00046                         }
00047                         if ( *name == CStringVarName(_OPMOINS_) )
00048                         {
00049                                 result.push( NLAIAGENT::CIdMethod(op_sub,0.0,NULL,NULL) );
00050                         }
00051                         if ( *name == CStringVarName(_OPMUL_) )
00052                         {
00053                                 result.push( NLAIAGENT::CIdMethod(op_mul,0.0,NULL,NULL) );
00054                         }
00055                         if ( *name == CStringVarName(_OPEQ_) )
00056                         {
00057                                 result.push( CIdMethod(NLAIC::CTypeOfOperator::opEq,0.0,NULL,NULL) );
00058                         }
00059                         if ( *name == CStringVarName(_OPDIV_) )
00060                         {
00061                                 result.push( NLAIAGENT::CIdMethod(op_div,0.0,NULL,NULL) );
00062                         }
00063 
00064                         if ( *name == CStringVarName(_OPLESS_) )
00065                         {
00066                                 result.push( NLAIAGENT::CIdMethod(op_neg,0.0,NULL,NULL) );
00067                         }
00068 
00069                         if ( *name == CStringVarName(_OPEQ_) )
00070                         {
00071                                 result.push( NLAIAGENT::CIdMethod(op_eq,0.0,NULL,NULL) );
00072                         }
00073 
00074                         if ( *name == CStringVarName(_OPINFEQ_) )
00075                         {
00076                                 result.push( NLAIAGENT::CIdMethod(op_inf_eq,0.0,NULL,NULL) );
00077                         }
00078 
00079                         if ( *name == CStringVarName(_OPSUPEQ_) )
00080                         {
00081                                 result.push( NLAIAGENT::CIdMethod(op_sup_eq,0.0,NULL,NULL) );
00082                         }
00083 
00084                         if ( *name == CStringVarName(_OPDIFF_) )
00085                         {
00086                                 result.push( NLAIAGENT::CIdMethod(op_diff,0.0,NULL,NULL) );
00087                         }
00088                 }
00089                 
00090                 return result;
00091         }
00092 
00093         sint32 IObjetOp::getMethodIndexSize() const
00094         {
00095                 return IObjectIA::getMethodIndexSize() + op_last;
00096         }
00097 
00098         // Executes a method from its index id and with its parameters
00099         IObjectIA::CProcessResult IObjetOp::runMethodeMember(sint32 index, IObjectIA *param)
00100         {
00101 
00102                 if ( index <= IObjectIA::getMethodIndexSize() )
00103                         return IObjectIA::runMethodeMember(index, param);
00104 
00105                 IObjetOp *x = (IObjetOp *)( (IBaseGroupType *) param)->getFront();
00106                 ( (IBaseGroupType *) param)->popFront();
00107 
00108                 IObjectIA::CProcessResult r;
00109                 r.ResultState =  processIdle;
00110 
00111                 switch ( index ) 
00112                 {
00113                         case op_add:
00114                                 r.Result = (IObjectIA *) &( (*this) += ( * (IObjetOp *) x) );
00115                                 break;
00116 
00117                         case op_sub:
00118                                 r.Result = (IObjectIA *) &( (*this) -= ( * (IObjetOp *) x) );
00119                                 break;
00120 
00121                         case op_mul:
00122                                 r.Result = (IObjectIA *) &( (*this) *= ( * (IObjetOp *) x) );
00123                                 break;
00124 
00125                         case op_div:
00126                                 r.Result = (IObjectIA *) &( (*this) /= ( * (IObjetOp *) x) );
00127                                 break;
00128 
00129                         case op_not:
00130                                 r.Result = (IObjectIA *) ( !(*this)  );
00131                                 break;
00132 
00133                         case op_eq:
00134                                 r.Result = (IObjectIA *) ( (*this) == ( * (IObjetOp *) x ) );
00135                                 break;
00136 
00137                         case NLAIC::CTypeOfOperator::opInfEq    :
00138                                 r.Result = (IObjectIA *) ( (*this) <= ( * (IObjetOp *) x ) );
00139                                 break;
00140 
00141                         case NLAIC::CTypeOfOperator::opSupEq    :
00142                                 r.Result = (IObjectIA *) ( (*this) >= ( * (IObjetOp *) x ) );
00143                                 break;
00144 
00145                         case NLAIC::CTypeOfOperator::opDiff     :
00146                                 r.Result = (IObjectIA *) ( (*this) != ( * (IObjetOp *) x ) );
00147                                 break;
00148                 }
00149                 return r;
00150         }
00151 }
agent_operator.cpp
