mult 0.2.0 → 0.2.2

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/Rakefile

@@ -20,12 +20,12 @@ spec = Gem::Specification.new do |s|
   s.date = Time.now.strftime '%Y-%m-%d'
   s.require_path = 'lib'
   s.homepage = "http://banisterfiend.wordpress.com"
-#  s.platform = 'i386-mingw32'
+  #s.platform = 'i386-mingw32'
   s.platform = Gem::Platform::RUBY
   s.extensions = FileList["ext/**/extconf.rb"]
   s.has_rdoc = 'yard'
-  s.files = ["Rakefile", "README.rdoc", "LICENSE", "lib/mult.rb", "lib/mult/version.rb"] 
-  #+ ["lib/1.8/mult.#{dlext}", "lib/1.9/mult.#{dlext}"] +
+  s.files = ["Rakefile", "README.rdoc", "LICENSE", "lib/mult.rb", "lib/mult/version.rb"] +
+  #  ["lib/1.8/mult.#{dlext}", "lib/1.9/mult.#{dlext}"] +
     FileList["ext/**/extconf.rb", "ext/**/*.h", "ext/**/*.c"].to_a
 end
 

data/ext/mult/compat.h

@@ -0,0 +1,23 @@
+/* contains basic macros to facilitate ruby 1.8 and ruby 1.9 compatibility */
+
+#ifndef GUARD_COMPAT_H
+#define GUARD_COMPAT_H
+
+#include <ruby.h>
+
+/* macros for backwards compatibility with 1.8 */
+#ifndef RUBY_19
+# define RCLASS_M_TBL(c) (RCLASS(c)->m_tbl)
+# define RCLASS_SUPER(c) (RCLASS(c)->super)
+# define RCLASS_IV_TBL(c) (RCLASS(c)->iv_tbl)
+# define OBJ_UNTRUSTED OBJ_TAINTED
+# include "st.h"
+#endif
+
+# define FALSE 0
+# define TRUE 1
+
+/* a useful macro. cannot use ordinary CLASS_OF as it does not return an lvalue */
+#define KLASS_OF(c) (RBASIC(c)->klass)
+
+#endif

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

@@ -0,0 +1,167 @@
+#include <ruby.h>
+#include "compat.h"
+
+static VALUE cRubyTable;
+
+typedef struct {
+  st_table* table;
+} RubyTable;
+
+/* return the actual class of an object */
+static VALUE
+get_class(VALUE self) {    
+  return CLASS_OF(self);
+}
+
+/* set the class of an object */
+static VALUE
+set_class(VALUE self, VALUE klass) {
+  KLASS_OF(self) = klass;
+  return klass;
+}
+
+/* get the actual super class of an object */
+static VALUE
+get_super(VALUE self)
+{
+  return RCLASS_SUPER(self);
+}
+
+/* set the super class of an object */
+static VALUE
+set_super(VALUE self, VALUE klass) {    
+  RCLASS_SUPER(self) = klass;
+  return klass;
+}
+
+/* is the object a singleton class ? */
+static VALUE
+is_singleton(VALUE self, VALUE klass) {    
+  return FL_TEST(self, FL_SINGLETON) ? Qtrue : Qfalse;
+}
+
+/* get a raw instance var */
+static VALUE
+get_ivar(VALUE self, VALUE sym)
+{
+  return rb_ivar_get(self, rb_to_id(sym));
+}
+
+/* set a raw instance var */
+static VALUE
+set_ivar(VALUE self, VALUE sym, VALUE val)
+{
+  return rb_ivar_set(self, rb_to_id(sym), val);
+}
+
+/* get the attached class if receiver is a singleton class */
+static VALUE
+get_attached(VALUE self)
+{
+  if(FL_TEST(self, FL_SINGLETON))
+    return rb_iv_get(self, "__attached__");
+  else
+    return Qnil;
+}
+
+/* set the attached class if receiver is a singleton class */
+static VALUE
+set_attached(VALUE self, VALUE klass) { 
+  if(FL_TEST(self, FL_SINGLETON)) { 
+    rb_iv_set(self, "__attached__", klass);
+    return self;
+  }
+  else
+    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 */
+CREATE_GET_TBL_FUNC(get_m_tbl, RCLASS_M_TBL)
+/* set the method table */
+CREATE_SET_TBL_FUNC(set_m_tbl, RCLASS_M_TBL)
+
+/* 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)
+
+static VALUE
+set_flags(VALUE self, VALUE flag)
+{
+  Check_Type(flag, T_FIXNUM);
+  FL_SET(self, FIX2INT(flag));
+  return self;
+}
+
+static VALUE
+get_flags(VALUE self)
+{
+  return INT2FIX(RBASIC(self)->flags);
+}
+
+static VALUE
+has_flag_p(VALUE self, VALUE flag)
+{
+  Check_Type(flag, T_FIXNUM);
+  return FL_TEST(self, FIX2INT(flag)) ? Qtrue : Qfalse;
+}
+
+void 
+Init_mult() {
+
+  cRubyTable = rb_define_class("RubyTable", rb_cObject);
+  
+  rb_define_method(rb_cObject, "actual_class", get_class, 0);
+  rb_define_method(rb_cObject, "actual_class=", set_class, 1);
+
+  rb_define_method(rb_cObject, "ivar_get", get_ivar, 1);
+  rb_define_method(rb_cObject, "ivar_set", set_ivar, 2);
+
+  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);
+
+  rb_define_method(rb_cClass, "is_singleton?", is_singleton, 0);
+    
+  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: ruby
 authors: 
 - John Mair (banisterfiend)
@@ -34,6 +34,8 @@ files:
 - lib/mult.rb
 - lib/mult/version.rb
 - ext/mult/extconf.rb
+- ext/mult/compat.h
+- ext/mult/mult.c
 has_rdoc: yard
 homepage: http://banisterfiend.wordpress.com
 licenses: []