/[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.8 by gray, Thu Mar 6 18:36:16 2003 UTC revision 1.9 by polak, Fri May 2 20:34:43 2003 UTC
# Line 28  Line 28 
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)
# Line 63  guile_debug(int val) Line 63  guile_debug(int val)
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;
# Line 93  guile_ports_open() Line 93  guile_ports_open()
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;
# Line 202  list_to_args(struct list *arglist) Line 202  list_to_args(struct list *arglist)
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    
# Line 235  list_to_args(struct list *arglist) Line 235  list_to_args(struct list *arglist)
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  {  {
# Line 406  static struct rc_secdef_child guile_rule Line 407  static struct rc_secdef_child guile_rule
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);
# Line 414  guile_section_init() Line 415  guile_section_init()
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    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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