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/script/compilateur.h"
+00026 #include "nel/ai/agent/agent_script.h"
+00027 #include "nel/ai/script/interpret_object_agent.h"
+00028 #include "nel/ai/script/interpret_object_message.h"
+00029 
+00030 namespace NLAISCRIPT
+00031 {
+00032         //*************************************
+00033         // CMethodContext
+00034         //*************************************
+00035         const IMethodContext *CMethodContext::clone() const
+00036         {
+00037                 return new CMethodContext();
+00038         }
+00039         
+00040         void CMethodContext::saveConstext(CCodeContext &context)
+00041         {
+00042                 NLAIAGENT::IBaseGroupType *param = (NLAIAGENT::IBaseGroupType *)context.Stack[(int)context.Stack];
+00043                 NLAIAGENT::CIteratorContener It = param->getIterator();
+00044                 uint z = 0;
+00045                 while(!It.isInEnd())
+00046                 {                       
+00047                         NLAIAGENT::IObjectIA *o = (NLAIAGENT::IObjectIA *)It++;
+00048                         o->incRef();
+00049                         context.Heap[(int)context.Heap] = o;
+00050                         context.Heap ++;
+00051                         z ++;
+00052                 }                               
+00053                 int bp = (int)context.Heap;
+00054                 CVarPStackParam::_Shift += bp;
+00055                 context.Heap.addStack(z);
+00056                 context.Heap.setShift((int)context.Heap);
+00057                 context.Param.push_back(param);
+00058                 param->incRef();
+00059                 context.Stack --;
+00060                 
+00061         }
+00062 
+00063         void CMethodContext::loadConstext(CCodeContext &context)
+00064         {
+00065                 context.Heap.restoreShift();
+00066                 context.Heap.restoreStack();
+00067                 context.Param.back()->release();
+00068                 context.Param.pop_back();
+00069         }
+00070 
+00071         //*************************************
+00072         // CMethodContextDebug
+00073         //*************************************
+00074         const IMethodContext *CMethodContextDebug::clone() const
+00075         {
+00076                 return new CMethodContextDebug();
+00077         }
+00078         
+00079         void CMethodContextDebug::saveConstext(CCodeContext &context)
+00080         {
+00081                 NLAIAGENT::IBaseGroupType *param = (NLAIAGENT::IBaseGroupType *)context.Stack[(int)context.Stack];              
+00082                 NLAIAGENT::CIteratorContener It = param->getIterator();
+00083                 
+00084                 while(!It.isInEnd())
+00085                 {                       
+00086                         NLAIAGENT::IObjectIA *o = (NLAIAGENT::IObjectIA *)It++;
+00087                         o->incRef();
+00088                         context.Heap[(int)context.Heap] = o;
+00089                         context.Heap ++;
+00090                 }                               
+00091                 int bp = (int)context.Heap;
+00092                 CVarPStackParam::_Shift += bp;
+00093                 context.Heap.addStack(param->size());
+00094                 int sh = (int)context.Heap;
+00095                 context.Heap.setShift(sh);
+00096                 context.ContextDebug.HeapDebug.setShift(sh);
+00097                 context.Param.push_back(param);
+00098                 param->incRef();
+00099                 context.Stack --;
+00100         }
+00101 
+00102         void CMethodContextDebug::loadConstext(CCodeContext &context)
+00103         {
+00104                 context.Heap.restoreShift();
+00105                 context.Heap.restoreStack();
+00106                 context.ContextDebug.HeapDebug.restoreShift();
+00107                 NLAIAGENT::IObjectIA *obj = context.Param.back();
+00108                 obj->release();
+00109                 context.Param.pop_back();               
+00110         }
+00111 
+00112         //*************************************
+00113         // CCallMethod
+00114         //*************************************
+00115 
+00116         void CCallMethod::getDebugResult(std::string &str,CCodeContext &context) const
+00117         {               
+00118                 const NLAIAGENT::IObjectIA *r = (context.Self);
+00119                 std::string name = "????";
+00120                 if(((const NLAIC::CTypeOfObject &)r->getType()) & NLAIC::CTypeOfObject::tInterpret)
+00121                 {
+00122                         if(((const NLAIC::CTypeOfObject &)r->getType()) & NLAIC::CTypeOfObject::tAgent)
+00123                         {
+00124                                 name = r->getMethodeMemberDebugString(_Inheritance,_I);
+00125                         }
+00126                         else
+00127                         if(((const NLAIC::CTypeOfObject &)r->getType()) & NLAIC::CTypeOfObject::tMessage)
+00128                         {               
+00129                                 if(((NLAIAGENT::CMessageScript *)r)->getCreatorClass() != NULL)
+00130                                 {
+00131                                         ((NLAIAGENT::CMessageScript *)r)->getCreatorClass()->getBrancheCode(_Inheritance,_I).getName().getDebugString(name);
+00132                                         ((NLAIAGENT::CMessageScript *)r)->getCreatorClass()->getBrancheCode(_Inheritance,_I).getParam().getDebugString(name);
+00133                                 }
+00134                         }
+00135                 }
+00136                 str = NLAIC::stringGetBuild("Method: '%s.%s'", (const char *)(context.Self)->getType(),name.c_str());
+00137         }
+00138 
+00139         NLAIAGENT::TProcessStatement CCallMethod::runOpCode(CCodeContext &context)
+00140         {                               
+00141                 int sp = CVarPStackParam::_Shift;
+00142                 saveConstext(context);
+00143 
+00144                 NLAIAGENT::IObjectIA::CProcessResult i;
+00145 
+00146                 if(_Inheritance) i = ((NLAIAGENT::IObjectIA *)context.Self)->runMethodeMember(_Inheritance,_I,&context);
+00147                 else i = ((NLAIAGENT::IObjectIA *)context.Self)->runMethodeMember(_I,&context);
+00148                 
+00149                 loadConstext(context);
+00150                 CVarPStackParam::_Shift = sp;
+00151                 return NLAIAGENT::processIdle;
+00152         }       
+00153 
+00154         void CCallMethodi::getDebugResult(std::string &str,CCodeContext &context) const
+00155         {
+00156                 NLAIAGENT::IObjectIA *obj = (NLAIAGENT::IObjectIA *)context.Self;
+00157                 std::list<sint32>::const_iterator it = _N.begin();
+00158                 std::string name = "????";
+00159 
+00160                 while(it != _N.end())
+00161                 {
+00162                         obj = (NLAIAGENT::IObjectIA *)obj->getStaticMember(*it++);
+00163                 }
+00164 
+00165                 //str = NLAIC::stringGetBuild("CallMethodi %d de la class '%s'",_I, (const char *)obj->getType());
+00166                 if(((const NLAIC::CTypeOfObject &)obj->getType()) & NLAIC::CTypeOfObject::tInterpret)
+00167                 {
+00168                         if(((const NLAIC::CTypeOfObject &)obj->getType()) & NLAIC::CTypeOfObject::tAgent)
+00169                         {
+00170                                 /*sint i = _I - ((NLAIAGENT::CAgentScript *)obj)->getBaseMethodCount();
+00171                                 if(i >= 0)
+00172                                 {
+00173                                         ((NLAIAGENT::CAgentScript *)obj)->getClass()->getBrancheCode(_Inheritance, i).getName().getDebugString(name);
+00174                                         ((NLAIAGENT::CAgentScript *)obj)->getClass()->getBrancheCode(_Inheritance,i).getParam().getDebugString(name);
+00175                                 }*/
+00176                                 name = obj->getMethodeMemberDebugString(_Inheritance,_I);
+00177                         }
+00178                         else
+00179                         if(((const NLAIC::CTypeOfObject &)obj->getType()) & NLAIC::CTypeOfObject::tMessage)
+00180                         {                               
+00181                                 ((NLAIAGENT::CMessageScript *)obj)->getCreatorClass()->getBrancheCode(_Inheritance,_I).getName().getDebugString(name);
+00182                                 ((NLAIAGENT::CMessageScript *)obj)->getCreatorClass()->getBrancheCode(_Inheritance,_I).getParam().getDebugString(name);
+00183                         }
+00184                 }
+00185                 str = NLAIC::stringGetBuild("Method: '%s.%s'", (const char *)(context.Self)->getType(),name.c_str());
+00186         }
+00187 
+00188         NLAIAGENT::TProcessStatement CCallMethodi::runOpCode(CCodeContext &context)
+00189         {                               
+00190                 int sp = CVarPStackParam::_Shift;
+00191                 NLAIAGENT::IObjectIA *obj = (NLAIAGENT::IObjectIA *)context.Self;
+00192 
+00193                 std::list<sint32>::iterator it = _N.begin();                    
+00194                 while(it != _N.end())
+00195                 {
+00196                         obj = (NLAIAGENT::IObjectIA *)obj->getStaticMember(*it++);
+00197                 }
+00198 
+00199                 NLAIAGENT::IObjectIA *selfTmp = (NLAIAGENT::IObjectIA *)context.Self;
+00200                 context.Self = obj;
+00201                 saveConstext(context);
+00202 
+00203                 NLAIAGENT::IObjectIA::CProcessResult i;
+00204                 if(_Inheritance) i = ((NLAIAGENT::IObjectIA *)context.Self)->runMethodeMember(_Inheritance,_I,&context);
+00205                 else i = ((NLAIAGENT::IObjectIA *)context.Self)->runMethodeMember(_I,&context);
+00206 
+00207                 context.Self = selfTmp;
+00208                 loadConstext(context);
+00209                 CVarPStackParam::_Shift = sp;
+00210                 return NLAIAGENT::processIdle;
+00211         }       
+00212 
+00213         NLAIAGENT::TProcessStatement CCallStackNewMethodi::runOpCode(CCodeContext &context)
+00214         {                               
+00215                 int sp = CVarPStackParam::_Shift;
+00216                 NLAIAGENT::IObjectIA *o = (NLAIAGENT::IObjectIA *)context.Stack[(int)context.Stack];
+00217                 o->incRef();            
+00218                 context.Stack --;               
+00219 
+00220                 std::list<sint32>::iterator it = _N.begin();
+00221                 NLAIAGENT::IObjectIA *obj = o;
+00222                 while(it != _N.end())
+00223                 {
+00224                         obj = (NLAIAGENT::IObjectIA *)obj->getStaticMember(*it++);
+00225                 }
+00226 
+00227                 NLAIAGENT::IObjectIA *selfTmp = (NLAIAGENT::IObjectIA *)context.Self;
+00228                 context.Self = obj;
+00229                 saveConstext(context);
+00230                 
+00231                 NLAIAGENT::IObjectIA::CProcessResult i;
+00232                 if ( _Inheritance ) 
+00233                         i = ((NLAIAGENT::IObjectIA *)context.Self)->runMethodeMember(_Inheritance,_I,&context);
+00234                 else 
+00235                         i = ((NLAIAGENT::IObjectIA *)context.Self)->runMethodeMember(_I,&context);
+00236 
+00237                 context.Self = selfTmp;
+00238                 loadConstext(context);
+00239                 CVarPStackParam::_Shift = sp;           
+00240                 context.Stack ++;
+00241                 context.Stack[(int)context.Stack] = o;
+00242                 return NLAIAGENT::processIdle;
+00243         }
+00244 
+00245         void CCallStackMethodi::getDebugResult(std::string &str,CCodeContext &context) const
+00246         {               
+00247                 NLAIAGENT::IObjectIA *obj = (NLAIAGENT::IObjectIA *)context.Stack[(int)context.Stack - 1];
+00248                 std::list<sint32>::const_iterator it = _N.begin();
+00249                 std::string name = "????";
+00250 
+00251                 while(it != _N.end())
+00252                 {
+00253                         obj = (NLAIAGENT::IObjectIA *)obj->getStaticMember(*it++);
+00254                 }               
+00255                 if(((const NLAIC::CTypeOfObject &)obj->getType()) & NLAIC::CTypeOfObject::tInterpret)
+00256                 {
+00257                         if(((const NLAIC::CTypeOfObject &)obj->getType()) & NLAIC::CTypeOfObject::tAgent)
+00258                         {
+00259                                 /*sint i = _I - ((NLAIAGENT::CAgentScript *)obj)->getBaseMethodCount();
+00260                                 if(i >= 0)
+00261                                 {
+00262                                         ((NLAIAGENT::CAgentScript *)obj)->getClass()->getBrancheCode(_Inheritance, i).getName().getDebugString(name);
+00263                                         ((NLAIAGENT::CAgentScript *)obj)->getClass()->getBrancheCode(_Inheritance,i).getParam().getDebugString(name);
+00264                                 }*/
+00265                                 name = obj->getMethodeMemberDebugString(_Inheritance,_I);
+00266                         }
+00267                         else
+00268                         if(((const NLAIC::CTypeOfObject &)obj->getType()) & NLAIC::CTypeOfObject::tMessage)
+00269                         {                               
+00270                                 ((NLAIAGENT::CMessageScript *)obj)->getCreatorClass()->getBrancheCode(_Inheritance,_I).getName().getDebugString(name);
+00271                                 ((NLAIAGENT::CMessageScript *)obj)->getCreatorClass()->getBrancheCode(_Inheritance,_I).getParam().getDebugString(name);
+00272                         }
+00273                 }
+00274                 str = NLAIC::stringGetBuild("Method: '%s.%s'", (const char *)(context.Self)->getType(),name.c_str());
+00275         }
+00276 
+00277         NLAIAGENT::TProcessStatement CCallStackMethodi::runOpCode(CCodeContext &context)
+00278         {                               
+00279                 int sp = CVarPStackParam::_Shift;
+00280                 NLAIAGENT::IObjectIA *o = (NLAIAGENT::IObjectIA *)context.Stack[(int)context.Stack - 1];
+00281                 o->incRef();
+00282                 NLAIAGENT::IObjectIA *os = (NLAIAGENT::IObjectIA *)context.Stack; 
+00283                 os->incRef();
+00284                 
+00285                 context.Stack --;
+00286                 context.Stack --;
+00287                 context.Stack ++;
+00288                 context.Stack[(int)context.Stack] = os;
+00289 
+00290                 std::list<sint32>::iterator it = _N.begin();
+00291                 NLAIAGENT::IObjectIA *obj = o;
+00292                 while(it != _N.end())
+00293                 {
+00294                         obj = (NLAIAGENT::IObjectIA *)obj->getStaticMember(*it++);
+00295                 }
+00296 
+00297                 NLAIAGENT::IObjectIA *selfTmp = (NLAIAGENT::IObjectIA *)context.Self;
+00298                 context.Self = obj;
+00299                 saveConstext(context);
+00300                 
+00301                 NLAIAGENT::IObjectIA::CProcessResult i;
+00302                 if(_Inheritance) i = ((NLAIAGENT::IObjectIA *)context.Self)->runMethodeMember(_Inheritance,_I,&context);
+00303                 else i = ((NLAIAGENT::IObjectIA *)context.Self)->runMethodeMember(_I,&context);
+00304 
+00305                 context.Self = selfTmp;
+00306                 loadConstext(context);
+00307                 CVarPStackParam::_Shift = sp;
+00308                 o->release();
+00309                 return NLAIAGENT::processIdle;
+00310         }                       
+00311 
+00312 
+00313         void CCallHeapMethodi::getDebugResult(std::string &str,CCodeContext &context) const
+00314         {               
+00315                 NLAIAGENT::IObjectIA *obj = (NLAIAGENT::IObjectIA *)context.Heap[(int)_HeapPos];
+00316                 std::list<sint32>::const_iterator it = _N.begin();
+00317                 std::string name = "????";
+00318 
+00319                 while(it != _N.end())
+00320                 {
+00321                         obj = (NLAIAGENT::IObjectIA *)obj->getStaticMember(*it++);
+00322                 }
+00323                 if(((const NLAIC::CTypeOfObject &)obj->getType()) & NLAIC::CTypeOfObject::tInterpret)
+00324                 {
+00325                         if(((const NLAIC::CTypeOfObject &)obj->getType()) & NLAIC::CTypeOfObject::tAgent)
+00326                         {
+00327                                 /*sint i = _I - ((NLAIAGENT::CAgentScript *)obj)->getBaseMethodCount();
+00328                                 if(i >= 0)
+00329                                 {
+00330                                         ((NLAIAGENT::CAgentScript *)obj)->getClass()->getBrancheCode(_Inheritance, i).getName().getDebugString(name);
+00331                                         ((NLAIAGENT::CAgentScript *)obj)->getClass()->getBrancheCode(_Inheritance,i).getParam().getDebugString(name);
+00332                                 }*/
+00333                                 name = obj->getMethodeMemberDebugString(_Inheritance,_I);
+00334                         }
+00335                         else
+00336                         if(((const NLAIC::CTypeOfObject &)obj->getType()) & NLAIC::CTypeOfObject::tMessage)
+00337                         {                               
+00338                                 ((NLAIAGENT::CMessageScript *)obj)->getCreatorClass()->getBrancheCode(_Inheritance,_I).getName().getDebugString(name);
+00339                                 ((NLAIAGENT::CMessageScript *)obj)->getCreatorClass()->getBrancheCode(_Inheritance,_I).getParam().getDebugString(name);
+00340                         }
+00341                 }
+00342                 str = NLAIC::stringGetBuild("Method: '%s.%s'", (const char *)(context.Self)->getType(),name.c_str());
+00343         }
+00344 
+00345 
+00346         NLAIAGENT::TProcessStatement CCallHeapMethodi::runOpCode(CCodeContext &context)
+00347         {                               
+00348                 int sp = CVarPStackParam::_Shift;
+00349                 NLAIAGENT::IObjectIA *obj = (NLAIAGENT::IObjectIA *)context.Heap[(int)_HeapPos];
+00350                 NLAIAGENT::IObjectIA *selfTmp = (NLAIAGENT::IObjectIA *)context.Self;
+00351 
+00352                 std::list<sint32>::iterator it = _N.begin();                    
+00353                 while(it != _N.end())
+00354                 {
+00355                         obj = (NLAIAGENT::IObjectIA *)obj->getStaticMember(*it++);
+00356                 }
+00357                 
+00358                 context.Self = obj;
+00359                 saveConstext(context);
+00360 
+00361                 NLAIAGENT::IObjectIA::CProcessResult i;
+00362                 if(_Inheritance) i = ((NLAIAGENT::IObjectIA *)context.Self)->runMethodeMember(_Inheritance,_I,&context);
+00363                 else i = ((NLAIAGENT::IObjectIA *)context.Self)->runMethodeMember(_I,&context);
+00364 
+00365                 context.Self = selfTmp;
+00366                 loadConstext(context);
+00367                 CVarPStackParam::_Shift = sp;
+00368                 return NLAIAGENT::processIdle;
+00369         }
+00370 }
+
opcode_call_method.cpp
