March 2004 - log4cl-cvs@lists.common-lisp.net

[log4cl-cvs] CVS update: log4cl/tools.lisp
by Marco Baringer 01 Mar '04

01 Mar '04

Update of /project/log4cl/cvsroot/log4cl In directory common-lisp.net:/tmp/cvs-serv9280 Modified Files: tools.lisp Log Message: Uncomment in-package statement Date: Mon Mar 1 13:36:09 2004 Author: mbaringer Index: log4cl/tools.lisp diff -u log4cl/tools.lisp:1.1.1.1 log4cl/tools.lisp:1.2 --- log4cl/tools.lisp:1.1.1.1 Fri Feb 20 03:59:59 2004 +++ log4cl/tools.lisp Mon Mar 1 13:36:09 2004 @@ -19,7 +19,7 @@ -;;(in-package #:log4cl) +(in-package #:log4cl)

1 0

[log4cl-cvs] CVS update: log4cl/layout.lisp
by Marco Baringer 01 Mar '04

01 Mar '04

Update of /project/log4cl/cvsroot/log4cl In directory common-lisp.net:/tmp/cvs-serv6720 Modified Files: layout.lisp Log Message: Don't bind unused values Date: Mon Mar 1 13:35:38 2004 Author: mbaringer Index: log4cl/layout.lisp diff -u log4cl/layout.lisp:1.2 log4cl/layout.lisp:1.3 --- log4cl/layout.lisp:1.2 Mon Mar 1 13:07:36 2004 +++ log4cl/layout.lisp Mon Mar 1 13:35:38 2004 @@ -178,7 +178,7 @@ (defun get-time () "Get current time" (multiple-value-bind - (second minute hour date month year day-of-week dst-p tz) + (second minute hour date month year) (get-decoded-time) (let ((date (format nil "~d/~2,'0d/~d ~2,'0d:~2,'0d:~2,'0d"

1 0

[log4cl-cvs] CVS update: log4cl/appender.lisp
by Marco Baringer 01 Mar '04

01 Mar '04

Update of /project/log4cl/cvsroot/log4cl In directory common-lisp.net:/tmp/cvs-serv4097 Modified Files: appender.lisp Log Message: Supress warnings with (declare (ignore ...)) Date: Mon Mar 1 13:35:10 2004 Author: mbaringer Index: log4cl/appender.lisp diff -u log4cl/appender.lisp:1.2 log4cl/appender.lisp:1.3 --- log4cl/appender.lisp:1.2 Mon Mar 1 13:04:23 2004 +++ log4cl/appender.lisp Mon Mar 1 13:35:10 2004 @@ -111,6 +111,7 @@ "Log message into a file. If size of the file is greater than the max size, we create an archive of the current file, and we create a new current file for logging message" + (declare (ignore name level message)) (when (> (with-open-file (s (file-appender-file appender) :if-does-not-exist :create) (file-length s)) (rolling-file-appender-max-size appender)) @@ -137,6 +138,7 @@ (defmethod log-msg :before ((appender daily-rolling-file-appender) name level message) "Log message into a file named by the current date. If log file is a previous date, a new file is created" + (declare (ignore name level message)) (let ((pattern (make-date-pattern (daily-rolling-file-appender-pattern appender)))) (when (not (string-equal (extract-date-pattern (file-appender-file appender)) pattern))

1 0

[log4cl-cvs] CVS update: log4cl/log4cl.asd
by Marco Baringer 01 Mar '04

01 Mar '04

Update of /project/log4cl/cvsroot/log4cl In directory common-lisp.net:/tmp/cvs-serv32131 Modified Files: log4cl.asd Log Message: Added tools.lisp to system def along with depends-on info. Date: Mon Mar 1 13:26:45 2004 Author: mbaringer Index: log4cl/log4cl.asd diff -u log4cl/log4cl.asd:1.2 log4cl/log4cl.asd:1.3 --- log4cl/log4cl.asd:1.2 Mon Mar 1 13:13:10 2004 +++ log4cl/log4cl.asd Mon Mar 1 13:26:45 2004 @@ -39,9 +39,10 @@ ((#:albert #:docbook #:bgcolor) . "white") ((#:albert #:docbook #:textcolor) . "black")) :components ((:file "package") - (:file "logger") - (:file "appender") - (:file "layout"))) + (:file "logger" :depends-on ("package")) + (:file "appender" :depends-on ("package" "tools")) + (:file "layout" :depends-on ("package" "tools")) + (:file "tools" :depends-on ("package")))) (defsystem :log4cl.syslog :components ((:file "appender-syslog" :depends-on ("cl-syslog"))

1 0

[log4cl-cvs] CVS update: log4cl/package.lisp
by Marco Baringer 01 Mar '04

01 Mar '04

Update of /project/log4cl/cvsroot/log4cl In directory common-lisp.net:/tmp/cvs-serv16160 Modified Files: package.lisp Log Message: Remove :uffi from the log4cl package's use list. Date: Mon Mar 1 13:19:55 2004 Author: mbaringer Index: log4cl/package.lisp diff -u log4cl/package.lisp:1.1.1.1 log4cl/package.lisp:1.2 --- log4cl/package.lisp:1.1.1.1 Fri Feb 20 03:59:58 2004 +++ log4cl/package.lisp Mon Mar 1 13:19:54 2004 @@ -23,7 +23,7 @@ (defpackage #:log4cl - (:use #:cl #:uffi) + (:use #:cl) (:export ;; logger

1 0

[log4cl-cvs] CVS update: log4cl/logger.lisp
by Marco Baringer 01 Mar '04

01 Mar '04

Update of /project/log4cl/cvsroot/log4cl In directory common-lisp.net:/tmp/cvs-serv6559 Modified Files: logger.lisp Log Message: Uncomment the in-package form. Date: Mon Mar 1 13:14:17 2004 Author: mbaringer Index: log4cl/logger.lisp diff -u log4cl/logger.lisp:1.1.1.1 log4cl/logger.lisp:1.2 --- log4cl/logger.lisp:1.1.1.1 Fri Feb 20 03:59:58 2004 +++ log4cl/logger.lisp Mon Mar 1 13:14:17 2004 @@ -18,7 +18,7 @@ ;;;; ************************************************************************* -;;(in-package #:log4cl) +(in-package #:log4cl) (defparameter *levels* '(:debug :info :warning :error :fatal))

1 0

[log4cl-cvs] CVS update: log4cl/log4cl.asd
by Marco Baringer 01 Mar '04

01 Mar '04

Update of /project/log4cl/cvsroot/log4cl In directory common-lisp.net:/tmp/cvs-serv20842 Modified Files: log4cl.asd Log Message: Split into three systems, a core system and then one system for the db appender and one for the syslog appender. Date: Mon Mar 1 13:13:10 2004 Author: mbaringer Index: log4cl/log4cl.asd diff -u log4cl/log4cl.asd:1.1.1.1 log4cl/log4cl.asd:1.2 --- log4cl/log4cl.asd:1.1.1.1 Fri Feb 20 03:59:58 2004 +++ log4cl/log4cl.asd Mon Mar 1 13:13:10 2004 @@ -28,7 +28,7 @@ :name "log4cl" :author "Nicolas Lamirault <lam(a)perave.org>" :version "0.3" - :licence "GNU General Public License" + :licence "Lisp Lesser GNU General Public License" :description "Log tool for Common Lisp" :properties (((#:author #:email) . "lam(a)perave.org") (#:date . "05/11/2003") @@ -37,13 +37,17 @@ ((#:albert #:docbook #:template) . "book") ((#:albert #:docbook #:baseurl) . "http://www.perave.org/tools/log4cl/") ((#:albert #:docbook #:bgcolor) . "white") - ((#:albert #:docbook #:textcolor) . "black") - ) + ((#:albert #:docbook #:textcolor) . "black")) :components ((:file "package") (:file "logger") (:file "appender") - (:file "layout")) - :depends-on (:uffi)) - + (:file "layout"))) - +(defsystem :log4cl.syslog + :components ((:file "appender-syslog" :depends-on ("cl-syslog")) + (:file "cl-syslog")) + :depends-on (:log4cl :uffi)) + +(defsystem :log4cl.db + :components ((:file "appender-db")) + :depends-on (:log4cl))

1 0

[log4cl-cvs] CVS update: log4cl/layout.lisp
by Marco Baringer 01 Mar '04

01 Mar '04

Update of /project/log4cl/cvsroot/log4cl In directory common-lisp.net:/tmp/cvs-serv19180 Modified Files: layout.lisp Log Message: Uncomment the in-package form. Date: Mon Mar 1 13:07:37 2004 Author: mbaringer Index: log4cl/layout.lisp diff -u log4cl/layout.lisp:1.1.1.1 log4cl/layout.lisp:1.2 --- log4cl/layout.lisp:1.1.1.1 Fri Feb 20 03:59:59 2004 +++ log4cl/layout.lisp Mon Mar 1 13:07:36 2004 @@ -18,7 +18,7 @@ ;;;; ************************************************************************* -;;(in-package #:log4cl) +(in-package #:log4cl) (defparameter *layouts*

1 0

[log4cl-cvs] CVS update: log4cl/config.lisp
by Marco Baringer 01 Mar '04

01 Mar '04

Update of /project/log4cl/cvsroot/log4cl In directory common-lisp.net:/tmp/cvs-serv17660 Modified Files: config.lisp Log Message: Uncomment the in-package form. Date: Mon Mar 1 13:07:13 2004 Author: mbaringer Index: log4cl/config.lisp diff -u log4cl/config.lisp:1.1.1.1 log4cl/config.lisp:1.2 --- log4cl/config.lisp:1.1.1.1 Fri Feb 20 03:59:59 2004 +++ log4cl/config.lisp Mon Mar 1 13:07:13 2004 @@ -19,7 +19,7 @@ -;;(in-package #:log4cl) +(in-package #:log4cl)

1 0

[log4cl-cvs] CVS update: log4cl/appender-syslog.lisp
by Marco Baringer 01 Mar '04

01 Mar '04

Update of /project/log4cl/cvsroot/log4cl In directory common-lisp.net:/tmp/cvs-serv9664 Added Files: appender-syslog.lisp Log Message: Initial version, simply contains code ripped from appender.lisp Date: Mon Mar 1 13:06:09 2004 Author: mbaringer

1 0