Changeset 648 for trunk

Timestamp:

Oct 18, 2008, 10:22:52 PM (16 years ago)

Author:

OverTaker

Message:

IPEndPointの実装

Location:

trunk/ab5.0/ablib/src/Classes/System/Net

Files:

• EndPoint.ab (added)
• IPAddress.ab (modified) (1 diff)
• IPEndPoint.ab (added)
• SocketAddress.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/System/Net/IPAddress.ab

@@ -40 +40 @@
         item = malloc(size)
         memcpy(item, VarPtr(ip), size)
+    End Sub
+
+    /*!
+    @brief コンストラクタ
+    @param SocketAddressクラスから作成
+    @note  このコンストラクタはライブラリ内のみで使用する目的で作られています。
+    */
+    Sub IPAddress(address As SocketAddress)
+        family = address.AddressFamily
+        Select Case family
+            Case AF_INET
+                Dim addr4 = address.Items As *sockaddr_in
+                size = SizeOf(in_addr)
+                item = malloc(size)
+                memcpy(item, VarPtr(addr4->sin_addr.s_addr), size)
+            Case AF_INET6
+                Dim addr6 = address.Items As *sockaddr_in6
+                size = SizeOf(in6_addr)
+                item = malloc(size)
+                memcpy(item, VarPtr(addr6->sin6_addr.s6_addr), size)
+            Case Else
+                Throw New NotSupportedException("IPAddress: Not Supported AddressFamily.")
+        End Select
     End Sub
 

trunk/ab5.0/ablib/src/Classes/System/Net/SocketAddress.ab

@@ -44 +44 @@
     */
     Sub ~SocketAddress()
-        free(item)
+        If item <> NULL Then free(item)
     End Sub