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