[Mona] タイマーメッセージ

タイマーメッセージの機能をMonaに追加しました。
以下使い方サンプルです。

int MonaMain(List<char*>* pekoe)
{
    timer(1000);

    for (int i = 0; i < 5; i++)
    {
        MessageInfo msg;

        if (Message::receive(&msg)) continue;

        switch (msg.header)
        {
            case MSG_TIMER:
            {
                printf("timer\n");
                timer(1000);
                break;
            }
        }
    }
    return 0;
}

もともとsleep(一定時間CPUを他のスレッドにゆずる)という機能があったのでそれをまねれば良いとたかをくくっていました。
でもいろいろと問題があって3時間くらいかかりました・・・。