1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#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;
};
}
|
