Home

nevrax.com

Nevrax.org News Mailing-list Documentation CVS Bugs License

Documentation                       Search   codage.h Go to the documentation of this file. /* Copyright, 2000 Nevrax Ltd. * * This file is part of NEVRAX NEL. * NEVRAX NEL is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2, or (at your option) * any later version. * NEVRAX NEL is distributed in the hope that it will be useful, but * WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * General Public License for more details. * You should have received a copy of the GNU General Public License * along with NEVRAX NEL; see the file COPYING. If not, write to the * Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, * MA 02111-1307, USA. */ #ifndef NL_CODAGE_H #define NL_CODAGE_H #ifdef NL_OS_WINDOWS #pragma warning (disable: 4620) #pragma warning (disable: 4621) #endif #include "nel/ai/script/virtual_op_code.h" #include "nel/ai/script/context_debug.h" namespace NLAISCRIPT { // ====================================================================================================== class CIndexStackPointer { protected: int _Sp; private: std::list<int> _Marque; public: CIndexStackPointer():_Sp(0) { } virtual operator int () { return _Sp; } virtual void operator ++ ( int ) { _Sp ++; } virtual void operator -- ( int ) { _Sp --; } virtual void operator += (int k) { _Sp += k; } virtual void operator -= (int k) { _Sp -= k; } virtual void pushMark() { _Marque.push_back(_Sp); } virtual int popMark() { int i = 0; i = _Marque.back(); _Marque.pop_back(); return i; } virtual int markSize() { return _Marque.size(); } virtual int mark() { return _Marque.back(); } void clear() { _Sp = 0; _Marque.clear(); } virtual ~CIndexStackPointer() { } }; // ====================================================================================================== class CStackPointer: public CIndexStackPointer { private: int _Count; int _Bp; int _Sh; std::list<int> _Decalage; std::list<int> _Shift; NLAIAGENT::IObjectIA **_Stack; public: CStackPointer(int count = 1024*8) { _Count = count; _Stack = new NLAIAGENT::IObjectIA *[ count ]; for(int i = 0; i < _Count; i ++) { _Stack[i] = NULL; } _Sp = 0; _Bp = 0; _Sh = 0; } NLAIAGENT::IObjectIA *&operator [] (int i) { #ifdef NL_DEBUG if ( (_Sp + _Bp + _Sh) >= _Count ) { throw NLAIE::CExceptionIndexError(); } #endif return _Stack[i + _Bp + _Sh]; } operator NLAIAGENT::IObjectIA *() { #ifdef NL_DEBUG if ( (_Sp + _Bp + _Sh) >= _Count ) { throw NLAIE::CExceptionIndexError(); } #endif return _Stack[_Sp + _Bp + _Sh]; } virtual void operator -- (int) { #ifdef NL_DEBUG if ( (_Sp + _Bp + _Sh) >= _Count ) { throw NLAIE::CExceptionIndexError(); } #endif int i = _Sp + _Bp + _Sh; if(_Stack[i]) { _Stack[i]->release(); _Stack[i] = NULL; } _Sp --; } virtual void operator -= (int k) { #ifdef NL_DEBUG if ( (_Sp + _Bp + _Sh) >= _Count ) { throw NLAIE::CExceptionIndexError(); } #endif int n = _Sp + _Bp + _Sh; for(int i = n - k; i < n; i ++) { if(_Stack[i]) { _Stack[i]->release(); _Stack[i] = NULL; } } _Sp -= k; } void addStack(int bp) { _Bp += bp; _Sp -= bp; _Decalage.push_back(bp); } void restoreStack() { int k = _Bp; _Bp -= _Decalage.back(); _Decalage.pop_back(); _Sp += k; *this -= k; } void setShift(int s) { _Sh += s; _Sp -= s; _Shift.push_back(s); } void restoreShift() { int s = _Shift.back(); _Shift.pop_back(); _Sp += s; _Sh -= s; } bool restoreStackState() { return _Decalage.size() != 0; } bool restoreShiftState() { return _Shift.size() != 0; } ~CStackPointer() { if(_Stack) { for(int i = _Bp; i < (_Sp + _Bp); i ++) { if(_Stack[i] != NULL) { _Stack[i]->release(); _Stack[i] = NULL; } } delete []_Stack; _Stack = NULL; } } }; class CCodeBrancheRun; typedef CStackPointer tStackRef; typedef CCodeBrancheRun tCodeRef; // ====================================================================================================== class CCodeContext : public NLAIAGENT::IObjectIA { public: tStackRef &Stack; tStackRef &Heap; tCodeRef *Code; const NLAIAGENT::IObjectIA *Self; NLAIC::IIO *InputOutput; std::list<NLAIAGENT::IObjectIA *> Param; CContextDebug ContextDebug; public: static const NLAIC::CIdentType IdCodeContext; public: CCodeContext(tStackRef &stackMem,tStackRef &heapMem,tCodeRef *codeMem,const NLAIAGENT::IObjectIA *thisClass,NLAIC::IIO *io): Stack(stackMem), Heap(heapMem), Code(codeMem), Self(thisClass), InputOutput(io) { if(InputOutput != NULL) InputOutput->incRef(); } void init() { ContextDebug.init(); } void setIO(NLAIC::IIO *io) { if(InputOutput != NULL) InputOutput->release(); InputOutput = io; } const NLAIC::CIdentType &getType(void) const { return IdCodeContext; } const NLAIC::IBasicType *clone(void) const { CCodeContext *x = new CCodeContext(Stack,Heap,Code,Self,InputOutput); return x; } const NLAIC::IBasicType *newInstance(void) const { return clone(); } void getDebugString(std::string &t) const { t = NLAIC::stringGetBuild("CCodeContext"); } void save(NLMISC::IStream &f) { } void load(NLMISC::IStream &f) { } bool isEqual(const class NLAIAGENT::IBasicObjectIA &) const { return true; } const NLAIAGENT::IObjectIA::CProcessResult &run(void) { return NLAIAGENT::IObjectIA::ProcessRun;; } ~CCodeContext() { if(InputOutput != NULL) InputOutput->release(); } }; class IConstraint; // ====================================================================================================== class CBagOfCode { private: IOpCode *_Opcode; std::list<IConstraint *> _Constraint; public: CBagOfCode(IOpCode *opcode):_Opcode(opcode) { } operator IOpCode *() const { return _Opcode; } void setCode(IOpCode *op) { _Opcode = op; } void addConstraint(IConstraint *c) { _Constraint.push_back(c); } void addConstraint(CBagOfCode *b) { std::list<IConstraint *>::iterator it = b->_Constraint.begin(); while(it != b->_Constraint.end()) { _Constraint.push_back(*it++); } } void setConstraintIndex(int i,CCodeBrancheRun *c); ~CBagOfCode(){} }; typedef std::list<CBagOfCode *> tListCode; typedef std::list<CBagOfCode *>::iterator tListCodeIter; // ====================================================================================================== class CCodeBrancheRun: public ICodeBranche { public: static NLAIC::IIO *InputOutput; protected: IOpCode **_TableCode; int _Ip; int _Count; NLAIAGENT::IObjectIA::CProcessResult _RunState; protected: void del() { if(_TableCode != NULL) { for(int i = 0 ;i < _Count; i ++) { if(_TableCode[i]) _TableCode[i]->release(); } delete []_TableCode; } } public: static const NLAIC::CIdentType IdCodeBrancheRun; public: CCodeBrancheRun(const CCodeBrancheRun &l):_TableCode(NULL),_Ip(0),_Count(l._Count) { _TableCode = new IOpCode * [_Count]; for(int i = 0 ;i < _Count; i ++) { _TableCode[i] = (IOpCode *)l._TableCode[i];//->clone(); _TableCode[i]->incRef(); } } CCodeBrancheRun(const tListCode &l): _TableCode(NULL),_Ip(0),_Count(l.size()) { initCode(l); } CCodeBrancheRun(int N,const IOpCode &op); CCodeBrancheRun(int N); CCodeBrancheRun(NLMISC::IStream &is):_TableCode(NULL),_Ip(0),_Count(0) { load(is); } virtual ~CCodeBrancheRun() { del(); } void initCode(const tListCode &l) { del(); _Count = l.size(); tListCode::const_iterator i; _TableCode = new IOpCode * [l.size()]; i = l.begin(); int k = 0; while(i != l.end()) { _TableCode[k ++] = (IOpCode *)*i++; } } void initCode(const CCodeBrancheRun &l) { del(); _Ip = 0; _Count = l._Count; _TableCode = new IOpCode * [_Count]; for(int i = 0; i < _Count;i ++) { _TableCode[i ++] = (IOpCode *)l._TableCode[i]->clone(); } } IOpCode *&operator [] (int i) { return _TableCode[i]; } void operator = (uint32 l) { _Ip = l; } void operator += (uint32 l) { _Ip += l; } operator uint32 () { return _Ip; } void init() { _Ip = 0; } IOpCode &nextCode() { return *_TableCode[_Ip++]; } virtual const NLAIAGENT::IObjectIA::CProcessResult &run(NLAIAGENT::IObjectIA &self); virtual const NLAIAGENT::IObjectIA::CProcessResult &run(CCodeContext &); NLAIAGENT::TProcessStatement runOpCode(CCodeContext &context); void getDebugResult(std::string &str,CCodeContext &context) const; void save(NLMISC::IStream &f); void load(NLMISC::IStream &f); void getDebugString(std::string &) const; const NLAIC::CIdentType &getType() const; const NLAIC::IBasicType *clone() const { NLAIC::IBasicType *x = new CCodeBrancheRun(*this); return x; } const NLAIC::IBasicType *newInstance() const; bool isEqual(const NLAIAGENT::IBasicObjectIA &a) const{ return true;} virtual const NLAIAGENT::IObjectIA::CProcessResult &run(); }; } #include "nel/ai/script/opcode.h" #endif