-- all sanitized, store :)
keywords[kwb] = { context = context, argnum = tonumber(argnum),
- xcomment = xcmt, tonumber(n1), tonumber(n2) }
+ xcomment = xcmt, tonumber(n1) or 1, tonumber(n2) }
keywords[i] = nil
end
local f = io.open(fpath, "r")
fcontents = f:read("*all")
f:close()
+ fpath = "@" .. fpath
end
parsed_files[#parsed_files + 1] = generator.init(fpath, fcontents,
keywords, flags, add_loc, opts)
end
msg = ps()
end
+ return ret
end
local gen_line_info = function(chunkname, lines)
ret[#ret + 1] = "msgstr " .. gen_msgstr(msg[1], spf, ssf)
end
rets[#rets + 1] = tconc(ret, "\n")
- msg = ps()
end
return tconc(rets, "\n\n")
end }
\ No newline at end of file
local yield = coroutine.yield
local tconc = table.concat
+local max_custom_len = 79
+local max_fname_len = 72
+local max_str_len = 63
+
local source_to_msg = function(source)
local c = source:sub(1, 1)
local srclen = #source
local coro = coroutine.wrap(lex_main, ls)
ls.coro = coro
coro(ls)
- return coro
+ return ls
end, syntax_error = syntax_error, source_to_msg = source_to_msg }
\ No newline at end of file
break
end
end
+ return rets
end
local parse_call = function(ls)
local parse = function(ls, keywords)
yield()
local tok = ls.token
- while tok.name do
+ while tok.name ~= "<eof>" do
if tok.name == "<comment>" then
saved_comment = tok.value
ls:get()