Easy text translation

local translated={}
 
pcall(function() require "lsqlite3" end)
src_db="retrostar.db"
dst_db="|T|retrostar.db"
if file_exists(dst_db) then
	file_delete(dst_db)
end
file_copy(src_db,dst_db)
 
if sqlite3 then
	local db=sqlite3.open(dst_db,sqlite3.OPEN_READONLY)
	if db then
		local sql=db:execute("PRAGMA temp_store=2;")
 
		osLanguage=lower(application:getLanguage())
		--osLanguage="se"
 
		if osLanguage~="en" then
			local found=false
			local sql=db:prepare("PRAGMA table_info(languages);")
			if sql then
				for n,l in sql:urows() do
					if l==osLanguage then
						found=true
						break
					end
				end
			end
 
			if found then
				local sql=db:prepare("SELECT en,"..osLanguage.." FROM languages;")
				if sql then
					for w,t in sql:urows() do
						if t and t~="" then
							t=gsub(t,"ę","e")	-- replace letters our font doesn't have
							t=gsub(t,"’","'")
							t=gsub(t,"…","...")
						end
						translated[w]=t
					end
				end
			end
		end
 
		db:close()
	end
end
 
local function translate(t)
	return translated[t] or t
end

function file_copy(src,dst)
	local srcf=io.open(src,"rb")
	if srcf then
		local dstf=io.open(dst,"wb")
		if dstf then
			local size=8*1024
			while true do
				local block=srcf:read(size)
				if not block then break end
				dstf:write(block)
			end
			dstf:close()
		end
		srcf:close()
	end
end
 
--to check if file exists
function file_exists(name)
   local f=io.open(name,"rb")
   if f==nil then return false end
   f:close()
   return true
end
 
--to delete a file
function file_delete(name)
	if file_exists(name) then
		os.remove(name)
	end
end

txt=TextField(myFont,translate("Start Game")

--osLanguage="se"