Update of /cvsroot/dhcp-agent/dhcp-agent/src
In directory sc8-pr-cvs1:/tmp/cvs-serv842
Modified Files:
dhcp-server-guile.c
Log Message:
server guile bindings now have bound to message code
Index: dhcp-server-guile.c
===================================================================
RCS file: /cvsroot/dhcp-agent/dhcp-agent/src/dhcp-server-guile.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** dhcp-server-guile.c 18 Aug 2003 01:50:32 -0000 1.8
--- dhcp-server-guile.c 18 Aug 2003 02:24:29 -0000 1.9
***************
*** 258,261 ****
--- 258,266 ----
scm_define(lease_expire, SCM_BOOL_F);
+ /* bind some utility routines. */
+ scm_c_define_gsubr("server-info-message", 1, 0, 1, scm_info_message);
+ scm_c_define_gsubr("server-error-message", 1, 0, 1, scm_error_message);
+ scm_c_define_gsubr("server-fatal-error-message", 1, 0, 1, scm_fatal_message);
+
/* bind our server control object. */
scm_c_define("dhcp-server-control",
|
