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

logging.server: use locals to make write-message more clear.

db4
John Benediktsson 2014-11-29 14:55:33 -08:00
parent 9033a28c09
commit 5acd2e1317
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -43,12 +43,13 @@ SYMBOL: log-files
: multiline-header. ( -- ) : multiline-header. ( -- )
"[" write multiline-header write "] " write ; "[" write multiline-header write "] " write ;
: write-message ( msg word-name level -- ) :: write-message ( msg word-name level -- )
[ harvest ] 2dip pick empty? [ 3drop ] [ msg harvest [
timestamp-header. timestamp-header.
[ write bl write ": " write print ] 2curry [ multiline-header. ]
[ multiline-header. ] swap interleave [ level write bl word-name write ": " write print ]
] if ; interleave
] unless-empty ;
: (log-message) ( msg -- ) : (log-message) ( msg -- )
#! msg: { msg word-name level service } #! msg: { msg word-name level service }