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