[dhcp-agent-commits] dhcp-agent/src dhcp-client-guile.c,1.9,1.10
Status: Alpha
Brought to you by:
actmodern
From: <act...@us...> - 2003-06-28 17:33:58
|
Update of /cvsroot/dhcp-agent/dhcp-agent/src In directory sc8-pr-cvs1:/tmp/cvs-serv28928/src Modified Files: dhcp-client-guile.c Log Message: now correctly checking do-measure-router-latency Index: dhcp-client-guile.c =================================================================== RCS file: /cvsroot/dhcp-agent/dhcp-agent/src/dhcp-client-guile.c,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** dhcp-client-guile.c 25 Jun 2003 02:20:44 -0000 1.9 --- dhcp-client-guile.c 28 Jun 2003 17:33:55 -0000 1.10 *************** *** 391,394 **** --- 391,417 ---- } + SCM scm_client_do_discover_icmp_latency(SCM scm_dc) + { + client_control_smob_t *client_control_smob; + dhcp_client_control_t *dc; + + /* do assertions */ + SCM_ASSERT(SCM_SMOB_PREDICATE(client_control_tag, scm_dc), + scm_dc, SCM_ARG1, "client-do-discover-icmp-latency"); + + /* client control. */ + client_control_smob = (client_control_smob_t *)SCM_SMOB_DATA(scm_dc); + dc = client_control_smob->dc; + + if(client_conf_get_do_measure_router_latency_icmp(dc->conf, + dhcp_client_get_server_ip_address(dc), + dhcp_client_get_server_hw_address(dc))) { + return SCM_BOOL_T; + } else { + return SCM_BOOL_F; + } + + } + SCM scm_client_discover_icmp_latency(SCM scm_dc, SCM scm_address_list) { *************** *** 762,765 **** --- 785,789 ---- scm_c_define_gsubr("client-get-default-mtu", 1, 0, 0, dhcp_scm_get_default_mtu); scm_c_define_gsubr("client-get-default-subnet-mask", 1, 0, 0, dhcp_scm_get_default_subnet_mask); + scm_c_define_gsubr("client-do-discover-icmp-latency?", 1, 0, 0, scm_client_do_discover_icmp_latency); scm_c_define_gsubr("client-configure?", 2, 0, 0, dhcp_scm_configurep); scm_c_define_gsubr("client-info-message", 1, 0, 0, scm_client_info_message); |