28 |
|
|
29 |
#ifdef WITH_GUILE |
#ifdef WITH_GUILE |
30 |
|
|
31 |
static void guile_ports_open(); |
static void guile_ports_open(void); |
32 |
static void guile_ports_close(); |
static void guile_ports_close(void); |
33 |
|
|
34 |
static SCM |
static SCM |
35 |
catch_body (void *data) |
catch_body (void *data) |
63 |
} |
} |
64 |
|
|
65 |
void |
void |
66 |
guile_ports_open() |
guile_ports_open(void) |
67 |
{ |
{ |
68 |
SCM port; |
SCM port; |
69 |
int fd = -1; |
int fd = -1; |
93 |
} |
} |
94 |
|
|
95 |
void |
void |
96 |
guile_ports_close() |
guile_ports_close(void) |
97 |
{ |
{ |
98 |
if (topt & (T_FOREGROUND_INIT|T_STDINOUT)) |
if (topt & (T_FOREGROUND_INIT|T_STDINOUT)) |
99 |
return; |
return; |
202 |
SCM val; |
SCM val; |
203 |
|
|
204 |
list_first(arglist); |
list_first(arglist); |
205 |
while (p = list_next(arglist)) { |
while ((p = list_next(arglist))) { |
206 |
SCM cell; |
SCM cell; |
207 |
SCM_NEWCELL(cell); |
SCM_NEWCELL(cell); |
208 |
|
|
235 |
return head; |
return head; |
236 |
} |
} |
237 |
|
|
238 |
/* (define (postproc header-list body)*/ |
/* (define (postproc header-list body) */ |
239 |
|
|
240 |
void |
void |
241 |
guile_process_proc(struct list *arglist, MESSAGE *msg) |
guile_process_proc(struct list *arglist, MESSAGE *msg) |
242 |
{ |
{ |
407 |
}; |
}; |
408 |
|
|
409 |
void |
void |
410 |
guile_section_init() |
guile_section_init(void) |
411 |
{ |
{ |
412 |
struct rc_secdef *sp = anubis_add_section("GUILE"); |
struct rc_secdef *sp = anubis_add_section("GUILE"); |
413 |
rc_secdef_add_child(sp, &guile_secdef_child); |
rc_secdef_add_child(sp, &guile_secdef_child); |
415 |
rc_secdef_add_child(sp, &guile_rule_secdef_child); |
rc_secdef_add_child(sp, &guile_rule_secdef_child); |
416 |
} |
} |
417 |
|
|
|
|
|
418 |
#endif /* WITH_GUILE */ |
#endif /* WITH_GUILE */ |
419 |
|
|
420 |
|
/* EOF */ |
421 |
|
|