Initial commit

syslog.sld

@@ -0,0 +1,38 @@
+;; SPDX-License-Identifier: LGPL-3.0-only
+;; SPDX-FileCopyrightText: 2026 afiw
+
+;; syslog – a CHICKEN interface to syslog(3)
+;; Copyright (C) 2026 afiw <afiw@linuxposting.xyz>
+;; 
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU Lesser General Public License as published
+;; by the Free Software Foundation, exclusively version 3 of the License.
+;; 
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;; 
+;; You should have received a copy of the GNU Lesser General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+(define-library (syslog)
+  (import
+   (scheme base)
+   (chicken foreign))
+  (export
+   ;; procedures
+   open-syslog syslog close-syslog set-syslog-mask!
+   ;; open-syslog bitwise flags
+   log/cons log/ndelay log/nowait log/odelay log/perror log/pid
+   ;; open-syslog facilities
+   facility/auth facility/authpriv facility/cron facility/daemon facility/ftp facility/kern facility/local0
+   facility/local1 facility/local2 facility/local3 facility/local4 facility/local5 facility/local6
+   facility/local7 facility/lpr facility/mail facility/news facility/syslog facility/user facility/uucp
+   ;; syslog priorities
+   priority/emerg priority/alert priority/crit priority/err priority/warning priority/notice priority/info
+   priority/debug
+   ;; set-syslog-mask! bitwise flags
+   mask/emerg mask/alert mask/crit mask/err mask/warning mask/notice mask/info mask/debug
+   )
+  (include "syslog.scm"))