init

tools/compile.lua

@@ -0,0 +1,79 @@
+#!/usr/bin/lua
+-- els to lua translator
+--- (c) Er2 2021 <er2@dismail.de>
+--- Zlib license
+
+print '[1/4] Enter translation directory (without / at end)'
+local dir = io.read()
+
+local loc = {}
+
+if not io.open(dir..'/LINGUAS') then
+  print '[2/4] Enter languages divided by space'
+  local l = io.read() .. ' '
+  for v in l:gmatch '([%w_]+)%s+' do table.insert(loc, v) end
+else
+  print '[2/4] Reading LINGUAS'
+  local f = io.open(dir..'/LINGUAS')
+  for v in f:read('*a'):gmatch '([^\n]+)' do table.insert(loc, v) end
+  f:close()
+end
+
+print '[3/4] Generating locales'
+local t = os.time()
+local lf = io.open(dir..'/loc.lua', 'w')
+local k, v = 1
+lf:write 'return{'
+repeat v = loc[k]
+  local f = io.open(dir..'/'..v..'.els')
+  if f then print('  Generating', v)
+    local tr = f:read '*a'
+    f:close()
+    lf:write(('%s={'):format(v))
+    local trl, s = {}
+    tr = tr..'\n\b'
+    for l in tr:gmatch '([^\n]+)' do
+      local str = l:match '^%s*"(.+)"%s*$'
+      if l == '\b' or (str and str ~= s) then
+        for _, v in pairs(trl) do
+          v = v:gsub('\\(%$[%w_]+)', '\\\\%1')
+          lf:write(('"%s",'):format(v))
+        end
+        if s then lf:write '},' end
+        trl, s = {str}, str
+        if s then
+          print('   |> String', s)
+          lf:write(('["%s"]={'):format(s))
+        end
+      end
+
+      str = l:match '^%s*=%s*"(.+)"%s*$'
+      if str and s then
+        print('    =>', str)
+        trl[1] = str
+      end
+      str = l:match '^%s*>%s*"(.+)"%s*$'
+      if str and s then
+        print('   ||>', str)
+        table.insert(trl, str)
+      end
+    end
+
+    lf:write '},'
+  else
+    print('  404 Not found', v)
+    table.remove(loc, k)
+    k = k - 1
+  end
+  k = k + 1
+  v = loc[k]
+until not v
+lf:write '}'
+lf:flush()
+lf:close()
+print(('%d seconds'):format(os.time() - t))
+
+print '[4/4] Locale linting'
+require(dir..'.loc')
+
+print 'Done!'

tools/po2els.lua

@@ -0,0 +1,60 @@
+#!/usr/bin/lua
+-- po to els translator
+--- (c) Er2 2021 <er2@dismail.de>
+--- Zlib license
+
+print '[1/3] Enter translation directory (without / at end)'
+local dir = io.read()
+
+local loc = {}
+
+if not io.open(dir..'/LINGUAS') then
+  print '[2/3] Enter languages divided by space'
+  local l = io.read() .. ' '
+  for v in l:gmatch '([%w_]+)%s+' do table.insert(loc, v) end
+else
+  print '[2/3] Reading LINGUAS'
+  local f = io.open(dir..'/LINGUAS')
+  for v in f:read('*a'):gmatch '([^\n]+)' do table.insert(loc, v) end
+  f:close()
+end
+
+print '[3/3] Generating els'
+local t = os.time()
+local w = 0
+local k, v = 1
+repeat v = loc[k]
+  local f = io.open(dir..'/'..v..'.po')
+  if f then print(' Generating', v)
+    local tr = f:read '*a'
+    f:close()
+    f = io.open(dir..'/'..v..'.els', 'w')
+    f:write 'Er2 Locale source file\n'
+    for l in tr:gmatch '[^\n]+' do
+      if l:match '%%%a' then w = w + 1
+        print('  WARN', 'Found printf string, not will be replaced')
+        print('  INFO', l)
+      end
+      l = l
+      :gsub('^%s*".*"%s*$', '')
+      :gsub('^msgid_plural.+', '')
+      :gsub('^msgid%s+"(.*)"', '"%1"')
+      :gsub('^msgstr%s+"(.*)"', ' = "%1"')
+      :gsub('^msgstr%s*%[%s*(%d+)%s*%]%s+(".*")', function(id, str)
+        return (id == '0' and ' = ' or ' > ') .. str end)
+      :gsub('^%s*[=>]?%s*""', '')
+      if #l > 0 then f:write(l, '\n') end
+    end
+    f:flush()
+    f:close()
+  else
+    print(' 404 Not found', v)
+    table.remove(loc, k)
+    k = k - 1
+  end
+  k = k + 1
+  v = loc[k]
+until not v
+print(('%d seconds, %d warnings'):format(os.time() - t, w))
+
+print 'Done!'