VB.Net → Ｃ＃ 焼き直し

Question

VB.netからC#に焼き直すときにモジュールの部分はどうすればいいですか？

'*******************************************************************************
' felicalib.dll のヘッダファイル felicalib.h を VB.NET 用に変換してみました。
' このままでは使いづらいので、CFelicaLib.vb で多少は扱いやすいようにしています。
'*******************************************************************************
Imports System.Runtime.InteropServices
Imports UInt8 = System.Byte

Module modFelicaLib
    Private Const MAX_SYSTEM_CODE = 8
    Private Const MAX_AREA_CODE = 16
    Private Const MAX_SERVICE_CODE = 256

    '-------------------------------
    ' FeliCa の情報を格納する構造体
    '-------------------------------
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure felica
        Public p As IntPtr           'PaSoRi ハンドル
        Public systemcode As UInt16  'システムコード
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=8)> _
        Public IDm() As UInt8        'IDm
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=8)> _
        Public PMm() As UInt8        'PMm

        'systemcode
        Public num_system_code As UInt8      '列挙システムコード数
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=MAX_SYSTEM_CODE)> _
        Public system_code() As UInt16       '列挙システムコード

        'area/service codes
        Public num_area_code As UInt8        'エリアコード数
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=MAX_AREA_CODE)> _
        Public area_code() As UInt16         'エリアコード
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=MAX_AREA_CODE)> _
        Public end_service_code() As UInt16  'エンドサービスコード

        Public num_service_code As UInt8     'サービスコード数
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=MAX_SERVICE_CODE)> _
        Public service_code() As UInt16      'サービスコード
    End Structure

    '-----------
    ' constants
    '-----------
    'システムコード (ネットワークバイトオーダ/ビックエンディアンで表記)
    Public Const POLLING_ANY = &HFFFF
    Public Const POLLING_EDY = &HFE00  'システムコード: 共通領域 (Edyなどが使用)
    Public Const POLLING_SUICA = &H3   'システムコード: サイバネ領域

    '------
    ' APIs
    '------
    '【関 数 名】pasori_open
    '【第１引数】[in] dummy
    '【戻 り 値】pasori  ハンドル
    <DllImport("felicalib.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Public Function pasori_open(ByVal dummy As IntPtr) As IntPtr
    End Function

    '【関 数 名】pasori_close
    '【第１引数】[in] p  pasoriハンドル (pasori_open で得たポインタを指定する)
    <DllImport("felicalib.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Public Sub pasori_close(ByVal p As IntPtr)
    End Sub

    '【関 数 名】InteropServices
    '【第１引数】[in] p  pasoriハンドル (pasori_open で得たポインタを指定する)
    '【戻 り 値】エラーコード
    <DllImport("felicalib.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Public Function pasori_init(ByVal p As IntPtr) As Integer
    End Function

    '【関 数 名】felica_polling
    '【第１引数】[in] p           pasoriハンドル (pasori_open で得たポインタを指定する)
    '【第２引数】[in] systemcode  システムコード
    '【第３引数】[in] RFU         RFU (使用しない)
    '【第４引数】[in] timeslot    タイムスロット
    '【戻 り 値】felicaハンドル (MarshalクラスのPtrToStructureメソッドを使用)
    <DllImport("felicalib.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Public Function felica_polling( _
        ByVal p As IntPtr, _
        ByVal systemcode As UInt16, _
        ByVal RFU As UInt8, _
        ByVal timeslot As UInt8 _
    ) As IntPtr
    End Function

    '【関 数 名】felica_free
    '【第１引数】[in] f  felicaハンドル (felica構造体のポインタを指定する)
    <DllImport("felicalib.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Public Sub felica_free(ByVal f As IntPtr)
    End Sub

    '【関 数 名】felica_getidm
    '【第１引数】[in]  f   felicaハンドル (felica構造体のポインタを指定する)
    '【第２引数】[out] buf IDm を格納するバッファ(8バイト)
    <DllImport("felicalib.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Public Sub felica_getidm(ByVal f As IntPtr, ByVal buf As IntPtr)
    End Sub

    '【関 数 名】felica_getpmm
    '【第１引数】[in]   f    felicaハンドル (felica構造体のポインタを指定する)
    '【第２引数】[out]  buf  PMm を格納するバッファ(8バイト)
    <DllImport("felicalib.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Public Sub felica_getpmm(ByVal f As IntPtr, ByVal buf As IntPtr)
    End Sub

    '【関 数 名】felica_read_without_encryption02
    '【第１引数】[in]   f            felicaハンドル (felica構造体のポインタを指定する)
    '【第２引数】[in]   servicecode  サービスコード
    '【第３引数】[in]   mode         モード(使用しない)
    '【第４引数】[in]   addr         ブロック番号
    '【第５引数】[out]  data         データ(16バイト)
    '【戻 り 値】エラーコード
    <DllImport("felicalib.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Public Function felica_read_without_encryption02( _
        ByVal f As IntPtr, _
        ByVal servicecode As Integer, _
        ByVal mode As Integer, _
        ByVal addr As UInt8, _
        ByVal buf As IntPtr _
    ) As Integer
    End Function

    '【関 数 名】felica_write_without_encryption
    '【第１引数】[in]   f            felicaハンドル (felica構造体のポインタを指定する)
    '【第２引数】[in]   servicecode  サービスコード
    '【第３引数】[in]   mode         モード(使用しない)
    '【第４引数】[in]   addr         ブロック番号
    '【第５引数】[out]  data         データ(16バイト)
    '【戻 り 値】エラーコード
    <DllImport("felicalib.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Public Function felica_write_without_encryption( _
        ByVal f As IntPtr, _
        ByVal servicecode As Integer, _
        ByVal addr As UInt8, _
        ByVal buf As IntPtr _
    ) As Integer
    End Function

    '【関 数 名】felica_enum_systemcode
    '【第１引数】[in]  p  pasoriハンドル (pasori_open で得たポインタを指定する)
    '【戻 り 値】felicaハンドル (felica構造体のポインタを指定する)
    <DllImport("felicalib.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Public Function felica_enum_systemcode(ByVal p As IntPtr) As IntPtr
    End Function

    '【関 数 名】felica_enum_service
    '【第１引数】[in]  p           pasoriハンドル (pasori_open で得たポインタを指定する)
    '【第２引数】[in]  systemcode  システムコード
    '【戻 り 値】felicaハンドル (felica構造体のポインタを指定する)
    <DllImport("felicalib.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Public Function felica_enum_service(ByVal p As IntPtr, ByVal systemcode As UInt16) As IntPtr
    End Function
End Module

クラス化するしか方法はないのですか？

Answer 1

VB.NETの Module は内部的には静的クラスとなると思われます。
クラス化するしかないというか、元々Module自体がVBの歴史的な背景から用意されている
特殊なクラス定義のシンタックスシュガーだと思えば良いのではないでしょうか。

Comments

[KSwordOfHaste]

移植をなるべく楽にという観点からnakitさんがおっしゃるようにstatic classと回答したほうがまずは適切に思えました。自分の回答は参考になりにくかったですね

Answer 2

ModuleはVBに特有の宣言のようですね。
また、独立したものとして存在するので、C#に直接変換することができないようです。

扱い的には、namespaceがmodFelicaLibの中にある無名のstatic classという扱いが妥当だとは思いますが、扱いやすさから考えるとstatic classがModFelicaLibとしたほうがやりやすいです。

ただし、リファクタリングをしてもかまわないのであれば、Felicaクラスを定義して、ハンドルや暗号化などを隠蔽して、intやstringのみを引数に出来るようにするとすごく使いやすくなると思われます。

余談ですが、私もハンドラを用いた外部のdllとの連携をクラスで書き換えて、サンプルコードを先輩のところに持っていったとき、先輩が言った言葉が「ちゃんと動くコード持ってきて」だったことが忘れられません。コードがあまりに簡潔になったので、動作可能ということが信じられなかったのです。

dllでの連携に、ラッパークラスの適用はおすすめです。

Answer 3

まずはnamespaceと考えるのが自然ではないかという予感がします。予感といった意味はコードの断片だけではプログラムあるいはライブラリーの構成がどうなりそうかはっきりこうといえないということです。

とりあえずnamespaceにしておき必要に応じてリファクタリングすればよろしいのではないでしょうか。