呼び出し規約の問題は解決した。

あとは可変長引数の問題だ。

 typedef void (*SQPRINTFUNCTION)(HSQUIRRELVM,const SQChar * ,...);
 
こんなやつ。

 SQUIRREL_API void sq_setprintfunc(HSQUIRRELVM v, SQPRINTFUNCTION printfunc,SQPRINTFUNCTION errfunc);
 
こんな子がいるんだけど

 delegate void SqPrintFunctionDelegate(HSQUIRRELVM, const SQChar*, ...array^);
 void SetPrintfunc(SqPrintFunctionDelegate^ func)
 {
     sq_setprintfunc(_VM,
         (SQPRINTFUNCTION)Marshal::GetFunctionPointerForDelegate(func).ToPointer(),
         (SQPRINTFUNCTION)Marshal::GetFunctionPointerForDelegate(func).ToPointer());
 }

こうしてやっても予想通りだめだ。
実行時にdelegate呼び出しあたりで例外が発生。
まぁ、この引数はprintf形式で来るのでC#に流しても処理できないんだけどね…。
しょうがないので一度unmanagedで受けてvsprintfしてからdelegateに投げてみる。

・HSQUIRRELVMはラップ対象のオブジェクト。中身はポインタ。
・SqVMはHSQUIRRELVMをラップしたクラスで、.NET側に公開したいもの。
・SqVMのインスタンス毎に別のdelegateを登録可能にしたい。
・delegateにはSqVMのハンドルを渡したい。

 #pragma unmanaged
 typedef (*printfunc)(HSQUIRRELVM, const SQChar*);
 static printfunc _printfunc = NULL;

 static void printfunc_adapter(HSQUIRRELVM v, const SQChar* fmt, ...)
 {
     // vsprintfしてbufferにフォーマット済みの文字列を入れる
     _printfunc(v, buffer);
 }

 #pragma managed
 public delegate void SqUserPrintFunc(SqVM^, String^); //これをmanaged側に公開する
 public ref class SqVM
 {
     [UnmanagedFunctionPointerAttribute(CallingConvention::Cdecl)]
     delegate void SqApiPrintFunc(HSQUIRRELVM v, const SQChar* str);
     
     static Dictionary^ vms = gcnew Dictionary();
     static SqApiPrintFunc^ pf = gcnew SqApiPrintFunc(api_print_func);
     static void api_print_func(HSQUIRRELVM v, const SQChar* str)
     {
         SqVM^ _this = vms[v];
         _this->printfunc(_this, gcnew String(str));
     }
     
     SqPrintFunc^ printfunc;
     HSQUIRRELVM _VM;
     
 public:
     static void Setup()
     {
         _printfunc = (::printfunc)Marshal::GetFunctionPointerForDelegate(pf).ToPointer();
     }
     SqVM(int stacksize)
     {
         _VM = sq_open(stacksize);
         vms->Add((int)_VM, this);
         sq_setprintfunc(_VM, printfunc_adapter, printfunc_adapter);
     }
     void SetPrintFunc(SqUserPrintFunc^ func)
     {
         printfunc = func;
     }
 };

まずSqVM::Setup()を呼び_printfuncを初期化しておく。
それからSqVMのコンストラクタでvmsに登録し、printfunc_adapterをコールバックに登録。
実行中にprintfunc_adapterがコールバックされると、
_printfuncの関数ポインタを経由してapi_print_funcが呼ばれ、
HSQUIRRELVMをキーにSqVMのハンドルを取り出して個別のprintfuncを呼ぶ
と。

これでユーザからは

 SqVM.Setup();
 SqVM v = new SqVM(1024);
 v.SetPrintFunc(new SqUserPrintFunc(myprintfunc));
 
で登録できるように。

コールバックにvoid* userdataとかを登録できれば
そこに直接呼び出したいdelegateの関数ポインタを登録してやったり出来たんだけど。
出来ないのでちょっとひと手間。

これもAttributeをちょろっと書くだけで解決したりしないんだろうか。

__stdcallをつけないと吹っ飛ぶと書いた。
つけれるなら、まぁそれで良いんだ。

問題はそこを変更できない場合で、既存のものからコールバックしてほしいときは__stdcallつけるわけにはいかない。

.NET 1.1まではまともな手段ではどうしようもなかったようで、
http://www.codeproject.com/KB/dotnet/Cdecl_CSharp_VB.aspx
このようなものが作られていた。

3.5に組み込んでみたところ、Runtimeエラーだ。
ソース読んでみるとリフレクションで.NET Framework内部のprivate/internalなメソッドをいろいろ呼んでいて、そこが変更されて動かなくなってるようだ。
まぁそんなことしてたらバージョン替わって動かなくなっても文句は言えない…。

んでそこのフォーラムを読んでみたら、
.NET Frameowrk 2.0以降はもっと簡単に

 typedef void (__cdecl *CallbackFunc)(int);
  :
 [UnmanagedFunctionPointerAttribute(CallingConvention.Cdecl)]
 delegate void simpleFunc(int);
  :

この1行追加でOKのようだ。

あるんじゃないかなぁとは思っていたけど、日本語で情報が見つけられなくて大幅に遠回りしてしまった。
たしかに上記アトリビュートをMSDNで調べると、ちゃんと日本語で書いてあるんだけど、そこまでの道が無かった。

#pragma unmanaged
typedef void (__stdcall *CallbackFunc)(int);
void NativeCallback(CallbackFunc func)
{
    func(123);
}

#pragma managed
void ManagedCallback(CallbackFunc func)
{
    func(321);
}
using namespace System;
using namespace System::Runtime::InteropServices;

delegate void simpleFunc(int);
ref class Hoge
{
internal:
    int i;
    void memberFunc(int n) { Console::WriteLine("memberFunc {0} {1}", i,n); }
    static void staticFunc(int n) { Console::WriteLine("staticFunc {0}", n); }
};

int main(array^ args)
{
    Hoge h1;
    h1.i = 1234;
    simpleFunc^ func = gcnew simpleFunc(%h1, &Hoge::memberFunc); // thisも渡せる。
    func += gcnew simpleFunc(Hoge::staticFunc); // もちろんstaticなmethodも渡せる。

    // 直接delegateを呼んでみる
    func(111);
    // managedな関数に関数ポインタ形式で渡して呼んでみる
    ManagedCallback((CallbackFunc)Marshal::GetFunctionPointerForDelegate(func).ToPointer());
    // nativeな関数に関数ポインタ形式で渡して呼んでみる
    NativeCallback((CallbackFunc)Marshal::GetFunctionPointerForDelegate(func).ToPointer());
    return 0;
}

----------------

typedef void (__stdcall *CallbackFunc)(int);
__stdcallが重要。
無いとふっとぶ。
たまに動いてしまう事もあるからたちが悪い

simpleFunc^ func =
funcを保持しておかないと、GCに回収されてコールバックしようとしたときにはdelegateが無いなんてことになる。
今回のサンプルならその場でしかコールバックされないが、
タイマーのようにあとからコールバックされるときなんかは注意。

ツール･ド･フランスは100年以上の歴史を持つロードレースの世界最大の大会で、
これまで日本人は数人が出場しただけでした。
今年は日本人が二人出場ということで、日本でも多少注目度が上がってる…のかな？
最近は自転車ブームですしね。
そういう自分も去年くらいから観はじめたんだけど。

今年は7/4から7/26日まで。
動画はこちらから。
http://www.nicovideo.jp/mylist/13414621
去年のもこのひとの動画で観たんだけど、適度にまとまってていい感じ。
フルで見ると長すぎるので…。
（マイリストは私が見た分を追加してるものなので、更新は少し遅れます）

で、やっぱこういうのをみると、自分も走りたくなるわけですよ。
それで昨日は寝る前に腹筋をしたんですよ。10回。
そしたら筋肉痛に…
これはひどい。
まぁ今日もなんとか腹筋10回/背筋15回/腕立て10回。
明日は動けないかもしれんね。

自転車も乗ってやらないとなぁ。
20万↑のロードを買ってまだ500kmくらいしか走っていない。
でも、これからの季節は暑いので秋から頑張る。


以下はネタバレを含むので、これから観る人は読まないように。
見る気無い人は読んでもOK。
で、もし面白そうだと思ったら動画のほうも見てもらえれば。


第1ステージはTT（タイムトライアル）。
まぁ普通でした。
TTは個人の実力勝負で、駆け引きやスピード感がいまいちなので見てるほうとしては眠くなりがち。

第2ステージはマスドレース（普通のロードレース）。
ここでいきなり新城が5位。
日本人でステージ一桁順位は始めて。（総合では完走無し）
しかも、ゴールスプリントではトップの後ろにつく形じゃなくて、
ラインはずしてさらに前を狙うポジションでのゴール。
これはすごい。

第3ステージもマスドレース。
今度は別府が8位。
日本人連続とかすごい。
しかもロードレースとして良い仕事をしての8位なので、かなり評価できる。
そしてさりげなく、ランス・アームストロングが総合3位に。

第4ステージはTTT（チームタイムトライアル）
ツールではTTTは4年ぶりらしい。
これは熱い戦い。
マスドレースってのは速ければ勝ちではないので、時にはゆっくり走るけど、TTは完全なスピード勝負。
さらにTTTだと空気抵抗が分散してすごいスピードが出る。
綺麗な隊列ですごいスピードで走るのは圧巻。
そしてランスが総合でトップとコンマ秒差で2位。
復帰していきなりこれとは…。
半分以上一人で牽いてランスから逃げ切った総合トップのカンチェラーラもすごい。