root/ext/syslog/syslog.c

/* [<][>][^][v][top][bottom][index][help] */

DEFINITIONS

This source file includes following definitions.
  1. Scm_Init_syslog
  2. syslog_sys_openlog
  3. syslog_sys_syslog
  4. syslog_sys_closelog
  5. syslog_sys_logmask
  6. syslog_sys_setlogmask
  7. 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 }

/* [<][>][^][v][top][bottom][index][help] */