burke-monkeysupport 0.0.3

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gitignore

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

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Burke Libbey
+
+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/README.rdoc

@@ -0,0 +1,18 @@
+= monkeysupport
+
+Description goes here.
+
+== Note on Patches/Pull Requests
+ 
+* Fork the project.
+* Make your feature addition or bug fix.
+* Add tests for it. This is important so I don't break it in a
+  future version unintentionally.
+* Commit, do not mess with rakefile, version, or history.
+  (if you want to have your own version, that is fine but
+   bump version in a commit by itself I can ignore when I pull)
+* Send me a pull request. Bonus points for topic branches.
+
+== Copyright
+
+Copyright (c) 2009 Burke Libbey. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,58 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "monkeysupport"
+    gem.summary = %Q{Monkeypatching Rails with C since 2009}
+    gem.description = %Q{MonkeySupport provides C implementations for some of the more intensive string manipulation methods in activesupport. ActionView is up next.}
+    gem.email = "burke@burkelibbey.org"
+    gem.homepage = "http://github.com/burke/monkeysupport"
+    gem.authors = ["Burke Libbey"]
+    gem.files.include '{test,lib,ext}/**/*'
+    gem.extensions = ["ext/extconf.rb"]
+    gem.add_development_dependency "thoughtbot-shoulda"
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: sudo gem install jeweler"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/*_test.rb'
+  test.verbose = true
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = 'test/**/*_test.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
+
+task :test => :check_dependencies
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  if File.exist?('VERSION')
+    version = File.read('VERSION')
+  else
+    version = ""
+  end
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "monkeysupport #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+0.0.3

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 = active_support_c.c inflector.c
+OBJS = active_support_c.o inflector.o
+TARGET = active_support_c
+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/active_support_c.c

@@ -0,0 +1,27 @@
+#include "inflector.h"
+#include "core_ext/string/starts_ends_with.h"
+#include "core_ext/string/access.h"
+#include "core_ext/string/filters.h"
+
+#include "ruby.h"
+
+void
+Init_active_support_c()
+{
+  VALUE mActiveSupport = rb_define_module("ActiveSupport");
+  VALUE cASC = rb_define_class_under(mActiveSupport, "ASC", rb_cObject);
+
+  /* ActiveSupport::ASC.camelize("my_string") */
+  rb_define_singleton_method(cASC, "inflector_camelize",     inflector_camelize,     2);
+  rb_define_singleton_method(cASC, "inflector_demodulize",   inflector_demodulize,   1);
+  rb_define_singleton_method(cASC, "inflector_dasherize",    inflector_dasherize,    1);
+  rb_define_singleton_method(cASC, "inflector_foreign_key",  inflector_foreign_key,  2);
+  rb_define_singleton_method(cASC, "inflector_ordinalize",   inflector_ordinalize,   1);
+  rb_define_singleton_method(cASC, "inflector_parameterize", inflector_parameterize, 2);
+  rb_define_singleton_method(cASC, "inflector_underscore",   inflector_underscore,   1);
+
+/*   rb_define_singleton_method(cASC, "core_ext_string_at",     core_ext_string_at,     1); */
+/*   rb_define_singleton_method(cASC, "core_ext_string_to",     core_ext_string_to,     1); */
+/*   rb_define_singleton_method(cASC, "core_ext_string_from",   core_ext_string_from,   1); */
+/*   rb_define_singleton_method(cASC, "core_ext_string_first",  core_ext_string_first,  1); */
+}

data/ext/core_ext/string/access.c

@@ -0,0 +1,157 @@
+#include <assert.h>
+#include <string.h>
+#include <stdlib.h>
+
+#include "access.h"
+#include "ruby.h"
+
+VALUE
+core_ext_string_at(VALUE rstr, VALUE rposition)
+{
+  Check_Type(rstr, T_STRING);
+  Check_Type(rposition, T_FIXNUM);
+  
+  int position = FIX2INT(rposition);
+  int len = RString(rstr)->len;
+  struct RString *ret;
+  
+  if (position < 0) { // Allow for negative indices
+    position += len;
+  }
+
+  if ((position < 0) || (position > len)) { // still out of bounds
+    ret->ptr = calloc(1, sizeof(char));
+    ret->len = 0;
+  } else {
+    len -= position;
+    ret->len = len;
+    ret->ptr = malloc((len+1)*sizeof(char));
+    memcpy(ret->ptr, RString(rstr)->ptr + position, len);
+  }
+
+  return ret;
+}
+
+void
+test_core_ext_string_at()
+{
+  char *test = "0123456789";
+  assert(!strcmp(core_ext_string_at(test, 0), "0"));
+  assert(!strcmp(core_ext_string_at(test, 1), "1"));
+  assert(!strcmp(core_ext_string_at(test, 9), "9"));
+  assert(!strcmp(core_ext_string_at(test, 10), ""));
+  assert(!strcmp(core_ext_string_at(test, 15), ""));
+  assert(!strcmp(core_ext_string_at(test, -1), "9"));
+  assert(!strcmp(core_ext_string_at(test, -2), "8"));
+  assert(!strcmp(core_ext_string_at(test, -10), "0"));
+  assert(!strcmp(core_ext_string_at(test, -11), ""));
+  assert(!strcmp(core_ext_string_at(test, -15), ""));
+}
+
+VALUE
+core_ext_string_first(VALUE rstr, VALUE rposition)
+{
+  Check_Type(rstr, T_STRING);
+  Check_Type(rposition, T_FIXNUM);
+
+  //int len = strlen(str);
+  return Qnil;
+}
+
+void
+test_core_ext_string_first()
+{
+  char *test = "0123456789";
+  assert(!strcmp(core_ext_string_first(test, 0), "0123456789"));
+  assert(!strcmp(core_ext_string_first(test, 1), "0"));
+  assert(!strcmp(core_ext_string_first(test, 2), "01"));
+  assert(!strcmp(core_ext_string_first(test, 9), "012345678"));
+  assert(!strcmp(core_ext_string_first(test, 10), "0123456789"));
+  assert(!strcmp(core_ext_string_first(test, 15), "0123456789"));
+  assert(!strcmp(core_ext_string_first(test, -1), "012345678"));
+  assert(!strcmp(core_ext_string_first(test, -2), "01234567"));
+  assert(!strcmp(core_ext_string_first(test, -10), ""));
+  assert(!strcmp(core_ext_string_first(test, -11), ""));
+  assert(!strcmp(core_ext_string_first(test, -15), ""));
+}
+
+VALUE
+core_ext_string_from(VALUE rstr, VALUE rposition)
+{
+  Check_Type(rstr, T_STRING);
+  Check_Type(rposition, T_FIXNUM);
+
+  int len = RCORE_EXT_STRING_LEN(rstr)
+
+  if (position < 0) {
+    position += len; // -10 + 10 = 0
+  }
+
+  if (position > len || position < 0) {
+    position = len;
+  }
+  
+  return str + position;
+}
+
+void
+test_core_ext_string_from()
+{
+  char *test = "0123456789";
+  assert(!strcmp(core_ext_string_from(test, 0), "0123456789"));
+  assert(!strcmp(core_ext_string_from(test, 1), "123456789"));
+  assert(!strcmp(core_ext_string_from(test, 9), "9"));
+  assert(!strcmp(core_ext_string_from(test, 10), ""));
+  assert(!strcmp(core_ext_string_from(test, 15), ""));
+  assert(!strcmp(core_ext_string_from(test, -1), "9"));
+  assert(!strcmp(core_ext_string_from(test, -2), "89"));
+  assert(!strcmp(core_ext_string_from(test, -10), "0123456789"));
+  assert(!strcmp(core_ext_string_from(test, -11), ""));
+  assert(!strcmp(core_ext_string_from(test, -15), ""));
+}
+
+VALUE
+core_ext_string_to(VALUE rstr, VALUE rposition)
+{
+  int position = FIX2INT(rposition);
+  
+  int len = RString(rstr)->len;
+  struct RString ret;
+  
+  if (position < 0) { // allow for negative indices
+    position += len;
+  }
+
+  if (position > len) { // past top bound
+    ret->len = len;
+    ret->ptr = malloc((len+1)*sizeof(char));
+    memcpy(ret->ptr, RString(rstr)->ptr, len);
+  } else if (position < 0) { // under bottom bound
+    ret->ptr = calloc(1, sizeof(char));
+    ret->len = 0;
+  } else {
+    ret->len = position + 1;
+    ret->ptr = malloc((position + 2) * sizeof(char));
+
+    memcpy(ret->ptr, RString(rstr)->ptr, position+1);
+    *(ret->ptr + position + 1) = '\0';
+  }
+
+  return ret; 
+}
+
+void
+test_core_ext_string_to()
+{
+  char *test = "0123456789";
+  assert(!strcmp(core_ext_string_to(test, 0), "0"));
+  assert(!strcmp(core_ext_string_to(test, 1), "01"));
+  assert(!strcmp(core_ext_string_to(test, 9), "0123456789"));
+  assert(!strcmp(core_ext_string_to(test, 10), "0123456789"));
+  assert(!strcmp(core_ext_string_to(test, 15), "0123456789"));
+  assert(!strcmp(core_ext_string_to(test, -1), "0123456789"));
+  assert(!strcmp(core_ext_string_to(test, -2), "012345678"));
+  assert(!strcmp(core_ext_string_to(test, -10), "0"));
+  assert(!strcmp(core_ext_string_to(test, -11), ""));
+  assert(!strcmp(core_ext_string_to(test, -15), ""));
+}

data/ext/core_ext/string/access.h

@@ -0,0 +1,6 @@
+#pragma once
+
+#include "ruby.h"
+
+VALUE core_ext_string_from(VALUE str, VALUE position);
+VALUE core_ext_string_to(VALUE str, VALUE position);

data/ext/core_ext/string/filters.c

@@ -0,0 +1,52 @@
+#include <stdbool.h>
+#include <string.h>
+#include <stdlib.h>
+
+#include "filters.h"
+
+static bool /* Ugly, but fast! */
+_is_space(char chr)
+{
+  if (chr > 13) {
+    return (chr == 32);
+  } else {
+    return (chr == 9 || chr == 10 || chr == 12 || chr == 13);
+  }
+}
+
+VALUE
+string_squish(VALUE rstr)
+{
+  int ilen = RString(rstr)->len;
+  int olen = ilen;
+  char *ip = RString(rstr)->ptr; 
+  bool in_space = true;
+  int i;
+  struct RString ret;
+  ret->ptr = (char *)malloc(len+1)*(sizeof (char));
+  char *op = ret->ptr;
+
+  
+  for (i = 0; i < ilen; i++, ip++) {
+    if (_is_space(*ip)) {
+      if (in_space) {
+        olen--;
+      } else {
+        in_space = true;
+        *op++ = ' ';
+      }
+    } else {
+      in_space = false;
+      *op++ = *ip;
+    }
+  }
+
+  if (*(op-1) == ' ') {
+    *(op-1) = '\0';
+    olen--;
+  }
+
+  ret->len = olen;
+  return ret;
+}
+

data/ext/core_ext/string/filters.h

@@ -0,0 +1,5 @@
+#pragma once
+
+#include "ruby.h"
+
+VALUE string_squish(VALUE rstr);

data/ext/core_ext/string/starts_ends_with.c

@@ -0,0 +1,68 @@
+#include <assert.h>
+#include <stdbool.h>
+#include <string.h>
+#include <ctype.h>
+
+#include "starts_ends_with.h"
+#include "ruby.h"
+
+VALUE
+string_starts_with(VALUE str, VALUE substr)
+{
+  int sublen = RString(substr)->len;
+  char *p1 = RString(str)->ptr;
+  char *p2 = RString(substr)->ptr;
+  
+  while (sublen--) {
+    if (*p1++ != *p2++) {
+      return Qfalse;
+    }
+  }
+
+  return Qtrue;
+}
+
+void
+test_starts_with()
+{
+  assert(string_starts_with("asdf", "") == true);
+  assert(string_starts_with("asdf", "asdfasdf") == false);
+  assert(string_starts_with("", "asdfasdf") == false);
+  assert(string_starts_with("", "") == true);
+}
+
+VALUE
+string_ends_with(VALUE str, VALUE substr)
+{
+  int l_str, l_substr;
+  char *p_str, *p_substr;
+
+  l_str    = RString(str)->len;
+  l_substr = RString(substr)->len;
+
+  if (l_substr > l_str) {
+    return Qfalse;
+  }
+  
+  p_str    = RString(str)->ptr    + l_str;
+  p_substr = RString(substr)->ptr + l_substr;
+  
+  
+  while (p_substr >= RString(substr)->ptr) {
+    if (*p_substr-- != *p_str--) {
+      return Qfale;
+    }
+  }
+  
+  return Qtrue;
+}
+
+void
+test_ends_with()
+{
+  assert(string_ends_with("asdf", "") == true);
+  assert(string_ends_with("asdf", "asdfasdf") == false);
+  assert(string_ends_with("", "asdfasdf") == false);
+  assert(string_ends_with("", "") == true);
+}
+

data/ext/core_ext/string/starts_ends_with.h

@@ -0,0 +1,6 @@
+#pragma once
+
+#include "ruby.h"
+
+VALUE string_starts_with(VALUE str, VALUE substr);
+VALUE string_ends_with(VALUE str, VALUE substr);

data/ext/extconf.rb

@@ -0,0 +1,4 @@
+require 'mkmf'
+extension_name = 'active_support_c'
+dir_config(extension_name)
+create_makefile(extension_name)

data/ext/inflector.c

@@ -0,0 +1,224 @@
+#include <assert.h>
+#include <ctype.h>
+#include <stdbool.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "inflector.h"
+#include "ruby.h"
+
+VALUE inflector_underscore(VALUE self, VALUE rstr)
+{
+  Check_Type(rstr, T_STRING);
+
+  VALUE  ret  = rb_str_new("", 0);
+  char * ip   = StringValuePtr(rstr);
+  int    ilen = RSTRING_LEN(rstr);
+  char   prev = '\0';
+  char   temp;
+  int    i;
+  
+  for (i = 0; i < ilen; i++, prev=*ip++) {
+
+    // replace :: with /
+    if (*ip == ':' && *(ip+1) == ':') {
+      rb_str_cat(ret, "/", 1);
+      ip++;
+      i++; // fastforward one char.
+    } else {
+      if ((isupper(prev) && isupper(*ip) && islower(*(ip+1)))
+          || ((islower(prev)||isdigit(prev)) && isupper(*ip))) {
+        rb_str_cat(ret, "_", 1);
+      }
+      if (*ip == '-') {
+        rb_str_cat(ret, "_", 1);
+      } else {
+        temp = tolower(*ip);
+        rb_str_cat(ret, &temp, 1);
+      }
+    }
+  }
+  return ret;
+}
+
+VALUE inflector_parameterize(VALUE self, VALUE str, VALUE sep)
+{
+  Check_Type(str, T_STRING);
+  Check_Type(sep, T_STRING);
+
+  VALUE  ret       = rb_str_new("", 0);
+  int    sep_len   = RSTRING_LEN(sep);
+  int    ilen      = RSTRING_LEN(str);
+  char * ip        = RSTRING_PTR(str);
+  bool   separated = true;
+  int    i;
+  char   tmp;
+  
+  for (i = 0; i < ilen; i++, ip++) {
+    if (isalnum(*ip) || *ip == '-' || *ip == '_' || *ip == '+') { // normal char
+      separated = false;
+      tmp = tolower(*ip);
+      rb_str_cat(ret, &tmp, 1);
+    } else { // replace with separator
+      if (!separated) {
+        separated = true;
+        rb_str_cat(ret, RSTRING_PTR(sep), sep_len);
+      }
+    }
+  }
+
+  // cp points to the end of the return string.
+  // Get rid of trailing separators, if any.
+  if (RSTRING_LEN(ret) && !memcmp(RSTRING_PTR(sep),
+                                  RSTRING_PTR(ret) + RSTRING_LEN(ret) - sep_len,
+                                  sep_len * sizeof (char)))
+  {
+    ret = rb_str_new(RSTRING_PTR(ret), RSTRING_LEN(ret) - sep_len);
+  }
+
+  return ret;
+}
+
+VALUE inflector_dasherize(VALUE self, VALUE str)
+{
+  Check_Type(str, T_STRING);
+  
+  char * out = ALLOC_N(char, RSTRING_LEN(str) + 1);
+  char * ip  = RSTRING_PTR(str);
+  char * op  = out;
+  int    len = RSTRING_LEN(str);
+  int    i;
+  
+  for (i = 0; i < len; i++, ip++) {
+    if (*ip == '_') {
+      *op++ = '-';
+    } else {
+      *op++ = *ip;
+    }
+  }
+
+  return rb_str_new(out, len);
+}
+
+VALUE inflector_demodulize(VALUE self, VALUE rstr)
+{
+  Check_Type(rstr, T_STRING);
+
+  char * str       = RSTRING_PTR(rstr);
+  char * ip        = str;
+  char * last_part = str;
+  int    len       = RSTRING_LEN(rstr);
+  int    olen      = len;
+  int    i;
+  
+  for (i = 0; i < len; i++, ip++) {
+    if (*ip == ':' && *(ip+1) == ':') {
+      olen = len - i - 2;
+      last_part = ip + 2;
+    }
+  }
+  
+  VALUE ret = rb_str_new("", 0);
+  rb_str_cat(ret, last_part, olen);
+  return ret;
+}
+
+VALUE inflector_camelize(VALUE self, VALUE str, VALUE first_letter_uppercase)
+{
+  Check_Type(str, T_STRING);
+  
+  VALUE  ret      = rb_str_new("", 0);
+  bool   cap_next = RTEST(first_letter_uppercase);
+  int    ilen     = RSTRING_LEN(str);
+  char * ip       = RSTRING_PTR(str);
+  int    i;
+  char   tmp;
+  
+  for (i = 0; i < ilen; i++, ip++) {
+    if (*ip == '/') {
+      cap_next = true;
+      rb_str_cat(ret, "::", 2);
+    } else if (*ip == '_') {
+      cap_next = true;
+      // Skip over -- don't print anything.
+    } else {
+      if (cap_next) {
+        tmp = toupper(*ip);
+        cap_next = false;
+      } else {
+        tmp = tolower(*ip);
+      }
+      rb_str_cat(ret, &tmp, 1);
+    }
+  }
+  return ret;
+}
+
+VALUE inflector_foreign_key(VALUE self, VALUE str, VALUE use_underscore)
+{
+  Check_Type(str, T_STRING);
+
+  VALUE ret = inflector_underscore(self, inflector_demodulize(self, str));
+
+  if (RTEST(use_underscore)) {
+    rb_str_cat(ret, "_id", 3);
+  } else {
+    rb_str_cat(ret, "id", 2);
+  }
+
+  return ret;
+}
+
+	
+static char * itoa(int n)
+{
+  char   c_tmp;
+  int    i_tmp;
+  char * ret      = ALLOC_N(char, 32);
+  char * ptr      = ret;
+  char * ptr1     = ret;
+  
+  do {
+    i_tmp = n;
+    n /= 10;
+    *ptr++ = "9876543210123456789" [9 + (i_tmp - n * 10)];
+  } while (n);
+  
+  if (i_tmp < 0) *ptr++ = '-';
+  *ptr-- = '\0';
+  while (ptr1 < ptr) {
+    c_tmp   = *ptr;
+    *ptr--  = *ptr1;
+    *ptr1++ = c_tmp;
+  }
+
+  return ret;
+}
+
+VALUE inflector_ordinalize(VALUE self, VALUE rn)
+{
+  Check_Type(rn, T_FIXNUM);
+  
+  int   n   = FIX2INT(rn);
+  VALUE ret = rb_str_new2(itoa(n));
+  int   x   = n % 100;
+
+  if ((x > 10) && (x < 14)) {
+    rb_str_cat(ret, "th", 2);
+  } else {
+    switch(n % 10) {
+    case 1:
+      rb_str_cat(ret, "st", 2);
+      break;
+    case 2:
+      rb_str_cat(ret, "nd", 2);
+      break;
+    case 3:
+      rb_str_cat(ret, "rd", 2);
+      break;
+    default:
+      rb_str_cat(ret, "th", 2);
+    }
+  }
+  return ret;
+}

data/ext/inflector.h

@@ -0,0 +1,10 @@
+#pragma once
+#include "ruby.h"
+
+VALUE inflector_underscore(VALUE self, VALUE str);
+VALUE inflector_parameterize(VALUE self, VALUE str, VALUE sep);
+VALUE inflector_dasherize(VALUE self, VALUE str);
+VALUE inflector_demodulize(VALUE self, VALUE str);
+VALUE inflector_camelize(VALUE self, VALUE str, VALUE first_letter_uppercase);
+VALUE inflector_foreign_key(VALUE self, VALUE str, VALUE use_underscore);
+VALUE inflector_ordinalize(VALUE self, VALUE n);

data/lib/monkeysupport/inflector.rb

@@ -0,0 +1,116 @@
+module ActiveSupport
+  module Inflector
+
+    
+    def check_fixnum(obj)
+      return (obj.class == Fixnum)
+    end
+
+    if '1.9'.respond_to?(:force_encoding)
+      ASCII_ENCODING = Encoding.find("ASCII-8BIT")
+      if Encoding.default_external == ASCII_ENCODING
+        def check_ascii_string(obj)
+          (obj.class == String) && obj.encoding == ASCII_ENCODING
+        end
+      else
+        def check_ascii_string(obj)
+          #TODO: Check ascii_only? and force_encoding here.
+          (obj.class == String) && obj.encoding == ASCII_ENCODING
+        end
+      end
+    else # <1.9
+      def check_ascii_string(obj)
+        obj.class == String
+      end
+    end
+    
+    @_pluralize = {}
+    alias_method :__pluralize, :pluralize
+    def pluralize(word)
+      @_pluralize[word] ||= __pluralize(word)
+    end
+
+    @_singularize = {}
+    alias_method :__singularize, :singularize
+    def singularize(word)
+      @_singularize[word] ||= __singularize(word)
+    end
+
+    @_humanize = {}
+    alias_method :__humanize, :humanize
+    def humanize(word)
+      @_humanize[word] ||= __humanize(word)
+    end
+    
+    alias_method :__camelize, :camelize
+    def camelize(lower_case_and_underscored_word, first_letter_in_uppercase = true)
+      if check_ascii_string(lower_case_and_underscored_word)
+        ActiveSupport::ASC.inflector_camelize(lower_case_and_underscored_word.to_s, first_letter_in_uppercase)
+      else
+        __camelize(lower_case_and_underscored_word, first_letter_in_uppercase)
+      end
+    end
+
+    alias_method :__underscore, :underscore
+    def underscore(camel_cased_word)
+      if check_ascii_string(camel_cased_word)
+        ActiveSupport::ASC.inflector_underscore(camel_cased_word)
+      else 
+        __underscore(camel_cased_word)
+      end
+    end
+    
+
+    alias_method :__dasherize, :dasherize
+    def dasherize(underscored_word)
+      if check_ascii_string(underscored_word)
+        ActiveSupport::ASC.inflector_dasherize(underscored_word)
+      else
+        __dasherize(underscored_word)
+      end
+    end
+    
+    alias_method :__demodulize, :demodulize
+    def demodulize(class_name_in_module)
+      if check_ascii_string(class_name_in_module)
+        ActiveSupport::ASC.inflector_demodulize(class_name_in_module)
+      else
+        __demodulize(class_name_in_module)
+      end
+    end
+
+
+    alias_method :__parameterize, :parameterize
+    def parameterize(string, sep = '-')
+      parameterized_string = transliterate(string)
+      if check_ascii_string(parameterized_string) && check_ascii_string(sep)
+        ActiveSupport::ASC.inflector_parameterize(parameterized_string.to_s, sep)
+      else
+        __parameterize(string, sep)
+      end
+    end
+    
+
+    alias_method :__foreign_key, :foreign_key
+    def foreign_key(class_name, separate_class_name_and_id_with_underscore = true)
+      if check_ascii_string(class_name)
+        ActiveSupport::ASC.inflector_foreign_key(class_name, separate_class_name_and_id_with_underscore)
+      else
+        __foreign_key(class_name, separate_class_name_and_id_with_underscore)
+      end
+    end
+
+
+    alias_method :__ordinalize, :ordinalize
+    def ordinalize(number)
+      x = number.to_i
+      if check_fixnum(x)
+        ActiveSupport::ASC.inflector_ordinalize(number.to_i)
+      else 
+        __ordinalize(number)
+      end
+    end
+
+  end
+end
+

data/lib/monkeysupport.rb

@@ -0,0 +1,2 @@
+require 'active_support_c'
+require 'monkeysupport/inflector'

data/monkeysupport.gemspec

@@ -0,0 +1,81 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE
+# Instead, edit Jeweler::Tasks in Rakefile, and run `rake gemspec`
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{monkeysupport}
+  s.version = "0.0.3"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Burke Libbey"]
+  s.date = %q{2009-09-04}
+  s.description = %q{MonkeySupport provides C implementations for some of the more intensive string manipulation methods in activesupport. ActionView is up next.}
+  s.email = %q{burke@burkelibbey.org}
+  s.extensions = ["ext/extconf.rb"]
+  s.extra_rdoc_files = [
+    "LICENSE",
+     "README.rdoc"
+  ]
+  s.files = [
+    ".document",
+     ".gitignore",
+     "LICENSE",
+     "README.rdoc",
+     "Rakefile",
+     "VERSION",
+     "ext/Makefile",
+     "ext/Makefile",
+     "ext/active_support_c.c",
+     "ext/active_support_c.c",
+     "ext/core_ext/string/access.c",
+     "ext/core_ext/string/access.c",
+     "ext/core_ext/string/access.h",
+     "ext/core_ext/string/access.h",
+     "ext/core_ext/string/filters.c",
+     "ext/core_ext/string/filters.c",
+     "ext/core_ext/string/filters.h",
+     "ext/core_ext/string/filters.h",
+     "ext/core_ext/string/starts_ends_with.c",
+     "ext/core_ext/string/starts_ends_with.c",
+     "ext/core_ext/string/starts_ends_with.h",
+     "ext/core_ext/string/starts_ends_with.h",
+     "ext/extconf.rb",
+     "ext/extconf.rb",
+     "ext/inflector.c",
+     "ext/inflector.c",
+     "ext/inflector.h",
+     "ext/inflector.h",
+     "lib/monkeysupport.rb",
+     "lib/monkeysupport.rb",
+     "lib/monkeysupport/inflector.rb",
+     "lib/monkeysupport/inflector.rb",
+     "monkeysupport.gemspec",
+     "test/monkeysupport_test.rb",
+     "test/monkeysupport_test.rb",
+     "test/test_helper.rb",
+     "test/test_helper.rb"
+  ]
+  s.homepage = %q{http://github.com/burke/monkeysupport}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.4}
+  s.summary = %q{Monkeypatching Rails with C since 2009}
+  s.test_files = [
+    "test/monkeysupport_test.rb",
+     "test/test_helper.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<thoughtbot-shoulda>, [">= 0"])
+    else
+      s.add_dependency(%q<thoughtbot-shoulda>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<thoughtbot-shoulda>, [">= 0"])
+  end
+end

data/test/monkeysupport_test.rb

@@ -0,0 +1,7 @@
+require 'test_helper'
+
+class MonkeysupportTest < Test::Unit::TestCase
+  should "probably rename this file and start testing for real" do
+    flunk "hey buddy, you should probably rename this file and start testing for real"
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'monkeysupport'
+
+class Test::Unit::TestCase
+end

metadata

@@ -0,0 +1,85 @@
+--- !ruby/object:Gem::Specification 
+name: burke-monkeysupport
+version: !ruby/object:Gem::Version 
+  version: 0.0.3
+platform: ruby
+authors: 
+- Burke Libbey
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-09-04 00:00:00 -07:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: thoughtbot-shoulda
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+description: MonkeySupport provides C implementations for some of the more intensive string manipulation methods in activesupport. ActionView is up next.
+email: burke@burkelibbey.org
+executables: []
+
+extensions: 
+- ext/extconf.rb
+extra_rdoc_files: 
+- LICENSE
+- README.rdoc
+files: 
+- .document
+- .gitignore
+- LICENSE
+- README.rdoc
+- Rakefile
+- VERSION
+- ext/Makefile
+- ext/active_support_c.c
+- ext/core_ext/string/access.c
+- ext/core_ext/string/access.h
+- ext/core_ext/string/filters.c
+- ext/core_ext/string/filters.h
+- ext/core_ext/string/starts_ends_with.c
+- ext/core_ext/string/starts_ends_with.h
+- ext/extconf.rb
+- ext/inflector.c
+- ext/inflector.h
+- lib/monkeysupport.rb
+- lib/monkeysupport/inflector.rb
+- monkeysupport.gemspec
+- test/monkeysupport_test.rb
+- test/test_helper.rb
+has_rdoc: false
+homepage: http://github.com/burke/monkeysupport
+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.2.0
+signing_key: 
+specification_version: 3
+summary: Monkeypatching Rails with C since 2009
+test_files: 
+- test/monkeysupport_test.rb
+- test/test_helper.rb