vim: src/if_lua.c annotate

annotate src/if_lua.c @ 32807:0582b3b40319 v9.0.1719

patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Commit: https://github.com/vim/vim/commit/8a35033782de4e1f43fba15543fc8fb458944194 Author: Jesse Pavel <jpavel@alum.mit.edu> Date: Sun Aug 13 22:05:45 2023 -0400 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Problem: if_lua: crash for Lua functions invoked via Vim callbacks Solution: Use Lua registry rather than upvalues for udata cache closes: #12785 Signed-off-by: Christian Brabandt <cb@256bit.org> Co-authored-by: Jesse Pavel <jpavel@alum.mit.edu>

author	Christian Brabandt <cb@256bit.org>
date	Tue, 15 Aug 2023 23:30:03 +0200
parents	4545f58c8490
children	cf6d98955c64

rev	line source
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2 *
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	4 *
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	5 * Lua interface by Luis Carvalho
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	6 *
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	7 * Do ":help uganda" in Vim to read copying and usage conditions.
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	8 * Do ":help credits" in Vim to see a list of people who contributed.
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	9 * See README.txt for an overview of the Vim source code.
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	10 */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	11
2683 0c7d6d01e058 updated for version 7.3.101 Bram Moolenaar <bram@vim.org> parents: 2612 diff changeset	12 #include "vim.h"
25527 d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	13 #include "version.h"
2683 0c7d6d01e058 updated for version 7.3.101 Bram Moolenaar <bram@vim.org> parents: 2612 diff changeset	14
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	15 #include <lua.h>
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	16 #include <lualib.h>
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	17 #include <lauxlib.h>
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	18
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	19 #if __STDC_VERSION__ >= 199901L
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	20 # define LUAV_INLINE inline
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	21 #else
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	22 # define LUAV_INLINE
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	23 #endif
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	24
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	25 // Only do the following when the feature is enabled. Needed for "make
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	26 // depend".
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	27 #if defined(FEAT_LUA) \|\| defined(PROTO)
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	28
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	29 #define LUAVIM_CHUNKNAME "vim chunk"
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	30 #define LUAVIM_NAME "vim"
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	31 #define LUAVIM_EVALNAME "luaeval"
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	32 #define LUAVIM_EVALHEADER "local _A=select(1,...) return "
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	33
24385 0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	34 #ifdef LUA_RELEASE
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	35 # define LUAVIM_VERSION LUA_RELEASE
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	36 #else
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	37 # define LUAVIM_VERSION LUA_VERSION
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	38 #endif
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	39
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	40 typedef buf_T *luaV_Buffer;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	41 typedef win_T *luaV_Window;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	42 typedef dict_T *luaV_Dict;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	43 typedef list_T *luaV_List;
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	44 typedef blob_T *luaV_Blob;
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	45 typedef struct {
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	46 char_u *name; // funcref
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	47 dict_T *self; // selfdict
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	48 } luaV_Funcref;
22719 8da5e18effc5 patch 8.2.1908: Lua is initialized even when not used Bram Moolenaar <Bram@vim.org> parents: 21367 diff changeset	49 typedef int (msgfunc_T)(char );
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	50
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	51 typedef struct {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	52 int lua_funcref; // ref to a lua func
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	53 int lua_tableref; // ref to a lua table if metatable else LUA_NOREF. used
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	54 // for __call
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	55 lua_State *L;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	56 } luaV_CFuncState;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	57
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	58 static const char LUAVIM_DICT[] = "dict";
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	59 static const char LUAVIM_LIST[] = "list";
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	60 static const char LUAVIM_BLOB[] = "blob";
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	61 static const char LUAVIM_FUNCREF[] = "funcref";
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	62 static const char LUAVIM_BUFFER[] = "buffer";
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	63 static const char LUAVIM_WINDOW[] = "window";
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	64 static const char LUAVIM_FREE[] = "luaV_free";
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	65 static const char LUAVIM_LUAEVAL[] = "luaV_luaeval";
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	66 static const char LUAVIM_SETREF[] = "luaV_setref";
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	67
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	68 static const char LUA___CALL[] = "__call";
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	69
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	70 // get/setudata manage references to vim userdata in a cache table through
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	71 // object pointers (light userdata). The cache table itself is retrieved
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	72 // from the registry.
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	73
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	74 static const char LUAVIM_UDATA_CACHE[] = "luaV_udata_cache";
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	75
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	76 static void LUAV_INLINE
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	77 luaV_getudata(lua_State L, void v)
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	78 {
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	79 lua_pushlightuserdata(L, (void *) LUAVIM_UDATA_CACHE);
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	80 lua_rawget(L, LUA_REGISTRYINDEX); // now the cache table is at the top of the stack
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	81 lua_pushlightuserdata(L, v);
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	82 lua_rawget(L, -2);
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	83 lua_remove(L, -2); // remove the cache table from the stack
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	84 }
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	85
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	86 static void LUAV_INLINE
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	87 luaV_setudata(lua_State L, void v)
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	88 {
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	89 lua_pushlightuserdata(L, (void *) LUAVIM_UDATA_CACHE);
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	90 lua_rawget(L, LUA_REGISTRYINDEX); // cache table is at -1
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	91 lua_pushlightuserdata(L, v); // ...now at -2
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	92 lua_pushvalue(L, -3); // copy the userdata (cache at -3)
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	93 lua_rawset(L, -3); // consumes two stack items
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	94 lua_pop(L, 1); // and remove the cache table
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	95 }
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	96
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	97 #define luaV_getfield(L, s) \
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	98 lua_pushlightuserdata((L), (void *)(s)); \
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	99 lua_rawget((L), LUA_REGISTRYINDEX)
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	100 #define luaV_checksandbox(L) \
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	101 if (sandbox) luaL_error((L), "not allowed in sandbox")
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	102 #define luaV_msg(L) luaV_msgfunc((L), (msgfunc_T) msg)
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	103 #define luaV_emsg(L) luaV_msgfunc((L), (msgfunc_T) emsg)
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	104 #define luaV_checktypval(L, a, v, msg) \
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	105 do { \
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	106 if (luaV_totypval(L, a, v) == FAIL) \
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	107 luaL_error(L, msg ": cannot convert value"); \
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	108 } while (0)
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	109
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	110 static luaV_List luaV_pushlist(lua_State L, list_T *lis);
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	111 static luaV_Dict luaV_pushdict(lua_State L, dict_T *dic);
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	112 static luaV_Blob luaV_pushblob(lua_State L, blob_T *blo);
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	113 static luaV_Funcref luaV_pushfuncref(lua_State L, char_u *name);
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	114 static int luaV_call_lua_func(int argcount, typval_T argvars, typval_T rettv, void *state);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	115 static void luaV_call_lua_func_free(void *state);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	116
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	117 #if LUA_VERSION_NUM <= 501
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	118 #define luaV_register(L, l) luaL_register(L, NULL, l)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	119 #define luaL_typeerror luaL_typerror
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	120 #else
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	121 #define luaV_register(L, l) luaL_setfuncs(L, l, 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	122 #endif
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	123
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	124 #ifdef DYNAMIC_LUA
2373 f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	125
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	126 #ifndef MSWIN
2373 f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	127 # include <dlfcn.h>
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	128 # define HANDLE void*
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	129 # define load_dll(n) dlopen((n), RTLD_LAZY\|RTLD_GLOBAL)
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	130 # define symbol_from_dll dlsym
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	131 # define close_dll dlclose
25342 c4298ed56ffa patch 8.2.3208: dynamic library load error does not mention why it failed Bram Moolenaar <Bram@vim.org> parents: 24385 diff changeset	132 # define load_dll_error dlerror
2373 f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	133 #else
2612 fa5dee44df3f updated for version 7.3.034 Bram Moolenaar <bram@vim.org> parents: 2543 diff changeset	134 # define load_dll vimLoadLib
2373 f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	135 # define symbol_from_dll GetProcAddress
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	136 # define close_dll FreeLibrary
25342 c4298ed56ffa patch 8.2.3208: dynamic library load error does not mention why it failed Bram Moolenaar <Bram@vim.org> parents: 24385 diff changeset	137 # define load_dll_error GetWin32Error
2373 f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	138 #endif
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	139
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	140 // lauxlib
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	141 #if LUA_VERSION_NUM <= 501
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	142 #define luaL_register dll_luaL_register
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	143 #define luaL_prepbuffer dll_luaL_prepbuffer
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	144 #define luaL_openlib dll_luaL_openlib
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	145 #define luaL_typerror dll_luaL_typerror
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	146 #define luaL_loadfile dll_luaL_loadfile
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	147 #define luaL_loadbuffer dll_luaL_loadbuffer
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	148 #else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	149 #define luaL_prepbuffsize dll_luaL_prepbuffsize
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	150 #define luaL_setfuncs dll_luaL_setfuncs
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	151 #define luaL_loadfilex dll_luaL_loadfilex
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	152 #define luaL_loadbufferx dll_luaL_loadbufferx
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	153 #define luaL_argerror dll_luaL_argerror
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	154 #endif
21323 5b0bbc5d4e74 patch 8.2.1212: cannot build with Lua 5.4 Bram Moolenaar <Bram@vim.org> parents: 21132 diff changeset	155 #if LUA_VERSION_NUM >= 504
5b0bbc5d4e74 patch 8.2.1212: cannot build with Lua 5.4 Bram Moolenaar <Bram@vim.org> parents: 21132 diff changeset	156 #define luaL_typeerror dll_luaL_typeerror
5b0bbc5d4e74 patch 8.2.1212: cannot build with Lua 5.4 Bram Moolenaar <Bram@vim.org> parents: 21132 diff changeset	157 #endif
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	158 #define luaL_checkany dll_luaL_checkany
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	159 #define luaL_checklstring dll_luaL_checklstring
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	160 #define luaL_checkinteger dll_luaL_checkinteger
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	161 #define luaL_optinteger dll_luaL_optinteger
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	162 #define luaL_checktype dll_luaL_checktype
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	163 #define luaL_error dll_luaL_error
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	164 #define luaL_newstate dll_luaL_newstate
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	165 #define luaL_buffinit dll_luaL_buffinit
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	166 #define luaL_addlstring dll_luaL_addlstring
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	167 #define luaL_pushresult dll_luaL_pushresult
20456 25392efa9039 patch 8.2.0782: cannot build with Lua on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 20454 diff changeset	168 #define luaL_loadstring dll_luaL_loadstring
21012 380923b96878 patch 8.2.1057: cannot build with dynamic Lua Bram Moolenaar <Bram@vim.org> parents: 21006 diff changeset	169 #define luaL_ref dll_luaL_ref
380923b96878 patch 8.2.1057: cannot build with dynamic Lua Bram Moolenaar <Bram@vim.org> parents: 21006 diff changeset	170 #define luaL_unref dll_luaL_unref
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	171 // lua
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	172 #if LUA_VERSION_NUM <= 501
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	173 #define lua_tonumber dll_lua_tonumber
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	174 #define lua_tointeger dll_lua_tointeger
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	175 #define lua_call dll_lua_call
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	176 #define lua_pcall dll_lua_pcall
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	177 #else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	178 #define lua_tonumberx dll_lua_tonumberx
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	179 #define lua_tointegerx dll_lua_tointegerx
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	180 #define lua_callk dll_lua_callk
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	181 #define lua_pcallk dll_lua_pcallk
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	182 #define lua_getglobal dll_lua_getglobal
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	183 #define lua_setglobal dll_lua_setglobal
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	184 #endif
6887 2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	185 #if LUA_VERSION_NUM <= 502
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	186 #define lua_replace dll_lua_replace
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	187 #define lua_remove dll_lua_remove
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	188 #endif
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	189 #if LUA_VERSION_NUM >= 503
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	190 #define lua_rotate dll_lua_rotate
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	191 #define lua_copy dll_lua_copy
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	192 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	193 #define lua_typename dll_lua_typename
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	194 #define lua_close dll_lua_close
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	195 #define lua_gettop dll_lua_gettop
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	196 #define lua_settop dll_lua_settop
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	197 #define lua_pushvalue dll_lua_pushvalue
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	198 #define lua_isnumber dll_lua_isnumber
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	199 #define lua_isstring dll_lua_isstring
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	200 #define lua_type dll_lua_type
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	201 #define lua_rawequal dll_lua_rawequal
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	202 #define lua_toboolean dll_lua_toboolean
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	203 #define lua_tolstring dll_lua_tolstring
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	204 #define lua_touserdata dll_lua_touserdata
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	205 #define lua_pushnil dll_lua_pushnil
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	206 #define lua_pushnumber dll_lua_pushnumber
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	207 #define lua_pushinteger dll_lua_pushinteger
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	208 #define lua_pushlstring dll_lua_pushlstring
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	209 #define lua_pushstring dll_lua_pushstring
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	210 #define lua_pushfstring dll_lua_pushfstring
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	211 #define lua_pushcclosure dll_lua_pushcclosure
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	212 #define lua_pushboolean dll_lua_pushboolean
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	213 #define lua_pushlightuserdata dll_lua_pushlightuserdata
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	214 #define lua_getfield dll_lua_getfield
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	215 #define lua_rawget dll_lua_rawget
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	216 #define lua_rawgeti dll_lua_rawgeti
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	217 #define lua_createtable dll_lua_createtable
25527 d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	218 #define lua_settable dll_lua_settable
14583 42eaac6eb4e4 patch 8.1.0305: missing support for Lua 5.4 32 bits on Unix Christian Brabandt <cb@256bit.org> parents: 14395 diff changeset	219 #if LUA_VERSION_NUM >= 504
42eaac6eb4e4 patch 8.1.0305: missing support for Lua 5.4 32 bits on Unix Christian Brabandt <cb@256bit.org> parents: 14395 diff changeset	220 #define lua_newuserdatauv dll_lua_newuserdatauv
42eaac6eb4e4 patch 8.1.0305: missing support for Lua 5.4 32 bits on Unix Christian Brabandt <cb@256bit.org> parents: 14395 diff changeset	221 #else
42eaac6eb4e4 patch 8.1.0305: missing support for Lua 5.4 32 bits on Unix Christian Brabandt <cb@256bit.org> parents: 14395 diff changeset	222 #define lua_newuserdata dll_lua_newuserdata
42eaac6eb4e4 patch 8.1.0305: missing support for Lua 5.4 32 bits on Unix Christian Brabandt <cb@256bit.org> parents: 14395 diff changeset	223 #endif
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	224 #define lua_getmetatable dll_lua_getmetatable
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	225 #define lua_setfield dll_lua_setfield
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	226 #define lua_rawset dll_lua_rawset
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	227 #define lua_rawseti dll_lua_rawseti
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	228 #define lua_setmetatable dll_lua_setmetatable
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	229 #define lua_next dll_lua_next
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	230 // libs
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	231 #define luaopen_base dll_luaopen_base
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	232 #define luaopen_table dll_luaopen_table
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	233 #define luaopen_string dll_luaopen_string
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	234 #define luaopen_math dll_luaopen_math
2431 7b764999f9b9 Update for Lua interface. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2373 diff changeset	235 #define luaopen_io dll_luaopen_io
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	236 #define luaopen_os dll_luaopen_os
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	237 #define luaopen_package dll_luaopen_package
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	238 #define luaopen_debug dll_luaopen_debug
2431 7b764999f9b9 Update for Lua interface. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2373 diff changeset	239 #define luaL_openlibs dll_luaL_openlibs
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	240
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	241 // lauxlib
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	242 #if LUA_VERSION_NUM <= 501
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	243 void (dll_luaL_register) (lua_State L, const char libname, const luaL_Reg l);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	244 char (dll_luaL_prepbuffer) (luaL_Buffer *B);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	245 void (dll_luaL_openlib) (lua_State L, const char libname, const luaL_Reg l, int nup);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	246 int (dll_luaL_typerror) (lua_State L, int narg, const char *tname);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	247 int (dll_luaL_loadfile) (lua_State L, const char *filename);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	248 int (dll_luaL_loadbuffer) (lua_State L, const char buff, size_t sz, const char name);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	249 #else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	250 char (dll_luaL_prepbuffsize) (luaL_Buffer *B, size_t sz);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	251 void (dll_luaL_setfuncs) (lua_State L, const luaL_Reg *l, int nup);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	252 int (dll_luaL_loadfilex) (lua_State L, const char filename, const char mode);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	253 int (dll_luaL_loadbufferx) (lua_State L, const char buff, size_t sz, const char name, const char *mode);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	254 int (dll_luaL_argerror) (lua_State L, int numarg, const char *extramsg);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	255 #endif
21323 5b0bbc5d4e74 patch 8.2.1212: cannot build with Lua 5.4 Bram Moolenaar <Bram@vim.org> parents: 21132 diff changeset	256 #if LUA_VERSION_NUM >= 504
5b0bbc5d4e74 patch 8.2.1212: cannot build with Lua 5.4 Bram Moolenaar <Bram@vim.org> parents: 21132 diff changeset	257 int (dll_luaL_typeerror) (lua_State L, int narg, const char *tname);
5b0bbc5d4e74 patch 8.2.1212: cannot build with Lua 5.4 Bram Moolenaar <Bram@vim.org> parents: 21132 diff changeset	258 #endif
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	259 void (dll_luaL_checkany) (lua_State L, int narg);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	260 const char (dll_luaL_checklstring) (lua_State L, int numArg, size_t l);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	261 lua_Integer (dll_luaL_checkinteger) (lua_State L, int numArg);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	262 lua_Integer (dll_luaL_optinteger) (lua_State L, int nArg, lua_Integer def);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	263 void (dll_luaL_checktype) (lua_State L, int narg, int t);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	264 int (dll_luaL_error) (lua_State L, const char *fmt, ...);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	265 lua_State (dll_luaL_newstate) (void);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	266 void (dll_luaL_buffinit) (lua_State L, luaL_Buffer *B);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	267 void (dll_luaL_addlstring) (luaL_Buffer B, const char *s, size_t l);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	268 void (dll_luaL_pushresult) (luaL_Buffer B);
20456 25392efa9039 patch 8.2.0782: cannot build with Lua on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 20454 diff changeset	269 int (dll_luaL_loadstring) (lua_State L, const char *s);
21012 380923b96878 patch 8.2.1057: cannot build with dynamic Lua Bram Moolenaar <Bram@vim.org> parents: 21006 diff changeset	270 int (dll_luaL_ref) (lua_State L, int idx);
380923b96878 patch 8.2.1057: cannot build with dynamic Lua Bram Moolenaar <Bram@vim.org> parents: 21006 diff changeset	271 #if LUA_VERSION_NUM <= 502
380923b96878 patch 8.2.1057: cannot build with dynamic Lua Bram Moolenaar <Bram@vim.org> parents: 21006 diff changeset	272 void (dll_luaL_unref) (lua_State L, int idx, int n);
380923b96878 patch 8.2.1057: cannot build with dynamic Lua Bram Moolenaar <Bram@vim.org> parents: 21006 diff changeset	273 #else
380923b96878 patch 8.2.1057: cannot build with dynamic Lua Bram Moolenaar <Bram@vim.org> parents: 21006 diff changeset	274 void (dll_luaL_unref) (lua_State L, int idx, lua_Integer n);
380923b96878 patch 8.2.1057: cannot build with dynamic Lua Bram Moolenaar <Bram@vim.org> parents: 21006 diff changeset	275 #endif
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	276 // lua
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	277 #if LUA_VERSION_NUM <= 501
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	278 lua_Number (dll_lua_tonumber) (lua_State L, int idx);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	279 lua_Integer (dll_lua_tointeger) (lua_State L, int idx);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	280 void (dll_lua_call) (lua_State L, int nargs, int nresults);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	281 int (dll_lua_pcall) (lua_State L, int nargs, int nresults, int errfunc);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	282 #else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	283 lua_Number (dll_lua_tonumberx) (lua_State L, int idx, int *isnum);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	284 lua_Integer (dll_lua_tointegerx) (lua_State L, int idx, int *isnum);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	285 void (dll_lua_callk) (lua_State L, int nargs, int nresults, int ctx,
3618 c052f3b79b99 updated for version 7.3.569 Bram Moolenaar <bram@vim.org> parents: 3459 diff changeset	286 lua_CFunction k);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	287 int (dll_lua_pcallk) (lua_State L, int nargs, int nresults, int errfunc,
3618 c052f3b79b99 updated for version 7.3.569 Bram Moolenaar <bram@vim.org> parents: 3459 diff changeset	288 int ctx, lua_CFunction k);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	289 void (dll_lua_getglobal) (lua_State L, const char *var);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	290 void (dll_lua_setglobal) (lua_State L, const char *var);
6887 2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	291 #endif
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	292 #if LUA_VERSION_NUM <= 502
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	293 void (dll_lua_replace) (lua_State L, int idx);
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	294 void (dll_lua_remove) (lua_State L, int idx);
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	295 #endif
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	296 #if LUA_VERSION_NUM >= 503
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	297 void (dll_lua_rotate) (lua_State L, int idx, int n);
6878 02466bf84bab patch 7.4.759 Bram Moolenaar <bram@vim.org> parents: 6625 diff changeset	298 void (dll_lua_copy) (lua_State L, int fromidx, int toidx);
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	299 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	300 const char (dll_lua_typename) (lua_State *L, int tp);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	301 void (dll_lua_close) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	302 int (dll_lua_gettop) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	303 void (dll_lua_settop) (lua_State L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	304 void (dll_lua_pushvalue) (lua_State L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	305 int (dll_lua_isnumber) (lua_State L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	306 int (dll_lua_isstring) (lua_State L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	307 int (dll_lua_type) (lua_State L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	308 int (dll_lua_rawequal) (lua_State L, int idx1, int idx2);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	309 int (dll_lua_toboolean) (lua_State L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	310 const char (dll_lua_tolstring) (lua_State L, int idx, size_t len);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	311 void (dll_lua_touserdata) (lua_State *L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	312 void (dll_lua_pushnil) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	313 void (dll_lua_pushnumber) (lua_State L, lua_Number n);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	314 void (dll_lua_pushinteger) (lua_State L, lua_Integer n);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	315 void (dll_lua_pushlstring) (lua_State L, const char *s, size_t l);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	316 void (dll_lua_pushstring) (lua_State L, const char *s);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	317 const char (dll_lua_pushfstring) (lua_State L, const char fmt, ...);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	318 void (dll_lua_pushcclosure) (lua_State L, lua_CFunction fn, int n);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	319 void (dll_lua_pushboolean) (lua_State L, int b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	320 void (dll_lua_pushlightuserdata) (lua_State L, void *p);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	321 void (dll_lua_getfield) (lua_State L, int idx, const char *k);
14335 d59bf91128ea patch 8.1.0183: Lua API changed, breaking the build Christian Brabandt <cb@256bit.org> parents: 14329 diff changeset	322 #if LUA_VERSION_NUM <= 502
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	323 void (dll_lua_rawget) (lua_State L, int idx);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	324 void (dll_lua_rawgeti) (lua_State L, int idx, int n);
14335 d59bf91128ea patch 8.1.0183: Lua API changed, breaking the build Christian Brabandt <cb@256bit.org> parents: 14329 diff changeset	325 #else
d59bf91128ea patch 8.1.0183: Lua API changed, breaking the build Christian Brabandt <cb@256bit.org> parents: 14329 diff changeset	326 int (dll_lua_rawget) (lua_State L, int idx);
d59bf91128ea patch 8.1.0183: Lua API changed, breaking the build Christian Brabandt <cb@256bit.org> parents: 14329 diff changeset	327 int (dll_lua_rawgeti) (lua_State L, int idx, lua_Integer n);
d59bf91128ea patch 8.1.0183: Lua API changed, breaking the build Christian Brabandt <cb@256bit.org> parents: 14329 diff changeset	328 #endif
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	329 void (dll_lua_createtable) (lua_State L, int narr, int nrec);
25527 d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	330 void (dll_lua_settable) (lua_State L, int idx);
14583 42eaac6eb4e4 patch 8.1.0305: missing support for Lua 5.4 32 bits on Unix Christian Brabandt <cb@256bit.org> parents: 14395 diff changeset	331 #if LUA_VERSION_NUM >= 504
42eaac6eb4e4 patch 8.1.0305: missing support for Lua 5.4 32 bits on Unix Christian Brabandt <cb@256bit.org> parents: 14395 diff changeset	332 void (dll_lua_newuserdatauv) (lua_State *L, size_t sz, int nuvalue);
42eaac6eb4e4 patch 8.1.0305: missing support for Lua 5.4 32 bits on Unix Christian Brabandt <cb@256bit.org> parents: 14395 diff changeset	333 #else
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	334 void (dll_lua_newuserdata) (lua_State *L, size_t sz);
14583 42eaac6eb4e4 patch 8.1.0305: missing support for Lua 5.4 32 bits on Unix Christian Brabandt <cb@256bit.org> parents: 14395 diff changeset	335 #endif
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	336 int (dll_lua_getmetatable) (lua_State L, int objindex);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	337 void (dll_lua_setfield) (lua_State L, int idx, const char *k);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	338 void (dll_lua_rawset) (lua_State L, int idx);
14335 d59bf91128ea patch 8.1.0183: Lua API changed, breaking the build Christian Brabandt <cb@256bit.org> parents: 14329 diff changeset	339 #if LUA_VERSION_NUM <= 502
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	340 void (dll_lua_rawseti) (lua_State L, int idx, int n);
14335 d59bf91128ea patch 8.1.0183: Lua API changed, breaking the build Christian Brabandt <cb@256bit.org> parents: 14329 diff changeset	341 #else
d59bf91128ea patch 8.1.0183: Lua API changed, breaking the build Christian Brabandt <cb@256bit.org> parents: 14329 diff changeset	342 void (dll_lua_rawseti) (lua_State L, int idx, lua_Integer n);
d59bf91128ea patch 8.1.0183: Lua API changed, breaking the build Christian Brabandt <cb@256bit.org> parents: 14329 diff changeset	343 #endif
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	344 int (dll_lua_setmetatable) (lua_State L, int objindex);
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	345 int (dll_lua_next) (lua_State L, int idx);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	346 // libs
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	347 int (dll_luaopen_base) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	348 int (dll_luaopen_table) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	349 int (dll_luaopen_string) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	350 int (dll_luaopen_math) (lua_State L);
2431 7b764999f9b9 Update for Lua interface. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2373 diff changeset	351 int (dll_luaopen_io) (lua_State L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	352 int (dll_luaopen_os) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	353 int (dll_luaopen_package) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	354 int (dll_luaopen_debug) (lua_State L);
2431 7b764999f9b9 Update for Lua interface. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2373 diff changeset	355 void (dll_luaL_openlibs) (lua_State L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	356
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	357 typedef void **luaV_function;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	358 typedef struct {
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	359 const char *name;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	360 luaV_function func;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	361 } luaV_Reg;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	362
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	363 static const luaV_Reg luaV_dll[] = {
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	364 // lauxlib
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	365 #if LUA_VERSION_NUM <= 501
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	366 {"luaL_register", (luaV_function) &dll_luaL_register},
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	367 {"luaL_prepbuffer", (luaV_function) &dll_luaL_prepbuffer},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	368 {"luaL_openlib", (luaV_function) &dll_luaL_openlib},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	369 {"luaL_typerror", (luaV_function) &dll_luaL_typerror},
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	370 {"luaL_loadfile", (luaV_function) &dll_luaL_loadfile},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	371 {"luaL_loadbuffer", (luaV_function) &dll_luaL_loadbuffer},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	372 #else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	373 {"luaL_prepbuffsize", (luaV_function) &dll_luaL_prepbuffsize},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	374 {"luaL_setfuncs", (luaV_function) &dll_luaL_setfuncs},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	375 {"luaL_loadfilex", (luaV_function) &dll_luaL_loadfilex},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	376 {"luaL_loadbufferx", (luaV_function) &dll_luaL_loadbufferx},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	377 {"luaL_argerror", (luaV_function) &dll_luaL_argerror},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	378 #endif
21323 5b0bbc5d4e74 patch 8.2.1212: cannot build with Lua 5.4 Bram Moolenaar <Bram@vim.org> parents: 21132 diff changeset	379 #if LUA_VERSION_NUM >= 504
5b0bbc5d4e74 patch 8.2.1212: cannot build with Lua 5.4 Bram Moolenaar <Bram@vim.org> parents: 21132 diff changeset	380 {"luaL_typeerror", (luaV_function) &dll_luaL_typeerror},
5b0bbc5d4e74 patch 8.2.1212: cannot build with Lua 5.4 Bram Moolenaar <Bram@vim.org> parents: 21132 diff changeset	381 #endif
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	382 {"luaL_checkany", (luaV_function) &dll_luaL_checkany},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	383 {"luaL_checklstring", (luaV_function) &dll_luaL_checklstring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	384 {"luaL_checkinteger", (luaV_function) &dll_luaL_checkinteger},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	385 {"luaL_optinteger", (luaV_function) &dll_luaL_optinteger},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	386 {"luaL_checktype", (luaV_function) &dll_luaL_checktype},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	387 {"luaL_error", (luaV_function) &dll_luaL_error},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	388 {"luaL_newstate", (luaV_function) &dll_luaL_newstate},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	389 {"luaL_buffinit", (luaV_function) &dll_luaL_buffinit},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	390 {"luaL_addlstring", (luaV_function) &dll_luaL_addlstring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	391 {"luaL_pushresult", (luaV_function) &dll_luaL_pushresult},
20456 25392efa9039 patch 8.2.0782: cannot build with Lua on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 20454 diff changeset	392 {"luaL_loadstring", (luaV_function) &dll_luaL_loadstring},
21012 380923b96878 patch 8.2.1057: cannot build with dynamic Lua Bram Moolenaar <Bram@vim.org> parents: 21006 diff changeset	393 {"luaL_ref", (luaV_function) &dll_luaL_ref},
380923b96878 patch 8.2.1057: cannot build with dynamic Lua Bram Moolenaar <Bram@vim.org> parents: 21006 diff changeset	394 {"luaL_unref", (luaV_function) &dll_luaL_unref},
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	395 // lua
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	396 #if LUA_VERSION_NUM <= 501
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	397 {"lua_tonumber", (luaV_function) &dll_lua_tonumber},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	398 {"lua_tointeger", (luaV_function) &dll_lua_tointeger},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	399 {"lua_call", (luaV_function) &dll_lua_call},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	400 {"lua_pcall", (luaV_function) &dll_lua_pcall},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	401 #else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	402 {"lua_tonumberx", (luaV_function) &dll_lua_tonumberx},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	403 {"lua_tointegerx", (luaV_function) &dll_lua_tointegerx},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	404 {"lua_callk", (luaV_function) &dll_lua_callk},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	405 {"lua_pcallk", (luaV_function) &dll_lua_pcallk},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	406 {"lua_getglobal", (luaV_function) &dll_lua_getglobal},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	407 {"lua_setglobal", (luaV_function) &dll_lua_setglobal},
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	408 #endif
6887 2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	409 #if LUA_VERSION_NUM <= 502
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	410 {"lua_replace", (luaV_function) &dll_lua_replace},
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	411 {"lua_remove", (luaV_function) &dll_lua_remove},
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	412 #endif
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	413 #if LUA_VERSION_NUM >= 503
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	414 {"lua_rotate", (luaV_function) &dll_lua_rotate},
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	415 {"lua_copy", (luaV_function) &dll_lua_copy},
2b7e36955265 patch 7.4.763 Bram Moolenaar <bram@vim.org> parents: 6878 diff changeset	416 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	417 {"lua_typename", (luaV_function) &dll_lua_typename},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	418 {"lua_close", (luaV_function) &dll_lua_close},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	419 {"lua_gettop", (luaV_function) &dll_lua_gettop},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	420 {"lua_settop", (luaV_function) &dll_lua_settop},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	421 {"lua_pushvalue", (luaV_function) &dll_lua_pushvalue},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	422 {"lua_isnumber", (luaV_function) &dll_lua_isnumber},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	423 {"lua_isstring", (luaV_function) &dll_lua_isstring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	424 {"lua_type", (luaV_function) &dll_lua_type},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	425 {"lua_rawequal", (luaV_function) &dll_lua_rawequal},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	426 {"lua_toboolean", (luaV_function) &dll_lua_toboolean},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	427 {"lua_tolstring", (luaV_function) &dll_lua_tolstring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	428 {"lua_touserdata", (luaV_function) &dll_lua_touserdata},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	429 {"lua_pushnil", (luaV_function) &dll_lua_pushnil},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	430 {"lua_pushnumber", (luaV_function) &dll_lua_pushnumber},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	431 {"lua_pushinteger", (luaV_function) &dll_lua_pushinteger},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	432 {"lua_pushlstring", (luaV_function) &dll_lua_pushlstring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	433 {"lua_pushstring", (luaV_function) &dll_lua_pushstring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	434 {"lua_pushfstring", (luaV_function) &dll_lua_pushfstring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	435 {"lua_pushcclosure", (luaV_function) &dll_lua_pushcclosure},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	436 {"lua_pushboolean", (luaV_function) &dll_lua_pushboolean},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	437 {"lua_pushlightuserdata", (luaV_function) &dll_lua_pushlightuserdata},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	438 {"lua_getfield", (luaV_function) &dll_lua_getfield},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	439 {"lua_rawget", (luaV_function) &dll_lua_rawget},
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	440 {"lua_rawgeti", (luaV_function) &dll_lua_rawgeti},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	441 {"lua_createtable", (luaV_function) &dll_lua_createtable},
25527 d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	442 {"lua_settable", (luaV_function) &dll_lua_settable},
14583 42eaac6eb4e4 patch 8.1.0305: missing support for Lua 5.4 32 bits on Unix Christian Brabandt <cb@256bit.org> parents: 14395 diff changeset	443 #if LUA_VERSION_NUM >= 504
42eaac6eb4e4 patch 8.1.0305: missing support for Lua 5.4 32 bits on Unix Christian Brabandt <cb@256bit.org> parents: 14395 diff changeset	444 {"lua_newuserdatauv", (luaV_function) &dll_lua_newuserdatauv},
42eaac6eb4e4 patch 8.1.0305: missing support for Lua 5.4 32 bits on Unix Christian Brabandt <cb@256bit.org> parents: 14395 diff changeset	445 #else
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	446 {"lua_newuserdata", (luaV_function) &dll_lua_newuserdata},
14583 42eaac6eb4e4 patch 8.1.0305: missing support for Lua 5.4 32 bits on Unix Christian Brabandt <cb@256bit.org> parents: 14395 diff changeset	447 #endif
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	448 {"lua_getmetatable", (luaV_function) &dll_lua_getmetatable},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	449 {"lua_setfield", (luaV_function) &dll_lua_setfield},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	450 {"lua_rawset", (luaV_function) &dll_lua_rawset},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	451 {"lua_rawseti", (luaV_function) &dll_lua_rawseti},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	452 {"lua_setmetatable", (luaV_function) &dll_lua_setmetatable},
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	453 {"lua_next", (luaV_function) &dll_lua_next},
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	454 // libs
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	455 {"luaopen_base", (luaV_function) &dll_luaopen_base},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	456 {"luaopen_table", (luaV_function) &dll_luaopen_table},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	457 {"luaopen_string", (luaV_function) &dll_luaopen_string},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	458 {"luaopen_math", (luaV_function) &dll_luaopen_math},
2431 7b764999f9b9 Update for Lua interface. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2373 diff changeset	459 {"luaopen_io", (luaV_function) &dll_luaopen_io},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	460 {"luaopen_os", (luaV_function) &dll_luaopen_os},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	461 {"luaopen_package", (luaV_function) &dll_luaopen_package},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	462 {"luaopen_debug", (luaV_function) &dll_luaopen_debug},
2431 7b764999f9b9 Update for Lua interface. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2373 diff changeset	463 {"luaL_openlibs", (luaV_function) &dll_luaL_openlibs},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	464 {NULL, NULL}
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	465 };
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	466
2373 f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	467 static HANDLE hinstLua = NULL;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	468
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	469 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	470 lua_link_init(char *libname, int verbose)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	471 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	472 const luaV_Reg *reg;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	473 if (hinstLua) return OK;
2373 f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	474 hinstLua = load_dll(libname);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	475 if (!hinstLua)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	476 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	477 if (verbose)
26877 06a137af96f8 patch 8.2.3967: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 25881 diff changeset	478 semsg(_(e_could_not_load_library_str_str), libname, load_dll_error());
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	479 return FAIL;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	480 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	481 for (reg = luaV_dll; reg->func; reg++)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	482 {
2373 f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	483 if ((*reg->func = symbol_from_dll(hinstLua, reg->name)) == NULL)
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	484 {
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	485 close_dll(hinstLua);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	486 hinstLua = 0;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	487 if (verbose)
26877 06a137af96f8 patch 8.2.3967: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 25881 diff changeset	488 semsg(_(e_could_not_load_library_function_str), reg->name);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	489 return FAIL;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	490 }
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	491 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	492 return OK;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	493 }
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	494 #endif // DYNAMIC_LUA
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	495
10025 068f397d0da4 commit https://github.com/vim/vim/commit/d90b6c02e2900576fb37d95b5e4f4a32b2d7383f Christian Brabandt <cb@256bit.org> parents: 9649 diff changeset	496 #if defined(DYNAMIC_LUA) \|\| defined(PROTO)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	497 int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	498 lua_enabled(int verbose)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	499 {
7528 53163e4d9e4f commit https://github.com/vim/vim/commit/25e4fcde767084d1a79e0926bc301c92987c0cce Christian Brabandt <cb@256bit.org> parents: 7297 diff changeset	500 return lua_link_init((char *)p_luadll, verbose) == OK;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	501 }
10025 068f397d0da4 commit https://github.com/vim/vim/commit/d90b6c02e2900576fb37d95b5e4f4a32b2d7383f Christian Brabandt <cb@256bit.org> parents: 9649 diff changeset	502 #endif
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	503
21323 5b0bbc5d4e74 patch 8.2.1212: cannot build with Lua 5.4 Bram Moolenaar <Bram@vim.org> parents: 21132 diff changeset	504 #if LUA_VERSION_NUM > 501 && LUA_VERSION_NUM < 504
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	505 static int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	506 luaL_typeerror(lua_State L, int narg, const char tname)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	507 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	508 const char *msg = lua_pushfstring(L, "%s expected, got %s",
3618 c052f3b79b99 updated for version 7.3.569 Bram Moolenaar <bram@vim.org> parents: 3459 diff changeset	509 tname, luaL_typename(L, narg));
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	510 return luaL_argerror(L, narg, msg);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	511 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	512 #endif
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	513
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	514
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	515 // ======= Internal =======
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	516
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	517 static void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	518 luaV_newmetatable(lua_State L, const char tname)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	519 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	520 lua_newtable(L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	521 lua_pushlightuserdata(L, (void *) tname);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	522 lua_pushvalue(L, -2);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	523 lua_rawset(L, LUA_REGISTRYINDEX);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	524 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	525
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	526 static void *
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	527 luaV_toudata(lua_State L, int ud, const char tname)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	528 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	529 void *p = lua_touserdata(L, ud);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	530
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	531 if (p == NULL)
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	532 return NULL;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	533
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	534 // value is userdata
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	535 if (lua_getmetatable(L, ud)) // does it have a metatable?
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	536 {
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	537 luaV_getfield(L, tname); // get metatable
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	538 if (lua_rawequal(L, -1, -2)) // MTs match?
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	539 {
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	540 lua_pop(L, 2); // MTs
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	541 return p;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	542 }
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	543 }
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	544
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	545 return NULL;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	546 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	547
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	548 static void *
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	549 luaV_checkcache(lua_State L, void p)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	550 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	551 luaV_getudata(L, p);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	552 if (lua_isnil(L, -1)) luaL_error(L, "invalid object");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	553 lua_pop(L, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	554 return p;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	555 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	556
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	557 #define luaV_unbox(L,luatyp,ud) (((luatyp ) lua_touserdata((L),(ud))))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	558
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	559 #define luaV_checkvalid(L,luatyp,ud) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	560 luaV_checkcache((L), (void *) luaV_unbox((L),luatyp,(ud)))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	561
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	562 static void *
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	563 luaV_checkudata(lua_State L, int ud, const char tname)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	564 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	565 void *p = luaV_toudata(L, ud, tname);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	566 if (p == NULL) luaL_typeerror(L, ud, tname);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	567 return p;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	568 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	569
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	570 static void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	571 luaV_pushtypval(lua_State L, typval_T tv)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	572 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	573 if (tv == NULL)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	574 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	575 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	576 return;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	577 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	578 switch (tv->v_type)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	579 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	580 case VAR_STRING:
3865 3c072c1cb873 updated for version 7.3.689 Bram Moolenaar <bram@vim.org> parents: 3618 diff changeset	581 lua_pushstring(L, tv->vval.v_string == NULL
3c072c1cb873 updated for version 7.3.689 Bram Moolenaar <bram@vim.org> parents: 3618 diff changeset	582 ? "" : (char *)tv->vval.v_string);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	583 break;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	584 case VAR_NUMBER:
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	585 lua_pushinteger(L, (int) tv->vval.v_number);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	586 break;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	587 case VAR_FLOAT:
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	588 lua_pushnumber(L, (lua_Number) tv->vval.v_float);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	589 break;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	590 case VAR_LIST:
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	591 luaV_pushlist(L, tv->vval.v_list);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	592 break;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	593 case VAR_DICT:
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	594 luaV_pushdict(L, tv->vval.v_dict);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	595 break;
19102 ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans Bram Moolenaar <Bram@vim.org> parents: 18798 diff changeset	596 case VAR_BOOL:
7712 bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34 Christian Brabandt <cb@256bit.org> parents: 7528 diff changeset	597 case VAR_SPECIAL:
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34 Christian Brabandt <cb@256bit.org> parents: 7528 diff changeset	598 if (tv->vval.v_number <= VVAL_TRUE)
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34 Christian Brabandt <cb@256bit.org> parents: 7528 diff changeset	599 lua_pushinteger(L, (int) tv->vval.v_number);
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34 Christian Brabandt <cb@256bit.org> parents: 7528 diff changeset	600 else
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34 Christian Brabandt <cb@256bit.org> parents: 7528 diff changeset	601 lua_pushnil(L);
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34 Christian Brabandt <cb@256bit.org> parents: 7528 diff changeset	602 break;
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	603 case VAR_FUNC:
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	604 luaV_pushfuncref(L, tv->vval.v_string);
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	605 break;
24073 c424821dc031 patch 8.2.2578: Lua cannot handle a passed in lambda Bram Moolenaar <Bram@vim.org> parents: 22719 diff changeset	606 case VAR_PARTIAL:
c424821dc031 patch 8.2.2578: Lua cannot handle a passed in lambda Bram Moolenaar <Bram@vim.org> parents: 22719 diff changeset	607 // TODO: handle partial arguments
c424821dc031 patch 8.2.2578: Lua cannot handle a passed in lambda Bram Moolenaar <Bram@vim.org> parents: 22719 diff changeset	608 luaV_pushfuncref(L, partial_name(tv->vval.v_partial));
c424821dc031 patch 8.2.2578: Lua cannot handle a passed in lambda Bram Moolenaar <Bram@vim.org> parents: 22719 diff changeset	609 break;
c424821dc031 patch 8.2.2578: Lua cannot handle a passed in lambda Bram Moolenaar <Bram@vim.org> parents: 22719 diff changeset	610
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	611 case VAR_BLOB:
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	612 luaV_pushblob(L, tv->vval.v_blob);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	613 break;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	614 default:
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	615 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	616 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	617 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	618
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	619 /*
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	620 * Converts lua value at 'pos' to typval 'tv'.
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	621 * Returns OK or FAIL.
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	622 */
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	623 static int
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	624 luaV_totypval(lua_State L, int pos, typval_T tv)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	625 {
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	626 int status = OK;
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	627
21132 985e61894bb4 patch 8.2.1117: Coverity warns for unsing unitialized field Bram Moolenaar <Bram@vim.org> parents: 21108 diff changeset	628 tv->v_lock = 0;
985e61894bb4 patch 8.2.1117: Coverity warns for unsing unitialized field Bram Moolenaar <Bram@vim.org> parents: 21108 diff changeset	629
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	630 switch (lua_type(L, pos))
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	631 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	632 case LUA_TBOOLEAN:
19102 ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans Bram Moolenaar <Bram@vim.org> parents: 18798 diff changeset	633 tv->v_type = VAR_BOOL;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	634 tv->vval.v_number = (varnumber_T) lua_toboolean(L, pos);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	635 break;
15328 f7130bc17248 patch 8.1.0672: the Lua interface doesn't know about v:null Bram Moolenaar <Bram@vim.org> parents: 14583 diff changeset	636 case LUA_TNIL:
f7130bc17248 patch 8.1.0672: the Lua interface doesn't know about v:null Bram Moolenaar <Bram@vim.org> parents: 14583 diff changeset	637 tv->v_type = VAR_SPECIAL;
f7130bc17248 patch 8.1.0672: the Lua interface doesn't know about v:null Bram Moolenaar <Bram@vim.org> parents: 14583 diff changeset	638 tv->vval.v_number = VVAL_NULL;
f7130bc17248 patch 8.1.0672: the Lua interface doesn't know about v:null Bram Moolenaar <Bram@vim.org> parents: 14583 diff changeset	639 break;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	640 case LUA_TSTRING:
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	641 tv->v_type = VAR_STRING;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	642 tv->vval.v_string = vim_strsave((char_u *) lua_tostring(L, pos));
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	643 break;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	644 case LUA_TNUMBER:
20441 86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	645 {
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	646 const lua_Number n = lua_tonumber(L, pos);
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	647
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	648 if (n > (lua_Number)INT64_MAX \|\| n < (lua_Number)INT64_MIN
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	649 \|\| ((lua_Number)((varnumber_T)n)) != n)
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	650 {
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	651 tv->v_type = VAR_FLOAT;
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	652 tv->vval.v_float = (float_T)n;
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	653 }
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	654 else
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	655 {
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	656 tv->v_type = VAR_NUMBER;
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	657 tv->vval.v_number = (varnumber_T)n;
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	658 }
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	659 }
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	660 break;
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	661 case LUA_TFUNCTION:
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	662 {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	663 char_u *name;
21367 f9d87868d77f patch 8.2.1234: Lua build problem with old compiler Bram Moolenaar <Bram@vim.org> parents: 21323 diff changeset	664 luaV_CFuncState *state;
f9d87868d77f patch 8.2.1234: Lua build problem with old compiler Bram Moolenaar <Bram@vim.org> parents: 21323 diff changeset	665
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	666 lua_pushvalue(L, pos);
21367 f9d87868d77f patch 8.2.1234: Lua build problem with old compiler Bram Moolenaar <Bram@vim.org> parents: 21323 diff changeset	667 state = ALLOC_CLEAR_ONE(luaV_CFuncState);
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	668 state->lua_funcref = luaL_ref(L, LUA_REGISTRYINDEX);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	669 state->L = L;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	670 state->lua_tableref = LUA_NOREF;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	671 name = register_cfunc(&luaV_call_lua_func,
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	672 &luaV_call_lua_func_free, state);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	673 tv->v_type = VAR_FUNC;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	674 tv->vval.v_string = vim_strsave(name);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	675 break;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	676 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	677 case LUA_TTABLE:
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	678 {
21367 f9d87868d77f patch 8.2.1234: Lua build problem with old compiler Bram Moolenaar <Bram@vim.org> parents: 21323 diff changeset	679 int lua_tableref;
f9d87868d77f patch 8.2.1234: Lua build problem with old compiler Bram Moolenaar <Bram@vim.org> parents: 21323 diff changeset	680
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	681 lua_pushvalue(L, pos);
21367 f9d87868d77f patch 8.2.1234: Lua build problem with old compiler Bram Moolenaar <Bram@vim.org> parents: 21323 diff changeset	682 lua_tableref = luaL_ref(L, LUA_REGISTRYINDEX);
31804 50555279168b patch 9.0.1234: the code style has to be checked manually Bram Moolenaar <Bram@vim.org> parents: 31702 diff changeset	683 if (lua_getmetatable(L, pos))
50555279168b patch 9.0.1234: the code style has to be checked manually Bram Moolenaar <Bram@vim.org> parents: 31702 diff changeset	684 {
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	685 lua_getfield(L, -1, LUA___CALL);
31804 50555279168b patch 9.0.1234: the code style has to be checked manually Bram Moolenaar <Bram@vim.org> parents: 31702 diff changeset	686 if (lua_isfunction(L, -1))
50555279168b patch 9.0.1234: the code style has to be checked manually Bram Moolenaar <Bram@vim.org> parents: 31702 diff changeset	687 {
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	688 char_u *name;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	689 int lua_funcref = luaL_ref(L, LUA_REGISTRYINDEX);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	690 luaV_CFuncState *state = ALLOC_CLEAR_ONE(luaV_CFuncState);
21367 f9d87868d77f patch 8.2.1234: Lua build problem with old compiler Bram Moolenaar <Bram@vim.org> parents: 21323 diff changeset	691
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	692 state->lua_funcref = lua_funcref;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	693 state->L = L;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	694 state->lua_tableref = lua_tableref;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	695 name = register_cfunc(&luaV_call_lua_func,
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	696 &luaV_call_lua_func_free, state);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	697 tv->v_type = VAR_FUNC;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	698 tv->vval.v_string = vim_strsave(name);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	699 break;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	700 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	701 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	702 tv->v_type = VAR_NUMBER;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	703 tv->vval.v_number = 0;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	704 status = FAIL;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	705 break;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	706 }
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	707 case LUA_TUSERDATA:
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	708 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	709 void *p = lua_touserdata(L, pos);
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	710
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	711 if (lua_getmetatable(L, pos)) // has metatable?
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	712 {
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	713 // check list
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	714 luaV_getfield(L, LUAVIM_LIST);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	715 if (lua_rawequal(L, -1, -2))
2373 f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	716 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	717 tv->v_type = VAR_LIST;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	718 tv->vval.v_list = ((luaV_List ) p);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	719 ++tv->vval.v_list->lv_refcount;
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	720 lua_pop(L, 2); // MTs
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	721 break;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	722 }
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	723 // check dict
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	724 luaV_getfield(L, LUAVIM_DICT);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	725 if (lua_rawequal(L, -1, -3))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	726 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	727 tv->v_type = VAR_DICT;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	728 tv->vval.v_dict = ((luaV_Dict ) p);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	729 ++tv->vval.v_dict->dv_refcount;
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	730 lua_pop(L, 3); // MTs
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	731 break;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	732 }
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	733 // check blob
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	734 luaV_getfield(L, LUAVIM_BLOB);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	735 if (lua_rawequal(L, -1, -4))
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	736 {
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	737 tv->v_type = VAR_BLOB;
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	738 tv->vval.v_blob = ((luaV_Blob ) p);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	739 ++tv->vval.v_blob->bv_refcount;
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	740 lua_pop(L, 4); // MTs
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	741 break;
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	742 }
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	743 // check funcref
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	744 luaV_getfield(L, LUAVIM_FUNCREF);
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	745 if (lua_rawequal(L, -1, -5))
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	746 {
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	747 luaV_Funcref f = (luaV_Funcref ) p;
21367 f9d87868d77f patch 8.2.1234: Lua build problem with old compiler Bram Moolenaar <Bram@vim.org> parents: 21323 diff changeset	748
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	749 func_ref(f->name);
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	750 tv->v_type = VAR_FUNC;
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	751 tv->vval.v_string = vim_strsave(f->name);
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	752 lua_pop(L, 5); // MTs
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	753 break;
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	754 }
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	755 lua_pop(L, 4); // MTs
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	756 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	757 }
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	758 // FALLTHROUGH
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	759 default:
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	760 tv->v_type = VAR_NUMBER;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	761 tv->vval.v_number = 0;
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	762 status = FAIL;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	763 }
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	764 return status;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	765 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	766
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	767 /*
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	768 * similar to luaL_addlstring, but replaces \0 with \n if toline and
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	769 * \n with \0 otherwise
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	770 */
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	771 static void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	772 luaV_addlstring(luaL_Buffer b, const char s, size_t l, int toline)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	773 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	774 while (l--)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	775 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	776 if (*s == '\0' && toline)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	777 luaL_addchar(b, '\n');
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	778 else if (*s == '\n' && !toline)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	779 luaL_addchar(b, '\0');
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	780 else
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	781 luaL_addchar(b, *s);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	782 s++;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	783 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	784 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	785
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	786 static void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	787 luaV_pushline(lua_State L, buf_T buf, linenr_T n)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	788 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	789 const char s = (const char ) ml_get_buf(buf, n, FALSE);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	790 luaL_Buffer b;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	791 luaL_buffinit(L, &b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	792 luaV_addlstring(&b, s, strlen(s), 0);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	793 luaL_pushresult(&b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	794 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	795
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	796 static char_u *
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	797 luaV_toline(lua_State *L, int pos)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	798 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	799 size_t l;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	800 const char *s = lua_tolstring(L, pos, &l);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	801
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	802 luaL_Buffer b;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	803 luaL_buffinit(L, &b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	804 luaV_addlstring(&b, s, l, 1);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	805 luaL_pushresult(&b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	806 return (char_u *) lua_tostring(L, -1);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	807 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	808
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	809 /*
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	810 * pops a string s from the top of the stack and calls mf(t) for pieces t of
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	811 * s separated by newlines
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	812 */
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	813 static void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	814 luaV_msgfunc(lua_State *L, msgfunc_T mf)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	815 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	816 luaL_Buffer b;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	817 size_t l;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	818 const char p, s = lua_tolstring(L, -1, &l);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	819 luaL_buffinit(L, &b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	820 luaV_addlstring(&b, s, l, 0);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	821 luaL_pushresult(&b);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	822 // break string
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	823 p = s = lua_tolstring(L, -1, &l);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	824 while (l--)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	825 {
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	826 if (*p++ == '\0') // break?
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	827 {
22719 8da5e18effc5 patch 8.2.1908: Lua is initialized even when not used Bram Moolenaar <Bram@vim.org> parents: 21367 diff changeset	828 mf((char *)s);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	829 s = p;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	830 }
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	831 }
22719 8da5e18effc5 patch 8.2.1908: Lua is initialized even when not used Bram Moolenaar <Bram@vim.org> parents: 21367 diff changeset	832 mf((char *)s);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	833 lua_pop(L, 2); // original and modified strings
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	834 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	835
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	836 #define luaV_newtype(typ,tname,luatyp,luatname) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	837 static luatyp * \
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	838 luaV_new##tname(lua_State L, typ obj) \
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	839 { \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	840 luatyp o = (luatyp ) lua_newuserdata(L, sizeof(luatyp)); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	841 *o = obj; \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	842 luaV_setudata(L, obj); /* cache[obj] = udata */ \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	843 luaV_getfield(L, luatname); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	844 lua_setmetatable(L, -2); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	845 return o; \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	846 }
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	847
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	848 #define luaV_pushtype(typ,tname,luatyp) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	849 static luatyp * \
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	850 luaV_push##tname(lua_State L, typ obj) \
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	851 { \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	852 luatyp *o = NULL; \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	853 if (obj == NULL) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	854 lua_pushnil(L); \
31804 50555279168b patch 9.0.1234: the code style has to be checked manually Bram Moolenaar <Bram@vim.org> parents: 31702 diff changeset	855 else \
50555279168b patch 9.0.1234: the code style has to be checked manually Bram Moolenaar <Bram@vim.org> parents: 31702 diff changeset	856 { \
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	857 luaV_getudata(L, obj); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	858 if (lua_isnil(L, -1)) /* not interned? */ \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	859 { \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	860 lua_pop(L, 1); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	861 o = luaV_new##tname(L, obj); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	862 } \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	863 else \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	864 o = (luatyp *) lua_touserdata(L, -1); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	865 } \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	866 return o; \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	867 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	868
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	869 #define luaV_type_tostring(tname,luatname) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	870 static int \
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	871 luaV_##tname##_tostring(lua_State *L) \
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	872 { \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	873 lua_pushfstring(L, "%s: %p", luatname, lua_touserdata(L, 1)); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	874 return 1; \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	875 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	876
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	877 // ======= List type =======
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	878
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	879 static luaV_List *
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	880 luaV_newlist(lua_State L, list_T lis)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	881 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	882 luaV_List l = (luaV_List ) lua_newuserdata(L, sizeof(luaV_List));
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	883 *l = lis;
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	884 lis->lv_refcount++; // reference in Lua
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	885 luaV_setudata(L, lis); // cache[lis] = udata
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	886 luaV_getfield(L, LUAVIM_LIST);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	887 lua_setmetatable(L, -2);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	888 return l;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	889 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	890
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	891 luaV_pushtype(list_T, list, luaV_List)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	892 luaV_type_tostring(list, LUAVIM_LIST)
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	893
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	894 static int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	895 luaV_list_len(lua_State *L)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	896 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	897 list_T *l = luaV_unbox(L, luaV_List, 1);
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	898 lua_pushinteger(L, (int) list_len(l));
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	899 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	900 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	901
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	902 static int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	903 luaV_list_iter(lua_State *L)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	904 {
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	905 listitem_T li = (listitem_T ) lua_touserdata(L, lua_upvalueindex(1));
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	906 if (li == NULL) return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	907 luaV_pushtypval(L, &li->li_tv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	908 lua_pushlightuserdata(L, (void *) li->li_next);
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	909 lua_replace(L, lua_upvalueindex(1));
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	910 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	911 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	912
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	913 static int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	914 luaV_list_call(lua_State *L)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	915 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	916 list_T *l = luaV_unbox(L, luaV_List, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	917 lua_pushlightuserdata(L, (void *) l->lv_first);
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	918 lua_pushcclosure(L, luaV_list_iter, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	919 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	920 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	921
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	922 static int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	923 luaV_list_index(lua_State *L)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	924 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	925 list_T *l = luaV_unbox(L, luaV_List, 1);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	926 if (lua_isnumber(L, 2)) // list item?
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	927 {
21030 08e284594211 patch 8.2.1066: Lua arrays are zero based Bram Moolenaar <Bram@vim.org> parents: 21012 diff changeset	928 long n = (long) luaL_checkinteger(L, 2);
08e284594211 patch 8.2.1066: Lua arrays are zero based Bram Moolenaar <Bram@vim.org> parents: 21012 diff changeset	929 listitem_T *li;
08e284594211 patch 8.2.1066: Lua arrays are zero based Bram Moolenaar <Bram@vim.org> parents: 21012 diff changeset	930
08e284594211 patch 8.2.1066: Lua arrays are zero based Bram Moolenaar <Bram@vim.org> parents: 21012 diff changeset	931 // Lua array index starts with 1 while Vim uses 0, subtract 1 to
08e284594211 patch 8.2.1066: Lua arrays are zero based Bram Moolenaar <Bram@vim.org> parents: 21012 diff changeset	932 // normalize.
08e284594211 patch 8.2.1066: Lua arrays are zero based Bram Moolenaar <Bram@vim.org> parents: 21012 diff changeset	933 n -= 1;
08e284594211 patch 8.2.1066: Lua arrays are zero based Bram Moolenaar <Bram@vim.org> parents: 21012 diff changeset	934 li = list_find(l, n);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	935 if (li == NULL)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	936 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	937 else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	938 luaV_pushtypval(L, &li->li_tv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	939 }
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	940 else if (lua_isstring(L, 2)) // method?
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	941 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	942 const char *s = lua_tostring(L, 2);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	943 if (strncmp(s, "add", 3) == 0
4293 af3a3680fc75 updated for version 7.3.896 Bram Moolenaar <bram@vim.org> parents: 4270 diff changeset	944 \|\| strncmp(s, "insert", 6) == 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	945 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	946 lua_getmetatable(L, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	947 lua_getfield(L, -1, s);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	948 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	949 else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	950 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	951 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	952 else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	953 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	954 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	955 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	956
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	957 static int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	958 luaV_list_newindex(lua_State *L)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	959 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	960 list_T *l = luaV_unbox(L, luaV_List, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	961 long n = (long) luaL_checkinteger(L, 2);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	962 listitem_T *li;
21030 08e284594211 patch 8.2.1066: Lua arrays are zero based Bram Moolenaar <Bram@vim.org> parents: 21012 diff changeset	963
08e284594211 patch 8.2.1066: Lua arrays are zero based Bram Moolenaar <Bram@vim.org> parents: 21012 diff changeset	964 // Lua array index starts with 1 while Vim uses 0, subtract 1 to normalize.
08e284594211 patch 8.2.1066: Lua arrays are zero based Bram Moolenaar <Bram@vim.org> parents: 21012 diff changeset	965 n -= 1;
08e284594211 patch 8.2.1066: Lua arrays are zero based Bram Moolenaar <Bram@vim.org> parents: 21012 diff changeset	966
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	967 if (l->lv_lock)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	968 luaL_error(L, "list is locked");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	969 li = list_find(l, n);
21060 89aba7895bb2 patch 8.2.1081: Lua: cannot use table.insert() and table.remove() Bram Moolenaar <Bram@vim.org> parents: 21030 diff changeset	970 if (li == NULL)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	971 {
28809 d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	972 if (!lua_isnil(L, 3))
d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	973 {
d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	974 typval_T v;
d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	975 luaV_checktypval(L, 3, &v, "inserting list item");
d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	976 if (list_insert_tv(l, &v, li) == FAIL)
d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	977 luaL_error(L, "failed to add item to list");
d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	978 clear_tv(&v);
d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	979 }
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	980 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	981 else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	982 {
28809 d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	983 if (lua_isnil(L, 3)) // remove?
d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	984 {
21060 89aba7895bb2 patch 8.2.1081: Lua: cannot use table.insert() and table.remove() Bram Moolenaar <Bram@vim.org> parents: 21030 diff changeset	985 vimlist_remove(l, li, li);
89aba7895bb2 patch 8.2.1081: Lua: cannot use table.insert() and table.remove() Bram Moolenaar <Bram@vim.org> parents: 21030 diff changeset	986 listitem_free(l, li);
28809 d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	987 }
d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	988 else
d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	989 {
21060 89aba7895bb2 patch 8.2.1081: Lua: cannot use table.insert() and table.remove() Bram Moolenaar <Bram@vim.org> parents: 21030 diff changeset	990 typval_T v;
89aba7895bb2 patch 8.2.1081: Lua: cannot use table.insert() and table.remove() Bram Moolenaar <Bram@vim.org> parents: 21030 diff changeset	991 luaV_checktypval(L, 3, &v, "setting list item");
89aba7895bb2 patch 8.2.1081: Lua: cannot use table.insert() and table.remove() Bram Moolenaar <Bram@vim.org> parents: 21030 diff changeset	992 clear_tv(&li->li_tv);
21108 43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	993 li->li_tv = v;
28809 d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	994 }
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	995 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	996 return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	997 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	998
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	999 static int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1000 luaV_list_add(lua_State *L)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1001 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1002 luaV_List *lis = luaV_checkudata(L, 1, LUAVIM_LIST);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1003 list_T l = (list_T ) luaV_checkcache(L, (void ) lis);
4293 af3a3680fc75 updated for version 7.3.896 Bram Moolenaar <bram@vim.org> parents: 4270 diff changeset	1004 typval_T v;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1005 if (l->lv_lock)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1006 luaL_error(L, "list is locked");
4293 af3a3680fc75 updated for version 7.3.896 Bram Moolenaar <bram@vim.org> parents: 4270 diff changeset	1007 lua_settop(L, 2);
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1008 luaV_checktypval(L, 2, &v, "adding list item");
4293 af3a3680fc75 updated for version 7.3.896 Bram Moolenaar <bram@vim.org> parents: 4270 diff changeset	1009 if (list_append_tv(l, &v) == FAIL)
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1010 luaL_error(L, "failed to add item to list");
4293 af3a3680fc75 updated for version 7.3.896 Bram Moolenaar <bram@vim.org> parents: 4270 diff changeset	1011 clear_tv(&v);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1012 lua_settop(L, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1013 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1014 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1015
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1016 static int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1017 luaV_list_insert(lua_State *L)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1018 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1019 luaV_List *lis = luaV_checkudata(L, 1, LUAVIM_LIST);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1020 list_T l = (list_T ) luaV_checkcache(L, (void ) lis);
6625 199ce895e162 updated for version 7.4.638 Bram Moolenaar <bram@vim.org> parents: 6590 diff changeset	1021 long pos = (long) luaL_optinteger(L, 3, 0);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1022 listitem_T *li = NULL;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1023 typval_T v;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1024 if (l->lv_lock)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1025 luaL_error(L, "list is locked");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1026 if (pos < l->lv_len)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1027 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1028 li = list_find(l, pos);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1029 if (li == NULL)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1030 luaL_error(L, "invalid position");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1031 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1032 lua_settop(L, 2);
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1033 luaV_checktypval(L, 2, &v, "inserting list item");
4293 af3a3680fc75 updated for version 7.3.896 Bram Moolenaar <bram@vim.org> parents: 4270 diff changeset	1034 if (list_insert_tv(l, &v, li) == FAIL)
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1035 luaL_error(L, "failed to add item to list");
4293 af3a3680fc75 updated for version 7.3.896 Bram Moolenaar <bram@vim.org> parents: 4270 diff changeset	1036 clear_tv(&v);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1037 lua_settop(L, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1038 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1039 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1040
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1041 static const luaL_Reg luaV_List_mt[] = {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1042 {"__tostring", luaV_list_tostring},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1043 {"__len", luaV_list_len},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1044 {"__call", luaV_list_call},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1045 {"__index", luaV_list_index},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1046 {"__newindex", luaV_list_newindex},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1047 {"add", luaV_list_add},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1048 {"insert", luaV_list_insert},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1049 {NULL, NULL}
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1050 };
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1051
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1052
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1053 // ======= Dict type =======
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1054
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1055 static luaV_Dict *
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1056 luaV_newdict(lua_State L, dict_T dic)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1057 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1058 luaV_Dict d = (luaV_Dict ) lua_newuserdata(L, sizeof(luaV_Dict));
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1059 *d = dic;
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1060 dic->dv_refcount++; // reference in Lua
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1061 luaV_setudata(L, dic); // cache[dic] = udata
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1062 luaV_getfield(L, LUAVIM_DICT);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1063 lua_setmetatable(L, -2);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1064 return d;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1065 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1066
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1067 luaV_pushtype(dict_T, dict, luaV_Dict)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1068 luaV_type_tostring(dict, LUAVIM_DICT)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1069
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1070 static int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1071 luaV_dict_len(lua_State *L)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1072 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1073 dict_T *d = luaV_unbox(L, luaV_Dict, 1);
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1074 lua_pushinteger(L, (int) dict_len(d));
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1075 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1076 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1077
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1078 static int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1079 luaV_dict_iter(lua_State *L UNUSED)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1080 {
4135 688da4d486a0 updated for version 7.3.820 Bram Moolenaar <bram@vim.org> parents: 3865 diff changeset	1081 #ifdef FEAT_EVAL
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	1082 hashitem_T hi = (hashitem_T ) lua_touserdata(L, lua_upvalueindex(1));
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	1083 int n = lua_tointeger(L, lua_upvalueindex(2));
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1084 dictitem_T *di;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1085 if (n <= 0) return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1086 while (HASHITEM_EMPTY(hi)) hi++;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1087 di = dict_lookup(hi);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1088 lua_pushstring(L, (char *) hi->hi_key);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1089 luaV_pushtypval(L, &di->di_tv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1090 lua_pushlightuserdata(L, (void *) (hi + 1));
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	1091 lua_replace(L, lua_upvalueindex(1));
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1092 lua_pushinteger(L, n - 1);
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	1093 lua_replace(L, lua_upvalueindex(2));
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1094 return 2;
4135 688da4d486a0 updated for version 7.3.820 Bram Moolenaar <bram@vim.org> parents: 3865 diff changeset	1095 #else
688da4d486a0 updated for version 7.3.820 Bram Moolenaar <bram@vim.org> parents: 3865 diff changeset	1096 return 0;
688da4d486a0 updated for version 7.3.820 Bram Moolenaar <bram@vim.org> parents: 3865 diff changeset	1097 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1098 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1099
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1100 static int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1101 luaV_dict_call(lua_State *L)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1102 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1103 dict_T *d = luaV_unbox(L, luaV_Dict, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1104 hashtab_T *ht = &d->dv_hashtab;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1105 lua_pushlightuserdata(L, (void *) ht->ht_array);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1106 lua_pushinteger(L, ht->ht_used); // # remaining items
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	1107 lua_pushcclosure(L, luaV_dict_iter, 2);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1108 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1109 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1110
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1111 static int
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1112 luaV_dict_index(lua_State *L)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1113 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1114 dict_T *d = luaV_unbox(L, luaV_Dict, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1115 char_u key = (char_u ) luaL_checkstring(L, 2);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1116 dictitem_T *di = dict_find(d, key, -1);
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1117
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1118 if (di == NULL)
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1119 {
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1120 lua_pushnil(L);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1121 return 1;
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1122 }
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1123
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1124 luaV_pushtypval(L, &di->di_tv);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1125 if (di->di_tv.v_type == VAR_FUNC) // funcref?
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1126 {
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1127 luaV_Funcref f = (luaV_Funcref ) lua_touserdata(L, -1);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1128 f->self = d; // keep "self" reference
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1129 d->dv_refcount++;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1130 }
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1131
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1132 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1133 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1134
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1135 static int
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1136 luaV_dict_newindex(lua_State *L)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1137 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1138 dict_T *d = luaV_unbox(L, luaV_Dict, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1139 char_u key = (char_u ) luaL_checkstring(L, 2);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1140 dictitem_T *di;
21108 43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	1141 typval_T tv;
16009 3b524e8110ab patch 8.1.1010: Lua interface leaks memory Bram Moolenaar <Bram@vim.org> parents: 15868 diff changeset	1142
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1143 if (d->dv_lock)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1144 luaL_error(L, "dict is locked");
14329 fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1145 if (key == NULL)
fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1146 return 0;
fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1147 if (*key == NUL)
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1148 luaL_error(L, "empty key");
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1149 if (!lua_isnil(L, 3)) // read value?
14335 d59bf91128ea patch 8.1.0183: Lua API changed, breaking the build Christian Brabandt <cb@256bit.org> parents: 14329 diff changeset	1150 {
21108 43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	1151 luaV_checktypval(L, 3, &tv, "setting dict item");
43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	1152 if (d->dv_scope == VAR_DEF_SCOPE && tv.v_type == VAR_FUNC)
43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	1153 {
43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	1154 clear_tv(&tv);
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1155 luaL_error(L, "cannot assign funcref to builtin scope");
21108 43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	1156 }
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1157 }
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1158 di = dict_find(d, key, -1);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1159 if (di == NULL) // non-existing key?
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1160 {
14329 fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1161 if (lua_isnil(L, 3))
fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1162 return 0;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1163 di = dictitem_alloc(key);
14329 fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1164 if (di == NULL)
21108 43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	1165 {
43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	1166 clear_tv(&tv);
14329 fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1167 return 0;
21108 43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	1168 }
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1169 if (dict_add(d, di) == FAIL)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1170 {
14329 fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1171 vim_free(di);
21108 43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	1172 clear_tv(&tv);
14329 fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1173 return 0;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1174 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1175 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1176 else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1177 clear_tv(&di->di_tv);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1178 if (lua_isnil(L, 3)) // remove?
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1179 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1180 hashitem_T *hi = hash_find(&d->dv_hashtab, di->di_key);
31231 684e6dfa2fba patch 9.0.0949: crash when unletting a variable while listing variables Bram Moolenaar <Bram@vim.org> parents: 30310 diff changeset	1181 hash_remove(&d->dv_hashtab, hi, "Lua new index");
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1182 dictitem_free(di);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1183 }
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1184 else
21108 43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	1185 di->di_tv = tv;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1186 return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1187 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1188
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1189 static const luaL_Reg luaV_Dict_mt[] = {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1190 {"__tostring", luaV_dict_tostring},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1191 {"__len", luaV_dict_len},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1192 {"__call", luaV_dict_call},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1193 {"__index", luaV_dict_index},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1194 {"__newindex", luaV_dict_newindex},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1195 {NULL, NULL}
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1196 };
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1197
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1198
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1199 // ======= Blob type =======
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1200
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1201 static luaV_Blob *
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1202 luaV_newblob(lua_State L, blob_T blo)
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1203 {
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1204 luaV_Blob b = (luaV_Blob ) lua_newuserdata(L, sizeof(luaV_Blob));
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1205 *b = blo;
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1206 blo->bv_refcount++; // reference in Lua
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1207 luaV_setudata(L, blo); // cache[blo] = udata
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1208 luaV_getfield(L, LUAVIM_BLOB);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1209 lua_setmetatable(L, -2);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1210 return b;
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1211 }
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1212
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1213 luaV_pushtype(blob_T, blob, luaV_Blob)
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1214 luaV_type_tostring(blob, LUAVIM_BLOB)
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1215
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1216 static int
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1217 luaV_blob_gc(lua_State *L)
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1218 {
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1219 blob_T *b = luaV_unbox(L, luaV_Blob, 1);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1220 blob_unref(b);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1221 return 0;
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1222 }
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1223
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1224 static int
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1225 luaV_blob_len(lua_State *L)
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1226 {
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1227 blob_T *b = luaV_unbox(L, luaV_Blob, 1);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1228 lua_pushinteger(L, (int) blob_len(b));
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1229 return 1;
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1230 }
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1231
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1232 static int
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1233 luaV_blob_index(lua_State *L)
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1234 {
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1235 blob_T *b = luaV_unbox(L, luaV_Blob, 1);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1236 if (lua_isnumber(L, 2))
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1237 {
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1238 int idx = luaL_checkinteger(L, 2);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1239 if (idx < blob_len(b))
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1240 lua_pushnumber(L, (lua_Number) blob_get(b, idx));
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1241 else
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1242 lua_pushnil(L);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1243 }
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1244 else if (lua_isstring(L, 2))
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1245 {
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1246 const char *s = lua_tostring(L, 2);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1247 if (strncmp(s, "add", 3) == 0)
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1248 {
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1249 lua_getmetatable(L, 1);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1250 lua_getfield(L, -1, s);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1251 }
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1252 else
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1253 lua_pushnil(L);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1254 }
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1255 else
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1256 lua_pushnil(L);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1257 return 1;
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1258 }
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1259
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1260 static int
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1261 luaV_blob_newindex(lua_State *L)
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1262 {
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1263 blob_T *b = luaV_unbox(L, luaV_Blob, 1);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1264 if (b->bv_lock)
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1265 luaL_error(L, "blob is locked");
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1266
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1267 if (!lua_isnumber(L, 2))
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1268 return 0;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1269
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1270 long len = blob_len(b);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1271 int idx = luaL_checkinteger(L, 2);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1272 int val = luaL_checkinteger(L, 3);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1273 if (idx < len \|\| (idx == len && ga_grow(&b->bv_ga, 1) == OK))
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1274 {
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1275 blob_set(b, idx, (char_u) val);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1276 if (idx == len)
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1277 ++b->bv_ga.ga_len;
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1278 }
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1279 else
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1280 luaL_error(L, "index out of range");
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1281
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1282 return 0;
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1283 }
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1284
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1285 static int
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1286 luaV_blob_add(lua_State *L)
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1287 {
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1288 luaV_Blob *blo = luaV_checkudata(L, 1, LUAVIM_BLOB);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1289 blob_T b = (blob_T ) luaV_checkcache(L, (void ) blo);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1290 if (b->bv_lock)
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1291 luaL_error(L, "blob is locked");
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1292 lua_settop(L, 2);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1293 if (!lua_isstring(L, 2))
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1294 luaL_error(L, "string expected, got %s", luaL_typename(L, 2));
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1295 else
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1296 {
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1297 size_t i, l = 0;
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1298 const char *s = lua_tolstring(L, 2, &l);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1299
19372 967149bbd8d3 patch 8.2.0244: compiler warning in Lua interface Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	1300 if (ga_grow(&b->bv_ga, (int)l) == OK)
16099 643fe07aa0e2 patch 8.1.1054: not checking return value of ga_grow() Bram Moolenaar <Bram@vim.org> parents: 16076 diff changeset	1301 for (i = 0; i < l; ++i)
643fe07aa0e2 patch 8.1.1054: not checking return value of ga_grow() Bram Moolenaar <Bram@vim.org> parents: 16076 diff changeset	1302 ga_append(&b->bv_ga, s[i]);
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1303 }
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1304 lua_settop(L, 1);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1305 return 1;
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1306 }
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1307
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1308 static const luaL_Reg luaV_Blob_mt[] = {
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1309 {"__tostring", luaV_blob_tostring},
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1310 {"__gc", luaV_blob_gc},
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1311 {"__len", luaV_blob_len},
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1312 {"__index", luaV_blob_index},
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1313 {"__newindex", luaV_blob_newindex},
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1314 {"add", luaV_blob_add},
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1315 {NULL, NULL}
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1316 };
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1317
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	1318
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1319 // ======= Funcref type =======
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1320
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1321 static luaV_Funcref *
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1322 luaV_newfuncref(lua_State L, char_u name)
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1323 {
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1324 luaV_Funcref f = (luaV_Funcref )lua_newuserdata(L, sizeof(luaV_Funcref));
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1325
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1326 if (name != NULL)
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1327 {
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1328 func_ref(name);
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1329 f->name = vim_strsave(name);
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1330 }
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1331 f->self = NULL;
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1332 luaV_getfield(L, LUAVIM_FUNCREF);
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1333 lua_setmetatable(L, -2);
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1334 return f;
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1335 }
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1336
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1337 static luaV_Funcref *
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1338 luaV_pushfuncref(lua_State L, char_u name)
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1339 {
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1340 return luaV_newfuncref(L, name);
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1341 }
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1342
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1343
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1344 luaV_type_tostring(funcref, LUAVIM_FUNCREF)
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1345
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1346 static int
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1347 luaV_funcref_gc(lua_State *L)
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1348 {
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1349 luaV_Funcref f = (luaV_Funcref ) lua_touserdata(L, 1);
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1350
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1351 func_unref(f->name);
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1352 vim_free(f->name);
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1353 // NOTE: Don't call "dict_unref(f->self)", because the dict of "f->self"
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1354 // will be (or has been already) freed by Vim's garbage collection.
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1355 return 0;
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1356 }
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1357
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1358 // equivalent to string(funcref)
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1359 static int
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1360 luaV_funcref_len(lua_State *L)
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1361 {
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1362 luaV_Funcref f = (luaV_Funcref ) lua_touserdata(L, 1);
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1363
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1364 lua_pushstring(L, (const char *) f->name);
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1365 return 1;
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1366 }
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1367
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1368 static int
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1369 luaV_funcref_call(lua_State *L)
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1370 {
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1371 luaV_Funcref f = (luaV_Funcref ) lua_touserdata(L, 1);
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1372 int i, n = lua_gettop(L) - 1; // #args
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1373 int status = FAIL;
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1374 typval_T args;
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1375 typval_T rettv;
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1376
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1377 args.v_type = VAR_LIST;
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1378 args.vval.v_list = list_alloc();
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1379 rettv.v_type = VAR_UNKNOWN; // as in clear_tv
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1380 if (args.vval.v_list != NULL)
14329 fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1381 {
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1382 typval_T v;
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1383
14335 d59bf91128ea patch 8.1.0183: Lua API changed, breaking the build Christian Brabandt <cb@256bit.org> parents: 14329 diff changeset	1384 for (i = 0; i < n; i++)
d59bf91128ea patch 8.1.0183: Lua API changed, breaking the build Christian Brabandt <cb@256bit.org> parents: 14329 diff changeset	1385 {
14329 fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1386 luaV_checktypval(L, i + 2, &v, "calling funcref");
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1387 list_append_tv(args.vval.v_list, &v);
16009 3b524e8110ab patch 8.1.1010: Lua interface leaks memory Bram Moolenaar <Bram@vim.org> parents: 15868 diff changeset	1388 clear_tv(&v);
14329 fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1389 }
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1390 status = func_call(f->name, &args, NULL, f->self, &rettv);
14329 fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1391 if (status == OK)
fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1392 luaV_pushtypval(L, &rettv);
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1393 clear_tv(&args);
14329 fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	1394 clear_tv(&rettv);
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1395 }
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1396 if (status != OK)
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1397 luaL_error(L, "cannot call funcref");
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1398 return 1;
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1399 }
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1400
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1401 static const luaL_Reg luaV_Funcref_mt[] = {
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1402 {"__tostring", luaV_funcref_tostring},
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1403 {"__gc", luaV_funcref_gc},
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1404 {"__len", luaV_funcref_len},
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1405 {"__call", luaV_funcref_call},
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1406 {NULL, NULL}
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1407 };
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1408
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1409
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1410 // ======= Buffer type =======
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1411
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1412 luaV_newtype(buf_T, buffer, luaV_Buffer, LUAVIM_BUFFER)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1413 luaV_pushtype(buf_T, buffer, luaV_Buffer)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1414 luaV_type_tostring(buffer, LUAVIM_BUFFER)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1415
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1416 static int
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1417 luaV_buffer_len(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1418 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1419 buf_T b = (buf_T ) luaV_checkvalid(L, luaV_Buffer, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1420 lua_pushinteger(L, b->b_ml.ml_line_count);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1421 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1422 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1423
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1424 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1425 luaV_buffer_call(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1426 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1427 buf_T b = (buf_T ) luaV_checkvalid(L, luaV_Buffer, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1428 lua_settop(L, 1);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1429 set_curbuf(b, DOBUF_SPLIT);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1430 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1431 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1432
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1433 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1434 luaV_buffer_index(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1435 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1436 buf_T b = (buf_T ) luaV_checkvalid(L, luaV_Buffer, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1437 linenr_T n = (linenr_T) lua_tointeger(L, 2);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1438 if (n > 0 && n <= b->b_ml.ml_line_count)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1439 luaV_pushline(L, b, n);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1440 else if (lua_isstring(L, 2))
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1441 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1442 const char *s = lua_tostring(L, 2);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1443 if (strncmp(s, "name", 4) == 0)
14296 396b71b242b2 patch 8.1.0164: luaeval('vim.buffer().name') returns an error Christian Brabandt <cb@256bit.org> parents: 14235 diff changeset	1444 lua_pushstring(L, (b->b_sfname == NULL)
396b71b242b2 patch 8.1.0164: luaeval('vim.buffer().name') returns an error Christian Brabandt <cb@256bit.org> parents: 14235 diff changeset	1445 ? "" : (char *) b->b_sfname);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1446 else if (strncmp(s, "fname", 5) == 0)
14296 396b71b242b2 patch 8.1.0164: luaeval('vim.buffer().name') returns an error Christian Brabandt <cb@256bit.org> parents: 14235 diff changeset	1447 lua_pushstring(L, (b->b_ffname == NULL)
396b71b242b2 patch 8.1.0164: luaeval('vim.buffer().name') returns an error Christian Brabandt <cb@256bit.org> parents: 14235 diff changeset	1448 ? "" : (char *) b->b_ffname);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1449 else if (strncmp(s, "number", 6) == 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1450 lua_pushinteger(L, b->b_fnum);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1451 // methods
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1452 else if (strncmp(s, "insert", 6) == 0
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1453 \|\| strncmp(s, "next", 4) == 0
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1454 \|\| strncmp(s, "previous", 8) == 0
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1455 \|\| strncmp(s, "isvalid", 7) == 0)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1456 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1457 lua_getmetatable(L, 1);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1458 lua_getfield(L, -1, s);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1459 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1460 else
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1461 lua_pushnil(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1462 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1463 else
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1464 lua_pushnil(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1465 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1466 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1467
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1468 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1469 luaV_buffer_newindex(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1470 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1471 buf_T b = (buf_T ) luaV_checkvalid(L, luaV_Buffer, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1472 linenr_T n = (linenr_T) luaL_checkinteger(L, 2);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1473 #ifdef HAVE_SANDBOX
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1474 luaV_checksandbox(L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1475 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1476 if (n < 1 \|\| n > b->b_ml.ml_line_count)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1477 luaL_error(L, "invalid line number");
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1478 if (lua_isnil(L, 3)) // delete line
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1479 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1480 buf_T *buf = curbuf;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1481 curbuf = b;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1482 if (u_savedel(n, 1L) == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1483 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1484 curbuf = buf;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1485 luaL_error(L, "cannot save undo information");
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1486 }
20599 d571231175b4 patch 8.2.0853: ml_delete() often called with FALSE argument Bram Moolenaar <Bram@vim.org> parents: 20456 diff changeset	1487 else if (ml_delete(n) == FAIL)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1488 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1489 curbuf = buf;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1490 luaL_error(L, "cannot delete line");
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1491 }
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1492 else
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1493 {
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1494 deleted_lines_mark(n, 1L);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1495 if (b == curwin->w_buffer) // fix cursor in current window?
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1496 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1497 if (curwin->w_cursor.lnum >= n)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1498 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1499 if (curwin->w_cursor.lnum > n)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1500 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1501 curwin->w_cursor.lnum -= 1;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1502 check_cursor_col();
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1503 }
21108 43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	1504 else
43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	1505 check_cursor();
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1506 changed_cline_bef_curs();
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1507 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1508 invalidate_botline();
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1509 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1510 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1511 curbuf = buf;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1512 }
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1513 else if (lua_isstring(L, 3)) // update line
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1514 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1515 buf_T *buf = curbuf;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1516 curbuf = b;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1517 if (u_savesub(n) == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1518 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1519 curbuf = buf;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1520 luaL_error(L, "cannot save undo information");
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1521 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1522 else if (ml_replace(n, luaV_toline(L, 3), TRUE) == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1523 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1524 curbuf = buf;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1525 luaL_error(L, "cannot replace line");
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1526 }
29660 e134ff00be57 patch 9.0.0170: various minor code formatting issues Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1527 else
e134ff00be57 patch 9.0.0170: various minor code formatting issues Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1528 changed_bytes(n, 0);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1529 curbuf = buf;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1530 if (b == curwin->w_buffer)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1531 check_cursor_col();
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1532 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1533 else
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1534 luaL_error(L, "wrong argument to change line");
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1535 return 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1536 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1537
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1538 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1539 luaV_buffer_insert(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1540 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1541 luaV_Buffer *lb = luaV_checkudata(L, 1, LUAVIM_BUFFER);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1542 buf_T b = (buf_T ) luaV_checkcache(L, (void ) lb);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1543 linenr_T last = b->b_ml.ml_line_count;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1544 linenr_T n = (linenr_T) luaL_optinteger(L, 3, last);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1545 buf_T *buf;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1546 luaL_checktype(L, 2, LUA_TSTRING);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1547 #ifdef HAVE_SANDBOX
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1548 luaV_checksandbox(L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1549 #endif
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1550 // fix insertion line
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1551 if (n < 0) n = 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1552 if (n > last) n = last;
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1553 // insert
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1554 buf = curbuf;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1555 curbuf = b;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1556 if (u_save(n, n + 1) == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1557 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1558 curbuf = buf;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1559 luaL_error(L, "cannot save undo information");
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1560 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1561 else if (ml_append(n, luaV_toline(L, 2), 0, FALSE) == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1562 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1563 curbuf = buf;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1564 luaL_error(L, "cannot insert line");
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1565 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1566 else
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1567 appended_lines_mark(n, 1L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1568 curbuf = buf;
29732 89e1d67814a9 patch 9.0.0206: redraw flags are not named specifically Bram Moolenaar <Bram@vim.org> parents: 29660 diff changeset	1569 update_screen(UPD_VALID);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1570 return 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1571 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1572
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1573 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1574 luaV_buffer_next(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1575 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1576 luaV_Buffer *b = luaV_checkudata(L, 1, LUAVIM_BUFFER);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1577 buf_T buf = (buf_T ) luaV_checkcache(L, (void ) b);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1578 luaV_pushbuffer(L, buf->b_next);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1579 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1580 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1581
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1582 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1583 luaV_buffer_previous(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1584 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1585 luaV_Buffer *b = luaV_checkudata(L, 1, LUAVIM_BUFFER);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1586 buf_T buf = (buf_T ) luaV_checkcache(L, (void ) b);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1587 luaV_pushbuffer(L, buf->b_prev);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1588 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1589 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1590
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1591 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1592 luaV_buffer_isvalid(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1593 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1594 luaV_Buffer *b = luaV_checkudata(L, 1, LUAVIM_BUFFER);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1595 luaV_getudata(L, *b);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1596 lua_pushboolean(L, !lua_isnil(L, -1));
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1597 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1598 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1599
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1600 static const luaL_Reg luaV_Buffer_mt[] = {
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1601 {"__tostring", luaV_buffer_tostring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1602 {"__len", luaV_buffer_len},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1603 {"__call", luaV_buffer_call},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1604 {"__index", luaV_buffer_index},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1605 {"__newindex", luaV_buffer_newindex},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1606 {"insert", luaV_buffer_insert},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1607 {"next", luaV_buffer_next},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1608 {"previous", luaV_buffer_previous},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1609 {"isvalid", luaV_buffer_isvalid},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1610 {NULL, NULL}
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1611 };
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1612
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1613
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1614 // ======= Window type =======
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1615
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1616 luaV_newtype(win_T, window, luaV_Window, LUAVIM_WINDOW)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1617 luaV_pushtype(win_T, window, luaV_Window)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1618 luaV_type_tostring(window, LUAVIM_WINDOW)
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1619
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1620 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1621 luaV_window_call(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1622 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1623 win_T w = (win_T ) luaV_checkvalid(L, luaV_Window, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1624 lua_settop(L, 1);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1625 win_goto(w);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1626 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1627 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1628
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1629 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1630 luaV_window_index(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1631 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1632 win_T w = (win_T ) luaV_checkvalid(L, luaV_Window, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1633 const char *s = luaL_checkstring(L, 2);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1634 if (strncmp(s, "buffer", 6) == 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1635 luaV_pushbuffer(L, w->w_buffer);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1636 else if (strncmp(s, "line", 4) == 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1637 lua_pushinteger(L, w->w_cursor.lnum);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1638 else if (strncmp(s, "col", 3) == 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1639 lua_pushinteger(L, w->w_cursor.col + 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1640 else if (strncmp(s, "width", 5) == 0)
12515 972ea22c946f patch 8.0.1136: W_WIDTH() is always the same Christian Brabandt <cb@256bit.org> parents: 12477 diff changeset	1641 lua_pushinteger(L, w->w_width);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1642 else if (strncmp(s, "height", 6) == 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1643 lua_pushinteger(L, w->w_height);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1644 // methods
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1645 else if (strncmp(s, "next", 4) == 0
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1646 \|\| strncmp(s, "previous", 8) == 0
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1647 \|\| strncmp(s, "isvalid", 7) == 0)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1648 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1649 lua_getmetatable(L, 1);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1650 lua_getfield(L, -1, s);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1651 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1652 else
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1653 lua_pushnil(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1654 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1655 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1656
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1657 static int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	1658 luaV_window_newindex(lua_State *L)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1659 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1660 win_T w = (win_T ) luaV_checkvalid(L, luaV_Window, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1661 const char *s = luaL_checkstring(L, 2);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1662 int v = luaL_checkinteger(L, 3);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1663 if (strncmp(s, "line", 4) == 0)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1664 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1665 #ifdef HAVE_SANDBOX
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1666 luaV_checksandbox(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1667 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1668 if (v < 1 \|\| v > w->w_buffer->b_ml.ml_line_count)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1669 luaL_error(L, "line out of range");
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1670 w->w_cursor.lnum = v;
29732 89e1d67814a9 patch 9.0.0206: redraw flags are not named specifically Bram Moolenaar <Bram@vim.org> parents: 29660 diff changeset	1671 update_screen(UPD_VALID);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1672 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1673 else if (strncmp(s, "col", 3) == 0)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1674 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1675 #ifdef HAVE_SANDBOX
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1676 luaV_checksandbox(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1677 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1678 w->w_cursor.col = v - 1;
14395 c15bef307de6 patch 8.1.0212: preferred cursor column not set in interfaces Christian Brabandt <cb@256bit.org> parents: 14335 diff changeset	1679 w->w_set_curswant = TRUE;
29732 89e1d67814a9 patch 9.0.0206: redraw flags are not named specifically Bram Moolenaar <Bram@vim.org> parents: 29660 diff changeset	1680 update_screen(UPD_VALID);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1681 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1682 else if (strncmp(s, "width", 5) == 0)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1683 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1684 win_T *win = curwin;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1685 #ifdef FEAT_GUI
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1686 need_mouse_correct = TRUE;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1687 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1688 curwin = w;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1689 win_setwidth(v);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1690 curwin = win;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1691 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1692 else if (strncmp(s, "height", 6) == 0)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1693 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1694 win_T *win = curwin;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1695 #ifdef FEAT_GUI
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1696 need_mouse_correct = TRUE;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1697 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1698 curwin = w;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1699 win_setheight(v);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1700 curwin = win;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1701 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1702 else
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1703 luaL_error(L, "invalid window property: `%s'", s);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1704 return 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1705 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1706
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1707 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1708 luaV_window_next(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1709 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1710 luaV_Window *w = luaV_checkudata(L, 1, LUAVIM_WINDOW);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1711 win_T win = (win_T ) luaV_checkcache(L, (void ) w);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1712 luaV_pushwindow(L, win->w_next);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1713 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1714 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1715
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1716 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1717 luaV_window_previous(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1718 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1719 luaV_Window *w = luaV_checkudata(L, 1, LUAVIM_WINDOW);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1720 win_T win = (win_T ) luaV_checkcache(L, (void ) w);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1721 luaV_pushwindow(L, win->w_prev);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1722 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1723 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1724
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1725 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1726 luaV_window_isvalid(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1727 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1728 luaV_Window *w = luaV_checkudata(L, 1, LUAVIM_WINDOW);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1729 luaV_getudata(L, *w);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1730 lua_pushboolean(L, !lua_isnil(L, -1));
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1731 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1732 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1733
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1734 static const luaL_Reg luaV_Window_mt[] = {
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1735 {"__tostring", luaV_window_tostring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1736 {"__call", luaV_window_call},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1737 {"__index", luaV_window_index},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1738 {"__newindex", luaV_window_newindex},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1739 {"next", luaV_window_next},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1740 {"previous", luaV_window_previous},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1741 {"isvalid", luaV_window_isvalid},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1742 {NULL, NULL}
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1743 };
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1744
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1745
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1746 // ======= Vim module =======
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1747
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1748 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1749 luaV_print(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1750 {
25415 02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1751 int i, n = lua_gettop(L); // nargs
02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1752 const char *s;
02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1753 size_t l;
02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1754 garray_T msg_ga;
02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1755
02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1756 ga_init2(&msg_ga, 1, 128);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1757 lua_getglobal(L, "tostring");
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1758 for (i = 1; i <= n; i++)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1759 {
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1760 lua_pushvalue(L, -1); // tostring
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1761 lua_pushvalue(L, i); // arg
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1762 lua_call(L, 1, 1);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1763 s = lua_tolstring(L, -1, &l);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1764 if (s == NULL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1765 return luaL_error(L, "cannot convert to string");
25394 3a8b61b31724 patch 8.2.3234: crash when printing long string with Lua Bram Moolenaar <Bram@vim.org> parents: 25342 diff changeset	1766 if (i > 1)
25415 02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1767 ga_append(&msg_ga, ' '); // use space instead of tab
02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1768 ga_concat_len(&msg_ga, (char_u *)s, l);
25407 241d26b17192 patch 8.2.3240: Lua print() does not work properly Bram Moolenaar <Bram@vim.org> parents: 25394 diff changeset	1769 lua_pop(L, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1770 }
25415 02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1771 // Replace any "\n" with "\0"
02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1772 for (i = 0; i < msg_ga.ga_len; i++)
02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1773 if (((char *)msg_ga.ga_data)[i] == '\n')
02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1774 ((char *)msg_ga.ga_data)[i] = '\0';
02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1775 lua_pushlstring(L, msg_ga.ga_data, msg_ga.ga_len);
18370 026034963159 patch 8.1.2179: pressing "q" at the more prompt doesn't stop Python output Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	1776 if (!got_int)
026034963159 patch 8.1.2179: pressing "q" at the more prompt doesn't stop Python output Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	1777 luaV_msg(L);
25415 02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1778
02d1b2817585 patch 8.2.3244: Lua 5.3 print() with a long string crashes Bram Moolenaar <Bram@vim.org> parents: 25407 diff changeset	1779 ga_clear(&msg_ga);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1780 return 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1781 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1782
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1783 static int
3091 92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1784 luaV_debug(lua_State *L)
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1785 {
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1786 lua_settop(L, 0);
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1787 lua_getglobal(L, "vim");
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1788 lua_getfield(L, -1, "eval");
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1789 lua_remove(L, -2); // vim.eval at position 1
3091 92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1790 for (;;)
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1791 {
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1792 const char *input;
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1793 size_t l;
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1794 lua_pushvalue(L, 1); // vim.eval
3091 92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1795 lua_pushliteral(L, "input('lua_debug> ')");
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1796 lua_call(L, 1, 1); // return string
3091 92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1797 input = lua_tolstring(L, -1, &l);
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1798 if (l == 0 \|\| strcmp(input, "cont") == 0)
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1799 return 0;
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1800 msg_putchar('\n'); // avoid outputting on input line
3091 92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1801 if (luaL_loadbuffer(L, input, l, "=(debug command)")
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1802 \|\| lua_pcall(L, 0, 0, 0))
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1803 luaV_emsg(L);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	1804 lua_settop(L, 1); // remove eventual returns, but keep vim.eval
3091 92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1805 }
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1806 }
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1807
25503 9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1808 static dict_T *
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1809 luaV_get_var_scope(lua_State *L)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1810 {
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1811 const char *scope = luaL_checkstring(L, 1);
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1812 dict_T *dict = NULL;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1813
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1814 if (STRICMP((char *)scope, "g") == 0)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1815 dict = get_globvar_dict();
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1816 else if (STRICMP((char *)scope, "v") == 0)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1817 dict = get_vimvar_dict();
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1818 else if (STRICMP((char *)scope, "b") == 0)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1819 dict = curbuf->b_vars;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1820 else if (STRICMP((char *)scope, "w") == 0)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1821 dict = curwin->w_vars;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1822 else if (STRICMP((char *)scope, "t") == 0)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1823 dict = curtab->tp_vars;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1824 else
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1825 {
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1826 luaL_error(L, "invalid scope %s", scope);
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1827 return NULL;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1828 }
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1829
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1830 return dict;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1831 }
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1832
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1833 static int
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1834 luaV_setvar(lua_State *L)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1835 {
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1836 dict_T *dict;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1837 dictitem_T *di;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1838 size_t len;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1839 char *name;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1840 int del;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1841 char *error = NULL;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1842
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1843 name = (char *)luaL_checklstring(L, 3, &len);
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1844 del = (lua_gettop(L) < 4) \|\| lua_isnil(L, 4);
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1845
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1846 dict = luaV_get_var_scope(L);
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1847 if (dict == NULL)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1848 return 0;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1849
25527 d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	1850 di = dict_find(dict, (char_u *)name, (int)len);
25503 9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1851 if (di != NULL)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1852 {
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1853 if (di->di_flags & DI_FLAGS_RO)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1854 error = "variable is read-only";
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1855 else if (di->di_flags & DI_FLAGS_LOCK)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1856 error = "variable is locked";
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1857 else if (del && di->di_flags & DI_FLAGS_FIX)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1858 error = "variable is fixed";
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1859 if (error != NULL)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1860 return luaL_error(L, error);
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1861 }
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1862 else if (dict->dv_lock)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1863 return luaL_error(L, "Dictionary is locked");
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1864
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1865 if (del)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1866 {
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1867 // Delete the key
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1868 if (di == NULL)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1869 // Doesn't exist, nothing to do
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1870 return 0;
31231 684e6dfa2fba patch 9.0.0949: crash when unletting a variable while listing variables Bram Moolenaar <Bram@vim.org> parents: 30310 diff changeset	1871 // Delete the entry
684e6dfa2fba patch 9.0.0949: crash when unletting a variable while listing variables Bram Moolenaar <Bram@vim.org> parents: 30310 diff changeset	1872 dictitem_remove(dict, di, "Lua delete variable");
25503 9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1873 }
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1874 else
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1875 {
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1876 // Update the key
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1877 typval_T tv;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1878
25881 2ee0425960fe patch 8.2.3474: some places use "Vimscript" instead of "Vim script" Bram Moolenaar <Bram@vim.org> parents: 25527 diff changeset	1879 // Convert the lua value to a Vim script type in the temporary variable
25503 9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1880 lua_pushvalue(L, 4);
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1881 if (luaV_totypval(L, -1, &tv) == FAIL)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1882 return luaL_error(L, "Couldn't convert lua value");
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1883
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1884 if (di == NULL)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1885 {
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1886 // Need to create an entry
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1887 di = dictitem_alloc((char_u *)name);
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1888 if (di == NULL)
25515 d84f6784c27c patch 8.2.3294: Lua: memory leak when adding dict item fails Bram Moolenaar <Bram@vim.org> parents: 25509 diff changeset	1889 {
d84f6784c27c patch 8.2.3294: Lua: memory leak when adding dict item fails Bram Moolenaar <Bram@vim.org> parents: 25509 diff changeset	1890 clear_tv(&tv);
25503 9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1891 return 0;
25515 d84f6784c27c patch 8.2.3294: Lua: memory leak when adding dict item fails Bram Moolenaar <Bram@vim.org> parents: 25509 diff changeset	1892 }
25503 9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1893 // Update the value
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1894 copy_tv(&tv, &di->di_tv);
25509 7ed54019fbb8 patch 8.2.3291: Coverity warns for not checking return value Bram Moolenaar <Bram@vim.org> parents: 25503 diff changeset	1895 if (dict_add(dict, di) == FAIL)
25515 d84f6784c27c patch 8.2.3294: Lua: memory leak when adding dict item fails Bram Moolenaar <Bram@vim.org> parents: 25509 diff changeset	1896 {
d84f6784c27c patch 8.2.3294: Lua: memory leak when adding dict item fails Bram Moolenaar <Bram@vim.org> parents: 25509 diff changeset	1897 dictitem_free(di);
d84f6784c27c patch 8.2.3294: Lua: memory leak when adding dict item fails Bram Moolenaar <Bram@vim.org> parents: 25509 diff changeset	1898 clear_tv(&tv);
25509 7ed54019fbb8 patch 8.2.3291: Coverity warns for not checking return value Bram Moolenaar <Bram@vim.org> parents: 25503 diff changeset	1899 return luaL_error(L, "Couldn't add to dictionary");
25515 d84f6784c27c patch 8.2.3294: Lua: memory leak when adding dict item fails Bram Moolenaar <Bram@vim.org> parents: 25509 diff changeset	1900 }
d84f6784c27c patch 8.2.3294: Lua: memory leak when adding dict item fails Bram Moolenaar <Bram@vim.org> parents: 25509 diff changeset	1901 }
d84f6784c27c patch 8.2.3294: Lua: memory leak when adding dict item fails Bram Moolenaar <Bram@vim.org> parents: 25509 diff changeset	1902 else
25503 9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1903 {
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1904 // Clear the old value
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1905 clear_tv(&di->di_tv);
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1906 // Update the value
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1907 copy_tv(&tv, &di->di_tv);
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1908 }
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1909
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1910 // Clear the temporary variable
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1911 clear_tv(&tv);
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1912 }
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1913
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1914 return 0;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1915 }
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1916
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1917 static int
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1918 luaV_getvar(lua_State *L)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1919 {
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1920 dict_T *dict = luaV_get_var_scope(L);
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1921 size_t len;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1922 const char *name = luaL_checklstring(L, 3, &len);
25527 d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	1923 dictitem_T di = dict_find(dict, (char_u )name, (int)len);
25503 9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1924
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1925 if (di == NULL)
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1926 return 0; // nil
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1927
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1928 luaV_pushtypval(L, &di->di_tv);
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1929 return 1;
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1930 }
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	1931
3091 92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1932 static int
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1933 luaV_command(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1934 {
25527 d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	1935 char_u s = vim_strsave((char_u )luaL_checkstring(L, 1));
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	1936
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	1937 execute_cmds_from_string(s);
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	1938 vim_free(s);
29732 89e1d67814a9 patch 9.0.0206: redraw flags are not named specifically Bram Moolenaar <Bram@vim.org> parents: 29660 diff changeset	1939 update_screen(UPD_VALID);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1940 return 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1941 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1942
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1943 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1944 luaV_eval(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1945 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1946 typval_T tv = eval_expr((char_u ) luaL_checkstring(L, 1), NULL);
25527 d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	1947
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1948 if (tv == NULL) luaL_error(L, "invalid expression");
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1949 luaV_pushtypval(L, tv);
4293 af3a3680fc75 updated for version 7.3.896 Bram Moolenaar <bram@vim.org> parents: 4270 diff changeset	1950 free_tv(tv);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1951 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1952 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1953
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1954 static int
2331 3840b7508835 Make it easier to build with Lua. Remove compiler warnings. Bram Moolenaar <bram@vim.org> parents: 2330 diff changeset	1955 luaV_beep(lua_State *L UNUSED)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1956 {
6949 1e621b31948b patch 7.4.793 Bram Moolenaar <bram@vim.org> parents: 6887 diff changeset	1957 vim_beep(BO_LANG);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1958 return 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1959 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1960
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1961 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1962 luaV_line(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1963 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1964 luaV_pushline(L, curbuf, curwin->w_cursor.lnum);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1965 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1966 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1967
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1968 static int
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1969 luaV_list(lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1970 {
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1971 list_T *l;
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1972 int initarg = !lua_isnoneornil(L, 1);
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1973
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1974 if (initarg && lua_type(L, 1) != LUA_TTABLE)
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1975 luaL_error(L, "table expected, got %s", luaL_typename(L, 1));
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1976
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1977 l = list_alloc();
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1978 if (l == NULL)
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	1979 {
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1980 lua_pushnil(L);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1981 return 1;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1982 }
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1983
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1984 luaV_newlist(L, l);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1985 if (!initarg)
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1986 return 1;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1987
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1988 // traverse table to init list
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1989 int notnil, i = 0;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1990 typval_T v;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1991 do
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1992 {
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1993 lua_rawgeti(L, 1, ++i);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1994 notnil = !lua_isnil(L, -1);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1995 if (notnil)
14335 d59bf91128ea patch 8.1.0183: Lua API changed, breaking the build Christian Brabandt <cb@256bit.org> parents: 14329 diff changeset	1996 {
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1997 luaV_checktypval(L, -1, &v, "vim.list");
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1998 list_append_tv(l, &v);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	1999 clear_tv(&v);
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2000 }
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2001 lua_pop(L, 1); // value
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2002 } while (notnil);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2003
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2004 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2005 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2006
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2007 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2008 luaV_dict(lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2009 {
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2010 dict_T *d;
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2011 int initarg = !lua_isnoneornil(L, 1);
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2012
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2013 if (initarg && lua_type(L, 1) != LUA_TTABLE)
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2014 luaL_error(L, "table expected, got %s", luaL_typename(L, 1));
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2015
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2016 d = dict_alloc();
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2017 if (d == NULL)
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2018 {
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2019 lua_pushnil(L);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2020 return 1;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2021 }
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2022
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2023 luaV_newdict(L, d);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2024 if (!initarg)
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2025 return 1;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2026
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2027 // traverse table to init dict
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2028 lua_pushnil(L);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2029 while (lua_next(L, 1))
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2030 {
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2031 char_u *key;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2032 dictitem_T *di;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2033 typval_T v;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2034
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2035 lua_pushvalue(L, -2); // dup key in case it's a number
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2036 key = (char_u *) lua_tostring(L, -1);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2037 if (key == NULL)
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2038 {
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2039 lua_pushnil(L);
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2040 return 1;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2041 }
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2042 if (*key == NUL)
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2043 luaL_error(L, "table has empty key");
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2044 luaV_checktypval(L, -2, &v, "vim.dict"); // value
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2045 di = dictitem_alloc(key);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2046 if (di == NULL \|\| dict_add(d, di) == FAIL)
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2047 {
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2048 vim_free(di);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2049 lua_pushnil(L);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2050 return 1;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2051 }
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2052 di->di_tv = v;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2053 lua_pop(L, 2); // key copy and value
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2054 }
14329 fe651f98e173 patch 8.1.0180: static analysis errors in Lua interface Christian Brabandt <cb@256bit.org> parents: 14296 diff changeset	2055
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2056 return 1;
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2057 }
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2058
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2059 static int
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2060 luaV_blob(lua_State *L)
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2061 {
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2062 blob_T *b;
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2063 int initarg = !lua_isnoneornil(L, 1);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2064
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2065 if (initarg && !lua_isstring(L, 1))
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2066 luaL_error(L, "string expected, got %s", luaL_typename(L, 1));
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2067
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2068 b = blob_alloc();
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2069 if (b == NULL)
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2070 {
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2071 lua_pushnil(L);
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2072 return 1;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2073 }
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2074
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2075 luaV_newblob(L, b);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2076 if (!initarg)
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2077 return 1;
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2078
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2079 // traverse table to init blob
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2080 size_t i, l = 0;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2081 const char *s = lua_tolstring(L, 1, &l);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2082
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2083 if (ga_grow(&b->bv_ga, (int)l) == OK)
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2084 for (i = 0; i < l; ++i)
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2085 ga_append(&b->bv_ga, s[i]);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2086
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2087 return 1;
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2088 }
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2089
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2090 static int
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2091 luaV_funcref(lua_State *L)
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2092 {
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2093 const char *name = luaL_checkstring(L, 1);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2094 // note: not checking if function exists (needs function_exists)
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2095 if (name == NULL \|\| name == NUL \|\| VIM_ISDIGIT(name))
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2096 luaL_error(L, "invalid function name: %s", name);
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2097 luaV_newfuncref(L, (char_u *) name);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2098 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2099 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2100
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2101 static int
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2102 luaV_buffer(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2103 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2104 buf_T *buf;
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2105 if (lua_isstring(L, 1)) // get by number or name?
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2106 {
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2107 if (lua_isnumber(L, 1)) // by number?
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2108 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2109 int n = lua_tointeger(L, 1);
9649 fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07 Christian Brabandt <cb@256bit.org> parents: 8643 diff changeset	2110 FOR_ALL_BUFFERS(buf)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2111 if (buf->b_fnum == n) break;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2112 }
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2113 else // by name
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2114 {
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2115 size_t l;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2116 const char *s = lua_tolstring(L, 1, &l);
9649 fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07 Christian Brabandt <cb@256bit.org> parents: 8643 diff changeset	2117 FOR_ALL_BUFFERS(buf)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2118 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2119 if (buf->b_ffname == NULL \|\| buf->b_sfname == NULL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2120 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2121 if (l == 0) break;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2122 }
2331 3840b7508835 Make it easier to build with Lua. Remove compiler warnings. Bram Moolenaar <bram@vim.org> parents: 2330 diff changeset	2123 else if (strncmp(s, (char *)buf->b_ffname, l) == 0
3840b7508835 Make it easier to build with Lua. Remove compiler warnings. Bram Moolenaar <bram@vim.org> parents: 2330 diff changeset	2124 \|\| strncmp(s, (char *)buf->b_sfname, l) == 0)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2125 break;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2126 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2127 }
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2128 }
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2129 else
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2130 buf = (lua_toboolean(L, 1)) ? firstbuf : curbuf; // first buffer?
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2131 luaV_pushbuffer(L, buf);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2132 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2133 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2134
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2135 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2136 luaV_window(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2137 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2138 win_T *win;
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2139 if (lua_isnumber(L, 1)) // get by number?
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2140 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2141 int n = lua_tointeger(L, 1);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2142 for (win = firstwin; win != NULL; win = win->w_next, n--)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2143 if (n == 1) break;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2144 }
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2145 else
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2146 win = (lua_toboolean(L, 1)) ? firstwin : curwin; // first window?
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2147 luaV_pushwindow(L, win);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2148 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2149 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2150
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2151 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2152 luaV_open(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2153 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2154 char_u *s = NULL;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2155 #ifdef HAVE_SANDBOX
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2156 luaV_checksandbox(L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2157 #endif
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2158 if (lua_isstring(L, 1)) s = (char_u *) lua_tostring(L, 1);
3200 3801e4811b0e updated for version 7.3.370 Bram Moolenaar <bram@vim.org> parents: 3091 diff changeset	2159 luaV_pushbuffer(L, buflist_new(s, NULL, 1L, BLN_LISTED));
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2160 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2161 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2162
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2163 static int
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2164 luaV_type(lua_State *L)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2165 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2166 luaL_checkany(L, 1);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2167 if (lua_type(L, 1) == LUA_TUSERDATA) // check vim udata?
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2168 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2169 lua_settop(L, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2170 if (lua_getmetatable(L, 1))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2171 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2172 luaV_getfield(L, LUAVIM_LIST);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2173 if (lua_rawequal(L, -1, 2))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2174 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2175 lua_pushstring(L, "list");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2176 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2177 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2178 luaV_getfield(L, LUAVIM_DICT);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2179 if (lua_rawequal(L, -1, 2))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2180 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2181 lua_pushstring(L, "dict");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2182 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2183 }
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2184 luaV_getfield(L, LUAVIM_BLOB);
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2185 if (lua_rawequal(L, -1, 2))
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2186 {
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2187 lua_pushstring(L, "blob");
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2188 return 1;
a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2189 }
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2190 luaV_getfield(L, LUAVIM_FUNCREF);
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2191 if (lua_rawequal(L, -1, 2))
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2192 {
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2193 lua_pushstring(L, "funcref");
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2194 return 1;
e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2195 }
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2196 luaV_getfield(L, LUAVIM_BUFFER);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2197 if (lua_rawequal(L, -1, 2))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2198 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2199 lua_pushstring(L, "buffer");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2200 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2201 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2202 luaV_getfield(L, LUAVIM_WINDOW);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2203 if (lua_rawequal(L, -1, 2))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2204 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2205 lua_pushstring(L, "window");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2206 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2207 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2208 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2209 }
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2210 lua_pushstring(L, luaL_typename(L, 1)); // fallback
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2211 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2212 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2213
20441 86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2214 static int
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2215 luaV_call(lua_State *L)
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2216 {
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2217 int argc = lua_gettop(L) - 1;
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2218 size_t funcname_len;
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2219 char_u *funcname;
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2220 char *error = NULL;
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2221 typval_T rettv;
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2222 typval_T argv[MAX_FUNC_ARGS + 1];
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2223 int i = 0;
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2224
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2225 if (argc > MAX_FUNC_ARGS)
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2226 return luaL_error(L, "Function called with too many arguments");
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2227
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2228 funcname = (char_u *)luaL_checklstring(L, 1, &funcname_len);
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2229
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2230 for (; i < argc; i++)
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2231 {
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2232 if (luaV_totypval(L, i + 2, &argv[i]) == FAIL)
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2233 {
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2234 error = "lua: cannot convert value";
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2235 goto free_vim_args;
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2236 }
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2237 }
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2238
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2239 argv[argc].v_type = VAR_UNKNOWN;
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2240
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2241 if (call_vim_function(funcname, argc, argv, &rettv) == FAIL)
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2242 {
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2243 error = "lua: call_vim_function failed";
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2244 goto free_vim_args;
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2245 }
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2246
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2247 luaV_pushtypval(L, &rettv);
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2248 clear_tv(&rettv);
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2249
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2250 free_vim_args:
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2251 while (i > 0)
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2252 clear_tv(&argv[--i]);
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2253
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2254 if (error == NULL)
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2255 return 1;
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2256 else
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2257 return luaL_error(L, error);
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2258 }
86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2259
25527 d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2260 /*
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2261 * Return the Vim version as a Lua table
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2262 */
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2263 static int
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2264 luaV_version(lua_State *L)
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2265 {
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2266 lua_newtable(L);
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2267 lua_pushstring(L, "major");
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2268 lua_pushinteger(L, VIM_VERSION_MAJOR);
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2269 lua_settable(L, -3);
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2270 lua_pushstring(L, "minor");
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2271 lua_pushinteger(L, VIM_VERSION_MINOR);
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2272 lua_settable(L, -3);
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2273 lua_pushstring(L, "patch");
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2274 lua_pushinteger(L, highest_patch());
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2275 lua_settable(L, -3);
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2276 return 1;
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2277 }
d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2278
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2279 static const luaL_Reg luaV_module[] = {
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2280 {"command", luaV_command},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2281 {"eval", luaV_eval},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2282 {"beep", luaV_beep},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2283 {"line", luaV_line},
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2284 {"list", luaV_list},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2285 {"dict", luaV_dict},
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2286 {"blob", luaV_blob},
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2287 {"funcref", luaV_funcref},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2288 {"buffer", luaV_buffer},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2289 {"window", luaV_window},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2290 {"open", luaV_open},
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2291 {"type", luaV_type},
20441 86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2292 {"call", luaV_call},
25503 9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2293 {"_getvar", luaV_getvar},
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2294 {"_setvar", luaV_setvar},
25527 d5e9c05b4811 patch 8.2.3300: Lua: can only execute on Vim command at a time Bram Moolenaar <Bram@vim.org> parents: 25515 diff changeset	2295 {"version", luaV_version},
24385 0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2296 {"lua_version", NULL},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2297 {NULL, NULL}
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2298 };
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2299
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2300 /*
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2301 * for freeing list, dict, buffer and window objects; lightuserdata as arg
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2302 */
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2303 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2304 luaV_free(lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2305 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2306 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2307 luaV_setudata(L, lua_touserdata(L, 1));
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2308 return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2309 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2310
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2311 static int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	2312 luaV_luaeval(lua_State *L)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2313 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2314 luaL_Buffer b;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2315 size_t l;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2316 const char *str = lua_tolstring(L, 1, &l);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2317 typval_T arg = (typval_T ) lua_touserdata(L, 2);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2318 typval_T rettv = (typval_T ) lua_touserdata(L, 3);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2319 luaL_buffinit(L, &b);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2320 luaL_addlstring(&b, LUAVIM_EVALHEADER, sizeof(LUAVIM_EVALHEADER) - 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2321 luaL_addlstring(&b, str, l);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2322 luaL_pushresult(&b);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2323 str = lua_tolstring(L, -1, &l);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2324 if (luaL_loadbuffer(L, str, l, LUAVIM_EVALNAME)) // compile error?
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2325 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2326 luaV_emsg(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2327 return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2328 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2329 luaV_pushtypval(L, arg);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2330 if (lua_pcall(L, 1, 1, 0)) // running error?
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2331 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2332 luaV_emsg(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2333 return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2334 }
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2335 if (luaV_totypval(L, -1, rettv) == FAIL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15328 diff changeset	2336 emsg("luaeval: cannot convert value");
6590 f884a1140a0a updated for version 7.4.621 Bram Moolenaar <bram@vim.org> parents: 6586 diff changeset	2337 return 0;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2338 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2339
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2340 static int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	2341 luaV_setref(lua_State *L)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2342 {
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	2343 int copyID = lua_tointeger(L, 1);
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	2344 int abort = FALSE;
6565 38add5a3d617 updated for version 7.4.609 Bram Moolenaar <bram@vim.org> parents: 5871 diff changeset	2345
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2346 lua_pushlightuserdata(L, (void *) LUAVIM_UDATA_CACHE);
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2347 lua_rawget(L, LUA_REGISTRYINDEX); // the cache table
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2348
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2349 luaV_getfield(L, LUAVIM_LIST);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2350 luaV_getfield(L, LUAVIM_DICT);
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	2351 luaV_getfield(L, LUAVIM_FUNCREF);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2352 lua_pushnil(L);
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	2353 // traverse cache table
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2354 while (!abort && lua_next(L, 2) != 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2355 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2356 lua_getmetatable(L, -1);
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2357 if (lua_rawequal(L, -1, 3)) // list?
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2358 {
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2359 list_T l = (list_T )lua_touserdata(L, 6); // key
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	2360
17168 1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items Bram Moolenaar <Bram@vim.org> parents: 16099 diff changeset	2361 abort = set_ref_in_list(l, copyID);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2362 }
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2363 else if (lua_rawequal(L, -1, 4)) // dict?
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2364 {
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2365 dict_T d = (dict_T )lua_touserdata(L, 6); // key
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	2366
17168 1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items Bram Moolenaar <Bram@vim.org> parents: 16099 diff changeset	2367 abort = set_ref_in_dict(d, copyID);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2368 }
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2369 else if (lua_rawequal(L, -1, 5)) // funcref?
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	2370 {
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2371 luaV_Funcref f = (luaV_Funcref )lua_touserdata(L, 6); // key
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	2372
17168 1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items Bram Moolenaar <Bram@vim.org> parents: 16099 diff changeset	2373 abort = set_ref_in_dict(f->self, copyID);
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	2374 }
8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	2375 lua_pop(L, 2); // metatable and value
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2376 }
6565 38add5a3d617 updated for version 7.4.609 Bram Moolenaar <bram@vim.org> parents: 5871 diff changeset	2377 lua_pushinteger(L, abort);
6590 f884a1140a0a updated for version 7.4.621 Bram Moolenaar <bram@vim.org> parents: 6586 diff changeset	2378 return 1;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2379 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2380
24385 0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2381 static int
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2382 luaV_pushversion(lua_State *L)
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2383 {
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2384 int major = 0;
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2385 int minor = 0;
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2386 int patch = 0;
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2387 char s[16];
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2388
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2389 sscanf(LUAVIM_VERSION, "Lua %d.%d.%d", &major, &minor, &patch);
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2390 vim_snprintf(s, sizeof(s), "%d.%d.%d", major, minor, patch);
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2391 lua_pushstring(L, s);
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2392 return 0;
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2393 }
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2394
20441 86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2395 #define LUA_VIM_FN_CODE \
20609 054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2396 "vim.fn = setmetatable({}, {\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2397 " __index = function (t, key)\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2398 " local function _fn(...)\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2399 " return vim.call(key, ...)\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2400 " end\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2401 " t[key] = _fn\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2402 " return _fn\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2403 " end\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2404 " })"
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2405
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2406 #define LUA_VIM_UPDATE_PACKAGE_PATHS \
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2407 "local last_vim_paths = {}\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2408 "vim._update_package_paths = function ()\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2409 " local cur_vim_paths = {}\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2410 " local function split(s, delimiter)\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2411 " result = {}\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2412 " for match in (s..delimiter):gmatch(\"(.-)\"..delimiter) do\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2413 " table.insert(result, match)\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2414 " end\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2415 " return result\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2416 " end\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2417 " local rtps = split(vim.eval('&runtimepath'), ',')\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2418 " local sep = package.config:sub(1, 1)\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2419 " for _, key in ipairs({'path', 'cpath'}) do\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2420 " local orig_str = package[key] .. ';'\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2421 " local pathtrails_ordered = {}\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2422 " -- Note: ignores trailing item without trailing `;`. Not using something\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2423 " -- simpler in order to preserve empty items (stand for default path).\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2424 " local orig = {}\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2425 " for s in orig_str:gmatch('[^;]*;') do\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2426 " s = s:sub(1, -2) -- Strip trailing semicolon\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2427 " orig[#orig + 1] = s\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2428 " end\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2429 " if key == 'path' then\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2430 " -- /?.lua and /?/init.lua\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2431 " pathtrails_ordered = {sep .. '?.lua', sep .. '?' .. sep .. 'init.lua'}\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2432 " else\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2433 " local pathtrails = {}\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2434 " for _, s in ipairs(orig) do\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2435 " -- Find out path patterns. pathtrail should contain something like\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2436 " -- /?.so, \?.dll. This allows not to bother determining what correct\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2437 " -- suffixes are.\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2438 " local pathtrail = s:match('[/\\\\][^/\\\\]%?.$')\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2439 " if pathtrail and not pathtrails[pathtrail] then\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2440 " pathtrails[pathtrail] = true\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2441 " pathtrails_ordered[#pathtrails_ordered + 1] = pathtrail\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2442 " end\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2443 " end\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2444 " end\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2445 " local new = {}\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2446 " for _, rtp in ipairs(rtps) do\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2447 " if not rtp:match(';') then\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2448 " for _, pathtrail in pairs(pathtrails_ordered) do\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2449 " local new_path = rtp .. sep .. 'lua' .. pathtrail\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2450 " -- Always keep paths from &runtimepath at the start:\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2451 " -- append them here disregarding orig possibly containing one of them.\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2452 " new[#new + 1] = new_path\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2453 " cur_vim_paths[new_path] = true\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2454 " end\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2455 " end\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2456 " end\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2457 " for _, orig_path in ipairs(orig) do\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2458 " -- Handle removing obsolete paths originating from &runtimepath: such\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2459 " -- paths either belong to cur_nvim_paths and were already added above or\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2460 " -- to last_nvim_paths and should not be added at all if corresponding\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2461 " -- entry was removed from &runtimepath list.\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2462 " if not (cur_vim_paths[orig_path] or last_vim_paths[orig_path]) then\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2463 " new[#new + 1] = orig_path\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2464 " end\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2465 " end\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2466 " package[key] = table.concat(new, ';')\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2467 " end\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2468 " last_vim_paths = cur_vim_paths\n"\
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2469 "end"
20441 86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2470
25503 9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2471 #define LUA_VIM_SETUP_VARIABLE_DICTS \
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2472 "do\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2473 " local function make_dict_accessor(scope)\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2474 " local mt = {}\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2475 " function mt:__newindex(k, v)\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2476 " return vim._setvar(scope, 0, k, v)\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2477 " end\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2478 " function mt:__index(k)\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2479 " return vim._getvar(scope, 0, k)\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2480 " end\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2481 " return setmetatable({}, mt)\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2482 " end\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2483 " vim.g = make_dict_accessor('g')\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2484 " vim.v = make_dict_accessor('v')\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2485 " vim.b = make_dict_accessor('b')\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2486 " vim.w = make_dict_accessor('w')\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2487 " vim.t = make_dict_accessor('t')\n"\
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2488 "end"
9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2489
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2490 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2491 luaopen_vim(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2492 {
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2493 lua_newtable(L); // cache table
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2494 lua_newtable(L); // cache table's metatable
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2495 lua_pushstring(L, "v");
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2496 lua_setfield(L, -2, "__mode");
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2497 lua_setmetatable(L, -2); // cache is weak-valued
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2498 // put the cache table in the registry for luaV_get/setudata()
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2499 lua_pushlightuserdata(L, (void *) LUAVIM_UDATA_CACHE);
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2500 lua_pushvalue(L, -2);
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2501 lua_rawset(L, LUA_REGISTRYINDEX);
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2502 lua_pop(L, 1); // we don't need the cache table here anymore
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2503 // print
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2504 lua_pushcfunction(L, luaV_print);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2505 lua_setglobal(L, "print");
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2506 // debug.debug
3091 92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	2507 lua_getglobal(L, "debug");
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	2508 lua_pushcfunction(L, luaV_debug);
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	2509 lua_setfield(L, -2, "debug");
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	2510 lua_pop(L, 1);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2511 // free
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2512 lua_pushlightuserdata(L, (void *) LUAVIM_FREE);
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2513 lua_pushcfunction(L, luaV_free);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2514 lua_rawset(L, LUA_REGISTRYINDEX);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2515 // luaeval
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2516 lua_pushlightuserdata(L, (void *) LUAVIM_LUAEVAL);
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2517 lua_pushcfunction(L, luaV_luaeval);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2518 lua_rawset(L, LUA_REGISTRYINDEX);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2519 // setref
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2520 lua_pushlightuserdata(L, (void *) LUAVIM_SETREF);
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2521 lua_pushcfunction(L, luaV_setref);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2522 lua_rawset(L, LUA_REGISTRYINDEX);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2523 // register
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2524 luaV_newmetatable(L, LUAVIM_LIST);
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2525 luaV_register(L, luaV_List_mt);
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2526 lua_pop(L, 1);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2527 luaV_newmetatable(L, LUAVIM_DICT);
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2528 luaV_register(L, luaV_Dict_mt);
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2529 lua_pop(L, 1);
16076 a2f0e93a5857 patch 8.1.1043: Lua interface does not support Blob Bram Moolenaar <Bram@vim.org> parents: 16028 diff changeset	2530 luaV_newmetatable(L, LUAVIM_BLOB);
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2531 luaV_register(L, luaV_Blob_mt);
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2532 lua_pop(L, 1);
14235 e3bc8cdc94dd patch 8.1.0134: Lua interface does not support funcref Christian Brabandt <cb@256bit.org> parents: 12515 diff changeset	2533 luaV_newmetatable(L, LUAVIM_FUNCREF);
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2534 luaV_register(L, luaV_Funcref_mt);
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2535 lua_pop(L, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2536 luaV_newmetatable(L, LUAVIM_BUFFER);
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2537 luaV_register(L, luaV_Buffer_mt);
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2538 lua_pop(L, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2539 luaV_newmetatable(L, LUAVIM_WINDOW);
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2540 luaV_register(L, luaV_Window_mt);
0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2541 lua_pop(L, 1);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2542 lua_newtable(L); // vim table
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2543 luaV_register(L, luaV_module);
24385 0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2544 luaV_pushversion(L);
0878f0fd349b patch 8.2.2733: detecting Lua version is not reliable Bram Moolenaar <Bram@vim.org> parents: 24073 diff changeset	2545 lua_setfield(L, -2, "lua_version");
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2546 lua_setglobal(L, LUAVIM_NAME);
20441 86dde5c4b375 patch 8.2.0775: not easy to call a Vim function from Lua Bram Moolenaar <Bram@vim.org> parents: 19846 diff changeset	2547 // custom code
20454 070c8a22261d patch 8.2.0781: compiler warning for not using value in Lua Bram Moolenaar <Bram@vim.org> parents: 20441 diff changeset	2548 (void)luaL_dostring(L, LUA_VIM_FN_CODE);
20609 054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2549 (void)luaL_dostring(L, LUA_VIM_UPDATE_PACKAGE_PATHS);
25503 9947b7e4b319 patch 8.2.3288: cannot easily access namespace dictionaries from Lua Bram Moolenaar <Bram@vim.org> parents: 25415 diff changeset	2550 (void)luaL_dostring(L, LUA_VIM_SETUP_VARIABLE_DICTS);
20609 054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2551
32807 0582b3b40319 patch 9.0.1719: if_lua: crash for for Lua functions invoked via Vim callbacks Christian Brabandt <cb@256bit.org> parents: 32009 diff changeset	2552 lua_getglobal(L, LUAVIM_NAME);
20609 054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2553 lua_getfield(L, -1, "_update_package_paths");
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2554
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2555 if (lua_pcall(L, 0, 0, 0))
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2556 luaV_emsg(L);
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2557
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2558 return 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2559 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2560
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2561 static lua_State *
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2562 luaV_newstate(void)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2563 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2564 lua_State *L = luaL_newstate();
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2565 luaL_openlibs(L); // core libs
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2566 lua_pushcfunction(L, luaopen_vim); // vim
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2567 lua_call(L, 0, 0);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2568 return L;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2569 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2570
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2571 static void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2572 luaV_setrange(lua_State *L, int line1, int line2)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2573 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2574 lua_getglobal(L, LUAVIM_NAME);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2575 lua_pushinteger(L, line1);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2576 lua_setfield(L, -2, "firstline");
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2577 lua_pushinteger(L, line2);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2578 lua_setfield(L, -2, "lastline");
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2579 lua_pop(L, 1); // vim table
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2580 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2581
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2582
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2583 // ======= Interface =======
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2584
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2585 static lua_State *L = NULL;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2586
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2587 static int
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2588 lua_isopen(void)
2543 8c512e2c7cb5 Fix: Lua interface tried to load the library when closing a buffer or window. Bram Moolenaar <bram@vim.org> parents: 2431 diff changeset	2589 {
8c512e2c7cb5 Fix: Lua interface tried to load the library when closing a buffer or window. Bram Moolenaar <bram@vim.org> parents: 2431 diff changeset	2590 return L != NULL;
8c512e2c7cb5 Fix: Lua interface tried to load the library when closing a buffer or window. Bram Moolenaar <bram@vim.org> parents: 2431 diff changeset	2591 }
8c512e2c7cb5 Fix: Lua interface tried to load the library when closing a buffer or window. Bram Moolenaar <bram@vim.org> parents: 2431 diff changeset	2592
8c512e2c7cb5 Fix: Lua interface tried to load the library when closing a buffer or window. Bram Moolenaar <bram@vim.org> parents: 2431 diff changeset	2593 static int
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2594 lua_init(void)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2595 {
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2596 if (lua_isopen())
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2597 return OK;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2598
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2599 #ifdef DYNAMIC_LUA
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2600 if (!lua_enabled(TRUE))
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2601 {
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2602 emsg(_("Lua library cannot be loaded."));
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2603 return FAIL;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2604 }
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2605 #endif
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2606 L = luaV_newstate();
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2607
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2608 return OK;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2609 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2610
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2611 void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2612 lua_end(void)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2613 {
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2614 if (!lua_isopen())
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2615 return;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2616
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2617 lua_close(L);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2618 L = NULL;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2619 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2620
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2621 /*
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2622 * ex commands
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2623 */
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2624 void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2625 ex_lua(exarg_T *eap)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2626 {
22719 8da5e18effc5 patch 8.2.1908: Lua is initialized even when not used Bram Moolenaar <Bram@vim.org> parents: 21367 diff changeset	2627 char script = (char )script_get(eap, eap->arg);
8da5e18effc5 patch 8.2.1908: Lua is initialized even when not used Bram Moolenaar <Bram@vim.org> parents: 21367 diff changeset	2628
8da5e18effc5 patch 8.2.1908: Lua is initialized even when not used Bram Moolenaar <Bram@vim.org> parents: 21367 diff changeset	2629 if (!eap->skip && lua_init() == OK)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2630 {
22719 8da5e18effc5 patch 8.2.1908: Lua is initialized even when not used Bram Moolenaar <Bram@vim.org> parents: 21367 diff changeset	2631 char s = script != NULL ? script : (char )eap->arg;
8da5e18effc5 patch 8.2.1908: Lua is initialized even when not used Bram Moolenaar <Bram@vim.org> parents: 21367 diff changeset	2632
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2633 luaV_setrange(L, eap->line1, eap->line2);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2634 if (luaL_loadbuffer(L, s, strlen(s), LUAVIM_CHUNKNAME)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2635 \|\| lua_pcall(L, 0, 0, 0))
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2636 luaV_emsg(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2637 }
22719 8da5e18effc5 patch 8.2.1908: Lua is initialized even when not used Bram Moolenaar <Bram@vim.org> parents: 21367 diff changeset	2638 if (script != NULL)
8da5e18effc5 patch 8.2.1908: Lua is initialized even when not used Bram Moolenaar <Bram@vim.org> parents: 21367 diff changeset	2639 vim_free(script);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2640 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2641
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2642 void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2643 ex_luado(exarg_T *eap)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2644 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2645 linenr_T l;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2646 const char s = (const char ) eap->arg;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2647 luaL_Buffer b;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2648 size_t len;
10757 6c3d42d18366 patch 8.0.0268: may get ml_get error when :luado deletes lines Christian Brabandt <cb@256bit.org> parents: 10025 diff changeset	2649 buf_T *was_curbuf = curbuf;
6c3d42d18366 patch 8.0.0268: may get ml_get error when :luado deletes lines Christian Brabandt <cb@256bit.org> parents: 10025 diff changeset	2650
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2651 if (lua_init() == FAIL) return;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2652 if (u_save(eap->line1 - 1, eap->line2 + 1) == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2653 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15328 diff changeset	2654 emsg(_("cannot save undo information"));
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2655 return;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2656 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2657 luaV_setrange(L, eap->line1, eap->line2);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2658 luaL_buffinit(L, &b);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2659 luaL_addlstring(&b, "return function(line, linenr) ", 30); // header
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2660 luaL_addlstring(&b, s, strlen(s));
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2661 luaL_addlstring(&b, " end", 4); // footer
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2662 luaL_pushresult(&b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2663 s = lua_tolstring(L, -1, &len);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2664 if (luaL_loadbuffer(L, s, len, LUAVIM_CHUNKNAME))
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2665 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2666 luaV_emsg(L);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2667 lua_pop(L, 1); // function body
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2668 return;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2669 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2670 lua_call(L, 0, 1);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2671 lua_replace(L, -2); // function -> body
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2672 for (l = eap->line1; l <= eap->line2; l++)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2673 {
21108 43e82e8133b9 patch 8.2.1105: insufficient test coverage for Lua Bram Moolenaar <Bram@vim.org> parents: 21060 diff changeset	2674 // Check the line number, the command may have deleted lines.
10757 6c3d42d18366 patch 8.0.0268: may get ml_get error when :luado deletes lines Christian Brabandt <cb@256bit.org> parents: 10025 diff changeset	2675 if (l > curbuf->b_ml.ml_line_count)
6c3d42d18366 patch 8.0.0268: may get ml_get error when :luado deletes lines Christian Brabandt <cb@256bit.org> parents: 10025 diff changeset	2676 break;
6c3d42d18366 patch 8.0.0268: may get ml_get error when :luado deletes lines Christian Brabandt <cb@256bit.org> parents: 10025 diff changeset	2677
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2678 lua_pushvalue(L, -1); // function
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2679 luaV_pushline(L, curbuf, l); // current line as arg
f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2680 lua_pushinteger(L, l); // current line number as arg
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	2681 if (lua_pcall(L, 2, 1, 0))
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2682 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2683 luaV_emsg(L);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2684 break;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2685 }
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2686 // Catch the command switching to another buffer.
10757 6c3d42d18366 patch 8.0.0268: may get ml_get error when :luado deletes lines Christian Brabandt <cb@256bit.org> parents: 10025 diff changeset	2687 if (curbuf != was_curbuf)
6c3d42d18366 patch 8.0.0268: may get ml_get error when :luado deletes lines Christian Brabandt <cb@256bit.org> parents: 10025 diff changeset	2688 break;
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2689 if (lua_isstring(L, -1)) // update line?
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2690 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2691 #ifdef HAVE_SANDBOX
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2692 luaV_checksandbox(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2693 #endif
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2694 ml_replace(l, luaV_toline(L, -1), TRUE);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2695 changed_bytes(l, 0);
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2696 lua_pop(L, 1); // result from luaV_toline
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2697 }
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2698 lua_pop(L, 1); // line
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2699 }
18798 f0f9692d4487 patch 8.1.2387: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18370 diff changeset	2700 lua_pop(L, 1); // function
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2701 check_cursor();
29732 89e1d67814a9 patch 9.0.0206: redraw flags are not named specifically Bram Moolenaar <Bram@vim.org> parents: 29660 diff changeset	2702 update_screen(UPD_NOT_VALID);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2703 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2704
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2705 void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2706 ex_luafile(exarg_T *eap)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2707 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2708 if (lua_init() == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2709 return;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2710 if (!eap->skip)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2711 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2712 luaV_setrange(L, eap->line1, eap->line2);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2713 if (luaL_loadfile(L, (char *) eap->arg) \|\| lua_pcall(L, 0, 0, 0))
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2714 luaV_emsg(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2715 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2716 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2717
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2718 #define luaV_freetype(typ,tname) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2719 void \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2720 lua_##tname##_free(typ *o) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2721 { \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2722 if (!lua_isopen()) return; \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2723 luaV_getfield(L, LUAVIM_FREE); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2724 lua_pushlightuserdata(L, (void *) o); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2725 lua_call(L, 1, 0); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2726 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2727
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2728 luaV_freetype(buf_T, buffer)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2729 luaV_freetype(win_T, window)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2730
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2731 void
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	2732 do_luaeval(char_u str, typval_T arg, typval_T *rettv)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2733 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2734 lua_init();
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2735 luaV_getfield(L, LUAVIM_LUAEVAL);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2736 lua_pushstring(L, (char *) str);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2737 lua_pushlightuserdata(L, (void *) arg);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2738 lua_pushlightuserdata(L, (void *) rettv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	2739 lua_call(L, 3, 0);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2740 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2741
6565 38add5a3d617 updated for version 7.4.609 Bram Moolenaar <bram@vim.org> parents: 5871 diff changeset	2742 int
16028 8ad2cda3757d patch 8.1.1019: Lua: may garbage collect function reference in use Bram Moolenaar <Bram@vim.org> parents: 16009 diff changeset	2743 set_ref_in_lua(int copyID)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	2744 {
6565 38add5a3d617 updated for version 7.4.609 Bram Moolenaar <bram@vim.org> parents: 5871 diff changeset	2745 int aborted = 0;
38add5a3d617 updated for version 7.4.609 Bram Moolenaar <bram@vim.org> parents: 5871 diff changeset	2746
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2747 if (!lua_isopen())
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2748 return 0;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2749
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2750 luaV_getfield(L, LUAVIM_SETREF);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2751 // call the function with 1 arg, getting 1 result back
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2752 lua_pushinteger(L, copyID);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2753 lua_call(L, 1, 1);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2754 // get the result
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2755 aborted = lua_tointeger(L, -1);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2756 // pop result off the stack
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2757 lua_pop(L, 1);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2758
6565 38add5a3d617 updated for version 7.4.609 Bram Moolenaar <bram@vim.org> parents: 5871 diff changeset	2759 return aborted;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2760 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2761
20609 054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2762 void
32009 4545f58c8490 patch 9.0.1336: functions without arguments are not always declared properly Bram Moolenaar <Bram@vim.org> parents: 31976 diff changeset	2763 update_package_paths_in_lua(void)
20609 054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2764 {
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2765 if (!lua_isopen())
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2766 return;
20609 054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2767
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2768 lua_getglobal(L, "vim");
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2769 lua_getfield(L, -1, "_update_package_paths");
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2770
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2771 if (lua_pcall(L, 0, 0, 0))
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31231 diff changeset	2772 luaV_emsg(L);
20609 054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2773 }
054ba681412d patch 8.2.0858: not easy to require Lua modules Bram Moolenaar <Bram@vim.org> parents: 20599 diff changeset	2774
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2775 /*
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2776 * Native C function callback
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2777 */
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2778 static int
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2779 luaV_call_lua_func(
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2780 int argcount,
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2781 typval_T *argvars,
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2782 typval_T *rettv,
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2783 void *state)
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2784 {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2785 int i;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2786 int luaargcount = argcount;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2787 luaV_CFuncState funcstate = (luaV_CFuncState)state;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2788 lua_rawgeti(funcstate->L, LUA_REGISTRYINDEX, funcstate->lua_funcref);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2789
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2790 if (funcstate->lua_tableref != LUA_NOREF)
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2791 {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2792 // First arg for metatable __call method is a table
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2793 luaargcount += 1;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2794 lua_rawgeti(funcstate->L, LUA_REGISTRYINDEX, funcstate->lua_tableref);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2795 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2796
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2797 for (i = 0; i < argcount; ++i)
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2798 luaV_pushtypval(funcstate->L, &argvars[i]);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2799
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2800 if (lua_pcall(funcstate->L, luaargcount, 1, 0))
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2801 {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2802 luaV_emsg(funcstate->L);
31976 16025ef158bf patch 9.0.1320: checking the type of a null object causes a crash Bram Moolenaar <Bram@vim.org> parents: 31804 diff changeset	2803 return (int)FCERR_OTHER;
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2804 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2805
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2806 luaV_checktypval(funcstate->L, -1, rettv, "get return value");
31976 16025ef158bf patch 9.0.1320: checking the type of a null object causes a crash Bram Moolenaar <Bram@vim.org> parents: 31804 diff changeset	2807 return (int)FCERR_NONE;
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2808 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2809
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2810 /*
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2811 * Free up any lua references held by the func state.
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2812 */
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2813 static void
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2814 luaV_call_lua_func_free(void *state)
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2815 {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2816 luaV_CFuncState funcstate = (luaV_CFuncState)state;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2817 luaL_unref(L, LUA_REGISTRYINDEX, funcstate->lua_funcref);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2818 funcstate->L = NULL;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2819 if (funcstate->lua_tableref != LUA_NOREF)
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2820 luaL_unref(L, LUA_REGISTRYINDEX, funcstate->lua_tableref);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2821 VIM_CLEAR(funcstate);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2822 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20609 diff changeset	2823
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	2824 #endif

Mercurial > vim

annotate src/if_lua.c @ 32807:0582b3b40319 v9.0.1719