Completion caching (simplified)

.travis.yml

@@ -5,17 +5,18 @@ addons:
     packages:
     - lua5.2
 env:
-  - EVM_EMACS=emacs-24.3-travis
   - EVM_EMACS=emacs-24.4-travis
   - EVM_EMACS=emacs-24.5-travis
   - EVM_EMACS=emacs-25.1-travis
   - EVM_EMACS=emacs-25.2-travis
   - EVM_EMACS=emacs-25.3-travis
+  - EVM_EMACS=emacs-26.2-travis
 #   - EVM_EMACS=emacs-git-snapshot-travis
 before_install:
   - curl -fsSkL https://gist.github.com/rejeep/ebcd57c3af83b049833b/raw > travis.sh && source ./travis.sh
   - evm install "$EVM_EMACS" --use --skip
 install:
   - cask install
 script:
+  - make
   - make test

Makefile

@@ -1,6 +1,6 @@
 # Makefile for lua-mode
 
-VERSION="$(shell sed -nre '/^;; Version:/ { s/^;; Version:[ \t]+//; p }' lua-mode.el)"
+VERSION="$(shell perl -ne 'if(s/^;; Version:[ \t]+(.*)/$$1/){print; exit}' lua-mode.el)"
 DISTFILE = lua-mode-$(VERSION).zip
 
 # EMACS value may be overridden
@@ -10,8 +10,12 @@ LUA_MODE_ELC=lua-mode.$(EMACS_MAJOR_VERSION).elc
 
 EMACS_BATCH=$(EMACS) --batch -Q
 
+mkfile_path := $(abspath $(lastword $(MAKEFILE_LIST)))
+mkfile_dir := $(dir $(mkfile_path))
+export LUA_PATH = $(mkfile_dir)test/?.lua
+
 default:
-	@echo version is $(VERSION)
+	@echo version is $(VERSION), LUA_PATH is $(LUA_PATH)
 
 %.$(EMACS_MAJOR_VERSION).elc: %.elc
 	mv $< $@

README.md

@@ -46,6 +46,7 @@ hash-bang line (`#!/usr/bin/lua`). Putting this snippet to `.emacs` should be en
 - documentation lookup (using online/offline reference manual, e.g. [string.find](http://www.lua.org/manual/5.1/manual.html#pdf-string.find))
 - [imenu](http://www.gnu.org/software/emacs/manual/html_node/emacs/Imenu.html) integration
 - [HideShow](http://www.gnu.org/software/emacs/manual/html_node/emacs/Hideshow.html) integration
+- using `completion-at-point` queries active Lua subprocess for completion targets
 
 ## CUSTOMIZATION
 
@@ -56,6 +57,7 @@ The following variables are available for customization (see more via `M-x custo
 - Var `lua-mode-hook`: list of functions to execute when lua-mode is initialized
 - Var `lua-documentation-url` (default `"http://www.lua.org/manual/5.1/manual.html#pdf-"`): base URL for documentation lookup
 - Var `lua-documentation-function` (default `browse-url`): function used to show documentation (`eww` is a viable alternative for Emacs 25)
+- Var `lua-local-require-completions` (default `t`): set to `nil` to prevent completion attempting to load local libraries for current file for completion targets
 
 ## LUA SUBPROCESS CREATION
 

emacs_lua_complete.lua

@@ -0,0 +1,81 @@
+--    __emacs_lua_complete:
+-- This function finds and prints a limited number of matches on the
+-- lua globals tree, _G. See `lua-complete-string`. N.B.: Does not
+-- complete numeric keys (e.g. for arrays) or keys which begin with an
+-- underscore.
+-- Arguments:
+--   PARTS: a table array of dot-separated parts of the completion item
+--     (e.g. table.con would become {"table","con"}).  All but the last
+--     element must be valid subkeys in the _G heirarchy.
+--   LIBS: an array of tables of the form
+--       {var: varname, lib: libfile}
+--     for e.g. local varname=require("libfile"). This library will be
+--     require'd and searched alongside global variables.
+--   LOCALS: an array of strings parsed from local aloc,bloc = ... to
+--     complete as well
+--
+-- Example:
+-- __emacs_lua_complete({'table','ins'},{{var="xyz",lib="libfile"}},
+--                      {"frank","beans"},5000)
+--
+-- Written 2019/05 J.D. Smith
+function __emacs_lua_complete(parts,libs,locals,limit)
+   -- Setup a FIFO queue for breadth-first tree traversal
+   local queue={head=0,tail=0}
+   function queue:push(value)
+      self.tail=self.tail+1  self[self.tail]=value
+   end
+   function queue:pop()
+      self.head=self.head+1  return self[self.head]
+   end
+
+   -- Mirror the globals table
+   local globals,cnt,limit={},0,limit or 2000
+   for k,v in pairs(_G) do globals[k] = v end
+
+   -- Add libs and locals
+   if libs then
+      for _,v in ipairs(libs) do
+	 local good,lib=pcall(require,v.lib)
+	 globals[v.var]=good and lib or {}
+      end
+   end
+   if locals then
+      for _,v in ipairs(locals) do globals[v]={} end
+   end
+
+   -- Descend the tree to the limit of dotted parts
+   local g,pre=globals,""
+   for i=1,#parts do
+      if not g then break end	-- should always exist
+      if i<#parts then		-- keep descending
+	 pre = (i > 1 and pre.."." or "")..parts[i]
+	 g = g[parts[i]]
+      else  -- final part; seed the queue with any matching tables
+	 for k,v in pairs(g) do
+	    if type(k)=="string" and k:sub(1,1) ~= "_" and k:find('^'..parts[i]) then
+	       local dpath=(i > 1 and pre.."." or "")..k
+	       print(dpath)
+	       cnt=cnt+1
+	       if type(v)=="table" then queue:push({pre=dpath,entries=v}) end
+	    end
+	 end
+      end
+   end
+
+   -- Perform a limited breadth-first traversal of the queued tables
+   while queue.head < queue.tail and cnt < limit do
+      local q=queue:pop()
+      for k,v in pairs(q.entries) do
+	 if type(k) == "string" and k:sub(1,1) ~= "_" then 
+	    pre = q.pre.."."..k
+	    print(pre)
+	    cnt = cnt + 1
+	    if cnt >= limit then break end
+	    if type(v) == "table" then queue:push({pre=pre,entries=v}) end
+	 end
+      end
+   end
+end
+
+