rewrite from lager
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

153 rivejä
6.6 KiB

3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
3 vuotta sitten
  1. -include("lgCom.hrl").
  2. %% 应用名字
  3. -define(LgAppName, eLog).
  4. %% 三元表达式
  5. -define(IIF(Cond, Then, That), (case Cond of true -> Then; _ -> That end)).
  6. %% 错误日志宏定义
  7. -define(ERR(Format), error_logger:error_msg(Format)).
  8. -define(ERR(Format, Args), error_logger:error_msg(Format, Args)).
  9. -define(Print(Args), io:format("IMY************~p~n", [Args])).
  10. %% 额外进程字典key
  11. -define(PdMdKey, pdLgMd).
  12. -define(LgTrackSink, '_trace_sink').
  13. %% 旋转日志超时时间
  14. -define(LgRotateTimeout, 100000).
  15. %% 部分默认配置值
  16. -define(LgDefTracer, lgDefTracer).
  17. -define(LgErrLogSink, errLoggerEvent).
  18. %% lgBkdConsole的选项
  19. -type lgConsoleOpt() ::
  20. {id, atom() | {atom(), atom()}} | %% 接收器 id
  21. {level, lgAtomLevel() | atom()} | %% 接收器 等级级别
  22. {use_stderr, boolean()} | %% 错误输出io
  23. {group_leader, false | pid() | atom()} | %% group_leader
  24. {fmtTer, atom()} | %% 日志格式化的模块名
  25. {fmtCfg, list()}. %% 日志格式化的格式
  26. %% lgBkdFile的选项
  27. -type lgFileOpt() ::
  28. {id, atom()} | %% 接收器 id
  29. {file, binary()} | %% base log file whole log name: logRoot ++ timeMin ++ "_" ++ this name
  30. {level, lgAtomLevel() | atom()} | %% 接收器 等级级别
  31. {size, non_neg_integer()} | %% 单个日志文件最大的字节数 为0则不旋转日志文件
  32. {date, string()} | %% 日志旋转的日期配置
  33. {count, non_neg_integer()} | %% 无用
  34. {rotator, atom()} | %% 日志旋转模块
  35. {hwm, non_neg_integer()} | %% 每一秒能能接收的日志数量 undefined 则不限制每秒接受的日志数量
  36. {flushQueue, boolean()} | %% 对于特定的接收器事件队列刷新,对于接收器 请使用改选项
  37. {flushThr, non_neg_integer()} | %% 如果flush_queue为true,则可以设置消息队列长度阈值,如果超过该阈值处将开始丢弃消息。默认阈值为0,这意味着如果flush_queue为true,则超过高水位标记时将丢弃消息,而不管消息队列的长度如何。:
  38. {syncInt, non_neg_integer()} | %% 日志文件同步间隔
  39. {syncSize, non_neg_integer()} | %% 日志文件同步大小
  40. {syncOn, lgAtomLevel()} | %% 日志文件立即同步的 日志登记级别
  41. {checkInt, non_neg_integer()} | %% 日志文件检查的时间间隔
  42. {fmtTer, atom()} | %% 日志格式化的模块
  43. {fmtCfg, term()}. %% 日志格式化的格式
  44. %% BkdFile选项默认值
  45. -define(LgDefLogLevel, info).
  46. -define(LgDefRotateSize, 10485760). %% 10mb
  47. -define(LgDefRotateDate, <<"$D0">>). %% midnight
  48. -define(LgDefRotateCnt, 5).
  49. -define(LgDefRotateMod, lgRotatorIns).
  50. -define(LgDefSyncLevel, error).
  51. -define(LgDefSyncInt, 1000). %% 单位毫秒
  52. -define(LgDefSyncSize, 1024 * 64). %% 64kb
  53. -define(LgDefCheckInt, 1000). %% 单位毫秒
  54. -define(LgDefCheckHwm, undefined).
  55. -define(LgDefFlushQueue, false).
  56. -define(LgDefFlushThr, 10).
  57. -define(LgDefFmtTer, lgFmtTer).
  58. -define(LgDefFormatterCfg, []).
  59. -define(LgDefLogRoot, <<"./log">>).
  60. %% 默认日志文件选项
  61. -define(LgDefHandler,
  62. [
  63. {lgBkdConsole, [{level, '>=info'}]},
  64. {lgBkdFile, [{id, error}, {file, <<"error.log">>}, {level, '>=error'}, {size, 10485760}, {date, <<"$D0">>}]},
  65. {lgBkdFile, [{id, console}, {file, <<"console.log">>}, {level, '>=debug'}, {size, 10485760}, {date, <<"$D0">>}]}
  66. ]).
  67. -record(lgShaper, {
  68. id :: any()
  69. %% 每秒我们尝试传递多少消息
  70. , hwm = undefined :: 'undefined' | pos_integer()
  71. %% 这秒内我们收到了多少条消息
  72. , mps = 0 :: non_neg_integer()
  73. %% 当前秒
  74. , lastTime = lgTime:now() :: erlang:timestamp()
  75. %% 此秒内丢弃的消息数
  76. , dropped = 0 :: non_neg_integer()
  77. %% If true, flush notify messages from msg queue at overload
  78. %% 如果为true,则在过载时刷新来自消息队列的通知消息
  79. , flushQueue = true :: boolean()
  80. , flushThr = 0 :: integer()
  81. %% timer
  82. , timer = make_ref() :: reference()
  83. %% optional filter fun to avoid counting suppressed messages against Hwm totals
  84. %% 可选的过滤器函数,以避免对Hwm总数计算抑制消息
  85. , filter = undefined :: fun() %% fun(_) -> false end :: fun()
  86. }).
  87. -record(lgMsg, {
  88. severity :: lgNumLevel()
  89. , pid :: pid()
  90. , node :: node()
  91. , module :: module()
  92. , function :: atom()
  93. , line :: integer()
  94. , metadata :: [tuple()]
  95. , datetime :: binary()
  96. , timestamp :: non_neg_integer()
  97. , message :: list()
  98. , destinations :: list()
  99. }).
  100. -type lgShaper() :: #lgShaper{}.
  101. -type lgMsg() :: #lgMsg{}.
  102. -type lgAtomLevel() :: none | debug | info | notice | warning | error | critical | alert | emergency.
  103. -type lgNumLevel() :: 0 | 1 | 2 | 4 | 8 | 16 | 32 | 64 | 128.
  104. -type lgMaskLevel() :: 0..256.
  105. %% 日志等级列表
  106. -define(LgLevels, [debug, info, notice, warning, error, critical, alert, emergency, none]).
  107. -define(LgShouldLog(Sink, Level), ?eLogCfg:get(Sink) band Level =/= 0).
  108. -define(LgShouldLog(Level), ?eLogCfg:get(?LgDefSink) band Level =/= 0).
  109. -define(LgNotify(Level, Pid, Format, Args),
  110. gen_emm:info_notify(?LgDefSink, {mWriteLog, #lgMsg{severity = Level, pid = Pid, node = node(), module = ?MODULE, function = ?FUNCTION_NAME, line = ?LINE, metadata = [], datetime = lgUtil:msToBinStr(), timestamp = lgTime:nowMs(), message = eFmt:formatBin(Format, Args), destinations = []}})).
  111. %%仅供内部使用仅内部非阻塞日志记录调用,当我们仍在启动大型啤酒时尝试进行日志记录(通常为错误)时,会有一些特殊处理。
  112. -define(INT_LOG(Level, Format, Args),
  113. Self = self(),
  114. %%在生成中执行此操作,这样就不会导致从gen_event处理程序调用gen_event:which_handlers的死锁
  115. spawn(
  116. fun() ->
  117. case catch (gen_emm:which_epm(?LgDefSink)) of
  118. X when X == []; X == {'EXIT', noproc}; X == [lgBkdThrottle] ->
  119. %% there's no handlers yet or eLog isn't running, try again
  120. %% in half a second.
  121. timer:sleep(500),
  122. ?LgNotify(Level, Self, Format, Args);
  123. _ ->
  124. case ?LgShouldLog(Level) of
  125. true ->
  126. ?LgNotify(Level, Self, Format, Args);
  127. _ ->
  128. ok
  129. end
  130. end
  131. end)).