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

Removed LOG_PERROR; it doesn't exist on AIX.

This commit is contained in:
sperber 2001-06-20 07:48:03 +00:00
parent 37c0a585f3
commit 211ddec9d5
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/syslog.scm
View File

@ -13,8 +13,7 @@
((console #o01) ((console #o01)
(delay #o02) (delay #o02)
(no-delay #o04) (no-delay #o04)
(standard-error #o10) (log-pid #o10)))
(log-pid #o20)))
(define-record-type syslog-options :syslog-options (define-record-type syslog-options :syslog-options
(really-make-syslog-options value) (really-make-syslog-options value)

6
scsh/syslog1.c
View File

@ -73,8 +73,7 @@ s48_enter_syslog_options(int syslog_options)
(LOG_CONS & syslog_options ? 00001 : 0) | (LOG_CONS & syslog_options ? 00001 : 0) |
(LOG_ODELAY & syslog_options ? 00002 : 0) | (LOG_ODELAY & syslog_options ? 00002 : 0) |
(LOG_NDELAY & syslog_options ? 00004 : 0) | (LOG_NDELAY & syslog_options ? 00004 : 0) |
(LOG_PERROR & syslog_options ? 00010 : 0) | (LOG_PID & syslog_options ? 00010 : 0);
(LOG_PID & syslog_options ? 00020 : 0);
sch_syslog_options = s48_make_record(syslog_options_type_binding); sch_syslog_options = s48_make_record(syslog_options_type_binding);
S48_UNSAFE_RECORD_SET(sch_syslog_options, 0, s48_enter_fixnum(my_syslog_options)); S48_UNSAFE_RECORD_SET(sch_syslog_options, 0, s48_enter_fixnum(my_syslog_options));
@ -97,8 +96,7 @@ s48_extract_syslog_options(s48_value sch_syslog_options)
(00001 & syslog_options ? LOG_CONS : 0) | (00001 & syslog_options ? LOG_CONS : 0) |
(00002 & syslog_options ? LOG_ODELAY : 0) | (00002 & syslog_options ? LOG_ODELAY : 0) |
(00004 & syslog_options ? LOG_NDELAY : 0) | (00004 & syslog_options ? LOG_NDELAY : 0) |
(00010 & syslog_options ? LOG_PERROR : 0) | (00010 & syslog_options ? LOG_PID : 0);
(00020 & syslog_options ? LOG_PID : 0);
return c_syslog_options; return c_syslog_options;
} }