/[anubis]/anubis/src/guile.c
ViewVC logotype

Diff of /anubis/src/guile.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by gray, Thu Feb 6 23:00:30 2003 UTC revision 1.6 by gray, Tue Feb 11 16:51:45 2003 UTC
# Line 307  guile_process_proc(char *procname, struc Line 307  guile_process_proc(char *procname, struc
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 */
# Line 383  guile_process_list(struct list **hdr, ch Line 382  guile_process_list(struct list **hdr, ch
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  {  {
# Line 415  static struct rc_kwdef guile_rule_kw[] = Line 423  static struct rc_kwdef guile_rule_kw[] =
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    
# Line 442  guile_parser(int method, int key, char * Line 452  guile_parser(int method, int key, char *
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:      

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26