Commit 9fea588c authored by Renato Figueiro Maia's avatar Renato Figueiro Maia

[OPENBUS-1798] Revisão rotineira da implementação do 'busservices'

- Inclusão da versão do 'busservices'
- Não exibir mais informações sobre threads
- Incluir informação de data e threads no log do OiL
- Formatação de valores includos em mensagens (tagging) em uma única linha
- Uniformizar a língua de todas as mensagens para inglês
- Mais informações nas mensagens e em algumas exceções lançadas

git-svn-id: https://subversion.tecgraf.puc-rio.br/engdist/openbus/sdk/lua/branches/openbus_v2_proto@130043 ae0415b3-e90b-0410-900d-d0be9363c56b
parent 374ba178
......@@ -24,20 +24,22 @@ local function makeaux(def, types, consts, excepts)
end
end
elseif def._type == "except" then
local message = { "$_repid:" }
for _, member in ipairs(def.members) do
local name = member.name
message[#message+1] = name..": $"..name
local message = def.absolute_name
local members = def.members
if #members > 0 then
local fields = {}
for index, member in ipairs(members) do
local name = member.name
fields[index] = name..": $"..name
end
message = message.." ("..concat(fields, ", ")..")"
end
message = concat(message, " ")
local repID = def.repID
types[name] = repID
local logmsg = name.." "
excepts[name] = function(fields)
log:exception(msg.ExceptionRaised:tag{
repid = repID,
fields = fields == nil and "none" or log.viewer:tostring(fields),
})
if fields == nil then fields = {} end
log:exception(logmsg:tag(fields))
fields[1] = message
fields._repid = repID
error(Exception(fields))
......
......@@ -2,22 +2,23 @@
local Verbose = require "loop.debug.Verbose"
local Viewer = require "loop.debug.Viewer"
local oilverbose = require "oil.verbose"
local oillog = require "oil.verbose"
oillog.showthread = true
oillog.timed = true
oillog:settimeformat("%d/%m/%Y %H:%M:%S") -- inclui data e hora no log do OiL
local log = Verbose{
showthread = true,
timed = true,
viewer = Viewer { -- define forma que valores Lua são exibidos
maxdepth = 2, -- nível de profundidade que tabelas são exibidas
indentation = "| ", -- indentação usada na exibição de tabelas
noindices = true,
labels = oilverbose.viewer.labels
viewer = Viewer{
maxdepth = 2,
labels = oillog.viewer.labels,
},
groups = {
{"error"}, -- erros lançados durante a execução do serviço
{"warn"}, -- condições adversas encontradas, mas que são ignoradas
{"info"}, -- informações de depuração para o adminstrador
{"debug"}, -- informações de depuração para usuários do serviço
{"version","error"},-- erros lanados durante a execuo do servio
{"warn"}, -- condies adversas encontradas, mas que so ignoradas
{"info"}, -- informaes de depurao para o adminstrador
{"debug"}, -- informaes de depurao para usurios do servio
{"extra"},
error = { "unexpected", "failure" },
......
......@@ -11,7 +11,13 @@ local table = require "loop.table"
local memoize = table.memoize
local Viewer = require "loop.debug.Viewer"
local viewer = Viewer{ newline="", identation="", maxdepth=2 }
local viewer = Viewer{
maxdepth = 2,
linebreak = false,
noindices = true,
nolabels = true,
metaonly = true,
}
function string:tag(values)
if self:match(' $') then
......@@ -21,7 +27,7 @@ function string:tag(values)
i = i+1
fields[i] = name..'=$'..name
end
self = self..'('..concat(fields, ';')..')'
self = self..'('..concat(fields, ' ')..')'
end
return (self:gsub(
'(%$+)([_%a][_%w]*)',
......
......@@ -43,7 +43,7 @@ local function defaultAdd(list, value)
end
local function report(msg)
stderr:write("CONFIG ERROR: ", msg, "\n")
stderr:write("CONFIG WARNING: ", msg, "\n")
end
function module.setuplog(log, level, path, mode)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment