AB開発日記

オペレータのオーバーロードがほとんど出来上がったので、試しにCStringのデモコードを書いてみました。

Class CString
Public
    m_lpszBuffer As LPSTR
    m_length As Long

    Sub CString()
        m_lpszBuffer=calloc(1)
        m_length=0
    End Sub
    Sub ~CString()
        free(m_lpszBuffer)
        m_lpszBuffer=0
    End Sub

    Function Operator() As LPSTR
        Return m_lpszBuffer
    End Function

    Sub Operator= (ByRef objString As CString)
        m_length=objString.m_length

        m_lpszBuffer=realloc(m_lpszBuffer,m_length+1)
        memcpy(m_lpszBuffer,objString.m_lpszBuffer,m_length)
        m_lpszBuffer[m_length]=0
    End Sub

    Sub Operator= (lpszText As LPSTR)
        m_lpszBuffer=realloc(m_lpszBuffer,lstrlen(lpszText)+1)
        lstrcpy(m_lpszBuffer,lpszText)
        m_length=lstrlen(lpszText)
    End Sub

    Function Operator+ (lpszText As LPSTR) As CString
        Dim tempString As CString
        tempString=This

        tempString.m_lpszBuffer=realloc(
            tempString.m_lpszBuffer,
            tempString.m_length+lstrlen(lpszText)+1)
        lstrcpy(
            tempString.m_lpszBuffer+tempString.m_length,
            lpszText)
        tempString.m_length+=lstrlen(lpszText)

        Return tempString
    End Function

    Function Operator+ (ByRef objString As CString) As CString
        Dim tempString As CString
        tempString=This

        tempString.m_lpszBuffer=realloc(
            tempString.m_lpszBuffer,
            tempString.m_length+objString.m_length+1)
        memcpy(
            tempString.m_lpszBuffer+tempString.m_length,
            objString.m_lpszBuffer,objString.m_length)
        tempString.m_length+=objString.m_length

        tempString.m_lpszBuffer[tempString.m_length]=0

        Return tempString
    End Function
End Class

パラメータの型を識別しながらオーバーロードしていくのは良いのですが、キャストされることを見越して、戻り値でオーバーロードの解決を行うためには、コンパイラのほうをもう一捻りしなくてはなりません。

CStringは仮の名前なので、クラスが完成したらString型へ変更しようと思います。で、コンパイラにこびりついている従来のString型をすべて解除する方向で行きたいと思います。スマートに行ってくれることを祈ります・・・・・