00001
00006 00007 00008 00009 00010 00011 00012 00013 00014 00015 00016 00017 00018 00019 00020 00021 00022 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 CProxyAgentMail::CMethodCall **CProxyAgentMail::StaticMethod = NULL;
00043 NLAISCRIPT::CParam *Param;
00044
00045 void CProxyAgentMail::initClass()
00046 {
00047 CProxyAgentMail::StaticMethod = new CProxyAgentMail::CMethodCall *[CProxyAgentMail::TLast];
00048 Param = new NLAISCRIPT::CParam(1,new NLAISCRIPT::COperandSimple(new NLAIC::CIdentType(CStringType::IdStringType)));
00049 CProxyAgentMail::StaticMethod[TConstructor]= new CProxyAgentMail::CMethodCall(
00050 _CONSTRUCTOR_,
00051 CProxyAgentMail::TConstructor,
00052 Param,
00053 CProxyAgentMail::CheckAll,
00054 1,
00055 new NLAISCRIPT::CObjectUnknown(new NLAISCRIPT::COperandVoid));
00056 }
00057
00058 void CProxyAgentMail::releaseClass()
00059 {
00060 sint i;
00061 Param->release();
00062 for(i = 0; i < CProxyAgentMail::TLast; i ++)
00063 {
00064 delete CProxyAgentMail::StaticMethod[i];
00065 }
00066 delete CProxyAgentMail::StaticMethod;
00067 }
00068
00069 CProxyAgentMail::CProxyAgentMail():IBasicAgent((IWordNumRef *)NULL),_AgentRef(NULL)
00070 {
00071 }
00072 CProxyAgentMail::CProxyAgentMail(const CAgentNumber &agentRef):IBasicAgent((IWordNumRef *)NULL),_AgentRef(new CAgentNumber(agentRef))
00073 {
00074 }
00075 CProxyAgentMail::~CProxyAgentMail()
00076 {
00077 if(_AgentRef != NULL) delete _AgentRef;
00078 }
00079
00080 void CProxyAgentMail::onKill(IConnectIA *a)
00081 {
00082 }
00083
00084 std::list<IBasicAgent *> listBidon;
00085 std::list<IBasicAgent *>::iterator CProxyAgentMail::addChild(IBasicAgent *p)
00086 {
00087 return listBidon.begin();
00088 }
00089
00090 void CProxyAgentMail::removeChild(const IBasicAgent *p)
00091 {
00092 }
00093
00094 void CProxyAgentMail::removeChild(std::list<IBasicAgent *>::iterator &iter)
00095 {
00096 }
00097
00098 void CProxyAgentMail::runChildren()
00099 {
00100 }
00101 void CProxyAgentMail::processMessages()
00102 {
00103 }
00104
00105 IObjectIA::CProcessResult CProxyAgentMail::sendMessage(IObjectIA *m)
00106 {
00107 IMessageBase *msg = (IMessageBase *)m;
00108
00109 if(NLAISCRIPT::CMsgNotifyParentClass::IdMsgNotifyParentClass == msg->getType() )
00110 {
00111 const INombreDefine *n = (const INombreDefine *)msg->getFront();
00112 if(n->getNumber() != 0.0)
00113 {
00114 const CLocalAgentMail *parent = (const CLocalAgentMail *)msg->get();
00115 setParent((const IWordNumRef *)*parent->getHost());
00116 }
00117 return IObjectIA::CProcessResult();
00118 }
00119 else
00120 {
00121 return MainAgent->sendMessage(*_AgentRef,msg);
00122 }
00123 }
00124
00125 tQueue CProxyAgentMail::isMember(const IVarName *h,const IVarName *m,const IObjectIA ¶m) const
00126 {
00127
00128 tQueue a;
00129 sint i;
00130 CProxyAgentMail::TMethodNumDef index = CProxyAgentMail::TLast;
00131
00132 if(h == NULL)
00133 {
00134 for( i = 0; i< CProxyAgentMail::TLast; i++)
00135 {
00136 if(CProxyAgentMail::StaticMethod[i]->MethodName == *m)
00137 {
00138 index = (CProxyAgentMail::TMethodNumDef)CProxyAgentMail::StaticMethod[i]->Index;
00139 switch(CProxyAgentMail::StaticMethod[i]->CheckArgType)
00140 {
00141 case CProxyAgentMail::CheckAll:
00142 {
00143 double d = ((NLAISCRIPT::CParam &)*CProxyAgentMail::StaticMethod[i]->ArgType).eval((NLAISCRIPT::CParam &)param);
00144 if(d >= 0.0)
00145 {
00146 tQueue r;
00147 CProxyAgentMail::StaticMethod[i]->ReturnValue->incRef();
00148 r.push(CIdMethod( (getMethodIndexSize() + CProxyAgentMail::StaticMethod[i]->Index),
00149 0.0,
00150 NULL,
00151 CProxyAgentMail::StaticMethod[i]->ReturnValue));
00152 return r;
00153 }
00154 }
00155 break;
00156 case CProxyAgentMail::CheckCount:
00157 {
00158 if(((NLAISCRIPT::CParam &)param).size() == CProxyAgentMail::StaticMethod[i]->ArgCount)
00159 {
00160 tQueue r;
00161 CProxyAgentMail::StaticMethod[i]->ReturnValue->incRef();
00162 r.push(CIdMethod( (getMethodIndexSize() + CProxyAgentMail::StaticMethod[i]->Index),
00163 0.0,
00164 NULL,
00165 CProxyAgentMail::StaticMethod[i]->ReturnValue ));
00166 return r;
00167 }
00168 }
00169 break;
00170 case CProxyAgentMail::DoNotCheck:
00171 {
00172 tQueue r;
00173 CProxyAgentMail::StaticMethod[i]->ReturnValue->incRef();
00174 r.push(CIdMethod( (getMethodIndexSize() + CProxyAgentMail::StaticMethod[i]->Index),
00175 0.0,
00176 NULL,
00177 CProxyAgentMail::StaticMethod[i]->ReturnValue));
00178 return r;
00179 }
00180 break;
00181
00182 }
00183 }
00184 }
00185 }
00186
00187 return IBasicAgent::isMember(h,m,param);
00188 }
00189
00190 IObjectIA::CProcessResult CProxyAgentMail::runMethodeMember(sint32 h, sint32 m, IObjectIA *p)
00191 {
00192 return runMethodeMember(m,p);
00193 }
00194 IObjectIA::CProcessResult CProxyAgentMail::runMethodeMember(sint32 m,IObjectIA *p)
00195 {
00196 switch(m - getMethodIndexSize())
00197 {
00198 case CProxyAgentMail::TConstructor:
00199 {
00200 CStringType *n = (CStringType *)((IBaseGroupType *)p)->get();
00201 if(_AgentRef != NULL) delete _AgentRef;
00202 _AgentRef = new CAgentNumber(n->getStr().getString());
00203 }
00204 break;
00205 }
00206 return IBasicAgent::runMethodeMember(m,p);
00207 }
00208 sint32 CProxyAgentMail::getMethodIndexSize() const
00209 {
00210 return IBasicAgent::getMethodIndexSize() + 1;
00211 }
00212 }
