2013/02/06

Recent entries from same category

  1. Ruby の Array#<< は Array#push よりも速いか
  2. Ruby の a = a + 1 はなぜ undefined method '+' for nil:NilClass なのか
  3. Re: Ruby 製バッチ処理を省メモリ化した
  4. Crystal と CRuby でHTTPサーバのベンチマーク
  5. pure mruby な JSON パーサ書いた。

DLL(どるる)でmruby(むるびぃ)を実行(らん)してやったぜ!
cremno さんが mruby-dll という、mruby.dll を作るバッチファイルその他を作ってくれたので試した。
cremno/mruby-dll - GitHub

a quick-and-dirty script that creates mruby.dll

https://github.com/cremno/mruby-dll
mruby.dll の作り方はプロジェクトの README.md を見ていただくとして、これを使ったアプリケーションを書いてみた。
#include <windows.h>
#include <stdio.h>

#define _(x) #x

typedef struct mrb_value {
  char _[16];
} mrb_value;

int
main(int argc, char* argv[]) {
  HMODULE hmruby = LoadLibrary("mruby.dll");
  void* (*mrb_open)();
  void (*mrb_close)(void*);
  mrb_value (*mrb_load_string)(void*,const char*);
  void* mrb;
  void* ctx;
  
  mrb_open = (void* (*)()) GetProcAddress(hmruby, "mrb_open");
  mrb_close = (void (*)(void*)) GetProcAddress(hmruby, "mrb_close");
  mrb_load_string = (mrb_value (*)(void*,const char*)) GetProcAddress(hmruby, "mrb_load_string");

  mrb = mrb_open();
  mrb_load_string(mrb, _(
                                         \n
def fizz_buzz_factory                    \n
  i = 0                                  \n
  Proc.new do                            \n
   i += 1                                \n
   case                                  \n
   when i % 15 == 0 then "FizzBuzz"      \n
   when i % 5 == 0 then "Buzz"           \n
   when i % 3 == 0 then "Fizz"           \n
   else i                                \n
   end                                   \n
  end                                    \n
end                                      \n
                                         \n
fb = fizz_buzz_factory                   \n
                                         \n
(1..100).to_a.each do                    \n
  puts fb.call                           \n
end                                      \n

));

  mrb_close(mrb);

  FreeLibrary(hmruby);
  return 0;
}
単純に DLL をロードしてコールする物。mruby.h を使わずやりたかったので mrb_value を固定 16 バイトに。

実行するとちゃんと FizzBuzz 出力されます。
mrb_load_string の戻り値が構造体の実体なので、この DLL だけを使うにはおそらく FFI が書ける使える LL くらいしか無いと思いますが、遊ぶには十分だと思います。

いい大人なので、ちゃんと発音しましょう。
Posted at by | Edit