/[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.4 by gray, Thu Feb 6 15:50:33 2003 UTC revision 1.5 by gray, Thu Feb 6 23:00:30 2003 UTC
# Line 261  guile_to_anubis(SCM cell) Line 261  guile_to_anubis(SCM cell)
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;
# Line 439  guile_parser(int method, int key, char * Line 441  guile_parser(int method, int key, char *
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;
# Line 466  guile_parser(int method, int key, char * Line 463  guile_parser(int method, int key, char *
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
# Line 474  static struct rc_secdef_child guile_secd Line 471  static struct rc_secdef_child guile_secd
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

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

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