steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

logging.server: Modernize a bit.

db4
Doug Coleman 2012-08-25 18:42:37 -07:00
parent 60beb84774
commit b7d16801ff
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
basis/logging/server/server.factor
View File

@ -20,8 +20,8 @@ SYMBOL: log-files
: open-log-stream ( service -- stream ) : open-log-stream ( service -- stream )
log-path log-path
dup make-directories [ make-directories ]
1 log# utf8 <file-appender> ; [ 1 log# utf8 <file-appender> ] bi ;
: log-stream ( service -- stream ) : log-stream ( service -- stream )
log-files get [ open-log-stream ] cache ; log-files get [ open-log-stream ] cache ;
@ -60,8 +60,7 @@ SYMBOL: log-files
: (close-logs) ( -- ) : (close-logs) ( -- )
log-files get log-files get
dup values [ try-dispose ] each [ values [ try-dispose ] each ] [ clear-assoc ] bi ;
clear-assoc ;
CONSTANT: keep-logs 10 CONSTANT: keep-logs 10
@ -77,10 +76,12 @@ CONSTANT: keep-logs 10
[ 1 - log# ] 2keep log# ?move-file ; [ 1 - log# ] 2keep log# ?move-file ;
: rotate-log ( service -- ) : rotate-log ( service -- )
dup close-log [ close-log ]
log-path [
dup delete-oldest log-path
keep-logs 1 [a,b] [ advance-log ] with each ; [ delete-oldest ]
[ keep-logs 1 [a,b] [ advance-log ] with each ] bi
] bi ;
: (rotate-logs) ( -- ) : (rotate-logs) ( -- )
(close-logs) (close-logs)