/**
 * @author Alberto DEMICHELIS
 * @author Edouard DUPIN
 * @copyright 2018, Edouard DUPIN, all right reserved
 * @copyright 2003-2017, Alberto DEMICHELIS, all right reserved
 * @license MPL-2 (see license file)
 */
#pragma once

#include <etk/Vector.hpp>
#include <rabbit/LocalVarInfo.hpp>
#include <rabbit/OuterVar.hpp>
#include <rabbit/LineInfo.hpp>
#include <rabbit/Instruction.hpp>

namespace rabbit {
	class FuncState {
		public:
			FuncState(rabbit::SharedState *ss,rabbit::FuncState *parent,compilererrorFunc efunc,void *ed);
			~FuncState();
			#ifdef _DEBUG_DUMP
				void dump(rabbit::FunctionProto *func);
			#endif
			void error(const char *err);
			FuncState *pushChildState(rabbit::SharedState *ss);
			void popChildState();
			void addInstruction(SQOpcode _op,int64_t arg0=0,int64_t arg1=0,int64_t arg2=0,int64_t arg3=0);
			void addInstruction(rabbit::Instruction &i);
			void setIntructionParams(int64_t pos,int64_t arg0,int64_t arg1,int64_t arg2=0,int64_t arg3=0);
			void setIntructionParam(int64_t pos,int64_t arg,int64_t val);
			rabbit::Instruction &getInstruction(int64_t pos){return _instructions[pos];}
			void popInstructions(int64_t size){for(int64_t i=0;i<size;i++)_instructions.popBack();}
			void setStacksize(int64_t n);
			int64_t CountOuters(int64_t stacksize);
			void snoozeOpt(){_optimization=false;}
			void addDefaultParam(int64_t trg) { _defaultparams.pushBack(trg); }
			int64_t getDefaultParamCount() { return _defaultparams.size(); }
			int64_t getCurrentPos(){return _instructions.size()-1;}
			int64_t getNumericConstant(const int64_t cons);
			int64_t getNumericConstant(const float_t cons);
			int64_t pushLocalVariable(const rabbit::Object &name);
			void addParameter(const rabbit::Object &name);
			//void addOuterValue(const rabbit::Object &name);
			int64_t getLocalVariable(const rabbit::Object &name);
			void markLocalAsOuter(int64_t pos);
			int64_t getOuterVariable(const rabbit::Object &name);
			int64_t generateCode();
			int64_t getStacksize();
			int64_t calcStackFramesize();
			void addLineInfos(int64_t line,bool lineop,bool force=false);
			rabbit::FunctionProto *buildProto();
			int64_t allocStackPos();
			int64_t pushTarget(int64_t n=-1);
			int64_t popTarget();
			int64_t topTarget();
			int64_t getUpTarget(int64_t n);
			void discardTarget();
			bool isLocal(uint64_t stkpos);
			rabbit::Object createString(const char *s,int64_t len = -1);
			rabbit::Object createTable();
			bool isConstant(const rabbit::Object &name,rabbit::Object &e);
			int64_t _returnexp;
			etk::Vector<rabbit::LocalVarInfo> _vlocals;
			etk::Vector<int64_t> _targetstack;
			int64_t _stacksize;
			bool _varparams;
			bool _bgenerator;
			etk::Vector<int64_t> _unresolvedbreaks;
			etk::Vector<int64_t> _unresolvedcontinues;
			etk::Vector<rabbit::ObjectPtr> _functions;
			etk::Vector<rabbit::ObjectPtr> _parameters;
			etk::Vector<rabbit::OuterVar> _outervalues;
			etk::Vector<rabbit::Instruction> _instructions;
			etk::Vector<rabbit::LocalVarInfo> _localvarinfos;
			rabbit::ObjectPtr _literals;
			rabbit::ObjectPtr _strings;
			rabbit::ObjectPtr _name;
			rabbit::ObjectPtr _sourcename;
			int64_t _nliterals;
			etk::Vector<rabbit::LineInfo> _lineinfos;
			FuncState *_parent;
			etk::Vector<int64_t> _scope_blocks;
			etk::Vector<int64_t> _breaktargets;
			etk::Vector<int64_t> _continuetargets;
			etk::Vector<int64_t> _defaultparams;
			int64_t _lastline;
			int64_t _traps; //contains number of nested exception traps
			int64_t _outers;
			bool _optimization;
			rabbit::SharedState *_sharedstate;
			etk::Vector<FuncState*> _childstates;
			int64_t getConstant(const rabbit::Object &cons);
		private:
			compilererrorFunc _errfunc;
			void *_errtarget;
			rabbit::SharedState *_ss;
	};
}