diff options
Diffstat (limited to 'libguile/net_db.c')
-rw-r--r-- | libguile/net_db.c | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/libguile/net_db.c b/libguile/net_db.c index 9cdf52ba3..73b8384ce 100644 --- a/libguile/net_db.c +++ b/libguile/net_db.c @@ -82,7 +82,7 @@ int close (); extern int inet_aton (); -GUILE_PROC (scm_inet_aton, "inet-aton", 1, 0, 0, +SCM_DEFINE (scm_inet_aton, "inet-aton", 1, 0, 0, (SCM address), "Converts a string containing an Internet host address in the traditional dotted decimal notation into an integer. @@ -105,7 +105,7 @@ dotted decimal notation into an integer. #undef FUNC_NAME -GUILE_PROC (scm_inet_ntoa, "inet-ntoa", 1, 0, 0, +SCM_DEFINE (scm_inet_ntoa, "inet-ntoa", 1, 0, 0, (SCM inetid), "Converts an integer Internet host address into a string with the traditional dotted decimal representation. @@ -126,7 +126,7 @@ traditional dotted decimal representation. #undef FUNC_NAME #ifdef HAVE_INET_NETOF -GUILE_PROC (scm_inet_netof, "inet-netof", 1, 0, 0, +SCM_DEFINE (scm_inet_netof, "inet-netof", 1, 0, 0, (SCM address), "Returns the network number part of the given integer Internet address. @@ -143,7 +143,7 @@ GUILE_PROC (scm_inet_netof, "inet-netof", 1, 0, 0, #endif #ifdef HAVE_INET_LNAOF -GUILE_PROC (scm_lnaof, "inet-lnaof", 1, 0, 0, +SCM_DEFINE (scm_lnaof, "inet-lnaof", 1, 0, 0, (SCM address), "Returns the local-address-with-network part of the given Internet address. @@ -161,7 +161,7 @@ address. #endif #ifdef HAVE_INET_MAKEADDR -GUILE_PROC (scm_inet_makeaddr, "inet-makeaddr", 2, 0, 0, +SCM_DEFINE (scm_inet_makeaddr, "inet-makeaddr", 2, 0, 0, (SCM net, SCM lna), "Makes an Internet host address by combining the network number @var{net} with the local-address-within-network number @var{lna}. @@ -234,7 +234,7 @@ static void scm_resolv_error (const char *subr, SCM bad_value) Should use reentrant facilities if available. */ -GUILE_PROC (scm_gethost, "gethost", 0, 1, 0, +SCM_DEFINE (scm_gethost, "gethost", 0, 1, 0, (SCM name), "@deffnx procedure gethostbyname hostname @deffnx procedure gethostbyaddr address @@ -319,7 +319,7 @@ Unusual conditions may result in errors thrown to the operation?), but it seems to work okay. We'll see. */ #if defined(HAVE_GETNETENT) && defined(HAVE_GETNETBYNAME) && defined(HAVE_GETNETBYADDR) -GUILE_PROC (scm_getnet, "getnet", 0, 1, 0, +SCM_DEFINE (scm_getnet, "getnet", 0, 1, 0, (SCM name), "@deffnx procedure getnetbyname net-name @deffnx procedure getnetbyaddr net-number @@ -372,7 +372,7 @@ given.") #endif #ifdef HAVE_GETPROTOENT -GUILE_PROC (scm_getproto, "getproto", 0, 1, 0, +SCM_DEFINE (scm_getproto, "getproto", 0, 1, 0, (SCM name), "@deffnx procedure getprotobyname name @deffnx procedure getprotobynumber number @@ -438,7 +438,7 @@ scm_return_entry (struct servent *entry) } #ifdef HAVE_GETSERVENT -GUILE_PROC (scm_getserv, "getserv", 0, 2, 0, +SCM_DEFINE (scm_getserv, "getserv", 0, 2, 0, (SCM name, SCM proto), "@deffnx procedure getservbyname name protocol @deffnx procedure getservbyport port protocol @@ -487,7 +487,7 @@ as its first argument; if given no arguments, it behaves like #endif #if defined(HAVE_SETHOSTENT) && defined(HAVE_ENDHOSTENT) -GUILE_PROC (scm_sethost, "sethost", 0, 1, 0, +SCM_DEFINE (scm_sethost, "sethost", 0, 1, 0, (SCM arg), "If @var{stayopen} is omitted, this is equivalent to @code{endhostent}. Otherwise it is equivalent to @code{sethostent stayopen}.") @@ -503,7 +503,7 @@ Otherwise it is equivalent to @code{sethostent stayopen}.") #endif #if defined(HAVE_SETNETENT) && defined(HAVE_ENDNETENT) -GUILE_PROC (scm_setnet, "setnet", 0, 1, 0, +SCM_DEFINE (scm_setnet, "setnet", 0, 1, 0, (SCM arg), "If @var{stayopen} is omitted, this is equivalent to @code{endnetent}. Otherwise it is equivalent to @code{setnetent stayopen}.") @@ -519,7 +519,7 @@ Otherwise it is equivalent to @code{setnetent stayopen}.") #endif #if defined(HAVE_SETPROTOENT) && defined(HAVE_ENDPROTOENT) -GUILE_PROC (scm_setproto, "setproto", 0, 1, 0, +SCM_DEFINE (scm_setproto, "setproto", 0, 1, 0, (SCM arg), "If @var{stayopen} is omitted, this is equivalent to @code{endprotoent}. Otherwise it is equivalent to @code{setprotoent stayopen}.") @@ -535,7 +535,7 @@ Otherwise it is equivalent to @code{setprotoent stayopen}.") #endif #if defined(HAVE_SETSERVENT) && defined(HAVE_ENDSERVENT) -GUILE_PROC (scm_setserv, "setserv", 0, 1, 0, +SCM_DEFINE (scm_setserv, "setserv", 0, 1, 0, (SCM arg), "If @var{stayopen} is omitted, this is equivalent to @code{endservent}. Otherwise it is equivalent to @code{setservent stayopen}.") |