Update of /cvsroot/dhcp-agent/dhcp-agent/src
In directory sc8-pr-cvs1:/tmp/cvs-serv28473/src
Modified Files:
dhcp-client-guile.c
Log Message:
moved guile_address_list_to_internal_list to utility code
Index: dhcp-client-guile.c
===================================================================
RCS file: /cvsroot/dhcp-agent/dhcp-agent/src/dhcp-client-guile.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** dhcp-client-guile.c 5 Aug 2003 04:51:35 -0000 1.12
--- dhcp-client-guile.c 18 Aug 2003 01:48:51 -0000 1.13
***************
*** 49,82 ****
* * * * * * * * * * * * * * * * * * * * * * */
- static list_t *guile_address_list_to_internal_list(SCM scm_address_list)
- {
- char *address_string;
- int list_length, i;
- SCM scm_list_length;
- SCM scm_address_string;
- ip_addr_t *ip_address;
- list_t *address_list;
-
- SCM_ASSERT(SCM_CONSP(scm_address_list), scm_address_list,
- SCM_ARG1, "guile_address_list_to_internal_list");
-
- scm_list_length = scm_length(scm_address_list);
- list_length = scm_num2int(scm_list_length, SCM_ARG1, "guile_address_list_to_internal_list");
-
- address_list = list_create();
-
- for(i = 0;i < list_length;i++) {
- scm_address_string = scm_list_ref(scm_address_list, SCM_MAKINUM(i));
- address_string = x_scm_string2newstr(scm_address_string);
-
- ip_address = string_ip_to_ip_addr(address_string);
- list_add_to_end(address_list, ip_address);
- xfree(address_string);
-
- }
-
- return address_list;
- }
-
/* take a latency list: a list of integer latency values followed
* by an address, and convert it to a numeric value for integers,
--- 49,52 ----
|
