mruby in C# - 因 RPG Maker 的慘劇（一）

 1# 略
 2# 解除下面這些的註解狀態
 3MRuby::CrossBuild.new('32bit') do |conf|
 4  toolchain :gcc
 5
 6  conf.cc.flags << "-m32"
 7  conf.linker.flags << "-m32"
 8
 9  conf.build_mrbtest_lib_only
10
11	# 預設會編譯範例的 Gem 可以自己擴充
12  # conf.gem 'examples/mrbgems/c_and_Ruby_extension_example'
13  conf.gembox 'default' # 手動加入這行，確保預設的核心 Gem 都有被編譯
14
15  conf.test_runner.command = 'env'
16
17end

1#include <mruby.h>
2#include <mruby/string.h>
3#include <mruby/compile.h>
4#include "main.h"

1typedef struct mrb_value {
2  union { // 變數資料本體
3    mrb_float f;
4    void *p;
5    mrb_int i;
6    mrb_sym sym;
7  } value;
8  enum mrb_vtype tt; // 變數型別的列舉
9} mrb_value;

 1using System;
 2using System.Runtime.InteropServices;
 3
 4namespace MRuby
 5{
 6	
 7	[StructLayout (LayoutKind.Sequential)]
 8	public struct MrbValue
 9	{
10  	// 巢狀的結構，盡可能跟 C 的相同
11		[StructLayout (LayoutKind.Explicit)]
12		public struct Value
13		{
14			[FieldOffset (0)]
15			public double f;
16			[FieldOffset (0)]
17			public IntPtr p;
18			[FieldOffset (0)]
19			public int i;
20			[FieldOffset (0)]
21			public short sym;
22		}
23
24		public Value value; // 雖然已經定義，但是這邊還是要標明
25		public Type type; // 我另外建了一個列舉用來儲存，之後可以在不轉換的前提下判斷直接型別
26
27	}
28}

 1using System;
 2
 3namespace MRuby
 4{
 5	public enum Type
 6	{
 7		MRB_TT_FALSE = 0,   /*   0 */
 8		MRB_TT_FREE,        /*   1 */
 9		MRB_TT_TRUE,        /*   2 */
10		MRB_TT_FIXNUM,      /*   3 */
11		MRB_TT_SYMBOL,      /*   4 */
12		MRB_TT_UNDEF,       /*   5 */
13		MRB_TT_FLOAT,       /*   6 */
14		MRB_TT_CPTR,        /*   7 */
15		MRB_TT_OBJECT,      /*   8 */
16		MRB_TT_CLASS,       /*   9 */
17		MRB_TT_MODULE,      /*  10 */
18		MRB_TT_ICLASS,      /*  11 */
19		MRB_TT_SCLASS,      /*  12 */
20		MRB_TT_PROC,        /*  13 */
21		MRB_TT_ARRAY,       /*  14 */
22		MRB_TT_HASH,        /*  15 */
23		MRB_TT_STRING,      /*  16 */
24		MRB_TT_RANGE,       /*  17 */
25		MRB_TT_EXCEPTION,   /*  18 */
26		MRB_TT_FILE,        /*  19 */
27		MRB_TT_ENV,         /*  20 */
28		MRB_TT_DATA,        /*  21 */
29		MRB_TT_FIBER,       /*  22 */
30		MRB_TT_MAXDEFINE    /*  23 */
31	}
32}

 1using System;
 2using System.Runtime.InteropServices;
 3
 4namespace MRuby {
 5	public class Program {
 6  
 7		// 也可以指定副檔名，不過這樣就不能對應各種平台（在 Mac 也可以用 .so 不用刻意編譯 dylib）
 8  	public const string LIBMRUBY = "libmruby"; // libmruby.dll > libmruby.dylib > libmruby.so
 9  
10		[DllImport(LIBMRUBY, EntryPoint="mrb_open")] static extern IntPtr MrbOpen();
11		[DllImport(LIBMRUBY, EntryPoint="mrb_close")] static extern void MrbClose(IntPtr state);
12		public static void Main(string[] args)
13		{
14			IntPtr state = MrbOpen();
15      // 這個區段可以執行任何 Ruby Code
16      MrbClose(state); 
17		}
18	}
19}

 1using System;
 2using System.Runtime.InteropServices;
 3
 4namespace MRuby {
 5	public class Program {
 6  	public const string LIBMRUBY = "libmruby"; // libmruby.dll > libmruby.dylib > libmruby.so
 7  
 8		[DllImport(LIBMRUBY, EntryPoint="mrb_open")] static extern IntPtr MrbOpen();
 9		[DllImport(LIBMRUBY, EntryPoint="mrb_close")] static extern void MrbClose(IntPtr state);
10    
11		[DllImport(LIBMRUBY, EntryPoint="mrb_load_string")] static extern MrbValue MrbLoadString(IntPtr state, string code);
12		public static void Main(string[] args)
13		{
14			IntPtr state = MrbOpen();
15	
16      MrbValue returnValue = MrbLoadString(state, "'Hello World'"); // 執行 Ruby
17			// 接下來對 returnValue 做各式各樣的事情（笑
18      
19      MrbClose(state); 
20		}
21	}
22}

 1using System;
 2using System.Runtime.InteropServices;
 3
 4namespace MRuby {
 5	public class Program {
 6  	public const string LIBMRUBY = "libmruby"; // libmruby.dll > libmruby.dylib > libmruby.so
 7  
 8		[DllImport(LIBMRUBY, EntryPoint="mrb_open")] static extern IntPtr MrbOpen();
 9		[DllImport(LIBMRUBY, EntryPoint="mrb_close")] static extern void MrbClose(IntPtr state);
10    
11		[DllImport(LIBMRUBY, EntryPoint="mrb_load_string")] static extern MrbValue MrbLoadString(IntPtr state, string code);
12    
13		[DllImportAttribute(RubyContext.LIBMRUBY, EntryPoint="mrb_obj_as_string")] static extern MrbValue MrbObjectToString(IntPtr state, MrbValue obj);
14		[DllImportAttribute(RubyContext.LIBMRUBY, EntryPoint="mrb_string_value_ptr")] static extern IntPtr MrbStringPointer(IntPtr state, MrbValue obj);
15		public static void Main(string[] args)
16		{
17			IntPtr state = MrbOpen();
18	
19      MrbValue returnValue = MrbLoadString(state, "'Hello World'"); // 執行 Ruby
20			MrbValue stringValue;
21      if(returnValue.type == Type.MRB_TT_STRING) { // 是字串就不用管了 XD
22      	stringValue = returnValue;
23      } else {
24      	stringValue = MrbObjectToString(state, returnValue); // 大部分 MrbValue 都可以 to_s
25      }
26      IntPtr stringPtr = MrbStringPointer(state, stringValue); 
27      Console.WriteLine(Marshal.PtrToStringAuto(stringPtr)); // 用 C# 的指標轉自串輔助工具，選 Auto 會自動支援 Unicode 的內容
28      
29      MrbClose(state); 
30		}
31	}
32}