32 lines
831 B
Factor
32 lines
831 B
Factor
! Copyright (C) 2003, 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: logging
|
|
USING: kernel namespaces stdio streams strings ;
|
|
|
|
! A simple logging framework.
|
|
|
|
: log ( msg -- )
|
|
#! Log a message to the log stream, either stdio or a file.
|
|
"log" get dup [
|
|
tuck stream-print stream-flush
|
|
] [
|
|
2drop
|
|
] ifte ;
|
|
|
|
: with-logging ( quot -- )
|
|
#! Calls to log inside quot will output to stdio.
|
|
[ stdio get "log" set call ] with-scope ;
|
|
|
|
: with-log-file ( file quot -- )
|
|
#! Calls to log inside quot will output to a file.
|
|
[ swap <file-reader> "log" set call ] with-scope ;
|
|
|
|
! Helpful words.
|
|
|
|
: log-error ( error -- ) "Error: " swap cat2 log ;
|
|
|
|
: log-client ( client-stream -- )
|
|
client-stream-host [
|
|
"Accepted connection from " swap cat2 log
|
|
] when* ;
|