[dhcp-agent-commits] dhcp-agent/src dhcp-client-info-guile.c,1.1,1.2

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

Update of /cvsroot/dhcp-agent/dhcp-agent/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27972

Modified Files:
	dhcp-client-info-guile.c 
Log Message:
fixed scm_client_info_get_giaddr to return SCM, and exported
remaining client-info procs


Index: dhcp-client-info-guile.c
===================================================================
RCS file: /cvsroot/dhcp-agent/dhcp-agent/src/dhcp-client-info-guile.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** dhcp-client-info-guile.c	12 Aug 2003 12:05:20 -0000	1.1
--- dhcp-client-info-guile.c	25 May 2004 06:50:46 -0000	1.2
***************
*** 134,140 ****
  {
      client_info_smob_t *client_info_smob;
-     char *giaddr_str;
      ip_addr_t giaddr;
-     SCM scm_giaddr;
  
      SCM_ASSERT(SCM_SMOB_PREDICATE(client_info_tag, scm_client_info), scm_client_info, SCM_ARG1, "scm_client_info_get_giaddr");
--- 134,138 ----
***************
*** 143,151 ****
      giaddr = client_info_get_giaddr(client_info_smob->client_info);
  
!     giaddr_str = ip_addr_to_string(giaddr);
!     scm_giaddr = scm_makfrom0str(giaddr_str);
!     xfree(giaddr_str);
! 
!     return scm_giaddr;
  }
  
--- 141,145 ----
      giaddr = client_info_get_giaddr(client_info_smob->client_info);
  
!     return SCM_MAKINUM(giaddr);
  }
  
***************
*** 155,159 ****
      client_info_smob_t *client_info_smob;
      uint16_t max_message_size;
-     SCM scm_max_message_size;
  
      SCM_ASSERT(SCM_SMOB_PREDICATE(client_info_tag, scm_client_info), scm_client_info, SCM_ARG1, "scm_client_info_get_max_message_size");
--- 149,152 ----
***************
*** 161,167 ****
  
      max_message_size = client_info_get_max_message_size(client_info_smob->client_info);
!     scm_max_message_size = SCM_MAKINUM(max_message_size);
! 
!     return scm_number_to_string(scm_max_message_size, SCM_MAKINUM(10));
  }
  
--- 154,158 ----
  
      max_message_size = client_info_get_max_message_size(client_info_smob->client_info);
!     return SCM_MAKINUM(max_message_size);
  }
  
***************
*** 176,184 ****
      scm_set_smob_print(client_info_tag, scm_client_info_print);
  
!     scm_c_define_gsubr("dhcp-client-info-get-hostname", 1, 0, 0, scm_client_info_get_hostname);
!     scm_c_define_gsubr("dhcp-client-info-get-client-id", 1, 0, 0, scm_client_info_get_client_id);
!     scm_c_define_gsubr("dhcp-client-info-get-chaddr", 1, 0, 0, scm_client_info_get_chaddr);
!     scm_c_define_gsubr("dhcp-client-info-get-giaddr", 1, 0, 0, scm_client_info_get_giaddr);
!     scm_c_define_gsubr("dhcp-client-info-get-max-message-size", 1, 0, 0, scm_client_info_get_max_message_size);
  
      return;
--- 167,175 ----
      scm_set_smob_print(client_info_tag, scm_client_info_print);
  
!     scm_c_define_gsubr("client-info-get-hostname", 1, 0, 0, scm_client_info_get_hostname);
!     scm_c_define_gsubr("client-info-get-client-id", 1, 0, 0, scm_client_info_get_client_id);
!     scm_c_define_gsubr("client-info-get-chaddr", 1, 0, 0, scm_client_info_get_chaddr);
!     scm_c_define_gsubr("client-info-get-giaddr", 1, 0, 0, scm_client_info_get_giaddr);
!     scm_c_define_gsubr("client-info-get-max-message-size", 1, 0, 0, scm_client_info_get_max_message_size);
  
      return;