source: trunk/ab5.0/ablib/src/Classes/System/Net/SocketAddress.ab@ 648

/*!
    @brief  sockaddr構造体のラップ
    @author OverTaker
    @date   2008/10/08
*/



Namespace System
Namespace Net

Class SocketAddress
    item As *Byte
    itemSize As Long
Public

    /*!
    @brief  コンストラクタ。アドレスファミリを指定して初期化する。
    @param  アドレスファミリ
    */
    Sub SocketAddress(family As Sockets.AddressFamily)
        Select Case family
            Case System.Net.Sockets.AddressFamily.InterNetwork
                init(family, SizeOf(sockaddr_in))
            Case System.Net.Sockets.AddressFamily.InterNetworkV6
                init(family, SizeOf(sockaddr_in6))
            Case Else
                init(family, SizeOf(sockaddr))
        End Select
    End Sub

    /*!
    @brief  コンストラクタ。アドレスファミリと大きさを指定して初期化する。
    @param  アドレスファミリ
    @param  大きさ
    */
    Sub SocketAddress(family As Sockets.AddressFamily, size As Long)
        init(family, size)
    End Sub

    /*!
    @brief  デストラクタ
    */
    Sub ~SocketAddress()
        If item <> NULL Then free(item)
    End Sub

    /*!
    @brief  アドレスファミリを取得する
    @return アドレスファミリ
    */
    Function AddressFamily() As Sockets.AddressFamily
        Return New Sockets.AddressFamily(Items->sa_family, "AddressFamily")
    End Function

    /*!
    @brief  sockaddrを取得する
    @return sockaddrを示すアドレス
    */
    Function Items() As *sockaddr
        Return item As *sockaddr
    End Function

    /*!
    @brief  sockaddrの大きさを取得する
    @return sockaddrの大きさ
    */
    Function Size() As Long
        Return itemSize
    End Function

    /*!
    @brief  等しいかどうかを取得する
    @retval True  等しい
    @retval False 等しくない
    */
    Function Equals(address As SocketAddress) As Boolean
        If This.Size = address.Size Then
            Dim i As Long
            For i = 0 To ELM(Size)
                If This.item[i] <> address.item[i] Then Return False
            Next
            Return True
        Else
            Return False
        End If
    End Function

Private

    /*!
    @brief  初期化する
    @param  アドレスファミリ
    @param  確保するsockaddrの大きさ
    */
    Sub init(family As DWord, size As Long)
        itemSize = size
        item = calloc( itemSize )
        Items->sa_family = family As Word
    End Sub
End Class

End Namespace
End Namespace