mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +02:00
Code Activity

Deprecate inet-ntoa' and inet-aton'.

Browse source 
Suggested by Bruno Haible.

* libguile/inet_aton.c: Remove.

* libguile/Makefile.am (EXTRA_libguile_la_SOURCES): Remove
  `inet_aton.c'.

* libguile/deprecated.c (scm_inet_aton, scm_inet_ntoa): New functions.

* libguile/deprecated.h: Update accordingly.

* libguile/socket.c (scm_inet_aton, scm_inet_ntoa): Remove.

* doc/ref/posix.texi (Network Address Conversion): Mark `inet-ntoa' and
  `inet-aton' as deprecated.
This commit is contained in:
Ludovic Courtès 2009-11-15 20:50:08 +01:00
parent 8912421cf3
commit 3452e6667f
6 changed files with 55 additions and 225 deletions
Download patch file Download diff file Expand all files Collapse all files

41
libguile/deprecated.c
View file

@ -52,11 +52,14 @@
#include "libguile/smob.h"
#include "libguile/alist.h"
#include "libguile/keywords.h"
#include "libguile/socket.h"
#include "libguile/feature.h"
#include <stdio.h>
#include <string.h>
#include <arpa/inet.h>
#if (SCM_ENABLE_DEPRECATED == 1)
/* From print.c: Internal symbol names of isyms. Deprecated in guile 1.7.0 on
@ -1459,6 +1462,44 @@ scm_i_fluidp (SCM x)
return scm_is_fluid (x);
}
/* Networking. */
SCM_DEFINE (scm_inet_aton, "inet-aton", 1, 0, 0,
(SCM address),
"Convert an IPv4 Internet address from printable string\n"
"(dotted decimal notation) to an integer. E.g.,\n\n"
"@lisp\n"
"(inet-aton \"127.0.0.1\") @result{} 2130706433\n"
"@end lisp")
#define FUNC_NAME s_scm_inet_aton
{
scm_c_issue_deprecation_warning
("`inet-aton' is deprecated. Use `inet-pton' instead.");
return scm_inet_pton (scm_from_int (AF_INET), address);
}
#undef FUNC_NAME
SCM_DEFINE (scm_inet_ntoa, "inet-ntoa", 1, 0, 0,
(SCM inetid),
"Convert an IPv4 Internet address to a printable\n"
"(dotted decimal notation) string. E.g.,\n\n"
"@lisp\n"
"(inet-ntoa 2130706433) @result{} \"127.0.0.1\"\n"
"@end lisp")
#define FUNC_NAME s_scm_inet_ntoa
{
scm_c_issue_deprecation_warning
("`inet-ntoa' is deprecated. Use `inet-ntop' instead.");
return scm_inet_ntop (scm_from_int (AF_INET), inetid);
}
#undef FUNC_NAME
void
scm_i_defer_ints_etc ()
{