summaryrefslogtreecommitdiff
path: root/comm/InetAddress.cc
diff options
context:
space:
mode:
Diffstat (limited to 'comm/InetAddress.cc')
-rw-r--r--comm/InetAddress.cc17
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