Function handle_script

src/Chain/libraries/glua/single_glua_src/main.cpp:452–485

static bool use_type_check_compile = true;

static int handle_script(lua_State *L, char **argv, bool is_contract=false) {
	int status;
	const char *fname = argv[0];
	if (strcmp(fname, "-") == 0 && strcmp(argv[-1], "--") != 0)
		fname = NULL;  /* stdin */
	bool is_bytecode_file = luaL_is_bytecode_file(L, fname);
	if (is_bytecode_file)
	{
		status = luaL_loadfile(L, fname);
		if (status == LUA_OK) {
			int n = pushargs(L);  /* push arguments to script */
			status = docall(L, n, LUA_MULTRET);
		}
		return report(L, status);
	}
	else
	{
		std::string out_fname = std::string(fname) + ".out";
		char error[LUA_COMPILE_ERROR_MAX_LENGTH + 1];
		memset(error, 0x0, sizeof(char) * (LUA_COMPILE_ERROR_MAX_LENGTH + 1));
		// TODO: 如果is_contract，编译期开启合约语法扩展检查
		if(!thinkyoung::lua::lib::compilefile_to_file(fname, out_fname.c_str(), error, use_type_check_compile))
		{
			printf("compile %s error\n", fname);
			if (strlen(error) > 0)
			{
				perror(error);
				lua_set_compile_error(L, error);
			}
			return LUA_ERRRUN;
		}
		return thinkyoung::lua::lib::run_compiledfile(L, out_fname.c_str()) ? LUA_OK : LUA_ERRRUN;
	}
}

static int run_decompile_script(lua_State *L, char **argv, int script)
{