Big Sky :: mruby で自前の組み込み関数を呼び出してみた。

FizzBuzzに並んで有名な教育向けな題材、Acme::Oppaiです。


#include <mruby.h>

#include <mruby/proc.h>

#include <compile.h>



static mrb_value

oppailib_oppaifunc(mrb_state *mrb, mrb_value self) {

  static int i = 0;

  puts(i++ % 2 == 0 ?

"　　　 _　　　 おっ　\n"

"　　(　゜∀゜)　　　 \n"

"　　(　 ⊂彡　　　　 \n"

"　 　|　　　|　 　　 \n"

"　 　し ⌒Ｊ　　　　 \n" :

"　　　 _ 　∩　おっ　\n"

"　　(　゜∀゜)彡 ぱい\n"

"　　(　 　　|　　　　\n"

"　 　|　　　|　　　　\n"

"　 　し ⌒Ｊ　　　　 \n");

  return self;

}



int

main() {

  int n;

  mrb_state* mrb;

  struct mrb_parser_state* st;

  struct RClass *oppailib;

  char* code =

"require 'Oppai'                       \n"

"Oppai.oppai().oppai().oppai().oppai() \n";



  mrb = mrb_open();



  oppailib = mrb_define_module(mrb, "Oppai");

  mrb_define_class_method(mrb, oppailib, "oppai", oppailib_oppaifunc, ARGS_REQ(1));



  st = mrb_parse_string(mrb, code);

  n = mrb_generate_code(mrb, st->tree);

  mrb_pool_close(st->pool);

  mrb_run(mrb, mrb_proc_new(mrb, mrb->irep[n]), mrb_nil_value());

}



/* vim:set et ts=2 sts=2 sw=2 tw=0: */

ruby のAPIと若干形が異なるので、既存コードとか移植する人はいろいろあるかも。

Big Sky

2012/04/20

Recent entries from same category

mruby で自前の組み込み関数を呼び出してみた。