vim: src/if_lua.c annotate

annotate src/if_lua.c @ 3865:3c072c1cb873 v7.3.689

updated for version 7.3.689 Problem: MzScheme and Lua may use a NULL string. Solution: Use an empty string instead of NULL. (Yukihiro Nakadaira)

author	Bram Moolenaar <bram@vim.org>
date	Sun, 14 Oct 2012 03:41:59 +0200
parents	c052f3b79b99
children	688da4d486a0

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"
0c7d6d01e058 updated for version 7.3.101 Bram Moolenaar <bram@vim.org> parents: 2612 diff changeset	13
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	14 #include <lua.h>
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	15 #include <lualib.h>
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	16 #include <lauxlib.h>
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	17
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	18 /* Only do the following when the feature is enabled. Needed for "make
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	19 * depend". */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	20 #if defined(FEAT_LUA) \|\| defined(PROTO)
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	21
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	22 #define LUAVIM_CHUNKNAME "vim chunk"
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	23 #define LUAVIM_NAME "vim"
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	24 #define LUAVIM_EVALNAME "luaeval"
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	25 #define LUAVIM_EVALHEADER "local _A=select(1,...) return "
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	26
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	27 typedef buf_T *luaV_Buffer;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	28 typedef win_T *luaV_Window;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	29 typedef dict_T *luaV_Dict;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	30 typedef list_T *luaV_List;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	31 typedef void (msgfunc_T)(char_u );
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	32
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	33 static const char LUAVIM_DICT[] = "dict";
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	34 static const char LUAVIM_LIST[] = "list";
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	35 static const char LUAVIM_BUFFER[] = "buffer";
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	36 static const char LUAVIM_WINDOW[] = "window";
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	37 static const char LUAVIM_FREE[] = "luaV_free";
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	38 static const char LUAVIM_LUAEVAL[] = "luaV_luaeval";
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	39 static const char LUAVIM_SETREF[] = "luaV_setref";
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	40
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	41 /* most functions are closures with a cache table as first upvalue;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	42 * get/setudata manage references to vim userdata in cache table through
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	43 * object pointers (light userdata) */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	44 #define luaV_getudata(L, v) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	45 lua_pushlightuserdata((L), (void *) (v)); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	46 lua_rawget((L), lua_upvalueindex(1))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	47 #define luaV_setudata(L, v) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	48 lua_pushlightuserdata((L), (void *) (v)); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	49 lua_pushvalue((L), -2); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	50 lua_rawset((L), lua_upvalueindex(1))
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	51 #define luaV_getfield(L, s) \
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	52 lua_pushlightuserdata((L), (void *)(s)); \
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	53 lua_rawget((L), LUA_REGISTRYINDEX)
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	54 #define luaV_checksandbox(L) \
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	55 if (sandbox) luaL_error((L), "not allowed in sandbox")
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	56 #define luaV_msg(L) luaV_msgfunc((L), (msgfunc_T) msg)
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	57 #define luaV_emsg(L) luaV_msgfunc((L), (msgfunc_T) emsg)
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	58
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	59 static luaV_List luaV_pushlist (lua_State L, list_T *lis);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	60 static luaV_Dict luaV_pushdict (lua_State L, dict_T *dic);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	61
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	62 #if LUA_VERSION_NUM <= 501
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	63 #define luaV_openlib(L, l, n) luaL_openlib(L, NULL, l, n)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	64 #define luaL_typeerror luaL_typerror
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	65 #else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	66 #define luaV_openlib luaL_setfuncs
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	67 #endif
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	68
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	69 #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	70
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	71 #ifndef WIN3264
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	72 # include <dlfcn.h>
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	73 # define HANDLE void*
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	74 # 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	75 # 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	76 # define close_dll dlclose
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	77 #else
2612 fa5dee44df3f updated for version 7.3.034 Bram Moolenaar <bram@vim.org> parents: 2543 diff changeset	78 # 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	79 # 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	80 # define close_dll FreeLibrary
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	81 #endif
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	82
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	83 /* lauxlib */
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	84 #if LUA_VERSION_NUM <= 501
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	85 #define luaL_register dll_luaL_register
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	86 #define luaL_prepbuffer dll_luaL_prepbuffer
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	87 #define luaL_openlib dll_luaL_openlib
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	88 #define luaL_typerror dll_luaL_typerror
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	89 #define luaL_loadfile dll_luaL_loadfile
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	90 #define luaL_loadbuffer dll_luaL_loadbuffer
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	91 #else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	92 #define luaL_prepbuffsize dll_luaL_prepbuffsize
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	93 #define luaL_setfuncs dll_luaL_setfuncs
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	94 #define luaL_loadfilex dll_luaL_loadfilex
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	95 #define luaL_loadbufferx dll_luaL_loadbufferx
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	96 #define luaL_argerror dll_luaL_argerror
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	97 #endif
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	98 #define luaL_checkany dll_luaL_checkany
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	99 #define luaL_checklstring dll_luaL_checklstring
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	100 #define luaL_checkinteger dll_luaL_checkinteger
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	101 #define luaL_optinteger dll_luaL_optinteger
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	102 #define luaL_checktype dll_luaL_checktype
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	103 #define luaL_error dll_luaL_error
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	104 #define luaL_newstate dll_luaL_newstate
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	105 #define luaL_buffinit dll_luaL_buffinit
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	106 #define luaL_addlstring dll_luaL_addlstring
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	107 #define luaL_pushresult dll_luaL_pushresult
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	108 /* lua */
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	109 #if LUA_VERSION_NUM <= 501
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	110 #define lua_tonumber dll_lua_tonumber
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	111 #define lua_tointeger dll_lua_tointeger
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	112 #define lua_call dll_lua_call
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	113 #define lua_pcall dll_lua_pcall
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	114 #else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	115 #define lua_tonumberx dll_lua_tonumberx
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	116 #define lua_tointegerx dll_lua_tointegerx
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	117 #define lua_callk dll_lua_callk
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	118 #define lua_pcallk dll_lua_pcallk
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	119 #define lua_getglobal dll_lua_getglobal
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	120 #define lua_setglobal dll_lua_setglobal
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	121 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	122 #define lua_typename dll_lua_typename
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	123 #define lua_close dll_lua_close
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	124 #define lua_gettop dll_lua_gettop
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	125 #define lua_settop dll_lua_settop
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	126 #define lua_pushvalue dll_lua_pushvalue
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	127 #define lua_replace dll_lua_replace
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	128 #define lua_remove dll_lua_remove
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	129 #define lua_isnumber dll_lua_isnumber
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	130 #define lua_isstring dll_lua_isstring
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	131 #define lua_type dll_lua_type
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	132 #define lua_rawequal dll_lua_rawequal
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	133 #define lua_toboolean dll_lua_toboolean
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	134 #define lua_tolstring dll_lua_tolstring
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	135 #define lua_touserdata dll_lua_touserdata
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	136 #define lua_pushnil dll_lua_pushnil
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	137 #define lua_pushnumber dll_lua_pushnumber
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	138 #define lua_pushinteger dll_lua_pushinteger
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	139 #define lua_pushlstring dll_lua_pushlstring
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	140 #define lua_pushstring dll_lua_pushstring
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	141 #define lua_pushfstring dll_lua_pushfstring
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	142 #define lua_pushcclosure dll_lua_pushcclosure
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	143 #define lua_pushboolean dll_lua_pushboolean
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	144 #define lua_pushlightuserdata dll_lua_pushlightuserdata
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	145 #define lua_getfield dll_lua_getfield
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	146 #define lua_rawget dll_lua_rawget
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	147 #define lua_rawgeti dll_lua_rawgeti
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	148 #define lua_createtable dll_lua_createtable
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	149 #define lua_newuserdata dll_lua_newuserdata
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	150 #define lua_getmetatable dll_lua_getmetatable
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	151 #define lua_setfield dll_lua_setfield
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	152 #define lua_rawset dll_lua_rawset
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	153 #define lua_rawseti dll_lua_rawseti
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	154 #define lua_setmetatable dll_lua_setmetatable
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	155 #define lua_next dll_lua_next
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	156 /* libs */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	157 #define luaopen_base dll_luaopen_base
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	158 #define luaopen_table dll_luaopen_table
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	159 #define luaopen_string dll_luaopen_string
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	160 #define luaopen_math dll_luaopen_math
2431 7b764999f9b9 Update for Lua interface. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2373 diff changeset	161 #define luaopen_io dll_luaopen_io
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	162 #define luaopen_os dll_luaopen_os
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	163 #define luaopen_package dll_luaopen_package
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	164 #define luaopen_debug dll_luaopen_debug
2431 7b764999f9b9 Update for Lua interface. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2373 diff changeset	165 #define luaL_openlibs dll_luaL_openlibs
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	166
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	167 /* lauxlib */
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	168 #if LUA_VERSION_NUM <= 501
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	169 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	170 char (dll_luaL_prepbuffer) (luaL_Buffer *B);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	171 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	172 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	173 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	174 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	175 #else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	176 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	177 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	178 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	179 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	180 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	181 #endif
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	182 void (dll_luaL_checkany) (lua_State L, int narg);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	183 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	184 lua_Integer (dll_luaL_checkinteger) (lua_State L, int numArg);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	185 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	186 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	187 int (dll_luaL_error) (lua_State L, const char *fmt, ...);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	188 lua_State (dll_luaL_newstate) (void);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	189 void (dll_luaL_buffinit) (lua_State L, luaL_Buffer *B);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	190 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	191 void (dll_luaL_pushresult) (luaL_Buffer B);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	192 /* lua */
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	193 #if LUA_VERSION_NUM <= 501
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	194 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	195 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	196 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	197 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	198 #else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	199 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	200 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	201 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	202 lua_CFunction k);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	203 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	204 int ctx, lua_CFunction k);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	205 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	206 void (dll_lua_setglobal) (lua_State L, const char *var);
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	207 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	208 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	209 void (dll_lua_close) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	210 int (dll_lua_gettop) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	211 void (dll_lua_settop) (lua_State L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	212 void (dll_lua_pushvalue) (lua_State L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	213 void (dll_lua_replace) (lua_State L, int idx);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	214 void (dll_lua_remove) (lua_State L, int idx);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	215 int (dll_lua_isnumber) (lua_State L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	216 int (dll_lua_isstring) (lua_State L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	217 int (dll_lua_type) (lua_State L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	218 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	219 int (dll_lua_toboolean) (lua_State L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	220 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	221 void (dll_lua_touserdata) (lua_State *L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	222 void (dll_lua_pushnil) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	223 void (dll_lua_pushnumber) (lua_State L, lua_Number n);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	224 void (dll_lua_pushinteger) (lua_State L, lua_Integer n);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	225 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	226 void (dll_lua_pushstring) (lua_State L, const char *s);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	227 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	228 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	229 void (dll_lua_pushboolean) (lua_State L, int b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	230 void (dll_lua_pushlightuserdata) (lua_State L, void *p);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	231 void (dll_lua_getfield) (lua_State L, int idx, const char *k);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	232 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	233 void (dll_lua_rawgeti) (lua_State L, int idx, int n);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	234 void (dll_lua_createtable) (lua_State L, int narr, int nrec);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	235 void (dll_lua_newuserdata) (lua_State *L, size_t sz);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	236 int (dll_lua_getmetatable) (lua_State L, int objindex);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	237 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	238 void (dll_lua_rawset) (lua_State L, int idx);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	239 void (dll_lua_rawseti) (lua_State L, int idx, int n);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	240 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	241 int (dll_lua_next) (lua_State L, int idx);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	242 /* libs */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	243 int (dll_luaopen_base) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	244 int (dll_luaopen_table) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	245 int (dll_luaopen_string) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	246 int (dll_luaopen_math) (lua_State L);
2431 7b764999f9b9 Update for Lua interface. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2373 diff changeset	247 int (dll_luaopen_io) (lua_State L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	248 int (dll_luaopen_os) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	249 int (dll_luaopen_package) (lua_State L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	250 int (dll_luaopen_debug) (lua_State L);
2431 7b764999f9b9 Update for Lua interface. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2373 diff changeset	251 void (dll_luaL_openlibs) (lua_State L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	252
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	253 typedef void **luaV_function;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	254 typedef struct {
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	255 const char *name;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	256 luaV_function func;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	257 } luaV_Reg;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	258
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	259 static const luaV_Reg luaV_dll[] = {
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	260 /* lauxlib */
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	261 #if LUA_VERSION_NUM <= 501
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	262 {"luaL_register", (luaV_function) &dll_luaL_register},
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	263 {"luaL_prepbuffer", (luaV_function) &dll_luaL_prepbuffer},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	264 {"luaL_openlib", (luaV_function) &dll_luaL_openlib},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	265 {"luaL_typerror", (luaV_function) &dll_luaL_typerror},
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	266 {"luaL_loadfile", (luaV_function) &dll_luaL_loadfile},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	267 {"luaL_loadbuffer", (luaV_function) &dll_luaL_loadbuffer},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	268 #else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	269 {"luaL_prepbuffsize", (luaV_function) &dll_luaL_prepbuffsize},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	270 {"luaL_setfuncs", (luaV_function) &dll_luaL_setfuncs},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	271 {"luaL_loadfilex", (luaV_function) &dll_luaL_loadfilex},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	272 {"luaL_loadbufferx", (luaV_function) &dll_luaL_loadbufferx},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	273 {"luaL_argerror", (luaV_function) &dll_luaL_argerror},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	274 #endif
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	275 {"luaL_checkany", (luaV_function) &dll_luaL_checkany},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	276 {"luaL_checklstring", (luaV_function) &dll_luaL_checklstring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	277 {"luaL_checkinteger", (luaV_function) &dll_luaL_checkinteger},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	278 {"luaL_optinteger", (luaV_function) &dll_luaL_optinteger},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	279 {"luaL_checktype", (luaV_function) &dll_luaL_checktype},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	280 {"luaL_error", (luaV_function) &dll_luaL_error},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	281 {"luaL_newstate", (luaV_function) &dll_luaL_newstate},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	282 {"luaL_buffinit", (luaV_function) &dll_luaL_buffinit},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	283 {"luaL_addlstring", (luaV_function) &dll_luaL_addlstring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	284 {"luaL_pushresult", (luaV_function) &dll_luaL_pushresult},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	285 /* lua */
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	286 #if LUA_VERSION_NUM <= 501
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	287 {"lua_tonumber", (luaV_function) &dll_lua_tonumber},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	288 {"lua_tointeger", (luaV_function) &dll_lua_tointeger},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	289 {"lua_call", (luaV_function) &dll_lua_call},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	290 {"lua_pcall", (luaV_function) &dll_lua_pcall},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	291 #else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	292 {"lua_tonumberx", (luaV_function) &dll_lua_tonumberx},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	293 {"lua_tointegerx", (luaV_function) &dll_lua_tointegerx},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	294 {"lua_callk", (luaV_function) &dll_lua_callk},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	295 {"lua_pcallk", (luaV_function) &dll_lua_pcallk},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	296 {"lua_getglobal", (luaV_function) &dll_lua_getglobal},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	297 {"lua_setglobal", (luaV_function) &dll_lua_setglobal},
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	298 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	299 {"lua_typename", (luaV_function) &dll_lua_typename},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	300 {"lua_close", (luaV_function) &dll_lua_close},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	301 {"lua_gettop", (luaV_function) &dll_lua_gettop},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	302 {"lua_settop", (luaV_function) &dll_lua_settop},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	303 {"lua_pushvalue", (luaV_function) &dll_lua_pushvalue},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	304 {"lua_replace", (luaV_function) &dll_lua_replace},
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	305 {"lua_remove", (luaV_function) &dll_lua_remove},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	306 {"lua_isnumber", (luaV_function) &dll_lua_isnumber},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	307 {"lua_isstring", (luaV_function) &dll_lua_isstring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	308 {"lua_type", (luaV_function) &dll_lua_type},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	309 {"lua_rawequal", (luaV_function) &dll_lua_rawequal},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	310 {"lua_toboolean", (luaV_function) &dll_lua_toboolean},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	311 {"lua_tolstring", (luaV_function) &dll_lua_tolstring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	312 {"lua_touserdata", (luaV_function) &dll_lua_touserdata},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	313 {"lua_pushnil", (luaV_function) &dll_lua_pushnil},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	314 {"lua_pushnumber", (luaV_function) &dll_lua_pushnumber},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	315 {"lua_pushinteger", (luaV_function) &dll_lua_pushinteger},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	316 {"lua_pushlstring", (luaV_function) &dll_lua_pushlstring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	317 {"lua_pushstring", (luaV_function) &dll_lua_pushstring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	318 {"lua_pushfstring", (luaV_function) &dll_lua_pushfstring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	319 {"lua_pushcclosure", (luaV_function) &dll_lua_pushcclosure},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	320 {"lua_pushboolean", (luaV_function) &dll_lua_pushboolean},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	321 {"lua_pushlightuserdata", (luaV_function) &dll_lua_pushlightuserdata},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	322 {"lua_getfield", (luaV_function) &dll_lua_getfield},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	323 {"lua_rawget", (luaV_function) &dll_lua_rawget},
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	324 {"lua_rawgeti", (luaV_function) &dll_lua_rawgeti},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	325 {"lua_createtable", (luaV_function) &dll_lua_createtable},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	326 {"lua_newuserdata", (luaV_function) &dll_lua_newuserdata},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	327 {"lua_getmetatable", (luaV_function) &dll_lua_getmetatable},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	328 {"lua_setfield", (luaV_function) &dll_lua_setfield},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	329 {"lua_rawset", (luaV_function) &dll_lua_rawset},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	330 {"lua_rawseti", (luaV_function) &dll_lua_rawseti},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	331 {"lua_setmetatable", (luaV_function) &dll_lua_setmetatable},
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	332 {"lua_next", (luaV_function) &dll_lua_next},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	333 /* libs */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	334 {"luaopen_base", (luaV_function) &dll_luaopen_base},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	335 {"luaopen_table", (luaV_function) &dll_luaopen_table},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	336 {"luaopen_string", (luaV_function) &dll_luaopen_string},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	337 {"luaopen_math", (luaV_function) &dll_luaopen_math},
2431 7b764999f9b9 Update for Lua interface. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2373 diff changeset	338 {"luaopen_io", (luaV_function) &dll_luaopen_io},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	339 {"luaopen_os", (luaV_function) &dll_luaopen_os},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	340 {"luaopen_package", (luaV_function) &dll_luaopen_package},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	341 {"luaopen_debug", (luaV_function) &dll_luaopen_debug},
2431 7b764999f9b9 Update for Lua interface. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2373 diff changeset	342 {"luaL_openlibs", (luaV_function) &dll_luaL_openlibs},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	343 {NULL, NULL}
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	344 };
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	345
2373 f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	346 static HANDLE hinstLua = NULL;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	347
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	348 static void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	349 end_dynamic_lua(void)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	350 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	351 if (hinstLua)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	352 {
2373 f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	353 close_dll(hinstLua);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	354 hinstLua = 0;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	355 }
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
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	358 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	359 lua_link_init(char *libname, int verbose)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	360 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	361 const luaV_Reg *reg;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	362 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	363 hinstLua = load_dll(libname);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	364 if (!hinstLua)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	365 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	366 if (verbose)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	367 EMSG2(_(e_loadlib), libname);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	368 return FAIL;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	369 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	370 for (reg = luaV_dll; reg->func; reg++)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	371 {
2373 f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	372 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	373 {
f149bb1cf5be Make it possible to load Lua dynamically on Unix. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2331 diff changeset	374 close_dll(hinstLua);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	375 hinstLua = 0;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	376 if (verbose)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	377 EMSG2(_(e_loadfunc), reg->name);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	378 return FAIL;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	379 }
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	380 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	381 return OK;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	382 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	383
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	384 int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	385 lua_enabled(int verbose)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	386 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	387 return lua_link_init(DYNAMIC_LUA_DLL, verbose) == OK;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	388 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	389
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	390 #endif /* DYNAMIC_LUA */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	391
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	392 #if LUA_VERSION_NUM > 501
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	393 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	394 luaL_typeerror (lua_State L, int narg, const char tname)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	395 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	396 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	397 tname, luaL_typename(L, narg));
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	398 return luaL_argerror(L, narg, msg);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	399 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	400 #endif
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	401
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	402
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	403 /* ======= Internal ======= */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	404
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	405 static void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	406 luaV_newmetatable(lua_State L, const char tname)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	407 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	408 lua_newtable(L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	409 lua_pushlightuserdata(L, (void *) tname);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	410 lua_pushvalue(L, -2);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	411 lua_rawset(L, LUA_REGISTRYINDEX);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	412 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	413
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	414 static void *
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	415 luaV_toudata(lua_State L, int ud, const char tname)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	416 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	417 void *p = lua_touserdata(L, ud);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	418
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	419 if (p != NULL) /* value is userdata? */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	420 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	421 if (lua_getmetatable(L, ud)) /* does it have a metatable? */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	422 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	423 luaV_getfield(L, tname); /* get metatable */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	424 if (lua_rawequal(L, -1, -2)) /* MTs match? */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	425 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	426 lua_pop(L, 2); /* MTs */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	427 return p;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	428 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	429 }
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	430 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	431 return NULL;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	432 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	433
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	434 static void *
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	435 luaV_checkcache(lua_State L, void p)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	436 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	437 luaV_getudata(L, p);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	438 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	439 lua_pop(L, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	440 return p;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	441 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	442
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	443 #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	444
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	445 #define luaV_checkvalid(L,luatyp,ud) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	446 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	447
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	448 static void *
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	449 luaV_checkudata(lua_State L, int ud, const char tname)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	450 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	451 void *p = luaV_toudata(L, ud, tname);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	452 if (p == NULL) luaL_typeerror(L, ud, tname);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	453 return p;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	454 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	455
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	456 static void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	457 luaV_pushtypval(lua_State L, typval_T tv)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	458 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	459 if (tv == NULL)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	460 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	461 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	462 return;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	463 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	464 switch (tv->v_type)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	465 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	466 case VAR_STRING:
3865 3c072c1cb873 updated for version 7.3.689 Bram Moolenaar <bram@vim.org> parents: 3618 diff changeset	467 lua_pushstring(L, tv->vval.v_string == NULL
3c072c1cb873 updated for version 7.3.689 Bram Moolenaar <bram@vim.org> parents: 3618 diff changeset	468 ? "" : (char *)tv->vval.v_string);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	469 break;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	470 case VAR_NUMBER:
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	471 lua_pushinteger(L, (int) tv->vval.v_number);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	472 break;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	473 #ifdef FEAT_FLOAT
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	474 case VAR_FLOAT:
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	475 lua_pushnumber(L, (lua_Number) tv->vval.v_float);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	476 break;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	477 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	478 case VAR_LIST:
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	479 luaV_pushlist(L, tv->vval.v_list);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	480 break;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	481 case VAR_DICT:
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	482 luaV_pushdict(L, tv->vval.v_dict);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	483 break;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	484 default:
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	485 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	486 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	487 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	488
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	489 /* converts lua value at 'pos' to typval 'tv' */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	490 static void
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	491 luaV_totypval (lua_State L, int pos, typval_T tv)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	492 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	493 switch(lua_type(L, pos)) {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	494 case LUA_TBOOLEAN:
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	495 tv->v_type = VAR_NUMBER;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	496 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	497 break;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	498 case LUA_TSTRING:
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	499 tv->v_type = VAR_STRING;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	500 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	501 break;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	502 case LUA_TNUMBER:
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	503 #ifdef FEAT_FLOAT
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	504 tv->v_type = VAR_FLOAT;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	505 tv->vval.v_float = (float_T) lua_tonumber(L, pos);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	506 #else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	507 tv->v_type = VAR_NUMBER;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	508 tv->vval.v_number = (varnumber_T) lua_tointeger(L, pos);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	509 #endif
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	510 break;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	511 case LUA_TUSERDATA: {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	512 void *p = lua_touserdata(L, pos);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	513 if (lua_getmetatable(L, pos)) /* has metatable? */
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	514 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	515 /* check list */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	516 luaV_getfield(L, LUAVIM_LIST);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	517 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	518 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	519 tv->v_type = VAR_LIST;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	520 tv->vval.v_list = ((luaV_List ) p);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	521 ++tv->vval.v_list->lv_refcount;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	522 lua_pop(L, 2); /* MTs */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	523 return;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	524 }
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	525 /* check dict */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	526 luaV_getfield(L, LUAVIM_DICT);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	527 if (lua_rawequal(L, -1, -3))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	528 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	529 tv->v_type = VAR_DICT;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	530 tv->vval.v_dict = ((luaV_Dict ) p);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	531 ++tv->vval.v_dict->dv_refcount;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	532 lua_pop(L, 3); /* MTs */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	533 return;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	534 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	535 lua_pop(L, 3); /* MTs */
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	536 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	537 break;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	538 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	539 default:
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	540 tv->v_type = VAR_NUMBER;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	541 tv->vval.v_number = 0;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	542 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	543 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	544
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	545 /* similar to luaL_addlstring, but replaces \0 with \n if toline and
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	546 * \n with \0 otherwise */
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	547 static void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	548 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	549 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	550 while (l--)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	551 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	552 if (*s == '\0' && toline)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	553 luaL_addchar(b, '\n');
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	554 else if (*s == '\n' && !toline)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	555 luaL_addchar(b, '\0');
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	556 else
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	557 luaL_addchar(b, *s);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	558 s++;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	559 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	560 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	561
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	562 static void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	563 luaV_pushline(lua_State L, buf_T buf, linenr_T n)
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 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	566 luaL_Buffer b;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	567 luaL_buffinit(L, &b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	568 luaV_addlstring(&b, s, strlen(s), 0);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	569 luaL_pushresult(&b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	570 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	571
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	572 static char_u *
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	573 luaV_toline(lua_State *L, int pos)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	574 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	575 size_t l;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	576 const char *s = lua_tolstring(L, pos, &l);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	577
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	578 luaL_Buffer b;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	579 luaL_buffinit(L, &b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	580 luaV_addlstring(&b, s, l, 1);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	581 luaL_pushresult(&b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	582 return (char_u *) lua_tostring(L, -1);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	583 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	584
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	585 /* pops a string s from the top of the stack and calls mf(t) for pieces t of
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	586 * s separated by newlines */
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	587 static void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	588 luaV_msgfunc(lua_State *L, msgfunc_T mf)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	589 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	590 luaL_Buffer b;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	591 size_t l;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	592 const char p, s = lua_tolstring(L, -1, &l);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	593 luaL_buffinit(L, &b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	594 luaV_addlstring(&b, s, l, 0);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	595 luaL_pushresult(&b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	596 /* break string */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	597 p = s = lua_tolstring(L, -1, &l);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	598 while (l--)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	599 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	600 if (p++ == '\0') / break? */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	601 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	602 mf((char_u *) s);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	603 s = p;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	604 }
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	605 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	606 mf((char_u *) s);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	607 lua_pop(L, 2); /* original and modified strings */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	608 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	609
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	610 #define luaV_newtype(typ,tname,luatyp,luatname) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	611 static luatyp * \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	612 luaV_new##tname (lua_State L, typ obj) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	613 { \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	614 luatyp o = (luatyp ) lua_newuserdata(L, sizeof(luatyp)); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	615 *o = obj; \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	616 luaV_setudata(L, obj); /* cache[obj] = udata */ \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	617 luaV_getfield(L, luatname); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	618 lua_setmetatable(L, -2); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	619 return o; \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	620 }
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	621
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	622 #define luaV_pushtype(typ,tname,luatyp) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	623 static luatyp * \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	624 luaV_push##tname (lua_State L, typ obj) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	625 { \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	626 luatyp *o = NULL; \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	627 if (obj == NULL) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	628 lua_pushnil(L); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	629 else { \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	630 luaV_getudata(L, obj); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	631 if (lua_isnil(L, -1)) /* not interned? */ \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	632 { \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	633 lua_pop(L, 1); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	634 o = luaV_new##tname(L, obj); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	635 } \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	636 else \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	637 o = (luatyp *) lua_touserdata(L, -1); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	638 } \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	639 return o; \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	640 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	641
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	642 #define luaV_type_tostring(tname,luatname) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	643 static int \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	644 luaV_##tname##_tostring (lua_State *L) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	645 { \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	646 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	647 return 1; \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	648 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	649
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	650 /* ======= List type ======= */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	651
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	652 static luaV_List *
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	653 luaV_newlist (lua_State L, list_T lis)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	654 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	655 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	656 *l = lis;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	657 lis->lv_refcount++; /* reference in Lua */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	658 luaV_setudata(L, lis); /* cache[lis] = udata */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	659 luaV_getfield(L, LUAVIM_LIST);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	660 lua_setmetatable(L, -2);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	661 return l;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	662 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	663
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	664 luaV_pushtype(list_T, list, luaV_List)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	665 luaV_type_tostring(list, LUAVIM_LIST)
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	666
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	667 static int
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	668 luaV_list_gc (lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	669 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	670 list_unref(luaV_unbox(L, luaV_List, 1));
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	671 return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	672 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	673
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	674 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	675 luaV_list_len (lua_State *L)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	676 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	677 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	678 lua_pushinteger(L, (l == NULL) ? 0 : (int) l->lv_len);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	679 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	680 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	681
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	682 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	683 luaV_list_iter (lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	684 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	685 listitem_T li = (listitem_T ) lua_touserdata(L, lua_upvalueindex(2));
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	686 if (li == NULL) return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	687 luaV_pushtypval(L, &li->li_tv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	688 lua_pushlightuserdata(L, (void *) li->li_next);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	689 lua_replace(L, lua_upvalueindex(2));
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	690 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	691 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	692
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	693 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	694 luaV_list_call (lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	695 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	696 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	697 lua_pushvalue(L, lua_upvalueindex(1)); /* pass cache table along */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	698 lua_pushlightuserdata(L, (void *) l->lv_first);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	699 lua_pushcclosure(L, luaV_list_iter, 2);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	700 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	701 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	702
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	703 static int
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	704 luaV_list_index (lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	705 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	706 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	707 if (lua_isnumber(L, 2)) /* list item? */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	708 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	709 listitem_T *li = list_find(l, (long) luaL_checkinteger(L, 2));
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	710 if (li == NULL)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	711 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	712 else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	713 luaV_pushtypval(L, &li->li_tv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	714 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	715 else if (lua_isstring(L, 2)) /* method? */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	716 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	717 const char *s = lua_tostring(L, 2);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	718 if (strncmp(s, "add", 3) == 0
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	719 \|\| strncmp(s, "insert", 6) == 0
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	720 \|\| strncmp(s, "extend", 6) == 0)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	721 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	722 lua_getmetatable(L, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	723 lua_getfield(L, -1, s);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	724 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	725 else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	726 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	727 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	728 else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	729 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	730 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	731 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	732
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	733 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	734 luaV_list_newindex (lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	735 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	736 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	737 long n = (long) luaL_checkinteger(L, 2);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	738 listitem_T *li;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	739 if (l->lv_lock)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	740 luaL_error(L, "list is locked");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	741 li = list_find(l, n);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	742 if (li == NULL) return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	743 if (lua_isnil(L, 3)) /* remove? */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	744 {
3618 c052f3b79b99 updated for version 7.3.569 Bram Moolenaar <bram@vim.org> parents: 3459 diff changeset	745 list_remove(l, li, li);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	746 clear_tv(&li->li_tv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	747 vim_free(li);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	748 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	749 else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	750 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	751 typval_T v;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	752 luaV_totypval(L, 3, &v);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	753 clear_tv(&li->li_tv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	754 copy_tv(&v, &li->li_tv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	755 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	756 return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	757 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	758
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	759 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	760 luaV_list_add (lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	761 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	762 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	763 list_T l = (list_T ) luaV_checkcache(L, (void ) lis);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	764 listitem_T *li;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	765 if (l->lv_lock)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	766 luaL_error(L, "list is locked");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	767 li = listitem_alloc();
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	768 if (li != NULL)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	769 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	770 typval_T v;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	771 lua_settop(L, 2);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	772 luaV_totypval(L, 2, &v);
3618 c052f3b79b99 updated for version 7.3.569 Bram Moolenaar <bram@vim.org> parents: 3459 diff changeset	773 list_append_tv(l, &v);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	774 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	775 lua_settop(L, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	776 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	777 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	778
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	779 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	780 luaV_list_insert (lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	781 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	782 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	783 list_T l = (list_T ) luaV_checkcache(L, (void ) lis);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	784 long pos = luaL_optlong(L, 3, 0);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	785 listitem_T *li = NULL;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	786 typval_T v;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	787 if (l->lv_lock)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	788 luaL_error(L, "list is locked");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	789 if (pos < l->lv_len)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	790 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	791 li = list_find(l, pos);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	792 if (li == NULL)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	793 luaL_error(L, "invalid position");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	794 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	795 lua_settop(L, 2);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	796 luaV_totypval(L, 2, &v);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	797 list_insert_tv(l, &v, li);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	798 lua_settop(L, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	799 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	800 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	801
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	802 static const luaL_Reg luaV_List_mt[] = {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	803 {"__tostring", luaV_list_tostring},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	804 {"__gc", luaV_list_gc},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	805 {"__len", luaV_list_len},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	806 {"__call", luaV_list_call},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	807 {"__index", luaV_list_index},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	808 {"__newindex", luaV_list_newindex},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	809 {"add", luaV_list_add},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	810 {"insert", luaV_list_insert},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	811 {NULL, NULL}
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	812 };
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	813
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	814
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	815 /* ======= Dict type ======= */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	816
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	817 static luaV_Dict *
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	818 luaV_newdict (lua_State L, dict_T dic)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	819 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	820 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	821 *d = dic;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	822 dic->dv_refcount++; /* reference in Lua */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	823 luaV_setudata(L, dic); /* cache[dic] = udata */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	824 luaV_getfield(L, LUAVIM_DICT);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	825 lua_setmetatable(L, -2);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	826 return d;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	827 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	828
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	829 luaV_pushtype(dict_T, dict, luaV_Dict)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	830 luaV_type_tostring(dict, LUAVIM_DICT)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	831
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	832 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	833 luaV_dict_gc (lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	834 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	835 dict_unref(luaV_unbox(L, luaV_Dict, 1));
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	836 return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	837 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	838
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	839 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	840 luaV_dict_len (lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	841 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	842 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	843 lua_pushinteger(L, (d == NULL) ? 0 : (int) d->dv_hashtab.ht_used);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	844 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	845 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	846
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	847 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	848 luaV_dict_iter (lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	849 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	850 hashitem_T hi = (hashitem_T ) lua_touserdata(L, lua_upvalueindex(2));
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	851 int n = lua_tointeger(L, lua_upvalueindex(3));
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	852 dictitem_T *di;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	853 if (n <= 0) return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	854 while (HASHITEM_EMPTY(hi)) hi++;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	855 di = dict_lookup(hi);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	856 lua_pushstring(L, (char *) hi->hi_key);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	857 luaV_pushtypval(L, &di->di_tv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	858 lua_pushlightuserdata(L, (void *) (hi + 1));
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	859 lua_replace(L, lua_upvalueindex(2));
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	860 lua_pushinteger(L, n - 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	861 lua_replace(L, lua_upvalueindex(3));
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	862 return 2;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	863 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	864
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	865 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	866 luaV_dict_call (lua_State *L)
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 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	869 hashtab_T *ht = &d->dv_hashtab;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	870 lua_pushvalue(L, lua_upvalueindex(1)); /* pass cache table along */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	871 lua_pushlightuserdata(L, (void *) ht->ht_array);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	872 lua_pushinteger(L, ht->ht_used); /* # remaining items */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	873 lua_pushcclosure(L, luaV_dict_iter, 3);
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
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	877 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	878 luaV_dict_index (lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	879 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	880 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	881 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	882 dictitem_T *di = dict_find(d, key, -1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	883 if (di == NULL)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	884 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	885 else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	886 luaV_pushtypval(L, &di->di_tv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	887 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	888 }
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 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	891 luaV_dict_newindex (lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	892 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	893 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	894 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	895 dictitem_T *di;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	896 if (d->dv_lock)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	897 luaL_error(L, "dict is locked");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	898 di = dict_find(d, key, -1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	899 if (di == NULL) /* non-existing key? */
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 if (lua_isnil(L, 3)) return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	902 di = dictitem_alloc(key);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	903 if (di == NULL) return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	904 if (dict_add(d, di) == FAIL)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	905 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	906 vim_free(di);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	907 return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	908 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	909 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	910 else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	911 clear_tv(&di->di_tv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	912 if (lua_isnil(L, 3)) /* remove? */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	913 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	914 hashitem_T *hi = hash_find(&d->dv_hashtab, di->di_key);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	915 hash_remove(&d->dv_hashtab, hi);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	916 dictitem_free(di);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	917 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	918 else {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	919 typval_T v;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	920 luaV_totypval(L, 3, &v);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	921 copy_tv(&v, &di->di_tv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	922 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	923 return 0;
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
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	926 static const luaL_Reg luaV_Dict_mt[] = {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	927 {"__tostring", luaV_dict_tostring},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	928 {"__gc", luaV_dict_gc},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	929 {"__len", luaV_dict_len},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	930 {"__call", luaV_dict_call},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	931 {"__index", luaV_dict_index},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	932 {"__newindex", luaV_dict_newindex},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	933 {NULL, NULL}
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	934 };
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	935
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	936
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	937 /* ======= Buffer type ======= */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	938
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	939 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	940 luaV_pushtype(buf_T, buffer, luaV_Buffer)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	941 luaV_type_tostring(buffer, LUAVIM_BUFFER)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	942
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	943 static int
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	944 luaV_buffer_len(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	945 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	946 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	947 lua_pushinteger(L, b->b_ml.ml_line_count);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	948 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	949 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	950
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	951 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	952 luaV_buffer_call(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	953 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	954 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	955 lua_settop(L, 1);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	956 set_curbuf(b, DOBUF_SPLIT);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	957 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	958 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	959
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	960 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	961 luaV_buffer_index(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	962 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	963 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	964 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	965 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	966 luaV_pushline(L, b, n);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	967 else if (lua_isstring(L, 2))
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	968 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	969 const char *s = lua_tostring(L, 2);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	970 if (strncmp(s, "name", 4) == 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	971 lua_pushstring(L, (char *) b->b_sfname);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	972 else if (strncmp(s, "fname", 5) == 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	973 lua_pushstring(L, (char *) b->b_ffname);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	974 else if (strncmp(s, "number", 6) == 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	975 lua_pushinteger(L, b->b_fnum);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	976 /* methods */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	977 else if (strncmp(s, "insert", 6) == 0
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	978 \|\| strncmp(s, "next", 4) == 0
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	979 \|\| strncmp(s, "previous", 8) == 0
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	980 \|\| strncmp(s, "isvalid", 7) == 0)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	981 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	982 lua_getmetatable(L, 1);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	983 lua_getfield(L, -1, s);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	984 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	985 else
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	986 lua_pushnil(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	987 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	988 else
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	989 lua_pushnil(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	990 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	991 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	992
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	993 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	994 luaV_buffer_newindex(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	995 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	996 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	997 linenr_T n = (linenr_T) luaL_checkinteger(L, 2);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	998 #ifdef HAVE_SANDBOX
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	999 luaV_checksandbox(L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1000 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1001 if (n < 1 \|\| n > b->b_ml.ml_line_count)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1002 luaL_error(L, "invalid line number");
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1003 if (lua_isnil(L, 3)) /* delete line */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1004 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1005 buf_T *buf = curbuf;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1006 curbuf = b;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1007 if (u_savedel(n, 1L) == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1008 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1009 curbuf = buf;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1010 luaL_error(L, "cannot save undo information");
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1011 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1012 else if (ml_delete(n, FALSE) == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1013 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1014 curbuf = buf;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1015 luaL_error(L, "cannot delete line");
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1016 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1017 else {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1018 deleted_lines_mark(n, 1L);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1019 if (b == curwin->w_buffer) /* fix cursor in current window? */
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1020 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1021 if (curwin->w_cursor.lnum >= n)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1022 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1023 if (curwin->w_cursor.lnum > n)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1024 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1025 curwin->w_cursor.lnum -= 1;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1026 check_cursor_col();
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1027 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1028 else check_cursor();
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1029 changed_cline_bef_curs();
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1030 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1031 invalidate_botline();
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1032 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1033 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1034 curbuf = buf;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1035 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1036 else if (lua_isstring(L, 3)) /* update line */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1037 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1038 buf_T *buf = curbuf;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1039 curbuf = b;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1040 if (u_savesub(n) == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1041 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1042 curbuf = buf;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1043 luaL_error(L, "cannot save undo information");
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1044 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1045 else if (ml_replace(n, luaV_toline(L, 3), TRUE) == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1046 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1047 curbuf = buf;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1048 luaL_error(L, "cannot replace line");
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1049 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1050 else changed_bytes(n, 0);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1051 curbuf = buf;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1052 if (b == curwin->w_buffer)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1053 check_cursor_col();
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1054 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1055 else
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1056 luaL_error(L, "wrong argument to change line");
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1057 return 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1058 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1059
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1060 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1061 luaV_buffer_insert(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1062 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1063 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	1064 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	1065 linenr_T last = b->b_ml.ml_line_count;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1066 linenr_T n = (linenr_T) luaL_optinteger(L, 3, last);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1067 buf_T *buf;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1068 luaL_checktype(L, 2, LUA_TSTRING);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1069 #ifdef HAVE_SANDBOX
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1070 luaV_checksandbox(L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1071 #endif
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1072 /* fix insertion line */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1073 if (n < 0) n = 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1074 if (n > last) n = last;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1075 /* insert */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1076 buf = curbuf;
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1077 curbuf = b;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1078 if (u_save(n, n + 1) == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1079 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1080 curbuf = buf;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1081 luaL_error(L, "cannot save undo information");
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1082 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1083 else if (ml_append(n, luaV_toline(L, 2), 0, FALSE) == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1084 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1085 curbuf = buf;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1086 luaL_error(L, "cannot insert line");
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1087 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1088 else
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1089 appended_lines_mark(n, 1L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1090 curbuf = buf;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1091 update_screen(VALID);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1092 return 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1093 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1094
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1095 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1096 luaV_buffer_next(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1097 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1098 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	1099 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	1100 luaV_pushbuffer(L, buf->b_next);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1101 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1102 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1103
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1104 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1105 luaV_buffer_previous(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1106 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1107 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	1108 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	1109 luaV_pushbuffer(L, buf->b_prev);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1110 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1111 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1112
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1113 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1114 luaV_buffer_isvalid(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1115 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1116 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	1117 luaV_getudata(L, *b);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1118 lua_pushboolean(L, !lua_isnil(L, -1));
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1119 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1120 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1121
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1122 static const luaL_Reg luaV_Buffer_mt[] = {
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1123 {"__tostring", luaV_buffer_tostring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1124 {"__len", luaV_buffer_len},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1125 {"__call", luaV_buffer_call},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1126 {"__index", luaV_buffer_index},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1127 {"__newindex", luaV_buffer_newindex},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1128 {"insert", luaV_buffer_insert},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1129 {"next", luaV_buffer_next},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1130 {"previous", luaV_buffer_previous},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1131 {"isvalid", luaV_buffer_isvalid},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1132 {NULL, NULL}
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1133 };
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1134
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1135
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1136 /* ======= Window type ======= */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1137
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1138 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	1139 luaV_pushtype(win_T, window, luaV_Window)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1140 luaV_type_tostring(window, LUAVIM_WINDOW)
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1141
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1142 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1143 luaV_window_call(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1144 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1145 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	1146 lua_settop(L, 1);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1147 win_goto(w);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1148 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1149 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1150
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1151 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1152 luaV_window_index(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1153 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1154 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	1155 const char *s = luaL_checkstring(L, 2);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1156 if (strncmp(s, "buffer", 6) == 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1157 luaV_pushbuffer(L, w->w_buffer);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1158 else if (strncmp(s, "line", 4) == 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1159 lua_pushinteger(L, w->w_cursor.lnum);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1160 else if (strncmp(s, "col", 3) == 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1161 lua_pushinteger(L, w->w_cursor.col + 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1162 #ifdef FEAT_VERTSPLIT
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1163 else if (strncmp(s, "width", 5) == 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1164 lua_pushinteger(L, W_WIDTH(w));
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1165 #endif
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1166 else if (strncmp(s, "height", 6) == 0)
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1167 lua_pushinteger(L, w->w_height);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1168 /* methods */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1169 else if (strncmp(s, "next", 4) == 0
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1170 \|\| strncmp(s, "previous", 8) == 0
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1171 \|\| strncmp(s, "isvalid", 7) == 0)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1172 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1173 lua_getmetatable(L, 1);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1174 lua_getfield(L, -1, s);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1175 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1176 else
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1177 lua_pushnil(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1178 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1179 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1180
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1181 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1182 luaV_window_newindex (lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1183 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1184 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	1185 const char *s = luaL_checkstring(L, 2);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1186 int v = luaL_checkinteger(L, 3);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1187 if (strncmp(s, "line", 4) == 0)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1188 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1189 #ifdef HAVE_SANDBOX
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1190 luaV_checksandbox(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1191 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1192 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	1193 luaL_error(L, "line out of range");
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1194 w->w_cursor.lnum = v;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1195 update_screen(VALID);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1196 }
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1197 else if (strncmp(s, "col", 3) == 0)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1198 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1199 #ifdef HAVE_SANDBOX
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1200 luaV_checksandbox(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1201 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1202 w->w_cursor.col = v - 1;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1203 update_screen(VALID);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1204 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1205 #ifdef FEAT_VERTSPLIT
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1206 else if (strncmp(s, "width", 5) == 0)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1207 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1208 win_T *win = curwin;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1209 #ifdef FEAT_GUI
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1210 need_mouse_correct = TRUE;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1211 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1212 curwin = w;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1213 win_setwidth(v);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1214 curwin = win;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1215 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1216 #endif
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1217 else if (strncmp(s, "height", 6) == 0)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1218 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1219 win_T *win = curwin;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1220 #ifdef FEAT_GUI
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1221 need_mouse_correct = TRUE;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1222 #endif
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1223 curwin = w;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1224 win_setheight(v);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1225 curwin = win;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1226 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1227 else
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1228 luaL_error(L, "invalid window property: `%s'", s);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1229 return 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1230 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1231
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1232 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1233 luaV_window_next(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1234 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1235 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	1236 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	1237 luaV_pushwindow(L, win->w_next);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1238 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1239 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1240
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1241 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1242 luaV_window_previous(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1243 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1244 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	1245 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	1246 luaV_pushwindow(L, win->w_prev);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1247 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1248 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1249
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1250 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1251 luaV_window_isvalid(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1252 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1253 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	1254 luaV_getudata(L, *w);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1255 lua_pushboolean(L, !lua_isnil(L, -1));
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1256 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1257 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1258
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1259 static const luaL_Reg luaV_Window_mt[] = {
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1260 {"__tostring", luaV_window_tostring},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1261 {"__call", luaV_window_call},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1262 {"__index", luaV_window_index},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1263 {"__newindex", luaV_window_newindex},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1264 {"next", luaV_window_next},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1265 {"previous", luaV_window_previous},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1266 {"isvalid", luaV_window_isvalid},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1267 {NULL, NULL}
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1268 };
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1269
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1270
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1271 /* ======= Vim module ======= */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1272
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1273 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1274 luaV_print(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1275 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1276 int i, n = lua_gettop(L); /* nargs */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1277 const char *s;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1278 size_t l;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1279 luaL_Buffer b;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1280 luaL_buffinit(L, &b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1281 lua_getglobal(L, "tostring");
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1282 for (i = 1; i <= n; i++)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1283 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1284 lua_pushvalue(L, -1); /* tostring */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1285 lua_pushvalue(L, i); /* arg */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1286 lua_call(L, 1, 1);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1287 s = lua_tolstring(L, -1, &l);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1288 if (s == NULL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1289 return luaL_error(L, "cannot convert to string");
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1290 if (i > 1) luaL_addchar(&b, ' '); /* use space instead of tab */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1291 luaV_addlstring(&b, s, l, 0);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1292 lua_pop(L, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1293 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1294 luaL_pushresult(&b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1295 luaV_msg(L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1296 return 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1297 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1298
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1299 static int
3091 92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1300 luaV_debug(lua_State *L)
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1301 {
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1302 lua_settop(L, 0);
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1303 lua_getglobal(L, "vim");
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1304 lua_getfield(L, -1, "eval");
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1305 lua_remove(L, -2); /* vim.eval at position 1 */
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1306 for (;;)
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1307 {
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1308 const char *input;
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1309 size_t l;
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1310 lua_pushvalue(L, 1); /* vim.eval */
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1311 lua_pushliteral(L, "input('lua_debug> ')");
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1312 lua_call(L, 1, 1); /* return string */
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1313 input = lua_tolstring(L, -1, &l);
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1314 if (l == 0 \|\| strcmp(input, "cont") == 0)
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1315 return 0;
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1316 msg_putchar('\n'); /* avoid outputting on input line */
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1317 if (luaL_loadbuffer(L, input, l, "=(debug command)")
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1318 \|\| lua_pcall(L, 0, 0, 0))
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1319 luaV_emsg(L);
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1320 lua_settop(L, 1); /* remove eventual returns, but keep vim.eval */
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1321 }
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1322 }
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1323
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1324 static int
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1325 luaV_command(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1326 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1327 do_cmdline_cmd((char_u *) luaL_checkstring(L, 1));
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1328 update_screen(VALID);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1329 return 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1330 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1331
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1332 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1333 luaV_eval(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1334 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1335 typval_T tv = eval_expr((char_u ) luaL_checkstring(L, 1), NULL);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1336 if (tv == NULL) luaL_error(L, "invalid expression");
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1337 luaV_pushtypval(L, tv);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1338 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1339 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1340
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1341 static int
2331 3840b7508835 Make it easier to build with Lua. Remove compiler warnings. Bram Moolenaar <bram@vim.org> parents: 2330 diff changeset	1342 luaV_beep(lua_State *L UNUSED)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1343 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1344 vim_beep();
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1345 return 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1346 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1347
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1348 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1349 luaV_line(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1350 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1351 luaV_pushline(L, curbuf, curwin->w_cursor.lnum);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1352 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1353 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1354
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1355 static int
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1356 luaV_list(lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1357 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1358 list_T *l = list_alloc();
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1359 if (l == NULL)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1360 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1361 else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1362 luaV_newlist(L, l);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1363 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1364 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1365
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1366 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1367 luaV_dict(lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1368 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1369 dict_T *d = dict_alloc();
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1370 if (d == NULL)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1371 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1372 else
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1373 luaV_newdict(L, d);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1374 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1375 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1376
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1377 static int
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1378 luaV_buffer(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1379 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1380 buf_T *buf;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1381 if (lua_isstring(L, 1)) /* get by number or name? */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1382 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1383 if (lua_isnumber(L, 1)) /* by number? */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1384 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1385 int n = lua_tointeger(L, 1);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1386 for (buf = firstbuf; buf != NULL; buf = buf->b_next)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1387 if (buf->b_fnum == n) break;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1388 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1389 else { /* by name */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1390 size_t l;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1391 const char *s = lua_tolstring(L, 1, &l);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1392 for (buf = firstbuf; buf != NULL; buf = buf->b_next)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1393 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1394 if (buf->b_ffname == NULL \|\| buf->b_sfname == NULL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1395 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1396 if (l == 0) break;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1397 }
2331 3840b7508835 Make it easier to build with Lua. Remove compiler warnings. Bram Moolenaar <bram@vim.org> parents: 2330 diff changeset	1398 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	1399 \|\| strncmp(s, (char *)buf->b_sfname, l) == 0)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1400 break;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1401 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1402 }
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1403 }
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1404 else
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1405 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	1406 luaV_pushbuffer(L, buf);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1407 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1408 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1409
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1410 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1411 luaV_window(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1412 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1413 win_T *win;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1414 if (lua_isnumber(L, 1)) /* get by number? */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1415 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1416 int n = lua_tointeger(L, 1);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1417 for (win = firstwin; win != NULL; win = win->w_next, n--)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1418 if (n == 1) break;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1419 }
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1420 else
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1421 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	1422 luaV_pushwindow(L, win);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1423 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1424 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1425
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1426 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1427 luaV_open(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1428 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1429 char_u *s = NULL;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1430 #ifdef HAVE_SANDBOX
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1431 luaV_checksandbox(L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1432 #endif
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1433 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	1434 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	1435 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1436 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1437
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1438 static int
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1439 luaV_type(lua_State *L)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1440 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1441 luaL_checkany(L, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1442 if (lua_type(L, 1) == LUA_TUSERDATA) /* check vim udata? */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1443 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1444 lua_settop(L, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1445 if (lua_getmetatable(L, 1))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1446 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1447 luaV_getfield(L, LUAVIM_LIST);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1448 if (lua_rawequal(L, -1, 2))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1449 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1450 lua_pushstring(L, "list");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1451 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1452 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1453 luaV_getfield(L, LUAVIM_DICT);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1454 if (lua_rawequal(L, -1, 2))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1455 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1456 lua_pushstring(L, "dict");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1457 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1458 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1459 luaV_getfield(L, LUAVIM_BUFFER);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1460 if (lua_rawequal(L, -1, 2))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1461 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1462 lua_pushstring(L, "buffer");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1463 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1464 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1465 luaV_getfield(L, LUAVIM_WINDOW);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1466 if (lua_rawequal(L, -1, 2))
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1467 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1468 lua_pushstring(L, "window");
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1469 return 1;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1470 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1471 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1472 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1473 lua_pushstring(L, luaL_typename(L, 1)); /* fallback */
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1474 return 1;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1475 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1476
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1477 static const luaL_Reg luaV_module[] = {
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1478 {"command", luaV_command},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1479 {"eval", luaV_eval},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1480 {"beep", luaV_beep},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1481 {"line", luaV_line},
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1482 {"list", luaV_list},
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1483 {"dict", luaV_dict},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1484 {"buffer", luaV_buffer},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1485 {"window", luaV_window},
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1486 {"open", luaV_open},
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1487 {"type", luaV_type},
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1488 {NULL, NULL}
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1489 };
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1490
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1491 /* for freeing list, dict, buffer and window objects; lightuserdata as arg */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1492 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1493 luaV_free(lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1494 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1495 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1496 luaV_setudata(L, lua_touserdata(L, 1));
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1497 return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1498 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1499
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1500 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1501 luaV_luaeval (lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1502 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1503 luaL_Buffer b;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1504 size_t l;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1505 const char *str = lua_tolstring(L, 1, &l);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1506 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	1507 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	1508 luaL_buffinit(L, &b);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1509 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	1510 luaL_addlstring(&b, str, l);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1511 luaL_pushresult(&b);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1512 str = lua_tolstring(L, -1, &l);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1513 if (luaL_loadbuffer(L, str, l, LUAVIM_EVALNAME)) /* compile error? */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1514 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1515 luaV_emsg(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1516 return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1517 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1518 luaV_pushtypval(L, arg);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1519 if (lua_pcall(L, 1, 1, 0)) /* running error? */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1520 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1521 luaV_emsg(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1522 return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1523 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1524 luaV_totypval(L, -1, rettv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1525 return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1526 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1527
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1528 static int
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1529 luaV_setref (lua_State *L)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1530 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1531 int copyID = lua_tointeger(L, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1532 typval_T tv;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1533 luaV_getfield(L, LUAVIM_LIST);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1534 luaV_getfield(L, LUAVIM_DICT);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1535 lua_pushnil(L);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1536 while (lua_next(L, lua_upvalueindex(1)) != 0) /* traverse cache table */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1537 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1538 lua_getmetatable(L, -1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1539 if (lua_rawequal(L, -1, 2)) /* list? */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1540 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1541 tv.v_type = VAR_LIST;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1542 tv.vval.v_list = (list_T ) lua_touserdata(L, 4); / key */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1543 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1544 else if (lua_rawequal(L, -1, 3)) /* dict? */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1545 {
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1546 tv.v_type = VAR_DICT;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1547 tv.vval.v_dict = (dict_T ) lua_touserdata(L, 4); / key */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1548 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1549 lua_pop(L, 2); /* metatable and value */
3618 c052f3b79b99 updated for version 7.3.569 Bram Moolenaar <bram@vim.org> parents: 3459 diff changeset	1550 set_ref_in_item(&tv, copyID);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1551 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1552 return 0;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1553 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1554
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1555 static int
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1556 luaopen_vim(lua_State *L)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1557 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1558 /* set cache table */
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1559 lua_newtable(L);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1560 lua_newtable(L);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1561 lua_pushstring(L, "v");
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1562 lua_setfield(L, -2, "__mode");
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1563 lua_setmetatable(L, -2); /* cache is weak-valued */
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1564 /* print */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1565 lua_pushcfunction(L, luaV_print);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1566 lua_setglobal(L, "print");
3091 92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1567 /* debug.debug */
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1568 lua_getglobal(L, "debug");
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1569 lua_pushcfunction(L, luaV_debug);
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1570 lua_setfield(L, -2, "debug");
92a181a1cec3 updated for version 7.3.317 Bram Moolenaar <bram@vim.org> parents: 2683 diff changeset	1571 lua_pop(L, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1572 /* free */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1573 lua_pushlightuserdata(L, (void *) LUAVIM_FREE);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1574 lua_pushvalue(L, 1); /* cache table */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1575 lua_pushcclosure(L, luaV_free, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1576 lua_rawset(L, LUA_REGISTRYINDEX);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1577 /* luaeval */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1578 lua_pushlightuserdata(L, (void *) LUAVIM_LUAEVAL);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1579 lua_pushvalue(L, 1); /* cache table */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1580 lua_pushcclosure(L, luaV_luaeval, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1581 lua_rawset(L, LUA_REGISTRYINDEX);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1582 /* setref */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1583 lua_pushlightuserdata(L, (void *) LUAVIM_SETREF);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1584 lua_pushvalue(L, 1); /* cache table */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1585 lua_pushcclosure(L, luaV_setref, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1586 lua_rawset(L, LUA_REGISTRYINDEX);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1587 /* register */
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1588 luaV_newmetatable(L, LUAVIM_LIST);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1589 lua_pushvalue(L, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1590 luaV_openlib(L, luaV_List_mt, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1591 luaV_newmetatable(L, LUAVIM_DICT);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1592 lua_pushvalue(L, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1593 luaV_openlib(L, luaV_Dict_mt, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1594 luaV_newmetatable(L, LUAVIM_BUFFER);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1595 lua_pushvalue(L, 1); /* cache table */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1596 luaV_openlib(L, luaV_Buffer_mt, 1);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1597 luaV_newmetatable(L, LUAVIM_WINDOW);
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1598 lua_pushvalue(L, 1); /* cache table */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1599 luaV_openlib(L, luaV_Window_mt, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1600 lua_newtable(L); /* vim table */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1601 lua_pushvalue(L, 1); /* cache table */
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1602 luaV_openlib(L, luaV_module, 1);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1603 lua_setglobal(L, LUAVIM_NAME);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1604 return 0;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1605 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1606
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1607 static lua_State *
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1608 luaV_newstate(void)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1609 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1610 lua_State *L = luaL_newstate();
2431 7b764999f9b9 Update for Lua interface. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2373 diff changeset	1611 luaL_openlibs(L); /* core libs */
7b764999f9b9 Update for Lua interface. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: 2373 diff changeset	1612 lua_pushcfunction(L, luaopen_vim); /* vim */
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1613 lua_call(L, 0, 0);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1614 return L;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1615 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1616
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1617 static void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1618 luaV_setrange(lua_State *L, int line1, int line2)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1619 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1620 lua_getglobal(L, LUAVIM_NAME);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1621 lua_pushinteger(L, line1);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1622 lua_setfield(L, -2, "firstline");
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1623 lua_pushinteger(L, line2);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1624 lua_setfield(L, -2, "lastline");
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1625 lua_pop(L, 1); /* vim table */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1626 }
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
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1629 /* ======= Interface ======= */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1630
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1631 static lua_State *L = NULL;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1632
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1633 static int
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1634 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	1635 {
8c512e2c7cb5 Fix: Lua interface tried to load the library when closing a buffer or window. Bram Moolenaar <bram@vim.org> parents: 2431 diff changeset	1636 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	1637 }
8c512e2c7cb5 Fix: Lua interface tried to load the library when closing a buffer or window. Bram Moolenaar <bram@vim.org> parents: 2431 diff changeset	1638
8c512e2c7cb5 Fix: Lua interface tried to load the library when closing a buffer or window. Bram Moolenaar <bram@vim.org> parents: 2431 diff changeset	1639 static int
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1640 lua_init(void)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1641 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1642 if (!lua_isopen())
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1643 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1644 #ifdef DYNAMIC_LUA
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1645 if (!lua_enabled(TRUE))
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1646 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1647 EMSG(_("Lua library cannot be loaded."));
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1648 return FAIL;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1649 }
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1650 #endif
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1651 L = luaV_newstate();
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1652 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1653 return OK;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1654 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1655
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1656 void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1657 lua_end(void)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1658 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1659 if (lua_isopen())
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1660 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1661 lua_close(L);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1662 L = NULL;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1663 #ifdef DYNAMIC_LUA
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1664 end_dynamic_lua();
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1665 #endif
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1666 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1667 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1668
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1669 /* ex commands */
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1670 void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1671 ex_lua(exarg_T *eap)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1672 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1673 char *script;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1674 if (lua_init() == FAIL) return;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1675 script = (char *) script_get(eap, eap->arg);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1676 if (!eap->skip)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1677 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1678 char s = (script) ? script : (char ) eap->arg;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1679 luaV_setrange(L, eap->line1, eap->line2);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1680 if (luaL_loadbuffer(L, s, strlen(s), LUAVIM_CHUNKNAME)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1681 \|\| lua_pcall(L, 0, 0, 0))
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1682 luaV_emsg(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1683 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1684 if (script != NULL) vim_free(script);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1685 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1686
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1687 void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1688 ex_luado(exarg_T *eap)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1689 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1690 linenr_T l;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1691 const char s = (const char ) eap->arg;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1692 luaL_Buffer b;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1693 size_t len;
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1694 if (lua_init() == FAIL) return;
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1695 if (u_save(eap->line1 - 1, eap->line2 + 1) == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1696 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1697 EMSG(_("cannot save undo information"));
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1698 return;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1699 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1700 luaV_setrange(L, eap->line1, eap->line2);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1701 luaL_buffinit(L, &b);
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	1702 luaL_addlstring(&b, "return function(line, linenr) ", 30); /* header */
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1703 luaL_addlstring(&b, s, strlen(s));
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1704 luaL_addlstring(&b, " end", 4); /* footer */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1705 luaL_pushresult(&b);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1706 s = lua_tolstring(L, -1, &len);
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1707 if (luaL_loadbuffer(L, s, len, LUAVIM_CHUNKNAME))
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1708 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1709 luaV_emsg(L);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1710 lua_pop(L, 1); /* function body */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1711 return;
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1712 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1713 lua_call(L, 0, 1);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1714 lua_replace(L, -2); /* function -> body */
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1715 for (l = eap->line1; l <= eap->line2; l++)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1716 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1717 lua_pushvalue(L, -1); /* function */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1718 luaV_pushline(L, curbuf, l); /* current line as arg */
3459 5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	1719 lua_pushinteger(L, l); /* current line number as arg */
5240610f2778 updated for version 7.3.494 Bram Moolenaar <bram@vim.org> parents: 3450 diff changeset	1720 if (lua_pcall(L, 2, 1, 0))
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1721 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1722 luaV_emsg(L);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1723 break;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1724 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1725 if (lua_isstring(L, -1)) /* update line? */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1726 {
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1727 #ifdef HAVE_SANDBOX
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1728 luaV_checksandbox(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1729 #endif
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1730 ml_replace(l, luaV_toline(L, -1), TRUE);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1731 changed_bytes(l, 0);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1732 lua_pop(L, 1); /* result from luaV_toline */
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1733 }
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1734 lua_pop(L, 1); /* line */
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1735 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1736 lua_pop(L, 1); /* function */
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1737 check_cursor();
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1738 update_screen(NOT_VALID);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1739 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1740
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1741 void
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1742 ex_luafile(exarg_T *eap)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1743 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1744 if (lua_init() == FAIL)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1745 return;
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1746 if (!eap->skip)
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1747 {
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1748 luaV_setrange(L, eap->line1, eap->line2);
ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1749 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	1750 luaV_emsg(L);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1751 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1752 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1753
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1754 #define luaV_freetype(typ,tname) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1755 void \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1756 lua_##tname##_free(typ *o) \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1757 { \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1758 if (!lua_isopen()) return; \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1759 luaV_getfield(L, LUAVIM_FREE); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1760 lua_pushlightuserdata(L, (void *) o); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1761 lua_call(L, 1, 0); \
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1762 }
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1763
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1764 luaV_freetype(buf_T, buffer)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1765 luaV_freetype(win_T, window)
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1766
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1767 void
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1768 do_luaeval (char_u str, typval_T arg, typval_T *rettv)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1769 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1770 lua_init();
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1771 luaV_getfield(L, LUAVIM_LUAEVAL);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1772 lua_pushstring(L, (char *) str);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1773 lua_pushlightuserdata(L, (void *) arg);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1774 lua_pushlightuserdata(L, (void *) rettv);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1775 lua_call(L, 3, 0);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1776 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1777
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1778 void
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1779 set_ref_in_lua (int copyID)
2330 ea4bf6df1a8a Whitespace cleanup. Bram Moolenaar <bram@vim.org> parents: 2320 diff changeset	1780 {
3450 b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1781 if (!lua_isopen()) return;
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1782 luaV_getfield(L, LUAVIM_SETREF);
b067b8b81be9 updated for version 7.3.490 Bram Moolenaar <bram@vim.org> parents: 3200 diff changeset	1783 lua_pushinteger(L, copyID);
2320 966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1784 lua_call(L, 1, 0);
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1785 }
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1786
966a5609669e Added Lua interfae. (Luis Carvalho) Bram Moolenaar <bram@vim.org> parents: diff changeset	1787 #endif

Mercurial > vim

annotate src/if_lua.c @ 3865:3c072c1cb873 v7.3.689