scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Optional arguments for syslog and openlog.

This commit is contained in:
mainzelm 2001-01-03 16:15:28 +00:00
parent de88c03cd2
commit 51552b6842
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scsh/syscalls.scm
View File

@ -990,11 +990,15 @@
(define-stubless-foreign %syslog (facility level message) "scm_syslog")
(define-stubless-foreign closelog () "scm_closelog")
(define (openlog ident option facility)
(%openlog ident option facility))
(define (openlog ident . args)
(let-optionals args ((option syslog-option/default)
(facility syslog-facility/default))
(%openlog ident option facility)))
(define (syslog facility level message)
(%syslog facility level (double-char #\% message)))
(define (syslog message . args)
(let-optionals args ((level syslog-level/default)
(facility syslog-facility/default))
(%syslog facility level (double-char #\% message))))
(define (double-char the-char s)