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/msg_fact.h"
00026 #include "nel/ai/agent/agent_digital.h"
00027 #include "nel/ai/script/interpret_object_message.h"
00028 #include "nel/ai/agent/object_type.h"
00029 #include "nel/ai/script/codage.h"
00030 #include "nel/ai/script/object_unknown.h"
00031 #include "nel/ai/logic/fact.h"
00032 
00033 
00034 namespace NLAIAGENT
00035 {
00036         CFactMsg::CFactMsg( std::list<IObjectIA *> &l, NLAISCRIPT::CMessageClass *b):CMessageScript(l,b)
00037         {
00038                 set(0, new NLAILOGIC::CFact() );
00039         }
00040 
00041         CFactMsg::CFactMsg(NLAISCRIPT::CMessageClass *b):CMessageScript(b)
00042         {               
00043                 CVectorGroupType *x = new CVectorGroupType(1);          
00044                 setMessageGroup(x);
00045                 setGroup(CMessageGroup::msgScriptingGroup);             
00046                 set(0, new NLAILOGIC::CFact());
00047         }
00048 
00049         CFactMsg::CFactMsg(IBasicAgent *agent):
00050                         CMessageScript((NLAISCRIPT::CMessageClass *)NLAISCRIPT::CFactMsgClass::IdFactMsgClass.getFactory()->getClass())
00051         {               
00052                 CVectorGroupType *x = new CVectorGroupType(1);
00053                 setMessageGroup(x);
00054                 setGroup(CMessageGroup::msgScriptingGroup);
00055                 set(0, new NLAILOGIC::CFact());
00056         }
00057 
00058         CFactMsg::CFactMsg(const CFactMsg &m): CMessageScript(m)
00059         {
00060         }
00061 
00062         CFactMsg::~CFactMsg()
00063         {
00064                 
00065         }
00066 
00067         const NLAIC::IBasicType *CFactMsg::clone() const
00068         {
00069                 const NLAIC::IBasicType *x;
00070                 x = new CFactMsg(*this);
00071                 return x;
00072         }
00073 
00074         const NLAIC::CIdentType &CFactMsg::getType() const
00075         {
00076                 if ( getCreatorClass() ) 
00077                         return getCreatorClass()->getType();
00078                 else
00079                         return IdFactMsg;
00080         }       
00081 
00082         void CFactMsg::getDebugString(std::string &t) const
00083         {               
00084                 CMessageScript::getDebugString(t);
00085                 t +=">";
00086         }
00087 
00088 
00089         tQueue CFactMsg::isMember(const IVarName *className,const IVarName *funcName,const IObjectIA &params) const
00090         {
00091 
00092                 tQueue r;
00093 
00094                 if(className == NULL)
00095                 {
00096                         if( (*funcName) == CStringVarName( "Constructor" ) )
00097                         {                                       
00098                                 r.push( CIdMethod( IMessageBase::getMethodIndexSize(), 0.0, NULL, new NLAISCRIPT::CObjectUnknown(new NLAISCRIPT::COperandVoid) ) );                     
00099                         }
00100                 }
00101 
00102                 if ( r.empty() )
00103                         return CMessageScript::isMember(className, funcName, params);
00104                 else
00105                         return r;
00106         }
00107 
00108         NLAIAGENT::IObjectIA::CProcessResult CFactMsg::runMethodeMember(sint32, sint32, NLAIAGENT::IObjectIA *)
00109         {
00110                 return IObjectIA::CProcessResult();
00111         }
00112 
00113         IObjectIA::CProcessResult CFactMsg::runMethodeMember(sint32 index, IObjectIA *context)
00114         {
00115                 IBaseGroupType *param = (IBaseGroupType *) ( (NLAISCRIPT::CCodeContext *)context )->Param.back();
00116 
00117                 switch(index - IMessageBase::getMethodIndexSize())
00118                 {
00119                 case 0:
00120                         {                                       
00121                                 NLAILOGIC::CFact *fact = (NLAILOGIC::CFact *) param->get();
00122                                 param->popFront();
00123 #ifdef NL_DEBUG
00124                                 std::string buffer;
00125                                 fact->getDebugString( buffer );
00126 #endif
00127                                 set(0, fact);
00128                         }
00129                         break;
00130                 }
00131                 return IObjectIA::CProcessResult();
00132         }
00133 
00134         sint32 CFactMsg::getBaseMethodCount() const
00135         {
00136                 return CMessageScript::getBaseMethodCount() + 1;
00137         }
00138 }
msg_fact.cpp
