[dhcp-agent-commits] dhcp-agent/src dhcp-client-guile.c,1.12,1.13

[<act...@us...>]

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 ----