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/script/compilateur.h"
00025 #include "nel/ai/script/constraint.h"
00026 #include "nel/ai/script/constraint_find_run.h"
00027 #include "nel/ai/script/object_load.h"
00028 
00029 namespace NLAISCRIPT
00030 {       
00031 
00032         CConstraintFindRun::CConstraintFindRun( CConstraintMethode::TCallTypeOpCode callType,
00033                                                                                         int posHeap,IConstraint *baseClass,     NLAIAGENT::IBaseGroupType *methodName,CParam *param,int lin,int col):
00034                                                                                         CConstraintMethode(searchCall,posHeap,baseClass,methodName,param,lin,col),_TypeOfCallType(callType)                                             
00035         {               
00036         }
00037 
00038         const IConstraint *CConstraintFindRun::clone() const
00039         {
00040                 if(_BaseClass) _BaseClass->incRef();
00041                 _MethodName->incRef();
00042                 _Param->incRef();
00043                 IConstraint *x = new CConstraintFindRun(_TypeOfCallType,_PosHeap,_BaseClass,_MethodName,_Param,_Lin,_Col);              
00044                 return x;
00045         }
00046 
00047         void CConstraintFindRun::run(CCompilateur &c)
00048         {               
00049 #ifdef NL_DEBUG
00050                 std::string mtxt;
00051                 std::string ptxt;
00052                 std::string txt;
00053                 
00054                 _MethodName->getDebugString(mtxt);
00055                 _Param->getDebugString(ptxt);
00056                 txt += mtxt + ptxt;
00057 #endif
00058 
00059                 if(_BaseClass)
00060                 {
00061                         if(!_BaseClass->satisfied()) _BaseClass->run(c);
00062                         if(_BaseClass->satisfied())
00063                         {
00064                                 const NLAIAGENT::IObjectIA *cl = (const NLAIAGENT::IObjectIA *)(_BaseClass->getConstraintTypeOf()->getFactory())->getClass();
00065                                 CFunctionTag method;                            
00066                                 NLAIAGENT::IBaseGroupType *m = (NLAIAGENT::IBaseGroupType *)_MethodName->clone();                                                               
00067                                 const NLAIAGENT::IObjectIA *b = c.validateHierarchyMethode(method.Member,method.Inheritance,cl,*m);
00068                                 m->release();
00069                                 //const NLAIAGENT::IObjectIA *b = c.validateHierarchyMethode(method.Member,method.Inheritance,cl,*_MethodName);
00070                                 if(b)
00071                                 {                                       
00072                                         if(!(( (const NLAIC::CTypeOfObject &)b->getType() ) & NLAIC::CTypeOfObject::tInterpret))
00073                                         {
00074                                                 _Satisfied = true;
00075                                                 _MethodName->incRef();
00076                                                 _Param->incRef();
00077                                                 _BaseClass->incRef();
00078                                                 const CFunctionTag &m = getfunctionTag();
00079                                                 ILoadObject *o=0;
00080                                                 switch(_TypeOfCallType)
00081                                                 {
00082                                                 case normalCall:
00083                                                         o = new CLoadSelfObject(method.Member);
00084                                                         break;
00085 
00086                                                 case stackCall:
00087                                                         o = new CLoadStackObject(m.Member);
00088                                                         break;
00089 
00090                                                 case heapCall:
00091                                                         o = new CLoadHeapObject(m.Member,_PosHeap);
00092                                                         break;
00093         
00094                                                 case newCall:
00095                                                         o = NULL;
00096                                                         break;
00097 
00098                                                 case searchCall:
00099                                                         o = NULL;
00100                                                         break;
00101                                                         
00102                                                 }
00103                                                 IOpCode *x = new CFindRunMsg(_MethodName,_Param,(IOpType *)_BaseClass,o);
00104                                                 setOpCode(x);
00105                                                 return;
00106                                         }
00107                                 }
00108                         }
00109 
00110                 }               
00111                 CConstraintMethode::run(c);
00112         }               
00113 
00114         void CConstraintFindRun::setOpCode(CCompilateur &comp,IOpCode *,IConstraint *cType,bool del)
00115         {
00116                 const CFunctionTag &m = getfunctionTag();
00117                 IOpCode *x = new CMarkMsg(m.Inheritance, m.MethodNum);
00118                 while(_Code.size())
00119                 {                       
00120                         std::pair<int, CCodeBrancheRun *> &p = _Code.back();
00121                         IOpCode *op = (*p.second)[p.first];
00122                         op->release();
00123                         (*p.second)[p.first] = x;
00124                         _Code.pop_back();                       
00125                         if(_Code.size()) x->incRef();
00126                 }
00127                 _Type = cType;
00128                 _Type->run(comp);
00129                 _DelCType = del;
00130                 runConnexcion();
00131         }
00132         void CConstraintFindRun::setOpCode(IOpCode *x)
00133         {
00134                 while(_Code.size())
00135                 {                       
00136                         std::pair<int, CCodeBrancheRun *> &p = _Code.back();
00137                         IOpCode *op = (*p.second)[p.first];
00138                         op->release();
00139                         (*p.second)[p.first] = x;
00140                         _Code.pop_back();                       
00141                         if(_Code.size()) x->incRef();
00142                 }
00143                 _Type = _BaseClass;
00144                 runConnexcion();
00145         }
00146         
00147         CConstraintFindRun::~CConstraintFindRun()
00148         {                                                                       
00149         }
00150 }
constraint_find_run.cpp
