rcstorable 0.1.1

data/.gitignore

@@ -0,0 +1,11 @@
+*.sw?
+.DS_Store
+coverage
+rdoc
+pkg
+*.bundle
+*.so
+*.dll
+*.o
+Makefile
+*.gemspec

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Burke Libbey, Thorkelson Consulting Ltd.
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,34 @@
+require 'rubygems'
+require 'rake'
+
+task :gem => :build
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "rcstorable"
+    gem.summary = "Ruby C implementation of perl Storable's thaw"
+    gem.description = "Super-fast Ruby C implementation of perl Storable's thaw"
+    gem.email = "burke.libbey@canadadrugs.com"
+    gem.homepage = "http://canadadrugs.com"
+    gem.authors = ["Burke Libbey"]
+    gem.files.include '{spec,lib,ext}/**/*'
+    gem.extensions = ["ext/extconf.rb"]
+  end
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: sudo gem install jeweler"
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'spec'
+    test.pattern = 'spec/**/*_spec.rb'
+    test.verbose = true
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
+  end
+end
+

data/VERSION

@@ -0,0 +1 @@
+0.1.1

data/ext/Makefile

@@ -0,0 +1,157 @@
+
+SHELL = /bin/sh
+
+#### Start of system configuration section. ####
+
+srcdir = .
+topdir = /System/Library/Frameworks/Ruby.framework/Versions/1.8/usr/lib/ruby/1.8/universal-darwin10.0
+hdrdir = $(topdir)
+VPATH = $(srcdir):$(topdir):$(hdrdir)
+exec_prefix = $(prefix)
+prefix = $(DESTDIR)/System/Library/Frameworks/Ruby.framework/Versions/1.8/usr
+sharedstatedir = $(prefix)/com
+mandir = $(DESTDIR)/usr/share/man
+psdir = $(docdir)
+oldincludedir = $(DESTDIR)/usr/include
+localedir = $(datarootdir)/locale
+bindir = $(exec_prefix)/bin
+libexecdir = $(exec_prefix)/libexec
+sitedir = $(DESTDIR)/Library/Ruby/Site
+htmldir = $(docdir)
+vendorarchdir = $(vendorlibdir)/$(sitearch)
+includedir = $(prefix)/include
+infodir = $(DESTDIR)/usr/share/info
+vendorlibdir = $(vendordir)/$(ruby_version)
+sysconfdir = $(prefix)/etc
+libdir = $(exec_prefix)/lib
+sbindir = $(exec_prefix)/sbin
+rubylibdir = $(libdir)/ruby/$(ruby_version)
+docdir = $(datarootdir)/doc/$(PACKAGE)
+dvidir = $(docdir)
+vendordir = $(libdir)/ruby/vendor_ruby
+datarootdir = $(prefix)/share
+pdfdir = $(docdir)
+archdir = $(rubylibdir)/$(arch)
+sitearchdir = $(sitelibdir)/$(sitearch)
+datadir = $(datarootdir)
+localstatedir = $(prefix)/var
+sitelibdir = $(sitedir)/$(ruby_version)
+
+CC = gcc
+LIBRUBY = $(LIBRUBY_SO)
+LIBRUBY_A = lib$(RUBY_SO_NAME)-static.a
+LIBRUBYARG_SHARED = -l$(RUBY_SO_NAME)
+LIBRUBYARG_STATIC = -l$(RUBY_SO_NAME)
+
+RUBY_EXTCONF_H = 
+CFLAGS   =  -fno-common -arch i386 -arch x86_64 -g -Os -pipe -fno-common -DENABLE_DTRACE  -fno-common  -pipe -fno-common $(cflags) 
+INCFLAGS = -I. -I$(topdir) -I$(hdrdir) -I$(srcdir)
+DEFS     = 
+CPPFLAGS =   -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE $(DEFS) $(cppflags)
+CXXFLAGS = $(CFLAGS) 
+ldflags  = -L. -arch i386 -arch x86_64 
+dldflags = 
+archflag = 
+DLDFLAGS = $(ldflags) $(dldflags) $(archflag)
+LDSHARED = cc -arch i386 -arch x86_64 -pipe -bundle -undefined dynamic_lookup
+AR = ar
+EXEEXT = 
+
+RUBY_INSTALL_NAME = ruby
+RUBY_SO_NAME = ruby
+arch = universal-darwin10.0
+sitearch = universal-darwin10.0
+ruby_version = 1.8
+ruby = /System/Library/Frameworks/Ruby.framework/Versions/1.8/usr/bin/ruby
+RUBY = $(ruby)
+RM = rm -f
+MAKEDIRS = mkdir -p
+INSTALL = /usr/bin/install -c
+INSTALL_PROG = $(INSTALL) -m 0755
+INSTALL_DATA = $(INSTALL) -m 644
+COPY = cp
+
+#### End of system configuration section. ####
+
+preload = 
+
+libpath = . $(libdir)
+LIBPATH =  -L. -L$(libdir)
+DEFFILE = 
+
+CLEANFILES = mkmf.log
+DISTCLEANFILES = 
+
+extout = 
+extout_prefix = 
+target_prefix = 
+LOCAL_LIBS = 
+LIBS = $(LIBRUBYARG_SHARED)  -lpthread -ldl  
+SRCS = rcstorable.c
+OBJS = rcstorable.o
+TARGET = rcstorable
+DLLIB = $(TARGET).bundle
+EXTSTATIC = 
+STATIC_LIB = 
+
+BINDIR        = $(bindir)
+RUBYCOMMONDIR = $(sitedir)$(target_prefix)
+RUBYLIBDIR    = $(sitelibdir)$(target_prefix)
+RUBYARCHDIR   = $(sitearchdir)$(target_prefix)
+
+TARGET_SO     = $(DLLIB)
+CLEANLIBS     = $(TARGET).bundle $(TARGET).il? $(TARGET).tds $(TARGET).map
+CLEANOBJS     = *.o *.a *.s[ol] *.pdb *.exp *.bak
+
+all:		$(DLLIB)
+static:		$(STATIC_LIB)
+
+clean:
+		@-$(RM) $(CLEANLIBS) $(CLEANOBJS) $(CLEANFILES)
+
+distclean:	clean
+		@-$(RM) Makefile $(RUBY_EXTCONF_H) conftest.* mkmf.log
+		@-$(RM) core ruby$(EXEEXT) *~ $(DISTCLEANFILES)
+
+realclean:	distclean
+install: install-so install-rb
+
+install-so: $(RUBYARCHDIR)
+install-so: $(RUBYARCHDIR)/$(DLLIB)
+$(RUBYARCHDIR)/$(DLLIB): $(DLLIB)
+	$(INSTALL_PROG) $(DLLIB) $(RUBYARCHDIR)
+install-rb: pre-install-rb install-rb-default
+install-rb-default: pre-install-rb-default
+pre-install-rb: Makefile
+pre-install-rb-default: Makefile
+$(RUBYARCHDIR):
+	$(MAKEDIRS) $@
+
+site-install: site-install-so site-install-rb
+site-install-so: install-so
+site-install-rb: install-rb
+
+.SUFFIXES: .c .m .cc .cxx .cpp .C .o
+
+.cc.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.cxx.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.cpp.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.C.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.c.o:
+	$(CC) $(INCFLAGS) $(CPPFLAGS) $(CFLAGS) -c $<
+
+$(DLLIB): $(OBJS)
+	@-$(RM) $@
+	$(LDSHARED) -o $@ $(OBJS) $(LIBPATH) $(DLDFLAGS) $(LOCAL_LIBS) $(LIBS)
+
+
+
+$(OBJS): ruby.h defines.h

data/ext/extconf.rb

@@ -0,0 +1,5 @@
+require 'mkmf'
+extension_name = 'rcstorable'
+dir_config(extension_name)
+create_makefile(extension_name, '.')
+ 

data/ext/rcstorable.c

@@ -0,0 +1,209 @@
+#include <stdbool.h>
+#include <stdio.h>
+#include <string.h>
+
+#include "ruby.h"
+
+VALUE thaw(VALUE, VALUE);
+VALUE read_object();
+int read_extended_size();
+int read_compact_size();
+void read_n_hash_pairs(VALUE, int);
+void read_n_array_entries(VALUE, int);
+VALUE read_string(bool);
+void read_magic_numbers();
+
+enum states
+{
+  READ_EXTENDED_SIZE,
+  READ_COMPACT_SIZE,
+  READ_NEW_OBJECT
+};
+
+enum object_types
+{
+  O_STR       = 1,
+  O_ARRAY     = 2,
+  O_HASH      = 3,
+  O_UNDEFINED = 5
+};
+
+enum hash_key_types
+{
+  H_VECTOR     = 4,
+  H_EMPTY      = 5,
+  H_STRING     = 10,
+  H_STRING_ALT = 23
+};
+
+// Used globally. Raptors. I know.
+unsigned char *serialized;
+
+VALUE
+thaw(VALUE self, VALUE str)
+{
+  Check_Type(str, T_STRING);
+  extern unsigned char *serialized;
+
+  serialized = RSTRING_PTR(str);
+
+  read_magic_numbers();
+  
+  return read_object();
+}
+
+void
+read_magic_numbers()
+{
+  serialized++;
+  serialized++;
+}
+
+VALUE
+read_object()
+{
+  extern unsigned char *serialized;
+  int type = *serialized++;
+  int size = read_extended_size();
+
+  VALUE object;
+
+  switch(type) {
+  case O_HASH:
+    object = rb_hash_new();
+    read_n_hash_pairs(object, size);
+    break;
+  case O_ARRAY:
+    object = rb_ary_new();
+    read_n_array_entries(object, size);
+    break;
+  case O_UNDEFINED:
+    object = Qnil;
+    break;
+  }
+  
+  return object;
+}
+
+  
+void
+read_n_hash_pairs(VALUE hash, int num)
+{
+  extern unsigned char *serialized;
+
+  if (num == 0) {
+    return;
+  }
+  
+  int type = *serialized++;
+  VALUE temp;
+  VALUE str;
+  
+  switch(type) {
+  case H_EMPTY:
+    rb_hash_aset(hash, read_string(true), Qnil);
+    break;
+  case H_VECTOR:
+    temp = read_object();
+    str = read_string(true);
+    rb_hash_aset(hash, str, temp);
+    break;
+  case H_STRING:
+  case H_STRING_ALT:
+    temp = read_string(false);
+    rb_hash_aset(hash, read_string(true), temp);
+    break;
+  }
+
+  read_n_hash_pairs(hash, num-1);
+}
+
+void
+read_n_array_entries(VALUE array, int num)
+{
+  extern unsigned char *serialized;
+
+  if (num == 0) {
+    return;
+  }
+  
+  VALUE item = Qnil;
+  int type = *serialized++;
+
+  switch(type) {
+  case O_STR:
+    item = read_string(true);
+    break;
+  }
+
+  rb_ary_push(array, item);
+  
+  read_n_array_entries(array, num-1);
+}
+
+
+VALUE
+read_string(bool extended_size)
+{
+  extern unsigned char *serialized;
+
+  int size = extended_size ? read_extended_size() : read_compact_size();
+  int actual_size = 0;
+  int rem;
+  char *tp = serialized;
+
+  if (size == 319) { // apparently Storable uses \000\000\001\077 to mean "read until n<10"
+    while (*tp++ >= 10) {
+      actual_size++;
+    }
+    size = actual_size;
+  }
+
+  rem = size;
+  
+  char *np = malloc(size * sizeof(char) + 1);
+  char *cnp = np;
+  
+  while (rem > 0) {
+    rem--;
+    *cnp++ = *serialized++;
+  }
+
+  *cnp++ = '\0';
+
+  return rb_str_new(np, size);
+}
+
+/*
+ * Extended sizes are given as [w,x,y,z], where the size is 256*y + z.
+ */
+int
+read_extended_size()
+{
+  extern unsigned char *serialized;
+  int size = 0;
+
+  serialized++;
+  serialized++;
+  size += 256*(*serialized++);
+  size += *serialized++;
+
+  return size;
+}
+
+/*
+ * Just one byte.
+ */
+int
+read_compact_size() {
+  extern unsigned char *serialized;
+  return *serialized++;
+}
+
+
+void
+Init_rcstorable()
+{
+  VALUE mRcstorable = rb_define_module("RCStorable");
+  rb_define_singleton_method(mRcstorable, "thaw", thaw, 1);
+}

metadata

@@ -0,0 +1,63 @@
+--- !ruby/object:Gem::Specification 
+name: rcstorable
+version: !ruby/object:Gem::Version 
+  version: 0.1.1
+platform: ruby
+authors: 
+- Burke Libbey
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-01-13 00:00:00 -06:00
+default_executable: 
+dependencies: []
+
+description: Super-fast Ruby C implementation of perl Storable's thaw
+email: burke.libbey@canadadrugs.com
+executables: []
+
+extensions: 
+- ext/extconf.rb
+extra_rdoc_files: 
+- LICENSE
+files: 
+- .gitignore
+- LICENSE
+- Rakefile
+- VERSION
+- ext/Makefile
+- ext/extconf.rb
+- ext/rcstorable.bundle
+- ext/rcstorable.c
+- ext/rcstorable.o
+has_rdoc: true
+homepage: http://canadadrugs.com
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: Ruby C implementation of perl Storable's thaw
+test_files: []
+