;; 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"))