rucy 0.1.0

data/include/rucy/value.h

@@ -0,0 +1,291 @@
+// -*- c++ -*-
+#pragma once
+#ifndef __RUCY_VALUE_H__
+#define __RUCY_VALUE_H__
+
+
+#include <ruby.h>
+#include <rucy/symbol.h>
+
+
+namespace Rucy
+{
+
+
+	class Value
+	{
+
+		public:
+
+			Value ();
+
+			Value (bool b);
+
+			Value (int i);
+
+			Value (float f);
+
+			Value (double d);
+
+			Value (const char* s, bool tainted = false);
+
+			Value (const char* s, size_t len, bool tainted = false);
+
+			Value (size_t size, const Value* values);
+
+			Value (VALUE v);
+
+			VALUE value () const;
+
+			void mark () const;
+
+			int type () const;
+
+			Value klass () const;
+
+			bool is_kind_of (Value klass) const;
+
+			int size () const;
+
+			int length () const;
+
+			Value to_i () const;
+
+			Value to_f () const;
+
+			Value to_s () const;
+
+			Value to_sym () const;
+
+			bool is_i () const;
+
+			bool is_f () const;
+
+			bool is_s () const;
+
+			bool is_sym () const;
+
+			bool is_a () const;
+
+			int         as_i (bool convert = false) const;
+
+			double      as_f (bool convert = false) const;
+
+			const char* as_s (bool convert = false) const;
+
+			Symbol      as_sym (bool convert = false) const;
+
+			Value call (Symbol name, int argc, const Value* argv) const;
+			Value call (Symbol name) const;
+			Value call (Symbol name, Value v1) const;
+			Value call (Symbol name, Value v1, Value v2) const;
+			Value call (Symbol name, Value v1, Value v2, Value v3) const;
+			Value call (Symbol name, Value v1, Value v2, Value v3, Value v4) const;
+			Value call (Symbol name, Value v1, Value v2, Value v3, Value v4, Value v5) const;
+			Value call (Symbol name, Value v1, Value v2, Value v3, Value v4, Value v5, Value v6) const;
+			Value call (Symbol name, Value v1, Value v2, Value v3, Value v4, Value v5, Value v6, Value v7) const;
+			Value call (Symbol name, Value v1, Value v2, Value v3, Value v4, Value v5, Value v6, Value v7, Value v8) const;
+			Value operator () (Symbol name, int argc, const Value* argv) const;
+			Value operator () (Symbol name) const;
+			Value operator () (Symbol name, Value v1) const;
+			Value operator () (Symbol name, Value v1, Value v2) const;
+			Value operator () (Symbol name, Value v1, Value v2, Value v3) const;
+			Value operator () (Symbol name, Value v1, Value v2, Value v3, Value v4) const;
+			Value operator () (Symbol name, Value v1, Value v2, Value v3, Value v4, Value v5) const;
+			Value operator () (Symbol name, Value v1, Value v2, Value v3, Value v4, Value v5, Value v6) const;
+			Value operator () (Symbol name, Value v1, Value v2, Value v3, Value v4, Value v5, Value v6, Value v7) const;
+			Value operator () (Symbol name, Value v1, Value v2, Value v3, Value v4, Value v5, Value v6, Value v7, Value v8) const;
+
+			Value inspect () const;
+
+			const char* c_str () const;
+
+			      Value& operator [] (int i);
+
+			const Value& operator [] (int i) const;
+
+			operator VALUE () const;
+
+			operator bool () const;
+
+			bool operator ! () const;
+
+			bool operator == (const Value& rhs) const;
+
+			bool operator != (const Value& rhs) const;
+
+			// Array
+
+			Value push (Value obj);
+
+			Value pop ();
+
+			Value shift ();
+
+			Value unshift (Value obj);
+
+		private:
+
+			VALUE v;
+
+			friend class GCGuard;
+
+	};// Value
+
+
+	Value value (bool b);
+
+	Value value (char c);
+
+	Value value (unsigned char c);
+
+	Value value (short s);
+
+	Value value (unsigned short s);
+
+	Value value (int i);
+
+	Value value (unsigned int i);
+
+	Value value (long l);
+
+	Value value (unsigned long l);
+
+	Value value (long long ll);
+
+	Value value (unsigned long long ll);
+
+	Value value (float f);
+
+	Value value (double d);
+
+	Value value (const char* s, bool tainted = false);
+
+	Value value (const char* s, size_t len, bool tainted = false);
+
+	Value value (size_t size, const Value* values);
+
+	Value value (Symbol sym);
+
+
+	template <typename T> T value_to (Value obj, bool convert = true);
+
+	template <> inline bool
+	value_to<bool> (Value obj, bool convert)
+	{
+		return (bool) obj;
+	}
+
+	template <> inline int
+	value_to<int> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_i();
+		return NUM2INT(obj.value());
+	}
+
+	template <> inline unsigned int
+	value_to<unsigned int> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_i();
+		return NUM2UINT(obj.value());
+	}
+
+	template <> inline char
+	value_to<char> (Value obj, bool convert)
+	{
+		return (char) value_to<int>(obj, convert);
+	}
+
+	template <> inline unsigned char
+	value_to<unsigned char> (Value obj, bool convert)
+	{
+		return (unsigned char) value_to<int>(obj, convert);
+	}
+
+	template <> inline short
+	value_to<short> (Value obj, bool convert)
+	{
+		return (short) value_to<int>(obj, convert);
+	}
+
+	template <> inline unsigned short
+	value_to<unsigned short> (Value obj, bool convert)
+	{
+		return (unsigned short) value_to<int>(obj, convert);
+	}
+
+	template <> inline long
+	value_to<long> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_i();
+		return NUM2LONG(obj.value());
+	}
+
+	template <> inline unsigned long
+	value_to<unsigned long> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_i();
+		return NUM2ULONG(obj.value());
+	}
+
+	template <> inline long long
+	value_to<long long> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_i();
+		return NUM2LL(obj.value());
+	}
+
+	template <> inline unsigned long long
+	value_to<unsigned long long> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_i();
+		return NUM2ULL(obj.value());
+	}
+
+	template <> inline double
+	value_to<double> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_f();
+		Check_Type(obj, T_FLOAT);
+		return RFLOAT_VALUE(obj.value());
+	}
+
+	template <> inline float
+	value_to<float> (Value obj, bool convert)
+	{
+		return (float) value_to<double>(obj, convert);
+	}
+
+	template <> inline char*
+	value_to<char*> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_s();
+		VALUE s = obj.value();
+		return StringValueCStr(s);
+	}
+
+	template <> inline const char*
+	value_to<const char*> (Value obj, bool convert)
+	{
+		return value_to<char*>(obj, convert);
+	}
+
+	template <> inline Symbol
+	value_to<Symbol> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_sym();
+		Check_Type(obj, T_SYMBOL);
+		return SYM2ID(obj.value());
+	}
+
+
+	template <typename T> inline T to (Value obj, bool convert = true)
+	{
+		return value_to<T>(obj, convert);
+	}
+
+
+}// Rucy
+
+
+#endif//EOH

data/include/rucy/value.h.erb

@@ -0,0 +1,278 @@
+// -*- c++ -*-
+% require 'support'
+#pragma once
+#ifndef __RUCY_VALUE_H__
+#define __RUCY_VALUE_H__
+
+
+#include <ruby.h>
+#include <rucy/symbol.h>
+
+
+namespace Rucy
+{
+
+
+	class Value
+	{
+
+		public:
+
+			Value ();
+
+			Value (bool b);
+
+			Value (int i);
+
+			Value (float f);
+
+			Value (double d);
+
+			Value (const char* s, bool tainted = false);
+
+			Value (const char* s, size_t len, bool tainted = false);
+
+			Value (size_t size, const Value* values);
+
+			Value (VALUE v);
+
+			VALUE value () const;
+
+			void mark () const;
+
+			int type () const;
+
+			Value klass () const;
+
+			bool is_kind_of (Value klass) const;
+
+			int size () const;
+
+			int length () const;
+
+			Value to_i () const;
+
+			Value to_f () const;
+
+			Value to_s () const;
+
+			Value to_sym () const;
+
+			bool is_i () const;
+
+			bool is_f () const;
+
+			bool is_s () const;
+
+			bool is_sym () const;
+
+			bool is_a () const;
+
+			int         as_i (bool convert = false) const;
+
+			double      as_f (bool convert = false) const;
+
+			const char* as_s (bool convert = false) const;
+
+			Symbol      as_sym (bool convert = false) const;
+
+%			["call", "operator ()"].each do |op|
+			Value <%= op %> (Symbol name, int argc, const Value* argv) const;
+%				NTIMES.each do |n|
+			Value <%= op %> (Symbol name<%= params(n) {|i| ", Value v#{i}"} %>) const;
+%				end
+%			end
+
+			Value inspect () const;
+
+			const char* c_str () const;
+
+			      Value& operator [] (int i);
+
+			const Value& operator [] (int i) const;
+
+			operator VALUE () const;
+
+			operator bool () const;
+
+			bool operator ! () const;
+
+			bool operator == (const Value& rhs) const;
+
+			bool operator != (const Value& rhs) const;
+
+			// Array
+
+			Value push (Value obj);
+
+			Value pop ();
+
+			Value shift ();
+
+			Value unshift (Value obj);
+
+		private:
+
+			VALUE v;
+
+			friend class GCGuard;
+
+	};// Value
+
+
+	Value value (bool b);
+
+	Value value (char c);
+
+	Value value (unsigned char c);
+
+	Value value (short s);
+
+	Value value (unsigned short s);
+
+	Value value (int i);
+
+	Value value (unsigned int i);
+
+	Value value (long l);
+
+	Value value (unsigned long l);
+
+	Value value (long long ll);
+
+	Value value (unsigned long long ll);
+
+	Value value (float f);
+
+	Value value (double d);
+
+	Value value (const char* s, bool tainted = false);
+
+	Value value (const char* s, size_t len, bool tainted = false);
+
+	Value value (size_t size, const Value* values);
+
+	Value value (Symbol sym);
+
+
+	template <typename T> T value_to (Value obj, bool convert = true);
+
+	template <> inline bool
+	value_to<bool> (Value obj, bool convert)
+	{
+		return (bool) obj;
+	}
+
+	template <> inline int
+	value_to<int> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_i();
+		return NUM2INT(obj.value());
+	}
+
+	template <> inline unsigned int
+	value_to<unsigned int> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_i();
+		return NUM2UINT(obj.value());
+	}
+
+	template <> inline char
+	value_to<char> (Value obj, bool convert)
+	{
+		return (char) value_to<int>(obj, convert);
+	}
+
+	template <> inline unsigned char
+	value_to<unsigned char> (Value obj, bool convert)
+	{
+		return (unsigned char) value_to<int>(obj, convert);
+	}
+
+	template <> inline short
+	value_to<short> (Value obj, bool convert)
+	{
+		return (short) value_to<int>(obj, convert);
+	}
+
+	template <> inline unsigned short
+	value_to<unsigned short> (Value obj, bool convert)
+	{
+		return (unsigned short) value_to<int>(obj, convert);
+	}
+
+	template <> inline long
+	value_to<long> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_i();
+		return NUM2LONG(obj.value());
+	}
+
+	template <> inline unsigned long
+	value_to<unsigned long> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_i();
+		return NUM2ULONG(obj.value());
+	}
+
+	template <> inline long long
+	value_to<long long> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_i();
+		return NUM2LL(obj.value());
+	}
+
+	template <> inline unsigned long long
+	value_to<unsigned long long> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_i();
+		return NUM2ULL(obj.value());
+	}
+
+	template <> inline double
+	value_to<double> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_f();
+		Check_Type(obj, T_FLOAT);
+		return RFLOAT_VALUE(obj.value());
+	}
+
+	template <> inline float
+	value_to<float> (Value obj, bool convert)
+	{
+		return (float) value_to<double>(obj, convert);
+	}
+
+	template <> inline char*
+	value_to<char*> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_s();
+		VALUE s = obj.value();
+		return StringValueCStr(s);
+	}
+
+	template <> inline const char*
+	value_to<const char*> (Value obj, bool convert)
+	{
+		return value_to<char*>(obj, convert);
+	}
+
+	template <> inline Symbol
+	value_to<Symbol> (Value obj, bool convert)
+	{
+		if (convert) obj = obj.to_sym();
+		Check_Type(obj, T_SYMBOL);
+		return SYM2ID(obj.value());
+	}
+
+
+	template <typename T> inline T to (Value obj, bool convert = true)
+	{
+		return value_to<T>(obj, convert);
+	}
+
+
+}// Rucy
+
+
+#endif//EOH

data/include/rucy.h

@@ -0,0 +1,10 @@
+// -*- c++ -*-
+#include <rucy/rucy.h>
+#include <rucy/class.h>
+#include <rucy/exception.h>
+#include <rucy/function.h>
+#include <rucy/gc.h>
+#include <rucy/module.h>
+#include <rucy/string.h>
+#include <rucy/symbol.h>
+#include <rucy/value.h>

data/lib/rucy.rb

@@ -0,0 +1,24 @@
+# -*- coding: utf-8 -*-
+
+
+module Rucy
+
+
+  def self.root_dir ()
+    File.expand_path(File.join File.dirname(__FILE__), '..')
+  end
+
+  def self.include_dirs ()
+    [File.join(root_dir, 'include')]
+  end
+
+  def self.library_dirs ()
+    [File.join(root_dir, 'lib')]
+  end
+
+  def self.version ()
+    open(File.join root_dir, 'VERSION') {|f| f.readline.chomp}
+  end
+
+
+end# Rucy

data/rucy.gemspec

@@ -0,0 +1,50 @@
+# -*- mode: ruby; coding: utf-8 -*-
+$: << File.join(File.dirname(__FILE__), 'lib')
+require 'rake'
+require 'rucy'
+
+
+FILES = FileList[*%w[
+  README
+  Rakefile
+  Gemfile
+  Gemfile.lock
+  support.rb
+  rucy.gemspec
+  VERSION
+  task/**/*.rake
+  ext/**/*.rb
+  ext/**/*.cpp
+  include/**/*.h
+  include/**/*.erb
+  lib/**/*.rb
+  src/**/*.cpp
+  src/**/*.erb
+  test/**/*.rb
+]]
+
+Gem::Specification.new do |s|
+  s.name        = 'rucy'
+  s.summary     = 'A Ruby C++ Extension Helper Library.'
+  s.description = 'This library helps you to develop Ruby Extension by C++.'
+  s.version     = Rucy.version
+
+  s.authors  = %w[@tokujiros]
+  s.email    = 'tokujiros@gmail.com'
+  s.homepage = 'http://xord.tumblr.com/'
+
+  s.platform              = Gem::Platform::RUBY
+  s.required_ruby_version = '>=1.9.0'
+  s.require_paths         << 'ext'
+
+  s.add_dependency 'rake'
+  s.add_development_dependency 'gemcutter'
+
+  s.files      = FILES.to_a
+  s.test_files = FileList['test/**/test_*.rb'].to_a
+
+  s.has_rdoc         = true
+  s.extra_rdoc_files = ['README']
+
+  s.extensions << 'Rakefile'
+end

data/src/class.cpp

@@ -0,0 +1,35 @@
+// -*- c++ -*-
+#include "rucy/class.h"
+
+
+namespace Rucy
+{
+
+
+	Class::Class (VALUE v)
+	:	Super(v)
+	{
+	}
+
+	Class
+	Class::define_alloc_func (RubyFunction0 fun)
+	{
+		rb_define_alloc_func(value(), (VALUE(*)(VALUE)) fun);
+		return *this;
+	}
+
+	Class
+	Class::define_alloc_func (const char*, RubyFunction0 fun)
+	{
+		return define_alloc_func(fun);
+	}
+
+
+	Class
+	define_class (const char* name, Value super)
+	{
+		return rb_define_class(name, super);
+	}
+
+
+}// Rucy