#pragma once

#include "parse/sexp/DynamicSEXP.h"

#include "scripting/lua/LuaFunction.h"
#include "scripting/lua/LuaTable.h"

#include "parse/sexp.h"

namespace sexp {

class LuaSEXP : public DynamicSEXP {
protected:
	luacpp::LuaFunction _action;

	int _min_args;
	int _max_args;

	SCP_vector<std::pair<SCP_string, int>> _argument_types;			//!< These are the types of the static, non-repeating arguments
	SCP_vector<std::pair<SCP_string, int>> _varargs_type_pattern;	//!< This is the pattern for the variable argument part of the SEXP

	int _return_type = OPR_NULL;

	int _category;
	int _subcategory;

	std::pair<SCP_string, int> getArgumentInternalType(int argnum) const;
	luacpp::LuaValue sexpToLua(int node, int argnum, int parent_node) const;

	// just a helper for parseTable
	static bool parseCheckEndOfDescription();

	// another helper
	static bool maybeExtractSexpSpecialRetVal(const luacpp::LuaValue& value, int& sexp_retval);

 public:
	static std::pair<SCP_string, int> get_parameter_type(const SCP_string& name);
	static int get_return_type(const SCP_string& name);

	explicit LuaSEXP(const SCP_string& name);

	void initialize() override;

	int getMinimumArguments() const override;

	int getMaximumArguments() const override;

	int getArgumentType(int argnum) const override;

	int execute(int node, int parent_node = -1) override;

	int getReturnType() override;

	int getSubcategory() override;

	int getCategory() override;

	void parseTable();

	void setAction(const luacpp::LuaFunction& action);

	luacpp::LuaFunction getAction() const;
	int getSexpReturnValue(const luacpp::LuaValueList& retVals) const;

	luacpp::LuaValueList getSEXPArgumentList(int node, int parent_node = -1) const;
};

}

