1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
-- Copyright 2007-2021 Mitchell. See LICENSE.
local M = {}
--[[ This comment is for LuaDoc.
---
-- The ansi_c module.
-- It provides utilities for editing C code.
-- @field autocomplete_snippets (boolean)
-- Whether or not to include snippets in autocompletion lists.
-- The default value is `true`.
module('_M.ansi_c')]]
-- Autocompletion and documentation.
---
-- List of ctags files to use for autocompletion in addition to the current
-- project's top-level *tags* file or the current directory's *tags* file.
-- @class table
-- @name tags
M.tags = {
_HOME .. '/modules/ansi_c/tags', _HOME .. '/modules/ansi_c/lua_tags',
_USERHOME .. '/modules/ansi_c/tags'
}
M.autocomplete_snippets = true
local XPM = textadept.editing.XPM_IMAGES
local xpms = setmetatable({c=XPM.CLASS,d=XPM.SLOT,e=XPM.VARIABLE,f=XPM.METHOD,g=XPM.TYPEDEF,m=XPM.VARIABLE,s=XPM.STRUCT,t=XPM.TYPEDEF,v=XPM.VARIABLE},{__index=function()return 0 end})
textadept.editing.autocompleters.ansi_c = function()
-- Retrieve the symbol behind the caret.
local line, pos = buffer:get_cur_line()
local symbol, op, part = line:sub(1, pos - 1):match(
'([%w_]-)([%.%->]*)([%w_]*)$')
if symbol == '' and part == '' then return nil end -- nothing to complete
if op ~= '' and op ~= '.' and op ~= '->' then return nil end
-- Attempt to identify the symbol type.
if symbol ~= '' then
local decl = '([%w_]+)[%s%*&]+' .. symbol:gsub('%p', '%%%0') .. '[^%w_]'
for i = buffer:line_from_position(buffer.current_pos) - 1, 1, -1 do
local class = buffer:get_line(i):match(decl)
if class then symbol = class break end
end
end
-- Search through ctags for completions for that symbol.
local tags_files = {}
for i = 1, #M.tags do tags_files[#tags_files + 1] = M.tags[i] end
tags_files[#tags_files + 1] =
(io.get_project_root(buffer.filename) or lfs.currentdir()) .. '/tags'
local name_patt = '^' .. part
local sep = string.char(buffer.auto_c_type_separator)
::rescan::
local list = {}
for _, filename in ipairs(tags_files) do
if not lfs.attributes(filename) then goto continue end
for tag_line in io.lines(filename) do
local name = tag_line:match('^%S+')
if (name:find(name_patt) and not name:find('^!') and not list[name]) or
name == symbol and op == '' then
local fields = tag_line:match(';"\t(.*)$')
local type = fields:match('class:(%S+)') or
fields:match('enum:(%S+)') or fields:match('struct:(%S+)') or ''
if type == symbol then
list[#list + 1] = name .. sep .. xpms[fields:sub(1, 1)]
list[name] = true
elseif name == symbol and fields:match('typeref:') then
-- For typeref, change the lookup symbol to the referenced name and
-- rescan tags files.
symbol = fields:match('[^:]+$')
goto rescan
end
end
end
::continue::
end
if symbol == '' and M.autocomplete_snippets then
local _, snippets = textadept.editing.autocompleters.snippet()
for i = 1, #snippets do list[#list + 1] = snippets[i] end
end
return #part, list
end
for _, tags in ipairs(M.tags) do
table.insert(textadept.editing.api_files.ansi_c, (tags:gsub('tags$', 'api')))
end
-- Snippets.
local snip = snippets.ansi_c
snip.func = '%1(int) %2(name)(%3(args)) {\n\t%0\n\treturn %4(0);\n}'
snip.vfunc = 'void %1(name)(%2(args)) {\n\t%0\n}'
snip['if'] = 'if (%1) {\n\t%0\n}'
snip.eif = 'else if (%1) {\n\t%0\n}'
snip['else'] = 'else {\n\t%0\n}'
snip['for'] = 'for (%1; %2; %3) {\n\t%0\n}'
snip['fori'] =
'for (%1(int) %2(i) = %3(0); %2 %4(<) %5(count); %2%6(++)) {\n\t%0\n}'
snip['while'] = 'while (%1) {\n\t%0\n}'
snip['do'] = 'do {\n\t%0\n} while (%1);'
snip.sw = 'switch (%1) {\n\tcase %2:\n\t\t%0\n\t\tbreak;\n}'
snip.case = 'case %1:\n\t%0\n\tbreak;'
snip.st = 'struct %1(name) {\n\t%0\n};'
snip.td = 'typedef %1(int) %2(name_t);'
snip.tds = 'typedef struct %1(name) {\n\t%0\n} %1%2(_t);'
snip.def = '#define %1(name) %2(value)'
snip.inc = '#include "%1"'
snip.Inc = '#include <%1>'
snip.pif = '#if %1\n%0\n#endif'
snip.main = 'int main(int argc, const char **argv) {\n\t%0\n\treturn 0;\n}'
snip.printf = 'printf("%1(%s)\\n", %2);'
return M
|
