/* [<][>][^][v][top][bottom][index][help] */
DEFINITIONS
This source file includes following definitions.
- Scm_Init_syslog
- syslog_sys_openlog
- syslog_sys_syslog
- syslog_sys_closelog
- syslog_sys_logmask
- syslog_sys_setlogmask
- Scm_Init_syslog
1 /* Generated by genstub. Do not edit. */
2 #include <gauche.h>
3 #if defined(__CYGWIN__) || defined(__MINGW32__)
4 #define SCM_CGEN_CONST /*empty*/
5 #else
6 #define SCM_CGEN_CONST const
7 #endif
8
9 #include <gauche/extend.h>
10 #ifdef HAVE_SYSLOG_H
11 #include <syslog.h>
12 #endif
13
14 /* Hack for initialization stub */
15 static void internal_init(ScmModule*);
16
17 void Scm_Init_syslog(void)
18 {
19 SCM_INIT_EXTENSION(syslog);
20 internal_init(SCM_FIND_MODULE("gauche.syslog", SCM_FIND_MODULE_CREATE));
21 }
22
23 #define Scm_Init_syslog internal_init
24
25 #if defined(HAVE_SYSLOG)
26 static ScmObj syslog_sys_openlog(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
27 {
28 ScmObj ident_scm;
29 const char * ident;
30 ScmObj option_scm;
31 int option;
32 ScmObj facility_scm;
33 int facility;
34 SCM_ENTER_SUBR("sys-openlog");
35 ident_scm = SCM_ARGREF(0);
36 if (!SCM_STRINGP(ident_scm)) Scm_Error("const C string required, but got %S", ident_scm);
37 ident = SCM_STRING_CONST_CSTRING(ident_scm);
38 option_scm = SCM_ARGREF(1);
39 if (!SCM_INTP(option_scm)) Scm_Error("small integer required, but got %S", option_scm);
40 option = SCM_INT_VALUE(option_scm);
41 facility_scm = SCM_ARGREF(2);
42 if (!SCM_INTP(facility_scm)) Scm_Error("small integer required, but got %S", facility_scm);
43 facility = SCM_INT_VALUE(facility_scm);
44 {
45 openlog(ident, option, facility);
46 SCM_RETURN(SCM_UNDEFINED);
47 }
48 }
49
50 static SCM_DEFINE_STRING_CONST(syslog_sys_openlog__NAME, "sys-openlog", 11, 11);
51 static SCM_DEFINE_SUBR(syslog_sys_openlog__STUB, 3, 0, SCM_OBJ(&syslog_sys_openlog__NAME), syslog_sys_openlog, NULL, NULL);
52
53 #endif /*defined(HAVE_SYSLOG)*/
54 #if defined(HAVE_SYSLOG)
55 static ScmObj syslog_sys_syslog(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
56 {
57 ScmObj prio_scm;
58 int prio;
59 ScmObj message_scm;
60 const char * message;
61 SCM_ENTER_SUBR("sys-syslog");
62 prio_scm = SCM_ARGREF(0);
63 if (!SCM_INTP(prio_scm)) Scm_Error("small integer required, but got %S", prio_scm);
64 prio = SCM_INT_VALUE(prio_scm);
65 message_scm = SCM_ARGREF(1);
66 if (!SCM_STRINGP(message_scm)) Scm_Error("const C string required, but got %S", message_scm);
67 message = SCM_STRING_CONST_CSTRING(message_scm);
68 {
69 syslog(prio, "%s", message);
70 SCM_RETURN(SCM_UNDEFINED);
71 }
72 }
73
74 static SCM_DEFINE_STRING_CONST(syslog_sys_syslog__NAME, "sys-syslog", 10, 10);
75 static SCM_DEFINE_SUBR(syslog_sys_syslog__STUB, 2, 0, SCM_OBJ(&syslog_sys_syslog__NAME), syslog_sys_syslog, NULL, NULL);
76
77 #endif /*defined(HAVE_SYSLOG)*/
78 #if defined(HAVE_SYSLOG)
79 static ScmObj syslog_sys_closelog(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
80 {
81 SCM_ENTER_SUBR("sys-closelog");
82 {
83 closelog();
84 SCM_RETURN(SCM_UNDEFINED);
85 }
86 }
87
88 static SCM_DEFINE_STRING_CONST(syslog_sys_closelog__NAME, "sys-closelog", 12, 12);
89 static SCM_DEFINE_SUBR(syslog_sys_closelog__STUB, 0, 0, SCM_OBJ(&syslog_sys_closelog__NAME), syslog_sys_closelog, NULL, NULL);
90
91 #endif /*defined(HAVE_SYSLOG)*/
92 #if defined(HAVE_SETLOGMASK)
93 static ScmObj syslog_sys_logmask(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
94 {
95 ScmObj prio_scm;
96 int prio;
97 SCM_ENTER_SUBR("sys-logmask");
98 prio_scm = SCM_ARGREF(0);
99 if (!SCM_INTP(prio_scm)) Scm_Error("small integer required, but got %S", prio_scm);
100 prio = SCM_INT_VALUE(prio_scm);
101 {
102 {
103 int SCM_RESULT;
104 SCM_RESULT = LOG_MASK(prio);
105 SCM_RETURN(SCM_MAKE_INT(SCM_RESULT));
106 }
107 }
108 }
109
110 static SCM_DEFINE_STRING_CONST(syslog_sys_logmask__NAME, "sys-logmask", 11, 11);
111 static SCM_DEFINE_SUBR(syslog_sys_logmask__STUB, 1, 0, SCM_OBJ(&syslog_sys_logmask__NAME), syslog_sys_logmask, NULL, NULL);
112
113 #endif /*defined(HAVE_SETLOGMASK)*/
114 #if defined(HAVE_SETLOGMASK)
115 static ScmObj syslog_sys_setlogmask(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
116 {
117 ScmObj mask_scm;
118 int mask;
119 SCM_ENTER_SUBR("sys-setlogmask");
120 mask_scm = SCM_ARGREF(0);
121 if (!SCM_INTP(mask_scm)) Scm_Error("small integer required, but got %S", mask_scm);
122 mask = SCM_INT_VALUE(mask_scm);
123 {
124 {
125 int SCM_RESULT;
126 SCM_RESULT = setlogmask(mask);
127 SCM_RETURN(SCM_MAKE_INT(SCM_RESULT));
128 }
129 }
130 }
131
132 static SCM_DEFINE_STRING_CONST(syslog_sys_setlogmask__NAME, "sys-setlogmask", 14, 14);
133 static SCM_DEFINE_SUBR(syslog_sys_setlogmask__STUB, 1, 0, SCM_OBJ(&syslog_sys_setlogmask__NAME), syslog_sys_setlogmask, NULL, NULL);
134
135 #endif /*defined(HAVE_SETLOGMASK)*/
136 #if defined(LOG_CONS)
137 static SCM_DEFINE_STRING_CONST(syslog_LOG_CONS__VAR__NAME, "LOG_CONS", 8, 8);
138 static ScmObj syslog_LOG_CONS__VAR = SCM_UNBOUND;
139 #endif /*defined(LOG_CONS)*/
140 #if defined(LOG_NDELAY)
141 static SCM_DEFINE_STRING_CONST(syslog_LOG_NDELAY__VAR__NAME, "LOG_NDELAY", 10, 10);
142 static ScmObj syslog_LOG_NDELAY__VAR = SCM_UNBOUND;
143 #endif /*defined(LOG_NDELAY)*/
144 #if defined(LOG_NOWAIT)
145 static SCM_DEFINE_STRING_CONST(syslog_LOG_NOWAIT__VAR__NAME, "LOG_NOWAIT", 10, 10);
146 static ScmObj syslog_LOG_NOWAIT__VAR = SCM_UNBOUND;
147 #endif /*defined(LOG_NOWAIT)*/
148 #if defined(LOG_ODELAY)
149 static SCM_DEFINE_STRING_CONST(syslog_LOG_ODELAY__VAR__NAME, "LOG_ODELAY", 10, 10);
150 static ScmObj syslog_LOG_ODELAY__VAR = SCM_UNBOUND;
151 #endif /*defined(LOG_ODELAY)*/
152 #if defined(LOG_PERROR)
153 static SCM_DEFINE_STRING_CONST(syslog_LOG_PERROR__VAR__NAME, "LOG_PERROR", 10, 10);
154 static ScmObj syslog_LOG_PERROR__VAR = SCM_UNBOUND;
155 #endif /*defined(LOG_PERROR)*/
156 #if defined(LOG_PID)
157 static SCM_DEFINE_STRING_CONST(syslog_LOG_PID__VAR__NAME, "LOG_PID", 7, 7);
158 static ScmObj syslog_LOG_PID__VAR = SCM_UNBOUND;
159 #endif /*defined(LOG_PID)*/
160 #if defined(LOG_AUTH)
161 static SCM_DEFINE_STRING_CONST(syslog_LOG_AUTH__VAR__NAME, "LOG_AUTH", 8, 8);
162 static ScmObj syslog_LOG_AUTH__VAR = SCM_UNBOUND;
163 #endif /*defined(LOG_AUTH)*/
164 #if defined(LOG_AUTHPRIV)
165 static SCM_DEFINE_STRING_CONST(syslog_LOG_AUTHPRIV__VAR__NAME, "LOG_AUTHPRIV", 12, 12);
166 static ScmObj syslog_LOG_AUTHPRIV__VAR = SCM_UNBOUND;
167 #endif /*defined(LOG_AUTHPRIV)*/
168 #if defined(LOG_CRON)
169 static SCM_DEFINE_STRING_CONST(syslog_LOG_CRON__VAR__NAME, "LOG_CRON", 8, 8);
170 static ScmObj syslog_LOG_CRON__VAR = SCM_UNBOUND;
171 #endif /*defined(LOG_CRON)*/
172 #if defined(LOG_DAEMON)
173 static SCM_DEFINE_STRING_CONST(syslog_LOG_DAEMON__VAR__NAME, "LOG_DAEMON", 10, 10);
174 static ScmObj syslog_LOG_DAEMON__VAR = SCM_UNBOUND;
175 #endif /*defined(LOG_DAEMON)*/
176 #if defined(LOG_FTP)
177 static SCM_DEFINE_STRING_CONST(syslog_LOG_FTP__VAR__NAME, "LOG_FTP", 7, 7);
178 static ScmObj syslog_LOG_FTP__VAR = SCM_UNBOUND;
179 #endif /*defined(LOG_FTP)*/
180 #if defined(LOG_KERN)
181 static SCM_DEFINE_STRING_CONST(syslog_LOG_KERN__VAR__NAME, "LOG_KERN", 8, 8);
182 static ScmObj syslog_LOG_KERN__VAR = SCM_UNBOUND;
183 #endif /*defined(LOG_KERN)*/
184 #if defined(LOG_LOCAL0)
185 static SCM_DEFINE_STRING_CONST(syslog_LOG_LOCAL0__VAR__NAME, "LOG_LOCAL0", 10, 10);
186 static ScmObj syslog_LOG_LOCAL0__VAR = SCM_UNBOUND;
187 #endif /*defined(LOG_LOCAL0)*/
188 #if defined(LOG_LOCAL1)
189 static SCM_DEFINE_STRING_CONST(syslog_LOG_LOCAL1__VAR__NAME, "LOG_LOCAL1", 10, 10);
190 static ScmObj syslog_LOG_LOCAL1__VAR = SCM_UNBOUND;
191 #endif /*defined(LOG_LOCAL1)*/
192 #if defined(LOG_LOCAL2)
193 static SCM_DEFINE_STRING_CONST(syslog_LOG_LOCAL2__VAR__NAME, "LOG_LOCAL2", 10, 10);
194 static ScmObj syslog_LOG_LOCAL2__VAR = SCM_UNBOUND;
195 #endif /*defined(LOG_LOCAL2)*/
196 #if defined(LOG_LOCAL3)
197 static SCM_DEFINE_STRING_CONST(syslog_LOG_LOCAL3__VAR__NAME, "LOG_LOCAL3", 10, 10);
198 static ScmObj syslog_LOG_LOCAL3__VAR = SCM_UNBOUND;
199 #endif /*defined(LOG_LOCAL3)*/
200 #if defined(LOG_LOCAL4)
201 static SCM_DEFINE_STRING_CONST(syslog_LOG_LOCAL4__VAR__NAME, "LOG_LOCAL4", 10, 10);
202 static ScmObj syslog_LOG_LOCAL4__VAR = SCM_UNBOUND;
203 #endif /*defined(LOG_LOCAL4)*/
204 #if defined(LOG_LOCAL5)
205 static SCM_DEFINE_STRING_CONST(syslog_LOG_LOCAL5__VAR__NAME, "LOG_LOCAL5", 10, 10);
206 static ScmObj syslog_LOG_LOCAL5__VAR = SCM_UNBOUND;
207 #endif /*defined(LOG_LOCAL5)*/
208 #if defined(LOG_LOCAL6)
209 static SCM_DEFINE_STRING_CONST(syslog_LOG_LOCAL6__VAR__NAME, "LOG_LOCAL6", 10, 10);
210 static ScmObj syslog_LOG_LOCAL6__VAR = SCM_UNBOUND;
211 #endif /*defined(LOG_LOCAL6)*/
212 #if defined(LOG_LOCAL7)
213 static SCM_DEFINE_STRING_CONST(syslog_LOG_LOCAL7__VAR__NAME, "LOG_LOCAL7", 10, 10);
214 static ScmObj syslog_LOG_LOCAL7__VAR = SCM_UNBOUND;
215 #endif /*defined(LOG_LOCAL7)*/
216 #if defined(LOG_LPR)
217 static SCM_DEFINE_STRING_CONST(syslog_LOG_LPR__VAR__NAME, "LOG_LPR", 7, 7);
218 static ScmObj syslog_LOG_LPR__VAR = SCM_UNBOUND;
219 #endif /*defined(LOG_LPR)*/
220 #if defined(LOG_MAIL)
221 static SCM_DEFINE_STRING_CONST(syslog_LOG_MAIL__VAR__NAME, "LOG_MAIL", 8, 8);
222 static ScmObj syslog_LOG_MAIL__VAR = SCM_UNBOUND;
223 #endif /*defined(LOG_MAIL)*/
224 #if defined(LOG_NEWS)
225 static SCM_DEFINE_STRING_CONST(syslog_LOG_NEWS__VAR__NAME, "LOG_NEWS", 8, 8);
226 static ScmObj syslog_LOG_NEWS__VAR = SCM_UNBOUND;
227 #endif /*defined(LOG_NEWS)*/
228 #if defined(LOG_SYSLOG)
229 static SCM_DEFINE_STRING_CONST(syslog_LOG_SYSLOG__VAR__NAME, "LOG_SYSLOG", 10, 10);
230 static ScmObj syslog_LOG_SYSLOG__VAR = SCM_UNBOUND;
231 #endif /*defined(LOG_SYSLOG)*/
232 #if defined(LOG_USER)
233 static SCM_DEFINE_STRING_CONST(syslog_LOG_USER__VAR__NAME, "LOG_USER", 8, 8);
234 static ScmObj syslog_LOG_USER__VAR = SCM_UNBOUND;
235 #endif /*defined(LOG_USER)*/
236 #if defined(LOG_UUCP)
237 static SCM_DEFINE_STRING_CONST(syslog_LOG_UUCP__VAR__NAME, "LOG_UUCP", 8, 8);
238 static ScmObj syslog_LOG_UUCP__VAR = SCM_UNBOUND;
239 #endif /*defined(LOG_UUCP)*/
240 #if defined(LOG_EMERG)
241 static SCM_DEFINE_STRING_CONST(syslog_LOG_EMERG__VAR__NAME, "LOG_EMERG", 9, 9);
242 static ScmObj syslog_LOG_EMERG__VAR = SCM_UNBOUND;
243 #endif /*defined(LOG_EMERG)*/
244 #if defined(LOG_ALERT)
245 static SCM_DEFINE_STRING_CONST(syslog_LOG_ALERT__VAR__NAME, "LOG_ALERT", 9, 9);
246 static ScmObj syslog_LOG_ALERT__VAR = SCM_UNBOUND;
247 #endif /*defined(LOG_ALERT)*/
248 #if defined(LOG_CRIT)
249 static SCM_DEFINE_STRING_CONST(syslog_LOG_CRIT__VAR__NAME, "LOG_CRIT", 8, 8);
250 static ScmObj syslog_LOG_CRIT__VAR = SCM_UNBOUND;
251 #endif /*defined(LOG_CRIT)*/
252 #if defined(LOG_ERR)
253 static SCM_DEFINE_STRING_CONST(syslog_LOG_ERR__VAR__NAME, "LOG_ERR", 7, 7);
254 static ScmObj syslog_LOG_ERR__VAR = SCM_UNBOUND;
255 #endif /*defined(LOG_ERR)*/
256 #if defined(LOG_WARNING)
257 static SCM_DEFINE_STRING_CONST(syslog_LOG_WARNING__VAR__NAME, "LOG_WARNING", 11, 11);
258 static ScmObj syslog_LOG_WARNING__VAR = SCM_UNBOUND;
259 #endif /*defined(LOG_WARNING)*/
260 #if defined(LOG_NOTICE)
261 static SCM_DEFINE_STRING_CONST(syslog_LOG_NOTICE__VAR__NAME, "LOG_NOTICE", 10, 10);
262 static ScmObj syslog_LOG_NOTICE__VAR = SCM_UNBOUND;
263 #endif /*defined(LOG_NOTICE)*/
264 #if defined(LOG_INFO)
265 static SCM_DEFINE_STRING_CONST(syslog_LOG_INFO__VAR__NAME, "LOG_INFO", 8, 8);
266 static ScmObj syslog_LOG_INFO__VAR = SCM_UNBOUND;
267 #endif /*defined(LOG_INFO)*/
268 #if defined(LOG_DEBUG)
269 static SCM_DEFINE_STRING_CONST(syslog_LOG_DEBUG__VAR__NAME, "LOG_DEBUG", 9, 9);
270 static ScmObj syslog_LOG_DEBUG__VAR = SCM_UNBOUND;
271 #endif /*defined(LOG_DEBUG)*/
272 void Scm_Init_syslog(ScmModule *module)
273 {
274
275 #if defined(LOG_DEBUG)
276 syslog_LOG_DEBUG__VAR = Scm_Intern(&syslog_LOG_DEBUG__VAR__NAME);
277 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_DEBUG__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_DEBUG)));
278 #endif /* defined(LOG_DEBUG) */
279 #if defined(LOG_INFO)
280 syslog_LOG_INFO__VAR = Scm_Intern(&syslog_LOG_INFO__VAR__NAME);
281 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_INFO__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_INFO)));
282 #endif /* defined(LOG_INFO) */
283 #if defined(LOG_NOTICE)
284 syslog_LOG_NOTICE__VAR = Scm_Intern(&syslog_LOG_NOTICE__VAR__NAME);
285 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_NOTICE__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_NOTICE)));
286 #endif /* defined(LOG_NOTICE) */
287 #if defined(LOG_WARNING)
288 syslog_LOG_WARNING__VAR = Scm_Intern(&syslog_LOG_WARNING__VAR__NAME);
289 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_WARNING__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_WARNING)));
290 #endif /* defined(LOG_WARNING) */
291 #if defined(LOG_ERR)
292 syslog_LOG_ERR__VAR = Scm_Intern(&syslog_LOG_ERR__VAR__NAME);
293 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_ERR__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_ERR)));
294 #endif /* defined(LOG_ERR) */
295 #if defined(LOG_CRIT)
296 syslog_LOG_CRIT__VAR = Scm_Intern(&syslog_LOG_CRIT__VAR__NAME);
297 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_CRIT__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_CRIT)));
298 #endif /* defined(LOG_CRIT) */
299 #if defined(LOG_ALERT)
300 syslog_LOG_ALERT__VAR = Scm_Intern(&syslog_LOG_ALERT__VAR__NAME);
301 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_ALERT__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_ALERT)));
302 #endif /* defined(LOG_ALERT) */
303 #if defined(LOG_EMERG)
304 syslog_LOG_EMERG__VAR = Scm_Intern(&syslog_LOG_EMERG__VAR__NAME);
305 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_EMERG__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_EMERG)));
306 #endif /* defined(LOG_EMERG) */
307 #if defined(LOG_UUCP)
308 syslog_LOG_UUCP__VAR = Scm_Intern(&syslog_LOG_UUCP__VAR__NAME);
309 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_UUCP__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_UUCP)));
310 #endif /* defined(LOG_UUCP) */
311 #if defined(LOG_USER)
312 syslog_LOG_USER__VAR = Scm_Intern(&syslog_LOG_USER__VAR__NAME);
313 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_USER__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_USER)));
314 #endif /* defined(LOG_USER) */
315 #if defined(LOG_SYSLOG)
316 syslog_LOG_SYSLOG__VAR = Scm_Intern(&syslog_LOG_SYSLOG__VAR__NAME);
317 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_SYSLOG__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_SYSLOG)));
318 #endif /* defined(LOG_SYSLOG) */
319 #if defined(LOG_NEWS)
320 syslog_LOG_NEWS__VAR = Scm_Intern(&syslog_LOG_NEWS__VAR__NAME);
321 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_NEWS__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_NEWS)));
322 #endif /* defined(LOG_NEWS) */
323 #if defined(LOG_MAIL)
324 syslog_LOG_MAIL__VAR = Scm_Intern(&syslog_LOG_MAIL__VAR__NAME);
325 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_MAIL__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_MAIL)));
326 #endif /* defined(LOG_MAIL) */
327 #if defined(LOG_LPR)
328 syslog_LOG_LPR__VAR = Scm_Intern(&syslog_LOG_LPR__VAR__NAME);
329 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_LPR__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_LPR)));
330 #endif /* defined(LOG_LPR) */
331 #if defined(LOG_LOCAL7)
332 syslog_LOG_LOCAL7__VAR = Scm_Intern(&syslog_LOG_LOCAL7__VAR__NAME);
333 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_LOCAL7__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_LOCAL7)));
334 #endif /* defined(LOG_LOCAL7) */
335 #if defined(LOG_LOCAL6)
336 syslog_LOG_LOCAL6__VAR = Scm_Intern(&syslog_LOG_LOCAL6__VAR__NAME);
337 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_LOCAL6__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_LOCAL6)));
338 #endif /* defined(LOG_LOCAL6) */
339 #if defined(LOG_LOCAL5)
340 syslog_LOG_LOCAL5__VAR = Scm_Intern(&syslog_LOG_LOCAL5__VAR__NAME);
341 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_LOCAL5__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_LOCAL5)));
342 #endif /* defined(LOG_LOCAL5) */
343 #if defined(LOG_LOCAL4)
344 syslog_LOG_LOCAL4__VAR = Scm_Intern(&syslog_LOG_LOCAL4__VAR__NAME);
345 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_LOCAL4__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_LOCAL4)));
346 #endif /* defined(LOG_LOCAL4) */
347 #if defined(LOG_LOCAL3)
348 syslog_LOG_LOCAL3__VAR = Scm_Intern(&syslog_LOG_LOCAL3__VAR__NAME);
349 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_LOCAL3__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_LOCAL3)));
350 #endif /* defined(LOG_LOCAL3) */
351 #if defined(LOG_LOCAL2)
352 syslog_LOG_LOCAL2__VAR = Scm_Intern(&syslog_LOG_LOCAL2__VAR__NAME);
353 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_LOCAL2__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_LOCAL2)));
354 #endif /* defined(LOG_LOCAL2) */
355 #if defined(LOG_LOCAL1)
356 syslog_LOG_LOCAL1__VAR = Scm_Intern(&syslog_LOG_LOCAL1__VAR__NAME);
357 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_LOCAL1__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_LOCAL1)));
358 #endif /* defined(LOG_LOCAL1) */
359 #if defined(LOG_LOCAL0)
360 syslog_LOG_LOCAL0__VAR = Scm_Intern(&syslog_LOG_LOCAL0__VAR__NAME);
361 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_LOCAL0__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_LOCAL0)));
362 #endif /* defined(LOG_LOCAL0) */
363 #if defined(LOG_KERN)
364 syslog_LOG_KERN__VAR = Scm_Intern(&syslog_LOG_KERN__VAR__NAME);
365 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_KERN__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_KERN)));
366 #endif /* defined(LOG_KERN) */
367 #if defined(LOG_FTP)
368 syslog_LOG_FTP__VAR = Scm_Intern(&syslog_LOG_FTP__VAR__NAME);
369 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_FTP__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_FTP)));
370 #endif /* defined(LOG_FTP) */
371 #if defined(LOG_DAEMON)
372 syslog_LOG_DAEMON__VAR = Scm_Intern(&syslog_LOG_DAEMON__VAR__NAME);
373 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_DAEMON__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_DAEMON)));
374 #endif /* defined(LOG_DAEMON) */
375 #if defined(LOG_CRON)
376 syslog_LOG_CRON__VAR = Scm_Intern(&syslog_LOG_CRON__VAR__NAME);
377 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_CRON__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_CRON)));
378 #endif /* defined(LOG_CRON) */
379 #if defined(LOG_AUTHPRIV)
380 syslog_LOG_AUTHPRIV__VAR = Scm_Intern(&syslog_LOG_AUTHPRIV__VAR__NAME);
381 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_AUTHPRIV__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_AUTHPRIV)));
382 #endif /* defined(LOG_AUTHPRIV) */
383 #if defined(LOG_AUTH)
384 syslog_LOG_AUTH__VAR = Scm_Intern(&syslog_LOG_AUTH__VAR__NAME);
385 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_AUTH__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_AUTH)));
386 #endif /* defined(LOG_AUTH) */
387 #if defined(LOG_PID)
388 syslog_LOG_PID__VAR = Scm_Intern(&syslog_LOG_PID__VAR__NAME);
389 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_PID__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_PID)));
390 #endif /* defined(LOG_PID) */
391 #if defined(LOG_PERROR)
392 syslog_LOG_PERROR__VAR = Scm_Intern(&syslog_LOG_PERROR__VAR__NAME);
393 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_PERROR__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_PERROR)));
394 #endif /* defined(LOG_PERROR) */
395 #if defined(LOG_ODELAY)
396 syslog_LOG_ODELAY__VAR = Scm_Intern(&syslog_LOG_ODELAY__VAR__NAME);
397 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_ODELAY__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_ODELAY)));
398 #endif /* defined(LOG_ODELAY) */
399 #if defined(LOG_NOWAIT)
400 syslog_LOG_NOWAIT__VAR = Scm_Intern(&syslog_LOG_NOWAIT__VAR__NAME);
401 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_NOWAIT__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_NOWAIT)));
402 #endif /* defined(LOG_NOWAIT) */
403 #if defined(LOG_NDELAY)
404 syslog_LOG_NDELAY__VAR = Scm_Intern(&syslog_LOG_NDELAY__VAR__NAME);
405 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_NDELAY__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_NDELAY)));
406 #endif /* defined(LOG_NDELAY) */
407 #if defined(LOG_CONS)
408 syslog_LOG_CONS__VAR = Scm_Intern(&syslog_LOG_CONS__VAR__NAME);
409 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(syslog_LOG_CONS__VAR)), SCM_OBJ(Scm_MakeInteger(LOG_CONS)));
410 #endif /* defined(LOG_CONS) */
411 #if defined(HAVE_SETLOGMASK)
412 SCM_DEFINE(module, "sys-setlogmask", SCM_OBJ(&syslog_sys_setlogmask__STUB));
413 #endif /* defined(HAVE_SETLOGMASK) */
414 #if defined(HAVE_SETLOGMASK)
415 SCM_DEFINE(module, "sys-logmask", SCM_OBJ(&syslog_sys_logmask__STUB));
416 #endif /* defined(HAVE_SETLOGMASK) */
417 #if defined(HAVE_SYSLOG)
418 SCM_DEFINE(module, "sys-closelog", SCM_OBJ(&syslog_sys_closelog__STUB));
419 #endif /* defined(HAVE_SYSLOG) */
420 #if defined(HAVE_SYSLOG)
421 SCM_DEFINE(module, "sys-syslog", SCM_OBJ(&syslog_sys_syslog__STUB));
422 #endif /* defined(HAVE_SYSLOG) */
423 #if defined(HAVE_SYSLOG)
424 SCM_DEFINE(module, "sys-openlog", SCM_OBJ(&syslog_sys_openlog__STUB));
425 #endif /* defined(HAVE_SYSLOG) */
426 }