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 #include "nel/ai/agent/agent.h"
00025 #include "nel/ai/script/codage.h"
00026 #include "nel/ai/agent/agent_local_mailer.h"
00027 #include "nel/ai/script/interpret_object_agent.h"
00028 #include "nel/ai/script/interpret_object_message.h"
00029 #include "nel/ai/agent/main_agent_script.h"
00030 #include "nel/ai/e/ai_exception.h"
00031 #include "nel/ai/agent/agent_proxy_mailer.h"
00032 #include "nel/ai/agent/agent_method_def.h"
00033 #include "nel/ai/script/type_def.h"
00034 #include "nel/ai/script/object_unknown.h"
00035 #include "nel/ai/agent/agent_object.h"
00036 #include "nel/ai/agent/agent_digital.h"
00037 
00038 namespace NLAIAGENT
00039 {
00040         IMainAgent *CProxyAgentMail::MainAgent = NULL;
00041 
00042         CAgentScript::CMethodCall **CProxyAgentMail::StaticMethod = NULL;
00043         NLAISCRIPT::CParam *Param;
00044 
00045         void CProxyAgentMail::initClass()
00046         {
00047                 CProxyAgentMail::StaticMethod =  new CAgentScript::CMethodCall *[CAgentScript::TLastM];
00048                 Param = new NLAISCRIPT::CParam(1,new NLAISCRIPT::COperandSimple(new NLAIC::CIdentType(CStringType::IdStringType)));
00049                 CProxyAgentMail::StaticMethod[TConstructor]= new CAgentScript::CMethodCall(
00050                         _CONSTRUCTOR_,                                  
00051                         CProxyAgentMail::TConstructor,                  
00052                         Param,
00053                         CAgentScript::CheckAll,
00054                         1,
00055                         new NLAISCRIPT::CObjectUnknown(new NLAISCRIPT::COperandVoid));
00056         }
00057 
00058         void CProxyAgentMail::releaseClass()
00059         {
00060                 sint i;
00061                 for(i = 0; i < CProxyAgentMail::TLastM; i ++)
00062                 {
00063                         delete CProxyAgentMail::StaticMethod[i];
00064                 }
00065                 delete CProxyAgentMail::StaticMethod;
00066         }
00067 
00068         CProxyAgentMail::CProxyAgentMail():IBasicAgent((IWordNumRef *)NULL),_AgentRef(NULL)
00069         {
00070         }
00071         CProxyAgentMail::CProxyAgentMail(const CAgentNumber &agentRef):IBasicAgent((IWordNumRef *)NULL),_AgentRef(new CAgentNumber(agentRef))
00072         {
00073         }
00074         CProxyAgentMail::~CProxyAgentMail()
00075         {
00076                 if(_AgentRef != NULL) delete _AgentRef;
00077         }
00078 
00079         void CProxyAgentMail::onKill(IConnectIA *a)
00080         {
00081         }
00082 
00083         std::list<IBasicAgent *> listBidon;
00084         std::list<IBasicAgent *>::iterator CProxyAgentMail::addChild(IBasicAgent *p)
00085         {
00086                 return listBidon.begin();
00087         }
00088 
00089         void CProxyAgentMail::removeChild(const IBasicAgent *p)
00090         {
00091         }
00092 
00093         void CProxyAgentMail::removeChild(std::list<IBasicAgent *>::iterator &iter)
00094         {               
00095         }
00096 
00097         void CProxyAgentMail::runChildren()
00098         {
00099         }
00100         void CProxyAgentMail::processMessages()
00101         {
00102         }
00103 
00104         IObjectIA::CProcessResult CProxyAgentMail::sendMessage(const IVarName &compName,IObjectIA *msg)
00105         {
00106                 IObjectIA::CProcessResult r;
00107                 try
00108                 {
00109                         r = MainAgent->sendMessage(*_AgentRef,compName,msg);
00110                 }
00111                 catch(NLAIE::CExceptionNotImplemented &)
00112                 {
00113 #ifdef NL_DEBUG
00114         const char *dName = (const char *)msg->getType();
00115 #endif
00116                 }
00117                 return r;
00118         }
00119 
00120         IObjectIA::CProcessResult CProxyAgentMail::sendMessage(IObjectIA *m)
00121         {                       
00122                 IMessageBase *msg = (IMessageBase *)m;
00123 
00124                 if(NLAISCRIPT::CMsgNotifyParentClass::IdMsgNotifyParentClass == msg->getType() )
00125                 {                       
00126                         const INombreDefine *n = (const INombreDefine *)msg->getFront();
00127                         if(n->getNumber() != 0.0)
00128                         {
00129                                 const CLocalAgentMail *parent = (const CLocalAgentMail *)msg->get();
00130                                 setParent((const IWordNumRef *)*parent->getHost());
00131                         }
00132                         return IObjectIA::CProcessResult();
00133                 }
00134                 else
00135                 {
00136 #ifdef NL_DEBUG
00137         const char *dName = (const char *)m->getType();
00138 #endif
00139                         return MainAgent->sendMessage(*_AgentRef,msg);
00140                 }
00141         }
00142 
00143         tQueue CProxyAgentMail::isMember(const IVarName *h,const IVarName *m,const IObjectIA &param) const
00144         {
00145                 NLAIAGENT::tQueue r = isTemplateMember(CProxyAgentMail::StaticMethod,CProxyAgentMail::TLastM,getMethodIndexSize(),h,m,param);
00146                 if(r.size()) return r;
00147                 else return IBasicAgent::isMember(h,m,param);
00148         }
00149 
00150         IObjectIA::CProcessResult CProxyAgentMail::runMethodeMember(sint32 h, sint32 m, IObjectIA *p)
00151         {
00152                 return runMethodeMember(m,p);
00153         }
00154         IObjectIA::CProcessResult CProxyAgentMail::runMethodeMember(sint32 m,IObjectIA *p)
00155         {
00156                 switch(m - getMethodIndexSize())
00157                 {
00158                 case CProxyAgentMail::TConstructor:
00159                         {
00160                                 CStringType *n = (CStringType *)((IBaseGroupType *)p)->get();
00161                                 if(_AgentRef != NULL) delete _AgentRef;
00162                                 _AgentRef = new CAgentNumber(n->getStr().getString());
00163                         }
00164                         return IObjectIA::CProcessResult();
00165                 }
00166                 return IBasicAgent::runMethodeMember(m,p);
00167         }
00168         sint32 CProxyAgentMail::getMethodIndexSize() const
00169         {
00170                 return IBasicAgent::getMethodIndexSize() + 1;
00171         }
00172 }
agent_proxy_mailer.cpp
