Update of /cvsroot/dhcp-agent/dhcp-agent/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11797
Modified Files:
dhcp-message-guile.c
Log Message:
added warn message binding
Index: dhcp-message-guile.c
===================================================================
RCS file: /cvsroot/dhcp-agent/dhcp-agent/src/dhcp-message-guile.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** dhcp-message-guile.c 18 Aug 2003 02:21:15 -0000 1.1
--- dhcp-message-guile.c 2 Jun 2004 02:02:43 -0000 1.2
***************
*** 83,84 ****
--- 83,98 ----
return SCM_BOOL_T;
}
+
+ /* send a message via the WARN_MESSAGE facility. */
+ SCM scm_warn_message(SCM msg, SCM args)
+ {
+ SCM scm_str;
+ char *str;
+
+ scm_str = print_to_scm_string(msg, args);
+ str = x_scm_string2newstr(scm_str);
+ WARN_MESSAGE(str);
+ xfree(str);
+
+ return SCM_BOOL_T;
+ }
|
