38 lines
1.7 KiB
Scheme
38 lines
1.7 KiB
Scheme
;; 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"))
|