Chose a consistent convention for INET addresses: they are

stored in objects in 'network' representation, and manipulated
outside object in 'host' representation. The corresponding
calls to hton{sl} and ntoh{sl} have been added

1 files changed, 9 insertions, 8 deletions

diff --git a/comm/InetAddress.cc b/comm/InetAddress.cc
index ffb374e..7b3e5aa 100644
--- a/comm/InetAddress.cc
+++ b/comm/InetAddress.cc
@@ -9,7 +9,7 @@
  *	INET Addresses
  *
  *	$Id$
- *	$CurLog$
+ *	$CurLog$<
  *	Created from Address.cc
  */
 
@@ -87,7 +87,7 @@ IvlInetAddress :: IvlInetAddress (lword host, sword port)
 {
 	Addr.sin_family = AF_INET;
 	Addr.sin_port = htons (port);
-	Addr.sin_addr.s_addr = host;
+	Addr.sin_addr.s_addr = htonl (host);
 	Valid = true;
 }
 
@@ -157,23 +157,24 @@ IvlInetAddress :: LoopBack ()
 	return loopback = * ((lword *) host->h_addr);
 }
 
-#ifdef DOC
-// Ca c'est les super fake declarations pour avoir la DOC
-// merci au LRI...
 /*?
 Return the host number of the address.
 ?*/
 lword
 IvlInetAddress :: Host ()
-{}
+{
+	return ntohl (Addr.sin_addr.s_addr);
+}
 
 /*?
 Return the port number of the address.
 ?*/
 sword
 IvlInetAddress :: Port ()
-{}
-#endif /* DOC */
+{
+	return ntohs (Addr.sin_port);
+}
+
 
 /*?
 Return a const string representing the hostname part of the address if any