summaryrefslogtreecommitdiff
path: root/libguile/inet_aton.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>1999-12-12 20:35:02 +0000
committerGreg J. Badros <gjb@cs.washington.edu>1999-12-12 20:35:02 +0000
commit6e8d25a6954b00e1ff40976d95c8289cfa9fcca4 (patch)
tree524a6cdf3bb04e0ed9cb97b5d66777972e336c07 /libguile/inet_aton.c
parent1006486ec27336ea25ece6e5d97a2dbefbfe79e3 (diff)
downloadguile-6e8d25a6954b00e1ff40976d95c8289cfa9fcca4.tar.gz
* *.c: Finish replacing K&R style prototypes with ANSI C
prototypes. * eval.c: Make scm_m_mody's 3rd argument be a const char *, not a char *. ANSI prototypes caught this. * strorder.c: Use GUILE_PROC1 for the couple SCM_PROC1 expansions that I missed. * scm_validate.h: Use SCM_BOOLP for validating bools. Do not expand macros if SCM_DOCSTRING_SNARF.
Diffstat (limited to 'libguile/inet_aton.c')
-rw-r--r--libguile/inet_aton.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/inet_aton.c b/libguile/inet_aton.c
index 88c5d8a73..82b4e8852 100644
--- a/libguile/inet_aton.c
+++ b/libguile/inet_aton.c
@@ -31,6 +31,9 @@
* SUCH DAMAGE.
*/
+/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999,
+ gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
+
#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid[] = "@(#)inet_addr.c 8.1 (Berkeley) 6/17/93";
#endif /* LIBC_SCCS and not lint */
@@ -48,8 +51,7 @@ static char sccsid[] = "@(#)inet_addr.c 8.1 (Berkeley) 6/17/93";
* The value returned is in network order.
*/
u_long
-inet_addr(cp)
- register const char *cp;
+inet_addr(const char *cp)
{
struct in_addr val;
@@ -72,9 +74,7 @@ int inet_aton (const char *cp, struct in_addr *addr);
* This replaces inet_addr, the return value from which
* cannot distinguish between failure and a local broadcast address. */
int
-inet_aton(cp_arg, addr)
- const char *cp_arg;
- struct in_addr *addr;
+inet_aton(const char *cp_arg, struct in_addr *addr)
{
register unsigned long val;
register int base, n;