ruby_deep_clone 0.2.0

data/deep_clone.gemspec

@@ -0,0 +1,27 @@
+Gem::Specification.new do |s|
+  s.specification_version = 2 if s.respond_to? :specification_version=
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.rubygems_version = '1.3.5'
+
+  s.name = 'ruby_deep_clone'
+  s.version = '0.2.0'
+  s.date = '2013-04-03'
+
+  s.summary = "Ruby native deep clone"
+  s.description = "Native implementation to create deep clones of Ruby objects"
+
+  s.authors = ["Matthias Balmer", "Andre Medeiros"]
+  s.email = ['balmma@sysinf.ch', 'me@andremedeiros.info']
+
+  s.homepage = "https://github.com/balmma/ruby-deepclone"
+
+  s.extensions = ["ext/deep_clone/extconf.rb"]
+
+  s.require_paths = ["ext", "lib"]
+
+  s.files = ["deep_clone.gemspec","lib/deep_clone.rb","ext/deep_clone/deep_clone.c","ext/deep_clone/deep_clone.h","ext/deep_clone/extconf.rb"]
+
+  s.add_development_dependency 'rspec', '~> 2.13.0'
+  s.add_development_dependency 'rake-compiler', '~> 0.8.3'
+  s.add_development_dependency 'rake', '~> 10.0.4'
+end

data/ext/deep_clone/deep_clone.c

@@ -0,0 +1,79 @@
+#include "deep_clone.h"
+
+void Init_deep_clone()
+{
+  DeepClone = rb_define_module("DeepClone");
+  rb_define_module_function(DeepClone, "clone", deep_clone, 1);
+}
+
+static int clone_variable(st_data_t key, st_data_t index, struct dump_call_arg *arg)
+{
+  VALUE val = ROBJECT_IVPTR(arg->src)[(long)index];
+  rb_ivar_set(arg->obj, key, clone_object(val,arg->tracker));
+  return ST_CONTINUE;
+}
+
+static int hash_each(VALUE key, VALUE value, struct dump_call_arg *arg)
+{
+  rb_hash_aset(arg->obj,clone_object(key,arg->tracker),clone_object(value,arg->tracker));
+  return ST_CONTINUE;
+}
+
+static VALUE clone_object(VALUE object, VALUE tracker)
+{
+  if(rb_special_const_p(object))
+    return object;
+
+  VALUE new_obj;
+  VALUE id = rb_obj_id(object);
+
+  if(st_lookup(RHASH_TBL(tracker), id, 0)) {
+    new_obj = rb_hash_aref(tracker,id);
+  } else {
+    switch (BUILTIN_TYPE(object)) {
+      case T_ARRAY:
+        new_obj = rb_ary_new2(RARRAY_LEN(object));
+        long len = RARRAY_LEN(object);
+        rb_hash_aset(tracker,id,new_obj);
+        VALUE *ptr = RARRAY_PTR(object);
+        while (len--) {
+          rb_ary_push(new_obj,clone_object(*ptr,tracker));
+          ptr++;
+        }
+        break;
+      case T_HASH:
+        new_obj = rb_hash_new();
+        rb_hash_aset(tracker,id,new_obj);
+        struct dump_call_arg arg = {new_obj,tracker, object};
+        rb_hash_foreach(object, hash_each, (st_data_t)&arg);
+        break;
+      case T_STRING:
+      case T_DATA:
+        new_obj = rb_obj_clone(object);
+        rb_hash_aset(tracker,id,new_obj);
+        break;
+      case T_CLASS:
+      case T_MODULE:
+      case T_REGEXP:
+        new_obj = object;
+        rb_hash_aset(tracker,id,new_obj);
+        break;
+      default:
+        new_obj = rb_obj_clone(object);
+        rb_hash_aset(tracker,id,new_obj);
+        st_table *tbl = ROBJECT_IV_INDEX_TBL(object);
+        if(tbl) {
+          struct dump_call_arg arg = {new_obj,tracker, object};
+          TABLE_FOREACH(tbl, clone_variable, (st_data_t)&arg);
+        }
+        break;
+    }
+  }
+  return new_obj;
+}
+
+VALUE deep_clone(int argc,VALUE argv)
+{
+  VALUE tracker = rb_hash_new();
+  return clone_object(argv,tracker);
+}

data/ext/deep_clone/deep_clone.h

@@ -0,0 +1,49 @@
+#ifndef DEEP_CLONE_H
+#define DEEP_CLONE_H
+
+#include "ruby.h"
+#include "ruby/st.h"
+
+struct dump_call_arg {
+  VALUE obj;
+  VALUE tracker;
+  VALUE src;
+};
+
+#ifdef SA_EMPTY
+
+// Gotta do this because of 1.9.3's falcon patch
+ struct rb_classext_struct {
+    sa_table m_tbl;
+    sa_table iv_tbl;
+    sa_table const_tbl;
+    sa_table iv_index_tbl;
+};
+
+#define TABLE_FOREACH sa_foreach
+#define RCLASS_EXT(c) (RCLASS(c)->ptr)
+#define RCLASS_IV_INDEX_TBL(c) (&RCLASS_EXT(c)->iv_index_tbl)
+
+#else
+
+// Make it work with vanilla ruby (including 2.0)
+#ifndef TABLE_FOREACH
+#define TABLE_FOREACH st_foreach
+#endif
+
+#ifndef RCLASS_IV_INDEX_TBL
+#define RCLASS_IV_INDEX_TBL(c) (RCLASS(c)->iv_index_tbl)
+#endif
+
+#endif
+
+VALUE DeepClone = Qnil;
+
+void Init_deep_clone();
+static int clone_variable(st_data_t key, st_data_t index, struct dump_call_arg *arg);
+static int hash_each(VALUE key, VALUE value, struct dump_call_arg *arg);
+static VALUE clone_object(VALUE object, VALUE tracker);
+
+VALUE deep_clone(int argc,VALUE argv);
+
+#endif

data/ext/deep_clone/extconf.rb

@@ -0,0 +1,7 @@
+require 'mkmf'
+
+extension_name = 'deep_clone'
+
+dir_config(extension_name)
+
+create_makefile(extension_name)

data/lib/deep_clone.rb

@@ -0,0 +1 @@
+require "deep_clone/deep_clone"

metadata

@@ -0,0 +1,102 @@
+--- !ruby/object:Gem::Specification
+name: ruby_deep_clone
+version: !ruby/object:Gem::Version
+  version: 0.2.0
+  prerelease: 
+platform: ruby
+authors:
+- Matthias Balmer
+- Andre Medeiros
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-04-03 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 2.13.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 2.13.0
+- !ruby/object:Gem::Dependency
+  name: rake-compiler
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.8.3
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.8.3
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 10.0.4
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 10.0.4
+description: Native implementation to create deep clones of Ruby objects
+email:
+- balmma@sysinf.ch
+- me@andremedeiros.info
+executables: []
+extensions:
+- ext/deep_clone/extconf.rb
+extra_rdoc_files: []
+files:
+- deep_clone.gemspec
+- lib/deep_clone.rb
+- ext/deep_clone/deep_clone.c
+- ext/deep_clone/deep_clone.h
+- ext/deep_clone/extconf.rb
+homepage: https://github.com/balmma/ruby-deepclone
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- ext
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.24
+signing_key: 
+specification_version: 2
+summary: Ruby native deep clone
+test_files: []