14 lines
547 B
Lua
14 lines
547 B
Lua
local readfile = require'luametalatex-readfile'
|
|
|
|
local white = (lpeg.S'\0\9\10\12\13\32' + '%' * (1 - lpeg.S'\r\n')^0)^1
|
|
local regular = 1-lpeg.S'()<>[]{}/%\0\9\10\12\13\32'
|
|
local name = lpeg.C(regular^1)
|
|
local lname = '/' * name / 1
|
|
local namearray = lpeg.Ct('['*white^0*lpeg.Cg(lname*white^0, 0)^-1*(lname*white^0)^0*']')
|
|
local encfile = white^0*lname*white^0*namearray*white^0*'def'*white^0*-1
|
|
return function(filename)
|
|
local file <close> = readfile('enc', filename)
|
|
local name, encoding = encfile:match(file())
|
|
return encoding, name
|
|
end
|