307 |
|
|
308 |
/* Prepare the arguments */ |
/* Prepare the arguments */ |
309 |
arg_hdr = anubis_to_guile(*hdr); |
arg_hdr = anubis_to_guile(*hdr); |
|
remcrlf(*body); |
|
310 |
arg_body = scm_makfrom0str(*body); |
arg_body = scm_makfrom0str(*body); |
311 |
|
|
312 |
/* Evaluate the procedure */ |
/* Evaluate the procedure */ |
382 |
guile_process_proc(p->line, hdr, body); |
guile_process_proc(p->line, hdr, body); |
383 |
} |
} |
384 |
|
|
385 |
|
void |
386 |
|
guile_postprocess_list(struct list **hdr, char **body) |
387 |
|
{ |
388 |
|
struct list *p; |
389 |
|
|
390 |
|
for (p = postprocess_head; p; p = p->next) |
391 |
|
guile_process_proc(p->line, hdr, body); |
392 |
|
} |
393 |
|
|
394 |
int |
int |
395 |
guile_proclist_empty() |
guile_proclist_empty() |
396 |
{ |
{ |
423 |
{ "guile-load-path-append", KW_GUILE_LOAD_PATH_APPEND }, |
{ "guile-load-path-append", KW_GUILE_LOAD_PATH_APPEND }, |
424 |
{ "guile-load-program", KW_GUILE_LOAD_PROGRAM }, |
{ "guile-load-program", KW_GUILE_LOAD_PROGRAM }, |
425 |
{ "guile-rewrite-line", KW_GUILE_REWRITE_LINE }, |
{ "guile-rewrite-line", KW_GUILE_REWRITE_LINE }, |
426 |
|
{ "guile-process", KW_GUILE_PROCESS }, |
427 |
|
{ "guile-postprocess", KW_GUILE_POSTPROCESS }, |
428 |
{ NULL } |
{ NULL } |
429 |
}; |
}; |
430 |
|
|
452 |
|
|
453 |
case KW_GUILE_PROCESS: |
case KW_GUILE_PROCESS: |
454 |
process_tail = new_element(process_tail, |
process_tail = new_element(process_tail, |
455 |
&process_head, strdup(arg)); |
&process_head, |
456 |
|
strdup(arg)); |
457 |
break; |
break; |
458 |
|
|
459 |
case KW_GUILE_POSTPROCESS: |
case KW_GUILE_POSTPROCESS: |