Comments to logging

This commit is contained in:
Yury Benesh 2012-07-26 23:52:47 +03:00
commit 969d141ef9

View file

@ -45,6 +45,7 @@ type
TFileLogger* = object of TLogger ## logger that writes the messages to a file TFileLogger* = object of TLogger ## logger that writes the messages to a file
f: TFile f: TFile
# TODO: implement rolling log
TRollingFileLogger* = object of TFileLogger ## logger that writes the TRollingFileLogger* = object of TFileLogger ## logger that writes the
## message to a file ## message to a file
maxLines: int # maximum number of lines maxLines: int # maximum number of lines
@ -112,8 +113,8 @@ proc newRollingFileLogger*(filename = defaultFilename(),
result.f = open(filename, mode) result.f = open(filename, mode)
var var
level* = lvlNone level* = lvlAll ## global log filter
handlers*: seq[ref TLogger] = @[] handlers*: seq[ref TLogger] = @[] ## handlers with their own log levels
proc logLoop(level: TLevel, frmt: string, args: openarray[string]) = proc logLoop(level: TLevel, frmt: string, args: openarray[string]) =
for logger in items(handlers): for logger in items(handlers):