261 |
static SCM |
static SCM |
262 |
anubis_to_guile(struct list *p) |
anubis_to_guile(struct list *p) |
263 |
{ |
{ |
264 |
SCM head = SCM_EOL, tail; |
SCM head = SCM_EOL, |
265 |
|
tail; /* Don't let gcc fool you: tail cannot be used |
266 |
|
uninitialized */ |
267 |
|
|
268 |
for (; p; p = p->next) { |
for (; p; p = p->next) { |
269 |
SCM cell, car, cdr; |
SCM cell, car, cdr; |
441 |
break; |
break; |
442 |
|
|
443 |
case KW_GUILE_PROCESS: |
case KW_GUILE_PROCESS: |
|
/* FIXME: Currently every chunk of the rc file may be |
|
|
processed several times. This kludge prevents |
|
|
the same function from being called several times. */ |
|
|
if (process_tail) |
|
|
break; |
|
444 |
process_tail = new_element(process_tail, |
process_tail = new_element(process_tail, |
445 |
&process_head, strdup(arg)); |
&process_head, strdup(arg)); |
446 |
break; |
break; |
463 |
|
|
464 |
static struct rc_secdef_child guile_secdef_child = { |
static struct rc_secdef_child guile_secdef_child = { |
465 |
NULL, |
NULL, |
466 |
CF_SUPERVISOR|CF_CLIENT, |
CF_CLIENT, |
467 |
guile_kw, |
guile_kw, |
468 |
guile_parser, |
guile_parser, |
469 |
NULL |
NULL |
471 |
|
|
472 |
static struct rc_secdef_child guile_rule_secdef_child = { |
static struct rc_secdef_child guile_rule_secdef_child = { |
473 |
NULL, |
NULL, |
474 |
CF_SUPERVISOR|CF_CLIENT, |
CF_CLIENT, |
475 |
guile_rule_kw, |
guile_rule_kw, |
476 |
guile_parser, |
guile_parser, |
477 |
NULL |
NULL |