mult 0.2.0-i386-mingw32 → 0.2.2-i386-mingw32

data/README.rdoc

@@ -1,6 +1,9 @@
-# Mult: utility functions for playing with Ruby Objects
+Mult: utility functions for playing with Ruby Objects
+======================================================
+
+Methods:
+---------
 
-Includes:
 * actual_class
 * actual_class=
 * actual_super
@@ -12,7 +15,24 @@ Includes:
 * ivar_get
 * m_tbl
 * m_tbl=
+* iv_tbl
+* iv_tbl=
+* has_flag?
+* flags
+* flags=
+
+Constants:
+----------
+
+* T_CLASS
+* T_MODULE
+* T_OBJECT
+* T_ICLASS
+* T_DATA
+* FL_SINGLETON
+* FL_FREEZE
 
 TO USE:
+--------
 
-gem install mult
+`gem install mult`

data/ext/mult/extconf.rb

@@ -1,3 +1,9 @@
 require 'mkmf'
 
+# 1.9 compatibility
+$CFLAGS += " -DRUBY_19" if RUBY_VERSION =~ /1.9/
+
+# let's use c99
+$CFLAGS += " -std=c99"
+
 create_makefile('mult')

data/ext/mult/mult.c

@@ -20,7 +20,6 @@ set_class(VALUE self, VALUE klass) {
   return klass;
 }
 
-
 /* get the actual super class of an object */
 static VALUE
 get_super(VALUE self)
@@ -76,33 +75,57 @@ set_attached(VALUE self, VALUE klass) {
     return Qnil;
 }
 
+/* generate table get methods */
+#define CREATE_GET_TBL_FUNC(func_name, table_type) \
+  static VALUE func_name(VALUE self) {             \
+    RubyTable * tbl_struct = ALLOC(RubyTable);    \
+    if (!table_type(self))              \
+      table_type(self) = st_init_numtable();      \
+    tbl_struct->table = table_type(self);            \
+    return Data_Wrap_Struct(cRubyTable, 0, free, tbl_struct);   \
+  }                                                                     
+
+/* generate table set methods */
+#define CREATE_SET_TBL_FUNC(func_name, table_type) \
+  static VALUE                                     \
+  func_name(VALUE self, VALUE rb_tbl) { \
+    Check_Type(rb_tbl, T_DATA); \
+    RubyTable * tbl_struct; \
+    Data_Get_Struct(rb_tbl, RubyTable, tbl_struct); \
+    table_type(self) = tbl_struct->table; \
+    rb_clear_cache(); \
+    return self; \
+  }
+  
 /* get the method table */
-static VALUE
-get_m_tbl(VALUE self) {
-  RubyTable * m_tbl_struct = ALLOC(RubyTable);
-
-  if (!RCLASS_M_TBL(self))
-    RCLASS_M_TBL(self) = st_init_numtable();
+CREATE_GET_TBL_FUNC(get_m_tbl, RCLASS_M_TBL)
+/* set the method table */
+CREATE_SET_TBL_FUNC(set_m_tbl, RCLASS_M_TBL)
 
-  m_tbl_struct->table = RCLASS_M_TBL(self);
-  VALUE ret = Data_Wrap_Struct(cRubyTable, 0, free, m_tbl_struct);
+/* get the iv table */
+CREATE_GET_TBL_FUNC(get_iv_tbl, RCLASS_IV_TBL)
+/* set the iv table */
+CREATE_SET_TBL_FUNC(set_iv_tbl, RCLASS_IV_TBL)
 
-  return ret;
+static VALUE
+set_flags(VALUE self, VALUE flag)
+{
+  Check_Type(flag, T_FIXNUM);
+  FL_SET(self, FIX2INT(flag));
+  return self;
 }
 
-/* set the method table */
 static VALUE
-set_m_tbl(VALUE self, VALUE rb_m) {
-  Check_Type(rb_m, T_DATA);
-  
-  RubyTable * m_tbl_struct;
-  Data_Get_Struct(rb_m, RubyTable, m_tbl_struct);
-  
-  RCLASS_M_TBL(self) = m_tbl_struct->table;
+get_flags(VALUE self)
+{
+  return INT2FIX(RBASIC(self)->flags);
+}
 
-  rb_clear_cache();
-  
-  return self;
+static VALUE
+has_flag_p(VALUE self, VALUE flag)
+{
+  Check_Type(flag, T_FIXNUM);
+  return FL_TEST(self, FIX2INT(flag)) ? Qtrue : Qfalse;
 }
 
 void 
@@ -118,6 +141,8 @@ Init_mult() {
 
   rb_define_method(rb_cModule, "m_tbl", get_m_tbl, 0);
   rb_define_method(rb_cModule, "m_tbl=", set_m_tbl, 1);
+  rb_define_method(rb_cModule, "iv_tbl", get_iv_tbl, 0);
+  rb_define_method(rb_cModule, "iv_tbl=", set_iv_tbl, 1);
 
   rb_define_method(rb_cModule, "actual_super", get_super, 0);
   rb_define_method(rb_cModule, "actual_super=", set_super, 1);
@@ -126,4 +151,17 @@ Init_mult() {
     
   rb_define_method(rb_cClass, "attached", get_attached, 0);
   rb_define_method(rb_cClass, "attached=", set_attached, 1);
+
+  rb_define_method(rb_cObject, "has_flag?", has_flag_p, 1);
+  rb_define_method(rb_cObject, "flags=", set_flags, 1);
+  rb_define_method(rb_cObject, "flags", get_flags, 0);
+
+  // constants
+  rb_define_const(rb_cObject, "T_CLASS", INT2FIX(T_CLASS));
+  rb_define_const(rb_cObject, "T_MODULE", INT2FIX(T_MODULE));
+  rb_define_const(rb_cObject, "T_OBJECT", INT2FIX(T_OBJECT));
+  rb_define_const(rb_cObject, "T_DATA", INT2FIX(T_DATA));
+  rb_define_const(rb_cObject, "T_ICLASS", INT2FIX(T_ICLASS));
+  rb_define_const(rb_cObject, "FL_FREEZE", INT2FIX(FL_FREEZE));
+  rb_define_const(rb_cObject, "FL_SINGLETON", INT2FIX(FL_SINGLETON));
 }

data/lib/mult/version.rb

@@ -1,3 +1,3 @@
 module Mult
-  VERSION = "0.2.0"
+  VERSION = "0.2.2"
 end

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: mult
 version: !ruby/object:Gem::Version 
-  hash: 23
+  hash: 19
   prerelease: false
   segments: 
   - 0
   - 2
-  - 0
-  version: 0.2.0
+  - 2
+  version: 0.2.2
 platform: i386-mingw32
 authors: 
 - John Mair (banisterfiend)