From lnostdal at common-lisp.net  Tue Nov 28 19:46:10 2006
From: lnostdal at common-lisp.net (lnostdal)
Date: Tue, 28 Nov 2006 14:46:10 -0500 (EST)
Subject: [cl-syslog-cvs] CVS cl-syslog
Message-ID: <20061128194610.1015D5F000@common-lisp.net>

Update of /project/cl-syslog/cvsroot/cl-syslog
In directory clnet:/tmp/cvs-serv21871

Modified Files:
	cl-syslog.asd cl-syslog.lisp 
Log Message:
Migrated from UFFI to CFFI for portable FFI-support.

--- /project/cl-syslog/cvsroot/cl-syslog/cl-syslog.asd	2003/11/22 23:35:59	1.3
+++ /project/cl-syslog/cvsroot/cl-syslog/cl-syslog.asd	2006/11/28 19:46:09	1.4
@@ -1,4 +1,4 @@
-;;;; $Id: cl-syslog.asd,v 1.3 2003/11/22 23:35:59 eenge Exp $
+;;;; $Id: cl-syslog.asd,v 1.4 2006/11/28 19:46:09 lnostdal Exp $
 ;;;; $Source: /project/cl-syslog/cvsroot/cl-syslog/cl-syslog.asd,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -18,9 +18,9 @@
     :version "0.1.0"
     :licence "MIT"
     :description "Common Lisp syslog interface"
-    :depends-on (:uffi)
+    :depends-on (:cffi)
     :properties ((#:author-email . "cl-syslog-devel at common-lisp.net")
-                 (#:date . "$Date: 2003/11/22 23:35:59 $")
+                 (#:date . "$Date: 2006/11/28 19:46:09 $")
                  ((#:albert #:output-dir) . "doc/api-doc/")
                  ((#:albert #:formats) . ("docbook"))
                  ((#:albert #:docbook #:template) . "book")
--- /project/cl-syslog/cvsroot/cl-syslog/cl-syslog.lisp	2003/11/22 23:34:52	1.2
+++ /project/cl-syslog/cvsroot/cl-syslog/cl-syslog.lisp	2006/11/28 19:46:09	1.3
@@ -1,4 +1,4 @@
-;;;; $Id: cl-syslog.lisp,v 1.2 2003/11/22 23:34:52 eenge Exp $
+;;;; $Id: cl-syslog.lisp,v 1.3 2006/11/28 19:46:09 lnostdal Exp $
 ;;;; $Source: /project/cl-syslog/cvsroot/cl-syslog/cl-syslog.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -27,20 +27,16 @@
 ;; Foreign function
 ;;
 
-(uffi:def-function "openlog"
-    ((ident :cstring)
-     (option :int)
-     (facility :int))
-  :returning :void)
-
-(uffi:def-function "closelog"
-    ()
-  :returning :void)
-
-(uffi:def-function "syslog"
-    ((priority :int)
-     (format :cstring))
-  :returning :void)
+(cffi:defcfun "openlog" :void
+  (ident :string)
+  (option :int)
+  (facility :int))
+
+(cffi:defcfun "closelog" :void)
+
+(cffi:defcfun "syslog" :void
+  (priority :int)
+  (format :string)) 
 
 ;;
 ;; Utility
@@ -65,9 +61,9 @@
 
 (defun log (name facility priority text &optional (option 0))
   "Print message to syslog.
-
 'option' can be any of the +log...+ constants"
-  (openlog name option (get-facility facility))
-  (syslog (get-priority priority) text)
-  (closelog)
+  (cffi:with-foreign-string (cname name)
+    (openlog cname option (get-facility facility))
+    (syslog (get-priority priority) text)
+    (closelog))
   text)



From lnostdal at common-lisp.net  Tue Nov 28 19:47:40 2006
From: lnostdal at common-lisp.net (lnostdal)
Date: Tue, 28 Nov 2006 14:47:40 -0500 (EST)
Subject: [cl-syslog-cvs] CVS public_html
Message-ID: <20061128194740.7EFC15F01A@common-lisp.net>

Update of /project/cl-syslog/cvsroot/public_html
In directory clnet:/tmp/cvs-serv21944

Modified Files:
	index.html 
Log Message:
Updated site after migration from UFFI to CFFI.

--- /project/cl-syslog/cvsroot/public_html/index.html	2006/08/29 13:58:06	1.9
+++ /project/cl-syslog/cvsroot/public_html/index.html	2006/11/28 19:47:40	1.10
@@ -13,9 +13,13 @@
       the syslog logging facility under Unix.  The code was taken from
       <a href="http://alpha.onshored.com/">OnShore's ODCL</a> and has
       been enhanced to include an ASDF system, conditions, options to
-      openlog(3) and it now uses <a
-      href="http://uffi.b9.com/">UFFI</a> instead of <a
-      href="http://www.cons.org/cmucl/">CMUCL</a>-specific FFI code.
+      openlog(3) and <a href="http://uffi.b9.com/">UFFI</a> instead of
+      <a href="http://www.cons.org/cmucl/">CMUCL</a>-specific FFI code.
+      UFFI has now been exchanged with
+      <a href="http://common-lisp.net/project/cffi/">CFFI</a>.
+      
+      
+      
 
       <p>The code is released under a <a
       href="http://common-lisp.net/cgi-bin/viewcvs.cgi/cl-syslog/LICENSE?rev=HEAD&cvsroot=cl-syslog&content-type=text/vnd.viewcvs-markup">BSD
@@ -23,6 +27,7 @@
 
       <h2>News</h2>
       <div class="level">
+        <li>2006-11-28: CVS-version has migrated from UFFI to CFFI</li>
         <li>Version 0.9.1 released (small bugfix)</li>
       </div>
 
@@ -33,6 +38,7 @@
       on other Unices where it works is greatly appreciated.</p>
 
       <div class="level">
+        <li>Linux 2.6.x</li>
         <li>Linux 2.4.x</li>
         <li>FreeBSD 5.1</li>
       </div>
@@ -42,7 +48,7 @@
       <div class="level">
 	<ul>
 	  <li>log's directly to syslog</li>
-	  <li>uses UFFI so should work on many platforms</li>
+	  <li>uses CFFI so should work on many platforms</li>
 	</ul>
       </div>