elua: fix xgettext --extract-all
This commit is contained in:
parent
378b376cc8
commit
ef2ad4f473
|
@ -147,15 +147,23 @@ local parse_all = function(ls)
|
||||||
local tok = ls.token
|
local tok = ls.token
|
||||||
while tok.name ~= "<eof>" do
|
while tok.name ~= "<eof>" do
|
||||||
if tok.name == "<comment>" then
|
if tok.name == "<comment>" then
|
||||||
saved_comment = tok.value
|
saved_comments[#saved_comments + 1] = tok.value
|
||||||
|
ls:get()
|
||||||
|
elseif tok.name == "<flagcomment>" then
|
||||||
|
saved_flagcomments[#saved_flagcomments + 1] = tok.value
|
||||||
ls:get()
|
ls:get()
|
||||||
elseif tok.name == "<string>" then
|
elseif tok.name == "<string>" then
|
||||||
local line = ls.line_number
|
local line = ls.line_number
|
||||||
local val = tok.value
|
local val = tok.value
|
||||||
local sc = saved_comment
|
local sc = saved_comments
|
||||||
saved_comment = nil
|
saved_comments = {}
|
||||||
|
sc = tconc(sc, "\n")
|
||||||
|
local fsc = saved_flagcomments
|
||||||
|
saved_flagcomments = {}
|
||||||
ls:get()
|
ls:get()
|
||||||
yield { val, comment = sc, line = line }
|
yield {
|
||||||
|
val, comment = sc, line = line, flags = fsc
|
||||||
|
}
|
||||||
else
|
else
|
||||||
ls:get()
|
ls:get()
|
||||||
end
|
end
|
||||||
|
|
Loading…
Reference in New Issue