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

Cleanup

db4
Slava Pestov 2008-02-07 19:52:40 -06:00
parent ba467a39c4
commit fb67a7621b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/logging/server/server.factor
View File

@ -25,9 +25,11 @@ SYMBOL: log-files
: log-stream ( service -- stream ) : log-stream ( service -- stream )
log-files get [ open-log-stream ] cache ; log-files get [ open-log-stream ] cache ;
: multiline-header 20 CHAR: - <string> ; foldable
: (write-message) ( msg word-name level multi? -- ) : (write-message) ( msg word-name level multi? -- )
[ [
"[" write 20 CHAR: - <string> write "] " write "[" write multiline-header write "] " write
] [ ] [
"[" write now (timestamp>rfc3339) "] " write "[" write now (timestamp>rfc3339) "] " write
] if ] if