diff options
Diffstat (limited to 'source/ap/vim/patches/7.3.490')
| -rw-r--r-- | source/ap/vim/patches/7.3.490 | 2517 |
1 files changed, 0 insertions, 2517 deletions
diff --git a/source/ap/vim/patches/7.3.490 b/source/ap/vim/patches/7.3.490 deleted file mode 100644 index 6c49a48d..00000000 --- a/source/ap/vim/patches/7.3.490 +++ /dev/null @@ -1,2517 +0,0 @@ -To: vim_dev@googlegroups.com -Subject: Patch 7.3.490 -Fcc: outbox -From: Bram Moolenaar <Bram@moolenaar.net> -Mime-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit ------------- - -Patch 7.3.490 -Problem: Member confusion in Lua interface. -Solution: Fix it. Add luaeval(). (Taro Muraoka, Luis Carvalho) -Files: runtime/doc/if_lua.txt, src/eval.c, src/if_lua.c, - src/proto/if_lua.pro - - -*** ../vim-7.3.489/runtime/doc/if_lua.txt 2010-08-15 21:57:14.000000000 +0200 ---- runtime/doc/if_lua.txt 2012-04-05 16:41:35.000000000 +0200 -*************** -*** 1,4 **** -! *if_lua.txt* For Vim version 7.3. Last change: 2010 Jul 22 - - - VIM REFERENCE MANUAL by Luis Carvalho ---- 1,4 ---- -! *if_lua.txt* For Vim version 7.3. Last change: 2012 Jan 16 - - - VIM REFERENCE MANUAL by Luis Carvalho -*************** -*** 8,15 **** - - 1. Commands |lua-commands| - 2. The vim module |lua-vim| -! 3. Buffer userdata |lua-buffer| -! 4. Window userdata |lua-window| - - {Vi does not have any of these commands} - ---- 8,18 ---- - - 1. Commands |lua-commands| - 2. The vim module |lua-vim| -! 3. List userdata |lua-list| -! 4. Dict userdata |lua-dict| -! 5. Buffer userdata |lua-buffer| -! 6. Window userdata |lua-window| -! 7. The luaeval function |lua-luaeval| - - {Vi does not have any of these commands} - -*************** -*** 88,98 **** - All these commands execute a Lua chunk from either the command line (:lua and - :luado) or a file (:luafile) with the given line [range]. Similarly to the Lua - interpreter, each chunk has its own scope and so only global variables are -! shared between command calls. Lua default libraries "table", "string", "math", -! and "package" are available, "io" and "debug" are not, and "os" is restricted -! to functions "date", "clock", "time", "difftime", and "getenv". In addition, -! Lua "print" function has its output redirected to the Vim message area, with -! arguments separated by a white space instead of a tab. - - Lua uses the "vim" module (see |lua-vim|) to issue commands to Vim - and manage buffers (|lua-buffer|) and windows (|lua-window|). However, ---- 91,99 ---- - All these commands execute a Lua chunk from either the command line (:lua and - :luado) or a file (:luafile) with the given line [range]. Similarly to the Lua - interpreter, each chunk has its own scope and so only global variables are -! shared between command calls. All Lua default libraries are available. In -! addition, Lua "print" function has its output redirected to the Vim message -! area, with arguments separated by a white space instead of a tab. - - Lua uses the "vim" module (see |lua-vim|) to issue commands to Vim - and manage buffers (|lua-buffer|) and windows (|lua-window|). However, -*************** -*** 108,116 **** - module also includes routines for buffer, window, and current line queries, - Vim evaluation and command execution, and others. - -! vim.isbuffer(value) Returns 'true' (boolean, not string) if -! "value" is a buffer userdata and 'false' -! otherwise (see |lua-buffer|). - - vim.buffer([arg]) If "arg" is a number, returns buffer with - number "arg" in the buffer list or, if "arg" ---- 109,117 ---- - module also includes routines for buffer, window, and current line queries, - Vim evaluation and command execution, and others. - -! vim.list() Returns an empty list (see |List|). -! -! vim.dict() Returns an empty dictionary (see |Dictionary|). - - vim.buffer([arg]) If "arg" is a number, returns buffer with - number "arg" in the buffer list or, if "arg" -*************** -*** 121,136 **** - 'true' returns the first buffer in the buffer - list or else the current buffer. - -- vim.iswindow(value) Returns 'true' (boolean, not string) if -- "value" is a window userdata and -- 'false' otherwise (see |lua-window|). -- - vim.window([arg]) If "arg" is a number, returns window with - number "arg" or 'nil' (nil value, not string) - if not found. Otherwise, if "toboolean(arg)" - is 'true' returns the first window or else the - current window. - - vim.command({cmd}) Executes the vim (ex-mode) command {cmd}. - Examples: > - :lua vim.command"set tw=60" ---- 122,142 ---- - 'true' returns the first buffer in the buffer - list or else the current buffer. - - vim.window([arg]) If "arg" is a number, returns window with - number "arg" or 'nil' (nil value, not string) - if not found. Otherwise, if "toboolean(arg)" - is 'true' returns the first window or else the - current window. - -+ vim.type({arg}) Returns the type of {arg}. It is equivalent to -+ Lua's "type" function, but returns "list", -+ "dict", "buffer", or "window" if {arg} is a -+ list, dictionary, buffer, or window, -+ respectively. Examples: > -+ :lua l = vim.list() -+ :lua print(type(l), vim.type(l)) -+ :" userdata list -+ < - vim.command({cmd}) Executes the vim (ex-mode) command {cmd}. - Examples: > - :lua vim.command"set tw=60" -*************** -*** 141,147 **** - Vim strings and numbers are directly converted - to Lua strings and numbers respectively. Vim - lists and dictionaries are converted to Lua -! tables (lists become integer-keyed tables). - Examples: > - :lua tw = vim.eval"&tw" - :lua print(vim.eval"{'a': 'one'}".a) ---- 147,153 ---- - Vim strings and numbers are directly converted - to Lua strings and numbers respectively. Vim - lists and dictionaries are converted to Lua -! userdata (see |lua-list| and |lua-dict|). - Examples: > - :lua tw = vim.eval"&tw" - :lua print(vim.eval"{'a': 'one'}".a) -*************** -*** 157,163 **** - - - ============================================================================== -! 3. Buffer userdata *lua-buffer* - - Buffer userdata represent vim buffers. A buffer userdata "b" has the following - properties and methods: ---- 163,234 ---- - - - ============================================================================== -! 3. List userdata *lua-list* -! -! List userdata represent vim lists, and the interface tries to follow closely -! Vim's syntax for lists. Since lists are objects, changes in list references in -! Lua are reflected in Vim and vice-versa. A list "l" has the following -! properties and methods: -! -! Properties -! ---------- -! o "#l" is the number of items in list "l", equivalent to "len(l)" -! in Vim. -! o "l[k]" returns the k-th item in "l"; "l" is zero-indexed, as in Vim. -! To modify the k-th item, simply do "l[k] = newitem"; in -! particular, "l[k] = nil" removes the k-th item from "l". -! o "l()" returns an iterator for "l". -! -! Methods -! ------- -! o "l:add(item)" appends "item" to the end of "l". -! o "l:insert(item[, pos])" inserts "item" at (optional) -! position "pos" in the list. The default value for "pos" is 0. -! -! Examples: -! > -! :let l = [1, 'item'] -! :lua l = vim.eval('l') -- same 'l' -! :lua l:add(vim.list()) -! :lua l[0] = math.pi -! :echo l[0] " 3.141593 -! :lua l[0] = nil -- remove first item -! :lua l:insert(true, 1) -! :lua print(l, #l, l[0], l[1], l[-1]) -! :lua for item in l() do print(item) end -! < -! -! ============================================================================== -! 4. Dict userdata *lua-dict* -! -! Similarly to list userdata, dict userdata represent vim dictionaries; since -! dictionaries are also objects, references are kept between Lua and Vim. A dict -! "d" has the following properties: -! -! Properties -! ---------- -! o "#d" is the number of items in dict "d", equivalent to "len(d)" -! in Vim. -! o "d.key" or "d['key']" returns the value at entry "key" in "d". -! To modify the entry at this key, simply do "d.key = newvalue"; in -! particular, "d.key = nil" removes the entry from "d". -! o "d()" returns an iterator for "d" and is equivalent to "items(d)" in -! Vim. -! -! Examples: -! > -! :let d = {'n':10} -! :lua d = vim.eval('d') -- same 'd' -! :lua print(d, d.n, #d) -! :let d.self = d -! :lua for k, v in d() do print(d, k, v) end -! :lua d.x = math.pi -! :lua d.self = nil -- remove entry -! :echo d -! < -! -! ============================================================================== -! 5. Buffer userdata *lua-buffer* - - Buffer userdata represent vim buffers. A buffer userdata "b" has the following - properties and methods: -*************** -*** 209,215 **** - < - - ============================================================================== -! 4. Window userdata *lua-window* - - Window objects represent vim windows. A window userdata "w" has the following - properties and methods: ---- 280,286 ---- - < - - ============================================================================== -! 6. Window userdata *lua-window* - - Window objects represent vim windows. A window userdata "w" has the following - properties and methods: -*************** -*** 241,244 **** - < - - ============================================================================== -! vim:tw=78:ts=8:ft=help:norl: ---- 312,340 ---- - < - - ============================================================================== -! 7. The luaeval function *lua-luaeval* -! -! The (dual) equivalent of "vim.eval" for passing Lua values to Vim is -! "luaeval". "luaeval" takes an expression string and an optional argument and -! returns the result of the expression. It is semantically equivalent in Lua to: -! > -! local chunkheader = "local _A = select(1, ...) return " -! function luaeval (expstr, arg) -! local chunk = assert(loadstring(chunkheader .. expstr, "luaeval")) -! return chunk(arg) -- return typval -! end -! < -! Note that "_A" receives the argument to "luaeval". Examples: > -! -! :echo luaeval('math.pi') -! :lua a = vim.list():add('newlist') -! :let a = luaeval('a') -! :echo a[0] " 'newlist' -! :function Rand(x,y) " random uniform between x and y -! : return luaeval('(_A.y-_A.x)*math.random()+_A.x', {'x':a:x,'y':a:y}) -! : endfunction -! :echo Rand(1,10) -! -! -! ============================================================================== -! vim:tw=78:ts=8:noet:ft=help:norl: -*** ../vim-7.3.489/src/eval.c 2012-03-28 16:49:25.000000000 +0200 ---- src/eval.c 2012-04-05 16:41:35.000000000 +0200 -*************** -*** 622,627 **** ---- 622,630 ---- - static void f_log __ARGS((typval_T *argvars, typval_T *rettv)); - static void f_log10 __ARGS((typval_T *argvars, typval_T *rettv)); - #endif -+ #ifdef FEAT_LUA -+ static void f_luaeval __ARGS((typval_T *argvars, typval_T *rettv)); -+ #endif - static void f_map __ARGS((typval_T *argvars, typval_T *rettv)); - static void f_maparg __ARGS((typval_T *argvars, typval_T *rettv)); - static void f_mapcheck __ARGS((typval_T *argvars, typval_T *rettv)); -*************** -*** 6777,6782 **** ---- 6780,6789 ---- - /* v: vars */ - set_ref_in_ht(&vimvarht, copyID); - -+ #ifdef FEAT_LUA -+ set_ref_in_lua(copyID); -+ #endif -+ - /* - * 2. Free lists and dictionaries that are not referenced. - */ -*************** -*** 7946,7951 **** ---- 7953,7961 ---- - {"log", 1, 1, f_log}, - {"log10", 1, 1, f_log10}, - #endif -+ #ifdef FEAT_LUA -+ {"luaeval", 1, 2, f_luaeval}, -+ #endif - {"map", 2, 2, f_map}, - {"maparg", 1, 4, f_maparg}, - {"mapcheck", 1, 3, f_mapcheck}, -*************** -*** 13626,13631 **** ---- 13636,13658 ---- - } - #endif - -+ #ifdef FEAT_LUA -+ /* -+ * "luaeval()" function -+ */ -+ static void -+ f_luaeval(argvars, rettv) -+ typval_T *argvars; -+ typval_T *rettv; -+ { -+ char_u *str; -+ char_u buf[NUMBUFLEN]; -+ -+ str = get_tv_string_buf(&argvars[0], buf); -+ do_luaeval(str, argvars + 1, rettv); -+ } -+ #endif -+ - /* - * "map()" function - */ -*** ../vim-7.3.489/src/if_lua.c 2011-12-08 16:00:12.000000000 +0100 ---- src/if_lua.c 2012-04-05 16:41:35.000000000 +0200 -*************** -*** 1,4 **** -! /* vi:set ts=8 sts=4 sw=4: - * - * VIM - Vi IMproved by Bram Moolenaar - * ---- 1,4 ---- -! /* vi:set ts=8 sts=4 sw=4 noet: - * - * VIM - Vi IMproved by Bram Moolenaar - * -*************** -*** 21,35 **** ---- 21,53 ---- - - #define LUAVIM_CHUNKNAME "vim chunk" - #define LUAVIM_NAME "vim" -+ #define LUAVIM_EVALNAME "luaeval" -+ #define LUAVIM_EVALHEADER "local _A=select(1,...) return " - - typedef buf_T *luaV_Buffer; - typedef win_T *luaV_Window; -+ typedef dict_T *luaV_Dict; -+ typedef list_T *luaV_List; - typedef void (*msgfunc_T)(char_u *); - -+ static const char LUAVIM_DICT[] = "dict"; -+ static const char LUAVIM_LIST[] = "list"; - static const char LUAVIM_BUFFER[] = "buffer"; - static const char LUAVIM_WINDOW[] = "window"; - static const char LUAVIM_FREE[] = "luaV_free"; -+ static const char LUAVIM_LUAEVAL[] = "luaV_luaeval"; -+ static const char LUAVIM_SETREF[] = "luaV_setref"; - -+ /* most functions are closures with a cache table as first upvalue; -+ * get/setudata manage references to vim userdata in cache table through -+ * object pointers (light userdata) */ -+ #define luaV_getudata(L, v) \ -+ lua_pushlightuserdata((L), (void *) (v)); \ -+ lua_rawget((L), lua_upvalueindex(1)) -+ #define luaV_setudata(L, v) \ -+ lua_pushlightuserdata((L), (void *) (v)); \ -+ lua_pushvalue((L), -2); \ -+ lua_rawset((L), lua_upvalueindex(1)) - #define luaV_getfield(L, s) \ - lua_pushlightuserdata((L), (void *)(s)); \ - lua_rawget((L), LUA_REGISTRYINDEX) -*************** -*** 38,43 **** ---- 56,70 ---- - #define luaV_msg(L) luaV_msgfunc((L), (msgfunc_T) msg) - #define luaV_emsg(L) luaV_msgfunc((L), (msgfunc_T) emsg) - -+ static luaV_List *luaV_pushlist (lua_State *L, list_T *lis); -+ static luaV_Dict *luaV_pushdict (lua_State *L, dict_T *dic); -+ -+ #if LUA_VERSION_NUM <= 501 -+ #define luaV_openlib(L, l, n) luaL_openlib(L, NULL, l, n) -+ #define luaL_typeerror luaL_typerror -+ #else -+ #define luaV_openlib luaL_setfuncs -+ #endif - - #ifdef DYNAMIC_LUA - -*************** -*** 54,85 **** - #endif - - /* lauxlib */ - #define luaL_register dll_luaL_register - #define luaL_typerror dll_luaL_typerror - #define luaL_checklstring dll_luaL_checklstring - #define luaL_checkinteger dll_luaL_checkinteger - #define luaL_optinteger dll_luaL_optinteger - #define luaL_checktype dll_luaL_checktype - #define luaL_error dll_luaL_error -- #define luaL_loadfile dll_luaL_loadfile -- #define luaL_loadbuffer dll_luaL_loadbuffer - #define luaL_newstate dll_luaL_newstate - #define luaL_buffinit dll_luaL_buffinit -- #define luaL_prepbuffer dll_luaL_prepbuffer - #define luaL_addlstring dll_luaL_addlstring - #define luaL_pushresult dll_luaL_pushresult - /* lua */ - #define lua_close dll_lua_close - #define lua_gettop dll_lua_gettop - #define lua_settop dll_lua_settop - #define lua_pushvalue dll_lua_pushvalue - #define lua_replace dll_lua_replace - #define lua_isnumber dll_lua_isnumber - #define lua_isstring dll_lua_isstring - #define lua_type dll_lua_type - #define lua_rawequal dll_lua_rawequal -- #define lua_tonumber dll_lua_tonumber -- #define lua_tointeger dll_lua_tointeger - #define lua_toboolean dll_lua_toboolean - #define lua_tolstring dll_lua_tolstring - #define lua_touserdata dll_lua_touserdata ---- 81,134 ---- - #endif - - /* lauxlib */ -+ #if LUA_VERSION_NUM <= 501 - #define luaL_register dll_luaL_register -+ #define luaL_prepbuffer dll_luaL_prepbuffer -+ #define luaL_openlib dll_luaL_openlib - #define luaL_typerror dll_luaL_typerror -+ #define luaL_loadfile dll_luaL_loadfile -+ #define luaL_loadbuffer dll_luaL_loadbuffer -+ #else -+ #define luaL_prepbuffsize dll_luaL_prepbuffsize -+ #define luaL_setfuncs dll_luaL_setfuncs -+ #define luaL_loadfilex dll_luaL_loadfilex -+ #define luaL_loadbufferx dll_luaL_loadbufferx -+ #define luaL_argerror dll_luaL_argerror -+ #endif - #define luaL_checklstring dll_luaL_checklstring - #define luaL_checkinteger dll_luaL_checkinteger - #define luaL_optinteger dll_luaL_optinteger - #define luaL_checktype dll_luaL_checktype - #define luaL_error dll_luaL_error - #define luaL_newstate dll_luaL_newstate - #define luaL_buffinit dll_luaL_buffinit - #define luaL_addlstring dll_luaL_addlstring - #define luaL_pushresult dll_luaL_pushresult - /* lua */ -+ #if LUA_VERSION_NUM <= 501 -+ #define lua_tonumber dll_lua_tonumber -+ #define lua_tointeger dll_lua_tointeger -+ #define lua_call dll_lua_call -+ #define lua_pcall dll_lua_pcall -+ #else -+ #define lua_tonumberx dll_lua_tonumberx -+ #define lua_tointegerx dll_lua_tointegerx -+ #define lua_callk dll_lua_callk -+ #define lua_pcallk dll_lua_pcallk -+ #define lua_getglobal dll_lua_getglobal -+ #define lua_setglobal dll_lua_setglobal -+ #define lua_typename dll_lua_typename -+ #endif - #define lua_close dll_lua_close - #define lua_gettop dll_lua_gettop - #define lua_settop dll_lua_settop - #define lua_pushvalue dll_lua_pushvalue - #define lua_replace dll_lua_replace -+ #define lua_remove dll_lua_remove - #define lua_isnumber dll_lua_isnumber - #define lua_isstring dll_lua_isstring - #define lua_type dll_lua_type - #define lua_rawequal dll_lua_rawequal - #define lua_toboolean dll_lua_toboolean - #define lua_tolstring dll_lua_tolstring - #define lua_touserdata dll_lua_touserdata -*************** -*** 94,109 **** - #define lua_pushlightuserdata dll_lua_pushlightuserdata - #define lua_getfield dll_lua_getfield - #define lua_rawget dll_lua_rawget - #define lua_createtable dll_lua_createtable - #define lua_newuserdata dll_lua_newuserdata - #define lua_getmetatable dll_lua_getmetatable - #define lua_setfield dll_lua_setfield - #define lua_rawset dll_lua_rawset - #define lua_rawseti dll_lua_rawseti -- #define lua_remove dll_lua_remove - #define lua_setmetatable dll_lua_setmetatable -- #define lua_call dll_lua_call -- #define lua_pcall dll_lua_pcall - /* libs */ - #define luaopen_base dll_luaopen_base - #define luaopen_table dll_luaopen_table ---- 143,156 ---- - #define lua_pushlightuserdata dll_lua_pushlightuserdata - #define lua_getfield dll_lua_getfield - #define lua_rawget dll_lua_rawget -+ #define lua_rawgeti dll_lua_rawgeti - #define lua_createtable dll_lua_createtable - #define lua_newuserdata dll_lua_newuserdata - #define lua_getmetatable dll_lua_getmetatable - #define lua_setfield dll_lua_setfield - #define lua_rawset dll_lua_rawset - #define lua_rawseti dll_lua_rawseti - #define lua_setmetatable dll_lua_setmetatable - /* libs */ - #define luaopen_base dll_luaopen_base - #define luaopen_table dll_luaopen_table -*************** -*** 116,147 **** - #define luaL_openlibs dll_luaL_openlibs - - /* lauxlib */ - void (*dll_luaL_register) (lua_State *L, const char *libname, const luaL_Reg *l); - int (*dll_luaL_typerror) (lua_State *L, int narg, const char *tname); - const char *(*dll_luaL_checklstring) (lua_State *L, int numArg, size_t *l); - lua_Integer (*dll_luaL_checkinteger) (lua_State *L, int numArg); - lua_Integer (*dll_luaL_optinteger) (lua_State *L, int nArg, lua_Integer def); - void (*dll_luaL_checktype) (lua_State *L, int narg, int t); - int (*dll_luaL_error) (lua_State *L, const char *fmt, ...); -- int (*dll_luaL_loadfile) (lua_State *L, const char *filename); -- int (*dll_luaL_loadbuffer) (lua_State *L, const char *buff, size_t sz, const char *name); - lua_State *(*dll_luaL_newstate) (void); - void (*dll_luaL_buffinit) (lua_State *L, luaL_Buffer *B); -- char *(*dll_luaL_prepbuffer) (luaL_Buffer *B); - void (*dll_luaL_addlstring) (luaL_Buffer *B, const char *s, size_t l); - void (*dll_luaL_pushresult) (luaL_Buffer *B); - /* lua */ - void (*dll_lua_close) (lua_State *L); - int (*dll_lua_gettop) (lua_State *L); - void (*dll_lua_settop) (lua_State *L, int idx); - void (*dll_lua_pushvalue) (lua_State *L, int idx); - void (*dll_lua_replace) (lua_State *L, int idx); - int (*dll_lua_isnumber) (lua_State *L, int idx); - int (*dll_lua_isstring) (lua_State *L, int idx); - int (*dll_lua_type) (lua_State *L, int idx); - int (*dll_lua_rawequal) (lua_State *L, int idx1, int idx2); -- lua_Number (*dll_lua_tonumber) (lua_State *L, int idx); -- lua_Integer (*dll_lua_tointeger) (lua_State *L, int idx); - int (*dll_lua_toboolean) (lua_State *L, int idx); - const char *(*dll_lua_tolstring) (lua_State *L, int idx, size_t *len); - void *(*dll_lua_touserdata) (lua_State *L, int idx); ---- 163,218 ---- - #define luaL_openlibs dll_luaL_openlibs - - /* lauxlib */ -+ #if LUA_VERSION_NUM <= 501 - void (*dll_luaL_register) (lua_State *L, const char *libname, const luaL_Reg *l); -+ char *(*dll_luaL_prepbuffer) (luaL_Buffer *B); -+ void (*dll_luaL_openlib) (lua_State *L, const char *libname, const luaL_Reg *l, int nup); - int (*dll_luaL_typerror) (lua_State *L, int narg, const char *tname); -+ int (*dll_luaL_loadfile) (lua_State *L, const char *filename); -+ int (*dll_luaL_loadbuffer) (lua_State *L, const char *buff, size_t sz, const char *name); -+ #else -+ char *(*dll_luaL_prepbuffsize) (luaL_Buffer *B, size_t sz); -+ void (*dll_luaL_setfuncs) (lua_State *L, const luaL_Reg *l, int nup); -+ int (*dll_luaL_loadfilex) (lua_State *L, const char *filename, const char *mode); -+ int (*dll_luaL_loadbufferx) (lua_State *L, const char *buff, size_t sz, const char *name, const char *mode); -+ int (*dll_luaL_argerror) (lua_State *L, int numarg, const char *extramsg); -+ #endif - const char *(*dll_luaL_checklstring) (lua_State *L, int numArg, size_t *l); - lua_Integer (*dll_luaL_checkinteger) (lua_State *L, int numArg); - lua_Integer (*dll_luaL_optinteger) (lua_State *L, int nArg, lua_Integer def); - void (*dll_luaL_checktype) (lua_State *L, int narg, int t); - int (*dll_luaL_error) (lua_State *L, const char *fmt, ...); - lua_State *(*dll_luaL_newstate) (void); - void (*dll_luaL_buffinit) (lua_State *L, luaL_Buffer *B); - void (*dll_luaL_addlstring) (luaL_Buffer *B, const char *s, size_t l); - void (*dll_luaL_pushresult) (luaL_Buffer *B); - /* lua */ -+ #if LUA_VERSION_NUM <= 501 -+ lua_Number (*dll_lua_tonumber) (lua_State *L, int idx); -+ lua_Integer (*dll_lua_tointeger) (lua_State *L, int idx); -+ void (*dll_lua_call) (lua_State *L, int nargs, int nresults); -+ int (*dll_lua_pcall) (lua_State *L, int nargs, int nresults, int errfunc); -+ #else -+ lua_Number (*dll_lua_tonumberx) (lua_State *L, int idx, int *isnum); -+ lua_Integer (*dll_lua_tointegerx) (lua_State *L, int idx, int *isnum); -+ void (*dll_lua_callk) (lua_State *L, int nargs, int nresults, int ctx, -+ lua_CFunction k); -+ int (*dll_lua_pcallk) (lua_State *L, int nargs, int nresults, int errfunc, -+ int ctx, lua_CFunction k); -+ void (*dll_lua_getglobal) (lua_State *L, const char *var); -+ void (*dll_lua_setglobal) (lua_State *L, const char *var); -+ const char *(*dll_lua_typename) (lua_State *L, int tp); -+ #endif - void (*dll_lua_close) (lua_State *L); - int (*dll_lua_gettop) (lua_State *L); - void (*dll_lua_settop) (lua_State *L, int idx); - void (*dll_lua_pushvalue) (lua_State *L, int idx); - void (*dll_lua_replace) (lua_State *L, int idx); -+ void (*dll_lua_remove) (lua_State *L, int idx); - int (*dll_lua_isnumber) (lua_State *L, int idx); - int (*dll_lua_isstring) (lua_State *L, int idx); - int (*dll_lua_type) (lua_State *L, int idx); - int (*dll_lua_rawequal) (lua_State *L, int idx1, int idx2); - int (*dll_lua_toboolean) (lua_State *L, int idx); - const char *(*dll_lua_tolstring) (lua_State *L, int idx, size_t *len); - void *(*dll_lua_touserdata) (lua_State *L, int idx); -*************** -*** 156,171 **** - void (*dll_lua_pushlightuserdata) (lua_State *L, void *p); - void (*dll_lua_getfield) (lua_State *L, int idx, const char *k); - void (*dll_lua_rawget) (lua_State *L, int idx); - void (*dll_lua_createtable) (lua_State *L, int narr, int nrec); - void *(*dll_lua_newuserdata) (lua_State *L, size_t sz); - int (*dll_lua_getmetatable) (lua_State *L, int objindex); - void (*dll_lua_setfield) (lua_State *L, int idx, const char *k); - void (*dll_lua_rawset) (lua_State *L, int idx); - void (*dll_lua_rawseti) (lua_State *L, int idx, int n); -- void (*dll_lua_remove) (lua_State *L, int idx); - int (*dll_lua_setmetatable) (lua_State *L, int objindex); -- void (*dll_lua_call) (lua_State *L, int nargs, int nresults); -- int (*dll_lua_pcall) (lua_State *L, int nargs, int nresults, int errfunc); - /* libs */ - int (*dll_luaopen_base) (lua_State *L); - int (*dll_luaopen_table) (lua_State *L); ---- 227,240 ---- - void (*dll_lua_pushlightuserdata) (lua_State *L, void *p); - void (*dll_lua_getfield) (lua_State *L, int idx, const char *k); - void (*dll_lua_rawget) (lua_State *L, int idx); -+ void (*dll_lua_rawgeti) (lua_State *L, int idx, int n); - void (*dll_lua_createtable) (lua_State *L, int narr, int nrec); - void *(*dll_lua_newuserdata) (lua_State *L, size_t sz); - int (*dll_lua_getmetatable) (lua_State *L, int objindex); - void (*dll_lua_setfield) (lua_State *L, int idx, const char *k); - void (*dll_lua_rawset) (lua_State *L, int idx); - void (*dll_lua_rawseti) (lua_State *L, int idx, int n); - int (*dll_lua_setmetatable) (lua_State *L, int objindex); - /* libs */ - int (*dll_luaopen_base) (lua_State *L); - int (*dll_luaopen_table) (lua_State *L); -*************** -*** 185,216 **** - - static const luaV_Reg luaV_dll[] = { - /* lauxlib */ - {"luaL_register", (luaV_function) &dll_luaL_register}, - {"luaL_typerror", (luaV_function) &dll_luaL_typerror}, - {"luaL_checklstring", (luaV_function) &dll_luaL_checklstring}, - {"luaL_checkinteger", (luaV_function) &dll_luaL_checkinteger}, - {"luaL_optinteger", (luaV_function) &dll_luaL_optinteger}, - {"luaL_checktype", (luaV_function) &dll_luaL_checktype}, - {"luaL_error", (luaV_function) &dll_luaL_error}, -- {"luaL_loadfile", (luaV_function) &dll_luaL_loadfile}, -- {"luaL_loadbuffer", (luaV_function) &dll_luaL_loadbuffer}, - {"luaL_newstate", (luaV_function) &dll_luaL_newstate}, - {"luaL_buffinit", (luaV_function) &dll_luaL_buffinit}, -- {"luaL_prepbuffer", (luaV_function) &dll_luaL_prepbuffer}, - {"luaL_addlstring", (luaV_function) &dll_luaL_addlstring}, - {"luaL_pushresult", (luaV_function) &dll_luaL_pushresult}, - /* lua */ - {"lua_close", (luaV_function) &dll_lua_close}, - {"lua_gettop", (luaV_function) &dll_lua_gettop}, - {"lua_settop", (luaV_function) &dll_lua_settop}, - {"lua_pushvalue", (luaV_function) &dll_lua_pushvalue}, - {"lua_replace", (luaV_function) &dll_lua_replace}, - {"lua_isnumber", (luaV_function) &dll_lua_isnumber}, - {"lua_isstring", (luaV_function) &dll_lua_isstring}, - {"lua_type", (luaV_function) &dll_lua_type}, - {"lua_rawequal", (luaV_function) &dll_lua_rawequal}, -- {"lua_tonumber", (luaV_function) &dll_lua_tonumber}, -- {"lua_tointeger", (luaV_function) &dll_lua_tointeger}, - {"lua_toboolean", (luaV_function) &dll_lua_toboolean}, - {"lua_tolstring", (luaV_function) &dll_lua_tolstring}, - {"lua_touserdata", (luaV_function) &dll_lua_touserdata}, ---- 254,307 ---- - - static const luaV_Reg luaV_dll[] = { - /* lauxlib */ -+ #if LUA_VERSION_NUM <= 501 - {"luaL_register", (luaV_function) &dll_luaL_register}, -+ {"luaL_prepbuffer", (luaV_function) &dll_luaL_prepbuffer}, -+ {"luaL_openlib", (luaV_function) &dll_luaL_openlib}, - {"luaL_typerror", (luaV_function) &dll_luaL_typerror}, -+ {"luaL_loadfile", (luaV_function) &dll_luaL_loadfile}, -+ {"luaL_loadbuffer", (luaV_function) &dll_luaL_loadbuffer}, -+ #else -+ {"luaL_prepbuffsize", (luaV_function) &dll_luaL_prepbuffsize}, -+ {"luaL_setfuncs", (luaV_function) &dll_luaL_setfuncs}, -+ {"luaL_loadfilex", (luaV_function) &dll_luaL_loadfilex}, -+ {"luaL_loadbufferx", (luaV_function) &dll_luaL_loadbufferx}, -+ {"luaL_argerror", (luaV_function) &dll_luaL_argerror}, -+ #endif - {"luaL_checklstring", (luaV_function) &dll_luaL_checklstring}, - {"luaL_checkinteger", (luaV_function) &dll_luaL_checkinteger}, - {"luaL_optinteger", (luaV_function) &dll_luaL_optinteger}, - {"luaL_checktype", (luaV_function) &dll_luaL_checktype}, - {"luaL_error", (luaV_function) &dll_luaL_error}, - {"luaL_newstate", (luaV_function) &dll_luaL_newstate}, - {"luaL_buffinit", (luaV_function) &dll_luaL_buffinit}, - {"luaL_addlstring", (luaV_function) &dll_luaL_addlstring}, - {"luaL_pushresult", (luaV_function) &dll_luaL_pushresult}, - /* lua */ -+ #if LUA_VERSION_NUM <= 501 -+ {"lua_tonumber", (luaV_function) &dll_lua_tonumber}, -+ {"lua_tointeger", (luaV_function) &dll_lua_tointeger}, -+ {"lua_call", (luaV_function) &dll_lua_call}, -+ {"lua_pcall", (luaV_function) &dll_lua_pcall}, -+ #else -+ {"lua_tonumberx", (luaV_function) &dll_lua_tonumberx}, -+ {"lua_tointegerx", (luaV_function) &dll_lua_tointegerx}, -+ {"lua_callk", (luaV_function) &dll_lua_callk}, -+ {"lua_pcallk", (luaV_function) &dll_lua_pcallk}, -+ {"lua_getglobal", (luaV_function) &dll_lua_getglobal}, -+ {"lua_setglobal", (luaV_function) &dll_lua_setglobal}, -+ {"lua_typename", (luaV_function) &dll_lua_typename}, -+ #endif - {"lua_close", (luaV_function) &dll_lua_close}, - {"lua_gettop", (luaV_function) &dll_lua_gettop}, - {"lua_settop", (luaV_function) &dll_lua_settop}, - {"lua_pushvalue", (luaV_function) &dll_lua_pushvalue}, - {"lua_replace", (luaV_function) &dll_lua_replace}, -+ {"lua_remove", (luaV_function) &dll_lua_remove}, - {"lua_isnumber", (luaV_function) &dll_lua_isnumber}, - {"lua_isstring", (luaV_function) &dll_lua_isstring}, - {"lua_type", (luaV_function) &dll_lua_type}, - {"lua_rawequal", (luaV_function) &dll_lua_rawequal}, - {"lua_toboolean", (luaV_function) &dll_lua_toboolean}, - {"lua_tolstring", (luaV_function) &dll_lua_tolstring}, - {"lua_touserdata", (luaV_function) &dll_lua_touserdata}, -*************** -*** 225,240 **** - {"lua_pushlightuserdata", (luaV_function) &dll_lua_pushlightuserdata}, - {"lua_getfield", (luaV_function) &dll_lua_getfield}, - {"lua_rawget", (luaV_function) &dll_lua_rawget}, - {"lua_createtable", (luaV_function) &dll_lua_createtable}, - {"lua_newuserdata", (luaV_function) &dll_lua_newuserdata}, - {"lua_getmetatable", (luaV_function) &dll_lua_getmetatable}, - {"lua_setfield", (luaV_function) &dll_lua_setfield}, - {"lua_rawset", (luaV_function) &dll_lua_rawset}, - {"lua_rawseti", (luaV_function) &dll_lua_rawseti}, -- {"lua_remove", (luaV_function) &dll_lua_remove}, - {"lua_setmetatable", (luaV_function) &dll_lua_setmetatable}, -- {"lua_call", (luaV_function) &dll_lua_call}, -- {"lua_pcall", (luaV_function) &dll_lua_pcall}, - /* libs */ - {"luaopen_base", (luaV_function) &dll_luaopen_base}, - {"luaopen_table", (luaV_function) &dll_luaopen_table}, ---- 316,329 ---- - {"lua_pushlightuserdata", (luaV_function) &dll_lua_pushlightuserdata}, - {"lua_getfield", (luaV_function) &dll_lua_getfield}, - {"lua_rawget", (luaV_function) &dll_lua_rawget}, -+ {"lua_rawgeti", (luaV_function) &dll_lua_rawgeti}, - {"lua_createtable", (luaV_function) &dll_lua_createtable}, - {"lua_newuserdata", (luaV_function) &dll_lua_newuserdata}, - {"lua_getmetatable", (luaV_function) &dll_lua_getmetatable}, - {"lua_setfield", (luaV_function) &dll_lua_setfield}, - {"lua_rawset", (luaV_function) &dll_lua_rawset}, - {"lua_rawseti", (luaV_function) &dll_lua_rawseti}, - {"lua_setmetatable", (luaV_function) &dll_lua_setmetatable}, - /* libs */ - {"luaopen_base", (luaV_function) &dll_luaopen_base}, - {"luaopen_table", (luaV_function) &dll_luaopen_table}, -*************** -*** 294,299 **** ---- 383,398 ---- - - #endif /* DYNAMIC_LUA */ - -+ #if LUA_VERSION_NUM > 501 -+ static int -+ luaL_typeerror (lua_State *L, int narg, const char *tname) -+ { -+ const char *msg = lua_pushfstring(L, "%s expected, got %s", -+ tname, luaL_typename(L, narg)); -+ return luaL_argerror(L, narg, msg); -+ } -+ #endif -+ - - /* ======= Internal ======= */ - -*************** -*** 327,343 **** - } - - static void * - luaV_checkudata(lua_State *L, int ud, const char *tname) - { - void *p = luaV_toudata(L, ud, tname); -! if (p == NULL) luaL_typerror(L, ud, tname); - return p; - } - - static void - luaV_pushtypval(lua_State *L, typval_T *tv) - { -! if (tv == NULL) luaL_error(L, "null type"); - switch (tv->v_type) - { - case VAR_STRING: ---- 426,460 ---- - } - - static void * -+ luaV_checkcache(lua_State *L, void *p) -+ { -+ luaV_getudata(L, p); -+ if (lua_isnil(L, -1)) luaL_error(L, "invalid object"); -+ lua_pop(L, 1); -+ return p; -+ } -+ -+ #define luaV_unbox(L,luatyp,ud) (*((luatyp *) lua_touserdata((L),(ud)))) -+ -+ #define luaV_checkvalid(L,luatyp,ud) \ -+ luaV_checkcache((L), (void *) luaV_unbox((L),luatyp,(ud))) -+ -+ static void * - luaV_checkudata(lua_State *L, int ud, const char *tname) - { - void *p = luaV_toudata(L, ud, tname); -! if (p == NULL) luaL_typeerror(L, ud, tname); - return p; - } - - static void - luaV_pushtypval(lua_State *L, typval_T *tv) - { -! if (tv == NULL) -! { -! lua_pushnil(L); -! return; -! } - switch (tv->v_type) - { - case VAR_STRING: -*************** -*** 351,418 **** - lua_pushnumber(L, (lua_Number) tv->vval.v_float); - break; - #endif -! case VAR_LIST: { -! list_T *l = tv->vval.v_list; - -! if (l != NULL) - { -! /* check cache */ -! lua_pushlightuserdata(L, (void *) l); -! lua_rawget(L, LUA_ENVIRONINDEX); -! if (lua_isnil(L, -1)) /* not interned? */ - { -! listitem_T *li; -! int n = 0; -! lua_pop(L, 1); /* nil */ -! lua_newtable(L); -! lua_pushlightuserdata(L, (void *) l); -! lua_pushvalue(L, -2); -! lua_rawset(L, LUA_ENVIRONINDEX); -! for (li = l->lv_first; li != NULL; li = li->li_next) -! { -! luaV_pushtypval(L, &li->li_tv); -! lua_rawseti(L, -2, ++n); -! } - } -! } -! else lua_pushnil(L); -! break; -! } -! case VAR_DICT: { -! dict_T *d = tv->vval.v_dict; -! -! if (d != NULL) -! { -! /* check cache */ -! lua_pushlightuserdata(L, (void *) d); -! lua_rawget(L, LUA_ENVIRONINDEX); -! if (lua_isnil(L, -1)) /* not interned? */ - { -! hashtab_T *ht = &d->dv_hashtab; -! hashitem_T *hi; -! int n = ht->ht_used; /* remaining items */ -! lua_pop(L, 1); /* nil */ -! lua_newtable(L); -! lua_pushlightuserdata(L, (void *) d); -! lua_pushvalue(L, -2); -! lua_rawset(L, LUA_ENVIRONINDEX); -! for (hi = ht->ht_array; n > 0; hi++) -! { -! if (!HASHITEM_EMPTY(hi)) -! { -! dictitem_T *di = dict_lookup(hi); -! luaV_pushtypval(L, &di->di_tv); -! lua_setfield(L, -2, (char *) hi->hi_key); -! n--; -! } -! } - } - } -- else lua_pushnil(L); - break; - } - default: -! luaL_error(L, "invalid type"); - } - } - ---- 468,537 ---- - lua_pushnumber(L, (lua_Number) tv->vval.v_float); - break; - #endif -! case VAR_LIST: -! luaV_pushlist(L, tv->vval.v_list); -! break; -! case VAR_DICT: -! luaV_pushdict(L, tv->vval.v_dict); -! break; -! default: -! lua_pushnil(L); -! } -! } - -! /* converts lua value at 'pos' to typval 'tv' */ -! static void -! luaV_totypval (lua_State *L, int pos, typval_T *tv) -! { -! switch(lua_type(L, pos)) { -! case LUA_TBOOLEAN: -! tv->v_type = VAR_NUMBER; -! tv->vval.v_number = (varnumber_T) lua_toboolean(L, pos); -! break; -! case LUA_TSTRING: -! tv->v_type = VAR_STRING; -! tv->vval.v_string = vim_strsave((char_u *) lua_tostring(L, pos)); -! break; -! case LUA_TNUMBER: -! #ifdef FEAT_FLOAT -! tv->v_type = VAR_FLOAT; -! tv->vval.v_float = (float_T) lua_tonumber(L, pos); -! #else -! tv->v_type = VAR_NUMBER; -! tv->vval.v_number = (varnumber_T) lua_tointeger(L, pos); -! #endif -! break; -! case LUA_TUSERDATA: { -! void *p = lua_touserdata(L, pos); -! if (lua_getmetatable(L, pos)) /* has metatable? */ - { -! /* check list */ -! luaV_getfield(L, LUAVIM_LIST); -! if (lua_rawequal(L, -1, -2)) - { -! tv->v_type = VAR_LIST; -! tv->vval.v_list = *((luaV_List *) p); -! ++tv->vval.v_list->lv_refcount; -! lua_pop(L, 2); /* MTs */ -! return; - } -! /* check dict */ -! luaV_getfield(L, LUAVIM_DICT); -! if (lua_rawequal(L, -1, -3)) - { -! tv->v_type = VAR_DICT; -! tv->vval.v_dict = *((luaV_Dict *) p); -! ++tv->vval.v_dict->dv_refcount; -! lua_pop(L, 3); /* MTs */ -! return; - } -+ lua_pop(L, 3); /* MTs */ - } - break; - } - default: -! tv->v_type = VAR_NUMBER; -! tv->vval.v_number = 0; - } - } - -*************** -*** 481,569 **** - lua_pop(L, 2); /* original and modified strings */ - } - - -! /* ======= Buffer type ======= */ - -! static luaV_Buffer * -! luaV_newbuffer(lua_State *L, buf_T *buf) - { -! luaV_Buffer *b = (luaV_Buffer *) lua_newuserdata(L, sizeof(luaV_Buffer)); -! *b = buf; -! lua_pushlightuserdata(L, (void *) buf); -! lua_pushvalue(L, -2); -! lua_rawset(L, LUA_ENVIRONINDEX); /* env[buf] = udata */ -! /* to avoid GC, store as key in env */ -! lua_pushvalue(L, -1); -! lua_pushboolean(L, 1); -! lua_rawset(L, LUA_ENVIRONINDEX); /* env[udata] = true */ -! /* set metatable */ -! luaV_getfield(L, LUAVIM_BUFFER); - lua_setmetatable(L, -2); -! return b; - } - -! static luaV_Buffer * -! luaV_pushbuffer (lua_State *L, buf_T *buf) - { -! luaV_Buffer *b = NULL; -! if (buf == NULL) -! lua_pushnil(L); -! else { -! lua_pushlightuserdata(L, (void *) buf); -! lua_rawget(L, LUA_ENVIRONINDEX); -! if (lua_isnil(L, -1)) /* not interned? */ - { -! lua_pop(L, 1); -! b = luaV_newbuffer(L, buf); - } - else -! b = (luaV_Buffer *) lua_touserdata(L, -1); - } -! return b; - } - -! /* Buffer metamethods */ - - static int -! luaV_buffer_tostring(lua_State *L) - { -! lua_pushfstring(L, "%s: %p", LUAVIM_BUFFER, lua_touserdata(L, 1)); - return 1; - } - - static int - luaV_buffer_len(lua_State *L) - { -! luaV_Buffer *b = lua_touserdata(L, 1); -! lua_pushinteger(L, (*b)->b_ml.ml_line_count); - return 1; - } - - static int - luaV_buffer_call(lua_State *L) - { -! luaV_Buffer *b = (luaV_Buffer *) lua_touserdata(L, 1); - lua_settop(L, 1); -! set_curbuf(*b, DOBUF_SPLIT); - return 1; - } - - static int - luaV_buffer_index(lua_State *L) - { -! luaV_Buffer *b = (luaV_Buffer *) lua_touserdata(L, 1); - linenr_T n = (linenr_T) lua_tointeger(L, 2); -! if (n > 0 && n <= (*b)->b_ml.ml_line_count) -! luaV_pushline(L, *b, n); - else if (lua_isstring(L, 2)) - { - const char *s = lua_tostring(L, 2); - if (strncmp(s, "name", 4) == 0) -! lua_pushstring(L, (char *) (*b)->b_sfname); - else if (strncmp(s, "fname", 5) == 0) -! lua_pushstring(L, (char *) (*b)->b_ffname); - else if (strncmp(s, "number", 6) == 0) -! lua_pushinteger(L, (*b)->b_fnum); - /* methods */ - else if (strncmp(s, "insert", 6) == 0 - || strncmp(s, "next", 4) == 0 ---- 600,1107 ---- - lua_pop(L, 2); /* original and modified strings */ - } - -+ #define luaV_newtype(typ,tname,luatyp,luatname) \ -+ static luatyp * \ -+ luaV_new##tname (lua_State *L, typ *obj) \ -+ { \ -+ luatyp *o = (luatyp *) lua_newuserdata(L, sizeof(luatyp)); \ -+ *o = obj; \ -+ luaV_setudata(L, obj); /* cache[obj] = udata */ \ -+ luaV_getfield(L, luatname); \ -+ lua_setmetatable(L, -2); \ -+ return o; \ -+ } -+ -+ #define luaV_pushtype(typ,tname,luatyp) \ -+ static luatyp * \ -+ luaV_push##tname (lua_State *L, typ *obj) \ -+ { \ -+ luatyp *o = NULL; \ -+ if (obj == NULL) \ -+ lua_pushnil(L); \ -+ else { \ -+ luaV_getudata(L, obj); \ -+ if (lua_isnil(L, -1)) /* not interned? */ \ -+ { \ -+ lua_pop(L, 1); \ -+ o = luaV_new##tname(L, obj); \ -+ } \ -+ else \ -+ o = (luatyp *) lua_touserdata(L, -1); \ -+ } \ -+ return o; \ -+ } -+ -+ #define luaV_type_tostring(tname,luatname) \ -+ static int \ -+ luaV_##tname##_tostring (lua_State *L) \ -+ { \ -+ lua_pushfstring(L, "%s: %p", luatname, lua_touserdata(L, 1)); \ -+ return 1; \ -+ } -+ - -! /* adapted from eval.c */ -! -! #define listitem_alloc() (listitem_T *)alloc(sizeof(listitem_T)) -! -! static listitem_T * -! list_find (list_T *l, long n) -! { -! listitem_T *li; -! if (l == NULL || n < -l->lv_len || n >= l->lv_len) -! return NULL; -! if (n < 0) /* search backward? */ -! for (li = l->lv_last; n < -1; li = li->li_prev) -! n++; -! else /* search forward */ -! for (li = l->lv_first; n > 0; li = li->li_next) -! n--; -! return li; -! } - -! static void -! list_remove (list_T *l, listitem_T *li) - { -! listwatch_T *lw; -! --l->lv_len; -! /* fix watchers */ -! for (lw = l->lv_watch; lw != NULL; lw = lw->lw_next) -! if (lw->lw_item == li) -! lw->lw_item = li->li_next; -! /* fix list pointers */ -! if (li->li_next == NULL) /* last? */ -! l->lv_last = li->li_prev; -! else -! li->li_next->li_prev = li->li_prev; -! if (li->li_prev == NULL) /* first? */ -! l->lv_first = li->li_next; -! else -! li->li_prev->li_next = li->li_next; -! l->lv_idx_item = NULL; -! } -! -! static void -! list_append(list_T *l, listitem_T *item) -! { -! if (l->lv_last == NULL) /* empty list? */ -! l->lv_first = item; -! else -! l->lv_last->li_next = item; -! item->li_prev = l->lv_last; -! item->li_next = NULL; -! l->lv_last = item; -! ++l->lv_len; -! } -! -! static int -! list_insert_tv(list_T *l, typval_T *tv, listitem_T *item) -! { -! listitem_T *ni = listitem_alloc(); -! -! if (ni == NULL) -! return FAIL; -! copy_tv(tv, &ni->li_tv); -! if (item == NULL) -! list_append(l, ni); -! else -! { -! ni->li_prev = item->li_prev; -! ni->li_next = item; -! if (item->li_prev == NULL) -! { -! l->lv_first = ni; -! ++l->lv_idx; -! } -! else -! { -! item->li_prev->li_next = ni; -! l->lv_idx_item = NULL; -! } -! item->li_prev = ni; -! ++l->lv_len; -! } -! return OK; -! } -! -! /* set references */ -! -! static void set_ref_in_tv (typval_T *tv, int copyID); -! -! static void -! set_ref_in_dict(dict_T *d, int copyID) -! { -! hashtab_T *ht = &d->dv_hashtab; -! int n = ht->ht_used; -! hashitem_T *hi; -! for (hi = ht->ht_array; n > 0; ++hi) -! if (!HASHITEM_EMPTY(hi)) -! { -! dictitem_T *di = dict_lookup(hi); -! set_ref_in_tv(&di->di_tv, copyID); -! --n; -! } -! } -! -! static void -! set_ref_in_list(list_T *l, int copyID) -! { -! listitem_T *li; -! for (li = l->lv_first; li != NULL; li = li->li_next) -! set_ref_in_tv(&li->li_tv, copyID); -! } -! -! static void -! set_ref_in_tv(typval_T *tv, int copyID) -! { -! if (tv->v_type == VAR_LIST) -! { -! list_T *l = tv->vval.v_list; -! if (l != NULL && l->lv_copyID != copyID) -! { -! l->lv_copyID = copyID; -! set_ref_in_list(l, copyID); -! } -! } -! else if (tv->v_type == VAR_DICT) -! { -! dict_T *d = tv->vval.v_dict; -! if (d != NULL && d->dv_copyID != copyID) -! { -! d->dv_copyID = copyID; -! set_ref_in_dict(d, copyID); -! } -! } -! } -! -! -! /* ======= List type ======= */ -! -! static luaV_List * -! luaV_newlist (lua_State *L, list_T *lis) -! { -! luaV_List *l = (luaV_List *) lua_newuserdata(L, sizeof(luaV_List)); -! *l = lis; -! lis->lv_refcount++; /* reference in Lua */ -! luaV_setudata(L, lis); /* cache[lis] = udata */ -! luaV_getfield(L, LUAVIM_LIST); - lua_setmetatable(L, -2); -! return l; - } - -! luaV_pushtype(list_T, list, luaV_List) -! luaV_type_tostring(list, LUAVIM_LIST) -! -! static int -! luaV_list_gc (lua_State *L) - { -! list_unref(luaV_unbox(L, luaV_List, 1)); -! return 0; -! } -! -! static int -! luaV_list_len (lua_State *L) -! { -! list_T *l = luaV_unbox(L, luaV_List, 1); -! lua_pushinteger(L, (l == NULL) ? 0 : (int) l->lv_len); -! return 1; -! } -! -! static int -! luaV_list_iter (lua_State *L) -! { -! listitem_T *li = (listitem_T *) lua_touserdata(L, lua_upvalueindex(2)); -! if (li == NULL) return 0; -! luaV_pushtypval(L, &li->li_tv); -! lua_pushlightuserdata(L, (void *) li->li_next); -! lua_replace(L, lua_upvalueindex(2)); -! return 1; -! } -! -! static int -! luaV_list_call (lua_State *L) -! { -! list_T *l = luaV_unbox(L, luaV_List, 1); -! lua_pushvalue(L, lua_upvalueindex(1)); /* pass cache table along */ -! lua_pushlightuserdata(L, (void *) l->lv_first); -! lua_pushcclosure(L, luaV_list_iter, 2); -! return 1; -! } -! -! static int -! luaV_list_index (lua_State *L) -! { -! list_T *l = luaV_unbox(L, luaV_List, 1); -! if (lua_isnumber(L, 2)) /* list item? */ -! { -! listitem_T *li = list_find(l, (long) luaL_checkinteger(L, 2)); -! if (li == NULL) -! lua_pushnil(L); -! else -! luaV_pushtypval(L, &li->li_tv); -! } -! else if (lua_isstring(L, 2)) /* method? */ -! { -! const char *s = lua_tostring(L, 2); -! if (strncmp(s, "add", 3) == 0 -! || strncmp(s, "insert", 6) == 0 -! || strncmp(s, "extend", 6) == 0) - { -! lua_getmetatable(L, 1); -! lua_getfield(L, -1, s); - } - else -! lua_pushnil(L); - } -! else -! lua_pushnil(L); -! return 1; - } - -! static int -! luaV_list_newindex (lua_State *L) -! { -! list_T *l = luaV_unbox(L, luaV_List, 1); -! long n = (long) luaL_checkinteger(L, 2); -! listitem_T *li; -! if (l->lv_lock) -! luaL_error(L, "list is locked"); -! li = list_find(l, n); -! if (li == NULL) return 0; -! if (lua_isnil(L, 3)) /* remove? */ -! { -! list_remove(l, li); -! clear_tv(&li->li_tv); -! vim_free(li); -! } -! else -! { -! typval_T v; -! luaV_totypval(L, 3, &v); -! clear_tv(&li->li_tv); -! copy_tv(&v, &li->li_tv); -! } -! return 0; -! } - - static int -! luaV_list_add (lua_State *L) - { -! luaV_List *lis = luaV_checkudata(L, 1, LUAVIM_LIST); -! list_T *l = (list_T *) luaV_checkcache(L, (void *) *lis); -! listitem_T *li; -! if (l->lv_lock) -! luaL_error(L, "list is locked"); -! li = listitem_alloc(); -! if (li != NULL) -! { -! typval_T v; -! lua_settop(L, 2); -! luaV_totypval(L, 2, &v); -! copy_tv(&v, &li->li_tv); -! list_append(l, li); -! } -! lua_settop(L, 1); - return 1; - } - - static int -+ luaV_list_insert (lua_State *L) -+ { -+ luaV_List *lis = luaV_checkudata(L, 1, LUAVIM_LIST); -+ list_T *l = (list_T *) luaV_checkcache(L, (void *) *lis); -+ long pos = luaL_optlong(L, 3, 0); -+ listitem_T *li = NULL; -+ typval_T v; -+ if (l->lv_lock) -+ luaL_error(L, "list is locked"); -+ if (pos < l->lv_len) -+ { -+ li = list_find(l, pos); -+ if (li == NULL) -+ luaL_error(L, "invalid position"); -+ } -+ lua_settop(L, 2); -+ luaV_totypval(L, 2, &v); -+ list_insert_tv(l, &v, li); -+ lua_settop(L, 1); -+ return 1; -+ } -+ -+ static const luaL_Reg luaV_List_mt[] = { -+ {"__tostring", luaV_list_tostring}, -+ {"__gc", luaV_list_gc}, -+ {"__len", luaV_list_len}, -+ {"__call", luaV_list_call}, -+ {"__index", luaV_list_index}, -+ {"__newindex", luaV_list_newindex}, -+ {"add", luaV_list_add}, -+ {"insert", luaV_list_insert}, -+ {NULL, NULL} -+ }; -+ -+ -+ /* ======= Dict type ======= */ -+ -+ static luaV_Dict * -+ luaV_newdict (lua_State *L, dict_T *dic) -+ { -+ luaV_Dict *d = (luaV_Dict *) lua_newuserdata(L, sizeof(luaV_Dict)); -+ *d = dic; -+ dic->dv_refcount++; /* reference in Lua */ -+ luaV_setudata(L, dic); /* cache[dic] = udata */ -+ luaV_getfield(L, LUAVIM_DICT); -+ lua_setmetatable(L, -2); -+ return d; -+ } -+ -+ luaV_pushtype(dict_T, dict, luaV_Dict) -+ luaV_type_tostring(dict, LUAVIM_DICT) -+ -+ static int -+ luaV_dict_gc (lua_State *L) -+ { -+ dict_unref(luaV_unbox(L, luaV_Dict, 1)); -+ return 0; -+ } -+ -+ static int -+ luaV_dict_len (lua_State *L) -+ { -+ dict_T *d = luaV_unbox(L, luaV_Dict, 1); -+ lua_pushinteger(L, (d == NULL) ? 0 : (int) d->dv_hashtab.ht_used); -+ return 1; -+ } -+ -+ static int -+ luaV_dict_iter (lua_State *L) -+ { -+ hashitem_T *hi = (hashitem_T *) lua_touserdata(L, lua_upvalueindex(2)); -+ int n = lua_tointeger(L, lua_upvalueindex(3)); -+ dictitem_T *di; -+ if (n <= 0) return 0; -+ while (HASHITEM_EMPTY(hi)) hi++; -+ di = dict_lookup(hi); -+ lua_pushstring(L, (char *) hi->hi_key); -+ luaV_pushtypval(L, &di->di_tv); -+ lua_pushlightuserdata(L, (void *) (hi + 1)); -+ lua_replace(L, lua_upvalueindex(2)); -+ lua_pushinteger(L, n - 1); -+ lua_replace(L, lua_upvalueindex(3)); -+ return 2; -+ } -+ -+ static int -+ luaV_dict_call (lua_State *L) -+ { -+ dict_T *d = luaV_unbox(L, luaV_Dict, 1); -+ hashtab_T *ht = &d->dv_hashtab; -+ lua_pushvalue(L, lua_upvalueindex(1)); /* pass cache table along */ -+ lua_pushlightuserdata(L, (void *) ht->ht_array); -+ lua_pushinteger(L, ht->ht_used); /* # remaining items */ -+ lua_pushcclosure(L, luaV_dict_iter, 3); -+ return 1; -+ } -+ -+ static int -+ luaV_dict_index (lua_State *L) -+ { -+ dict_T *d = luaV_unbox(L, luaV_Dict, 1); -+ char_u *key = (char_u *) luaL_checkstring(L, 2); -+ dictitem_T *di = dict_find(d, key, -1); -+ if (di == NULL) -+ lua_pushnil(L); -+ else -+ luaV_pushtypval(L, &di->di_tv); -+ return 1; -+ } -+ -+ static int -+ luaV_dict_newindex (lua_State *L) -+ { -+ dict_T *d = luaV_unbox(L, luaV_Dict, 1); -+ char_u *key = (char_u *) luaL_checkstring(L, 2); -+ dictitem_T *di; -+ if (d->dv_lock) -+ luaL_error(L, "dict is locked"); -+ di = dict_find(d, key, -1); -+ if (di == NULL) /* non-existing key? */ -+ { -+ if (lua_isnil(L, 3)) return 0; -+ di = dictitem_alloc(key); -+ if (di == NULL) return 0; -+ if (dict_add(d, di) == FAIL) -+ { -+ vim_free(di); -+ return 0; -+ } -+ } -+ else -+ clear_tv(&di->di_tv); -+ if (lua_isnil(L, 3)) /* remove? */ -+ { -+ hashitem_T *hi = hash_find(&d->dv_hashtab, di->di_key); -+ hash_remove(&d->dv_hashtab, hi); -+ dictitem_free(di); -+ } -+ else { -+ typval_T v; -+ luaV_totypval(L, 3, &v); -+ copy_tv(&v, &di->di_tv); -+ } -+ return 0; -+ } -+ -+ static const luaL_Reg luaV_Dict_mt[] = { -+ {"__tostring", luaV_dict_tostring}, -+ {"__gc", luaV_dict_gc}, -+ {"__len", luaV_dict_len}, -+ {"__call", luaV_dict_call}, -+ {"__index", luaV_dict_index}, -+ {"__newindex", luaV_dict_newindex}, -+ {NULL, NULL} -+ }; -+ -+ -+ /* ======= Buffer type ======= */ -+ -+ luaV_newtype(buf_T, buffer, luaV_Buffer, LUAVIM_BUFFER) -+ luaV_pushtype(buf_T, buffer, luaV_Buffer) -+ luaV_type_tostring(buffer, LUAVIM_BUFFER) -+ -+ static int - luaV_buffer_len(lua_State *L) - { -! buf_T *b = (buf_T *) luaV_checkvalid(L, luaV_Buffer, 1); -! lua_pushinteger(L, b->b_ml.ml_line_count); - return 1; - } - - static int - luaV_buffer_call(lua_State *L) - { -! buf_T *b = (buf_T *) luaV_checkvalid(L, luaV_Buffer, 1); - lua_settop(L, 1); -! set_curbuf(b, DOBUF_SPLIT); - return 1; - } - - static int - luaV_buffer_index(lua_State *L) - { -! buf_T *b = (buf_T *) luaV_checkvalid(L, luaV_Buffer, 1); - linenr_T n = (linenr_T) lua_tointeger(L, 2); -! if (n > 0 && n <= b->b_ml.ml_line_count) -! luaV_pushline(L, b, n); - else if (lua_isstring(L, 2)) - { - const char *s = lua_tostring(L, 2); - if (strncmp(s, "name", 4) == 0) -! lua_pushstring(L, (char *) b->b_sfname); - else if (strncmp(s, "fname", 5) == 0) -! lua_pushstring(L, (char *) b->b_ffname); - else if (strncmp(s, "number", 6) == 0) -! lua_pushinteger(L, b->b_fnum); - /* methods */ - else if (strncmp(s, "insert", 6) == 0 - || strncmp(s, "next", 4) == 0 -*************** -*** 584,600 **** - static int - luaV_buffer_newindex(lua_State *L) - { -! luaV_Buffer *b = (luaV_Buffer *) lua_touserdata(L, 1); - linenr_T n = (linenr_T) luaL_checkinteger(L, 2); - #ifdef HAVE_SANDBOX - luaV_checksandbox(L); - #endif -! if (n < 1 || n > (*b)->b_ml.ml_line_count) - luaL_error(L, "invalid line number"); - if (lua_isnil(L, 3)) /* delete line */ - { - buf_T *buf = curbuf; -! curbuf = *b; - if (u_savedel(n, 1L) == FAIL) - { - curbuf = buf; ---- 1122,1138 ---- - static int - luaV_buffer_newindex(lua_State *L) - { -! buf_T *b = (buf_T *) luaV_checkvalid(L, luaV_Buffer, 1); - linenr_T n = (linenr_T) luaL_checkinteger(L, 2); - #ifdef HAVE_SANDBOX - luaV_checksandbox(L); - #endif -! if (n < 1 || n > b->b_ml.ml_line_count) - luaL_error(L, "invalid line number"); - if (lua_isnil(L, 3)) /* delete line */ - { - buf_T *buf = curbuf; -! curbuf = b; - if (u_savedel(n, 1L) == FAIL) - { - curbuf = buf; -*************** -*** 607,613 **** - } - else { - deleted_lines_mark(n, 1L); -! if (*b == curwin->w_buffer) /* fix cursor in current window? */ - { - if (curwin->w_cursor.lnum >= n) - { ---- 1145,1151 ---- - } - else { - deleted_lines_mark(n, 1L); -! if (b == curwin->w_buffer) /* fix cursor in current window? */ - { - if (curwin->w_cursor.lnum >= n) - { -*************** -*** 627,633 **** - else if (lua_isstring(L, 3)) /* update line */ - { - buf_T *buf = curbuf; -! curbuf = *b; - if (u_savesub(n) == FAIL) - { - curbuf = buf; ---- 1165,1171 ---- - else if (lua_isstring(L, 3)) /* update line */ - { - buf_T *buf = curbuf; -! curbuf = b; - if (u_savesub(n) == FAIL) - { - curbuf = buf; -*************** -*** 640,646 **** - } - else changed_bytes(n, 0); - curbuf = buf; -! if (*b == curwin->w_buffer) - check_cursor_col(); - } - else ---- 1178,1184 ---- - } - else changed_bytes(n, 0); - curbuf = buf; -! if (b == curwin->w_buffer) - check_cursor_col(); - } - else -*************** -*** 651,658 **** - static int - luaV_buffer_insert(lua_State *L) - { -! luaV_Buffer *b = luaV_checkudata(L, 1, LUAVIM_BUFFER); -! linenr_T last = (*b)->b_ml.ml_line_count; - linenr_T n = (linenr_T) luaL_optinteger(L, 3, last); - buf_T *buf; - luaL_checktype(L, 2, LUA_TSTRING); ---- 1189,1197 ---- - static int - luaV_buffer_insert(lua_State *L) - { -! luaV_Buffer *lb = luaV_checkudata(L, 1, LUAVIM_BUFFER); -! buf_T *b = (buf_T *) luaV_checkcache(L, (void *) *lb); -! linenr_T last = b->b_ml.ml_line_count; - linenr_T n = (linenr_T) luaL_optinteger(L, 3, last); - buf_T *buf; - luaL_checktype(L, 2, LUA_TSTRING); -*************** -*** 664,670 **** - if (n > last) n = last; - /* insert */ - buf = curbuf; -! curbuf = *b; - if (u_save(n, n + 1) == FAIL) - { - curbuf = buf; ---- 1203,1209 ---- - if (n > last) n = last; - /* insert */ - buf = curbuf; -! curbuf = b; - if (u_save(n, n + 1) == FAIL) - { - curbuf = buf; -*************** -*** 686,692 **** - luaV_buffer_next(lua_State *L) - { - luaV_Buffer *b = luaV_checkudata(L, 1, LUAVIM_BUFFER); -! luaV_pushbuffer(L, (*b)->b_next); - return 1; - } - ---- 1225,1232 ---- - luaV_buffer_next(lua_State *L) - { - luaV_Buffer *b = luaV_checkudata(L, 1, LUAVIM_BUFFER); -! buf_T *buf = (buf_T *) luaV_checkcache(L, (void *) *b); -! luaV_pushbuffer(L, buf->b_next); - return 1; - } - -*************** -*** 694,700 **** - luaV_buffer_previous(lua_State *L) - { - luaV_Buffer *b = luaV_checkudata(L, 1, LUAVIM_BUFFER); -! luaV_pushbuffer(L, (*b)->b_prev); - return 1; - } - ---- 1234,1241 ---- - luaV_buffer_previous(lua_State *L) - { - luaV_Buffer *b = luaV_checkudata(L, 1, LUAVIM_BUFFER); -! buf_T *buf = (buf_T *) luaV_checkcache(L, (void *) *b); -! luaV_pushbuffer(L, buf->b_prev); - return 1; - } - -*************** -*** 702,709 **** - luaV_buffer_isvalid(lua_State *L) - { - luaV_Buffer *b = luaV_checkudata(L, 1, LUAVIM_BUFFER); -! lua_pushlightuserdata(L, (void *) (*b)); -! lua_rawget(L, LUA_ENVIRONINDEX); - lua_pushboolean(L, !lua_isnil(L, -1)); - return 1; - } ---- 1243,1249 ---- - luaV_buffer_isvalid(lua_State *L) - { - luaV_Buffer *b = luaV_checkudata(L, 1, LUAVIM_BUFFER); -! luaV_getudata(L, *b); - lua_pushboolean(L, !lua_isnil(L, -1)); - return 1; - } -*************** -*** 724,801 **** - - /* ======= Window type ======= */ - -! static luaV_Window * -! luaV_newwindow(lua_State *L, win_T *win) -! { -! luaV_Window *w = (luaV_Window *) lua_newuserdata(L, sizeof(luaV_Window)); -! *w = win; -! lua_pushlightuserdata(L, (void *) win); -! lua_pushvalue(L, -2); -! lua_rawset(L, LUA_ENVIRONINDEX); /* env[win] = udata */ -! /* to avoid GC, store as key in env */ -! lua_pushvalue(L, -1); -! lua_pushboolean(L, 1); -! lua_rawset(L, LUA_ENVIRONINDEX); /* env[udata] = true */ -! /* set metatable */ -! luaV_getfield(L, LUAVIM_WINDOW); -! lua_setmetatable(L, -2); -! return w; -! } -! -! static luaV_Window * -! luaV_pushwindow(lua_State *L, win_T *win) -! { -! luaV_Window *w = NULL; -! if (win == NULL) -! lua_pushnil(L); -! else { -! lua_pushlightuserdata(L, (void *) win); -! lua_rawget(L, LUA_ENVIRONINDEX); -! if (lua_isnil(L, -1)) /* not interned? */ -! { -! lua_pop(L, 1); -! w = luaV_newwindow(L, win); -! } -! else w = (luaV_Window *) lua_touserdata(L, -1); -! } -! return w; -! } -! -! /* Window metamethods */ -! -! static int -! luaV_window_tostring(lua_State *L) -! { -! lua_pushfstring(L, "%s: %p", LUAVIM_WINDOW, lua_touserdata(L, 1)); -! return 1; -! } - - static int - luaV_window_call(lua_State *L) - { -! luaV_Window *w = (luaV_Window *) lua_touserdata(L, 1); - lua_settop(L, 1); -! win_goto(*w); - return 1; - } - - static int - luaV_window_index(lua_State *L) - { -! luaV_Window *w = (luaV_Window *) lua_touserdata(L, 1); - const char *s = luaL_checkstring(L, 2); - if (strncmp(s, "buffer", 6) == 0) -! luaV_pushbuffer(L, (*w)->w_buffer); - else if (strncmp(s, "line", 4) == 0) -! lua_pushinteger(L, (*w)->w_cursor.lnum); - else if (strncmp(s, "col", 3) == 0) -! lua_pushinteger(L, (*w)->w_cursor.col + 1); - #ifdef FEAT_VERTSPLIT - else if (strncmp(s, "width", 5) == 0) -! lua_pushinteger(L, W_WIDTH((*w))); - #endif - else if (strncmp(s, "height", 6) == 0) -! lua_pushinteger(L, (*w)->w_height); - /* methods */ - else if (strncmp(s, "next", 4) == 0 - || strncmp(s, "previous", 8) == 0 ---- 1264,1299 ---- - - /* ======= Window type ======= */ - -! luaV_newtype(win_T, window, luaV_Window, LUAVIM_WINDOW) -! luaV_pushtype(win_T, window, luaV_Window) -! luaV_type_tostring(window, LUAVIM_WINDOW) - - static int - luaV_window_call(lua_State *L) - { -! win_T *w = (win_T *) luaV_checkvalid(L, luaV_Window, 1); - lua_settop(L, 1); -! win_goto(w); - return 1; - } - - static int - luaV_window_index(lua_State *L) - { -! win_T *w = (win_T *) luaV_checkvalid(L, luaV_Window, 1); - const char *s = luaL_checkstring(L, 2); - if (strncmp(s, "buffer", 6) == 0) -! luaV_pushbuffer(L, w->w_buffer); - else if (strncmp(s, "line", 4) == 0) -! lua_pushinteger(L, w->w_cursor.lnum); - else if (strncmp(s, "col", 3) == 0) -! lua_pushinteger(L, w->w_cursor.col + 1); - #ifdef FEAT_VERTSPLIT - else if (strncmp(s, "width", 5) == 0) -! lua_pushinteger(L, W_WIDTH(w)); - #endif - else if (strncmp(s, "height", 6) == 0) -! lua_pushinteger(L, w->w_height); - /* methods */ - else if (strncmp(s, "next", 4) == 0 - || strncmp(s, "previous", 8) == 0 -*************** -*** 812,818 **** - static int - luaV_window_newindex (lua_State *L) - { -! luaV_Window *w = (luaV_Window *) lua_touserdata(L, 1); - const char *s = luaL_checkstring(L, 2); - int v = luaL_checkinteger(L, 3); - if (strncmp(s, "line", 4) == 0) ---- 1310,1316 ---- - static int - luaV_window_newindex (lua_State *L) - { -! win_T *w = (win_T *) luaV_checkvalid(L, luaV_Window, 1); - const char *s = luaL_checkstring(L, 2); - int v = luaL_checkinteger(L, 3); - if (strncmp(s, "line", 4) == 0) -*************** -*** 820,828 **** - #ifdef HAVE_SANDBOX - luaV_checksandbox(L); - #endif -! if (v < 1 || v > (*w)->w_buffer->b_ml.ml_line_count) - luaL_error(L, "line out of range"); -! (*w)->w_cursor.lnum = v; - update_screen(VALID); - } - else if (strncmp(s, "col", 3) == 0) ---- 1318,1326 ---- - #ifdef HAVE_SANDBOX - luaV_checksandbox(L); - #endif -! if (v < 1 || v > w->w_buffer->b_ml.ml_line_count) - luaL_error(L, "line out of range"); -! w->w_cursor.lnum = v; - update_screen(VALID); - } - else if (strncmp(s, "col", 3) == 0) -*************** -*** 830,836 **** - #ifdef HAVE_SANDBOX - luaV_checksandbox(L); - #endif -! (*w)->w_cursor.col = v - 1; - update_screen(VALID); - } - #ifdef FEAT_VERTSPLIT ---- 1328,1334 ---- - #ifdef HAVE_SANDBOX - luaV_checksandbox(L); - #endif -! w->w_cursor.col = v - 1; - update_screen(VALID); - } - #ifdef FEAT_VERTSPLIT -*************** -*** 840,846 **** - #ifdef FEAT_GUI - need_mouse_correct = TRUE; - #endif -! curwin = *w; - win_setwidth(v); - curwin = win; - } ---- 1338,1344 ---- - #ifdef FEAT_GUI - need_mouse_correct = TRUE; - #endif -! curwin = w; - win_setwidth(v); - curwin = win; - } -*************** -*** 851,857 **** - #ifdef FEAT_GUI - need_mouse_correct = TRUE; - #endif -! curwin = *w; - win_setheight(v); - curwin = win; - } ---- 1349,1355 ---- - #ifdef FEAT_GUI - need_mouse_correct = TRUE; - #endif -! curwin = w; - win_setheight(v); - curwin = win; - } -*************** -*** 864,870 **** - luaV_window_next(lua_State *L) - { - luaV_Window *w = luaV_checkudata(L, 1, LUAVIM_WINDOW); -! luaV_pushwindow(L, (*w)->w_next); - return 1; - } - ---- 1362,1369 ---- - luaV_window_next(lua_State *L) - { - luaV_Window *w = luaV_checkudata(L, 1, LUAVIM_WINDOW); -! win_T *win = (win_T *) luaV_checkcache(L, (void *) *w); -! luaV_pushwindow(L, win->w_next); - return 1; - } - -*************** -*** 872,878 **** - luaV_window_previous(lua_State *L) - { - luaV_Window *w = luaV_checkudata(L, 1, LUAVIM_WINDOW); -! luaV_pushwindow(L, (*w)->w_prev); - return 1; - } - ---- 1371,1378 ---- - luaV_window_previous(lua_State *L) - { - luaV_Window *w = luaV_checkudata(L, 1, LUAVIM_WINDOW); -! win_T *win = (win_T *) luaV_checkcache(L, (void *) *w); -! luaV_pushwindow(L, win->w_prev); - return 1; - } - -*************** -*** 880,887 **** - luaV_window_isvalid(lua_State *L) - { - luaV_Window *w = luaV_checkudata(L, 1, LUAVIM_WINDOW); -! lua_pushlightuserdata(L, (void *) (*w)); -! lua_rawget(L, LUA_ENVIRONINDEX); - lua_pushboolean(L, !lua_isnil(L, -1)); - return 1; - } ---- 1380,1386 ---- - luaV_window_isvalid(lua_State *L) - { - luaV_Window *w = luaV_checkudata(L, 1, LUAVIM_WINDOW); -! luaV_getudata(L, *w); - lua_pushboolean(L, !lua_isnil(L, -1)); - return 1; - } -*************** -*** 983,988 **** ---- 1482,1509 ---- - } - - static int -+ luaV_list(lua_State *L) -+ { -+ list_T *l = list_alloc(); -+ if (l == NULL) -+ lua_pushnil(L); -+ else -+ luaV_newlist(L, l); -+ return 1; -+ } -+ -+ static int -+ luaV_dict(lua_State *L) -+ { -+ dict_T *d = dict_alloc(); -+ if (d == NULL) -+ lua_pushnil(L); -+ else -+ luaV_newdict(L, d); -+ return 1; -+ } -+ -+ static int - luaV_buffer(lua_State *L) - { - buf_T *buf; -*************** -*** 1008,1022 **** - break; - } - } -- if (buf == NULL) /* not found? */ -- lua_pushnil(L); -- else -- luaV_pushbuffer(L, buf); - } -! else { - buf = (lua_toboolean(L, 1)) ? firstbuf : curbuf; /* first buffer? */ -! luaV_pushbuffer(L, buf); -! } - return 1; - } - ---- 1529,1538 ---- - break; - } - } - } -! else - buf = (lua_toboolean(L, 1)) ? firstbuf : curbuf; /* first buffer? */ -! luaV_pushbuffer(L, buf); - return 1; - } - -*************** -*** 1029,1043 **** - int n = lua_tointeger(L, 1); - for (win = firstwin; win != NULL; win = win->w_next, n--) - if (n == 1) break; -- if (win == NULL) /* not found? */ -- lua_pushnil(L); -- else -- luaV_pushwindow(L, win); - } -! else { - win = (lua_toboolean(L, 1)) ? firstwin : curwin; /* first window? */ -! luaV_pushwindow(L, win); -! } - return 1; - } - ---- 1545,1554 ---- - int n = lua_tointeger(L, 1); - for (win = firstwin; win != NULL; win = win->w_next, n--) - if (n == 1) break; - } -! else - win = (lua_toboolean(L, 1)) ? firstwin : curwin; /* first window? */ -! luaV_pushwindow(L, win); - return 1; - } - -*************** -*** 1054,1086 **** - } - - static int -! luaV_isbuffer(lua_State *L) -! { -! lua_pushboolean(L, luaV_toudata(L, 1, LUAVIM_BUFFER) != NULL); -! return 1; -! } -! -! static int -! luaV_iswindow(lua_State *L) - { -! lua_pushboolean(L, luaV_toudata(L, 1, LUAVIM_WINDOW) != NULL); -! return 1; -! } -! -! /* for freeing buffer and window objects; lightuserdata as arg */ -! static int -! luaV_free(lua_State *L) -! { -! lua_pushvalue(L, 1); /* lightudata */ -! lua_rawget(L, LUA_ENVIRONINDEX); -! if (!lua_isnil(L, -1)) - { -! lua_pushnil(L); -! lua_rawset(L, LUA_ENVIRONINDEX); /* env[udata] = nil */ -! lua_pushnil(L); -! lua_rawset(L, LUA_ENVIRONINDEX); /* env[lightudata] = nil */ - } -! return 0; - } - - static const luaL_Reg luaV_module[] = { ---- 1565,1606 ---- - } - - static int -! luaV_type(lua_State *L) - { -! luaL_checkany(L, 1); -! if (lua_type(L, 1) == LUA_TUSERDATA) /* check vim udata? */ - { -! lua_settop(L, 1); -! if (lua_getmetatable(L, 1)) -! { -! luaV_getfield(L, LUAVIM_LIST); -! if (lua_rawequal(L, -1, 2)) -! { -! lua_pushstring(L, "list"); -! return 1; -! } -! luaV_getfield(L, LUAVIM_DICT); -! if (lua_rawequal(L, -1, 2)) -! { -! lua_pushstring(L, "dict"); -! return 1; -! } -! luaV_getfield(L, LUAVIM_BUFFER); -! if (lua_rawequal(L, -1, 2)) -! { -! lua_pushstring(L, "buffer"); -! return 1; -! } -! luaV_getfield(L, LUAVIM_WINDOW); -! if (lua_rawequal(L, -1, 2)) -! { -! lua_pushstring(L, "window"); -! return 1; -! } -! } - } -! lua_pushstring(L, luaL_typename(L, 1)); /* fallback */ -! return 1; - } - - static const luaL_Reg luaV_module[] = { -*************** -*** 1088,1111 **** - {"eval", luaV_eval}, - {"beep", luaV_beep}, - {"line", luaV_line}, - {"buffer", luaV_buffer}, - {"window", luaV_window}, - {"open", luaV_open}, -! {"isbuffer", luaV_isbuffer}, -! {"iswindow", luaV_iswindow}, - {NULL, NULL} - }; - - static int - luaopen_vim(lua_State *L) - { -! /* set environment */ - lua_newtable(L); - lua_newtable(L); -! lua_pushliteral(L, "v"); - lua_setfield(L, -2, "__mode"); -! lua_setmetatable(L, -2); -! lua_replace(L, LUA_ENVIRONINDEX); - /* print */ - lua_pushcfunction(L, luaV_print); - lua_setglobal(L, "print"); ---- 1608,1695 ---- - {"eval", luaV_eval}, - {"beep", luaV_beep}, - {"line", luaV_line}, -+ {"list", luaV_list}, -+ {"dict", luaV_dict}, - {"buffer", luaV_buffer}, - {"window", luaV_window}, - {"open", luaV_open}, -! {"type", luaV_type}, - {NULL, NULL} - }; - -+ /* for freeing list, dict, buffer and window objects; lightuserdata as arg */ -+ static int -+ luaV_free(lua_State *L) -+ { -+ lua_pushnil(L); -+ luaV_setudata(L, lua_touserdata(L, 1)); -+ return 0; -+ } -+ -+ static int -+ luaV_luaeval (lua_State *L) -+ { -+ luaL_Buffer b; -+ size_t l; -+ const char *str = lua_tolstring(L, 1, &l); -+ typval_T *arg = (typval_T *) lua_touserdata(L, 2); -+ typval_T *rettv = (typval_T *) lua_touserdata(L, 3); -+ luaL_buffinit(L, &b); -+ luaL_addlstring(&b, LUAVIM_EVALHEADER, sizeof(LUAVIM_EVALHEADER) - 1); -+ luaL_addlstring(&b, str, l); -+ luaL_pushresult(&b); -+ str = lua_tolstring(L, -1, &l); -+ if (luaL_loadbuffer(L, str, l, LUAVIM_EVALNAME)) /* compile error? */ -+ { -+ luaV_emsg(L); -+ return 0; -+ } -+ luaV_pushtypval(L, arg); -+ if (lua_pcall(L, 1, 1, 0)) /* running error? */ -+ { -+ luaV_emsg(L); -+ return 0; -+ } -+ luaV_totypval(L, -1, rettv); -+ return 0; -+ } -+ -+ static int -+ luaV_setref (lua_State *L) -+ { -+ int copyID = lua_tointeger(L, 1); -+ typval_T tv; -+ luaV_getfield(L, LUAVIM_LIST); -+ luaV_getfield(L, LUAVIM_DICT); -+ lua_pushnil(L); -+ while (lua_next(L, lua_upvalueindex(1)) != 0) /* traverse cache table */ -+ { -+ lua_getmetatable(L, -1); -+ if (lua_rawequal(L, -1, 2)) /* list? */ -+ { -+ tv.v_type = VAR_LIST; -+ tv.vval.v_list = (list_T *) lua_touserdata(L, 4); /* key */ -+ } -+ else if (lua_rawequal(L, -1, 3)) /* dict? */ -+ { -+ tv.v_type = VAR_DICT; -+ tv.vval.v_dict = (dict_T *) lua_touserdata(L, 4); /* key */ -+ } -+ lua_pop(L, 2); /* metatable and value */ -+ set_ref_in_tv(&tv, copyID); -+ } -+ return 0; -+ } -+ - static int - luaopen_vim(lua_State *L) - { -! /* set cache table */ - lua_newtable(L); - lua_newtable(L); -! lua_pushstring(L, "v"); - lua_setfield(L, -2, "__mode"); -! lua_setmetatable(L, -2); /* cache is weak-valued */ - /* print */ - lua_pushcfunction(L, luaV_print); - lua_setglobal(L, "print"); -*************** -*** 1116,1129 **** - lua_pop(L, 1); - /* free */ - lua_pushlightuserdata(L, (void *) LUAVIM_FREE); -! lua_pushcfunction(L, luaV_free); - lua_rawset(L, LUA_REGISTRYINDEX); - /* register */ - luaV_newmetatable(L, LUAVIM_BUFFER); -! luaL_register(L, NULL, luaV_Buffer_mt); - luaV_newmetatable(L, LUAVIM_WINDOW); -! luaL_register(L, NULL, luaV_Window_mt); -! luaL_register(L, LUAVIM_NAME, luaV_module); - return 0; - } - ---- 1700,1735 ---- - lua_pop(L, 1); - /* free */ - lua_pushlightuserdata(L, (void *) LUAVIM_FREE); -! lua_pushvalue(L, 1); /* cache table */ -! lua_pushcclosure(L, luaV_free, 1); -! lua_rawset(L, LUA_REGISTRYINDEX); -! /* luaeval */ -! lua_pushlightuserdata(L, (void *) LUAVIM_LUAEVAL); -! lua_pushvalue(L, 1); /* cache table */ -! lua_pushcclosure(L, luaV_luaeval, 1); -! lua_rawset(L, LUA_REGISTRYINDEX); -! /* setref */ -! lua_pushlightuserdata(L, (void *) LUAVIM_SETREF); -! lua_pushvalue(L, 1); /* cache table */ -! lua_pushcclosure(L, luaV_setref, 1); - lua_rawset(L, LUA_REGISTRYINDEX); - /* register */ -+ luaV_newmetatable(L, LUAVIM_LIST); -+ lua_pushvalue(L, 1); -+ luaV_openlib(L, luaV_List_mt, 1); -+ luaV_newmetatable(L, LUAVIM_DICT); -+ lua_pushvalue(L, 1); -+ luaV_openlib(L, luaV_Dict_mt, 1); - luaV_newmetatable(L, LUAVIM_BUFFER); -! lua_pushvalue(L, 1); /* cache table */ -! luaV_openlib(L, luaV_Buffer_mt, 1); - luaV_newmetatable(L, LUAVIM_WINDOW); -! lua_pushvalue(L, 1); /* cache table */ -! luaV_openlib(L, luaV_Window_mt, 1); -! lua_newtable(L); /* vim table */ -! lua_pushvalue(L, 1); /* cache table */ -! luaV_openlib(L, luaV_module, 1); -! lua_setglobal(L, LUAVIM_NAME); - return 0; - } - -*************** -*** 1154,1160 **** - static lua_State *L = NULL; - - static int -! lua_is_open(void) - { - return L != NULL; - } ---- 1760,1766 ---- - static lua_State *L = NULL; - - static int -! lua_isopen(void) - { - return L != NULL; - } -*************** -*** 1162,1168 **** - static int - lua_init(void) - { -! if (L == NULL) - { - #ifdef DYNAMIC_LUA - if (!lua_enabled(TRUE)) ---- 1768,1774 ---- - static int - lua_init(void) - { -! if (!lua_isopen()) - { - #ifdef DYNAMIC_LUA - if (!lua_enabled(TRUE)) -*************** -*** 1179,1185 **** - void - lua_end(void) - { -! if (L != NULL) - { - lua_close(L); - L = NULL; ---- 1785,1791 ---- - void - lua_end(void) - { -! if (lua_isopen()) - { - lua_close(L); - L = NULL; -*************** -*** 1273,1295 **** - } - } - -! /* buffer */ - void -! lua_buffer_free(buf_T *buf) - { -! if (!lua_is_open()) return; -! luaV_getfield(L, LUAVIM_FREE); -! lua_pushlightuserdata(L, (void *) buf); -! lua_call(L, 1, 0); - } - -- /* window */ - void -! lua_window_free(win_T *win) - { -! if (!lua_is_open()) return; -! luaV_getfield(L, LUAVIM_FREE); -! lua_pushlightuserdata(L, (void *) win); - lua_call(L, 1, 0); - } - ---- 1879,1914 ---- - } - } - -! #define luaV_freetype(typ,tname) \ -! void \ -! lua_##tname##_free(typ *o) \ -! { \ -! if (!lua_isopen()) return; \ -! luaV_getfield(L, LUAVIM_FREE); \ -! lua_pushlightuserdata(L, (void *) o); \ -! lua_call(L, 1, 0); \ -! } -! -! luaV_freetype(buf_T, buffer) -! luaV_freetype(win_T, window) -! - void -! do_luaeval (char_u *str, typval_T *arg, typval_T *rettv) - { -! lua_init(); -! luaV_getfield(L, LUAVIM_LUAEVAL); -! lua_pushstring(L, (char *) str); -! lua_pushlightuserdata(L, (void *) arg); -! lua_pushlightuserdata(L, (void *) rettv); -! lua_call(L, 3, 0); - } - - void -! set_ref_in_lua (int copyID) - { -! if (!lua_isopen()) return; -! luaV_getfield(L, LUAVIM_SETREF); -! lua_pushinteger(L, copyID); - lua_call(L, 1, 0); - } - -*** ../vim-7.3.489/src/proto/if_lua.pro 2010-08-15 21:57:28.000000000 +0200 ---- src/proto/if_lua.pro 2012-04-05 16:41:35.000000000 +0200 -*************** -*** 6,9 **** ---- 6,11 ---- - void ex_luafile __ARGS((exarg_T *eap)); - void lua_buffer_free __ARGS((buf_T *buf)); - void lua_window_free __ARGS((win_T *win)); -+ void do_luaeval __ARGS((char_u *str, typval_T *arg, typval_T *rettv)); -+ void set_ref_in_lua __ARGS((int copyID)); - /* vim: set ft=c : */ -*** ../vim-7.3.489/src/version.c 2012-04-05 16:07:01.000000000 +0200 ---- src/version.c 2012-04-05 16:52:08.000000000 +0200 -*************** -*** 716,717 **** ---- 716,719 ---- - { /* Add new patch number below this line */ -+ /**/ -+ 490, - /**/ - --- -Even got a Datapoint 3600(?) with a DD50 connector instead of the -usual DB25... what a nightmare trying to figure out the pinout -for *that* with no spex... - - /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net \\\ -/// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\ -\\\ an exciting new programming language -- http://www.Zimbu.org /// - \\\ help me help AIDS victims -- http://ICCF-Holland.org /// |