rucy 0.1.3 → 0.1.4

data/include/rucy/module.h

@@ -1,98 +0,0 @@
-// -*- c++ -*-
-#pragma once
-#ifndef __RUCY_MODULE_H__
-#define __RUCY_MODULE_H__
-
-
-#include <ruby.h>
-#include <rucy/defs.h>
-#include <rucy/value.h>
-
-
-namespace Rucy
-{
-
-
-	class Class;
-
-
-	class Module : public Value
-	{
-
-		typedef Value Super;
-
-		public:
-
-			Module (VALUE v = Qnil);
-
-			Module define_module (const char* name);
-
-			Class define_class (const char* name, Value super = rb_cObject);
-
-			Module define_const (const char* name, Value val);
-
-			Module define_attr (const char* name, bool read = true, bool write = true);
-
-			Module define_alias (const char* new_, const char* old);
-
-			Module undef_method (const char* name);
-
-			Module include_module (Value module);
-
-			Module extend_module (Value module);
-
-			Module define_function (const char* name, RubyFunctionN fun);
-			Module define_function (const char* name, RubyFunction0 fun);
-			Module define_function (const char* name, RubyFunction1 fun);
-			Module define_function (const char* name, RubyFunction2 fun);
-			Module define_function (const char* name, RubyFunction3 fun);
-			Module define_function (const char* name, RubyFunction4 fun);
-			Module define_function (const char* name, RubyFunction5 fun);
-			Module define_function (const char* name, RubyFunction6 fun);
-			Module define_function (const char* name, RubyFunction7 fun);
-			Module define_function (const char* name, RubyFunction8 fun);
-			Module define_method (const char* name, RubyFunctionN fun);
-			Module define_method (const char* name, RubyFunction0 fun);
-			Module define_method (const char* name, RubyFunction1 fun);
-			Module define_method (const char* name, RubyFunction2 fun);
-			Module define_method (const char* name, RubyFunction3 fun);
-			Module define_method (const char* name, RubyFunction4 fun);
-			Module define_method (const char* name, RubyFunction5 fun);
-			Module define_method (const char* name, RubyFunction6 fun);
-			Module define_method (const char* name, RubyFunction7 fun);
-			Module define_method (const char* name, RubyFunction8 fun);
-			Module define_private_method (const char* name, RubyFunctionN fun);
-			Module define_private_method (const char* name, RubyFunction0 fun);
-			Module define_private_method (const char* name, RubyFunction1 fun);
-			Module define_private_method (const char* name, RubyFunction2 fun);
-			Module define_private_method (const char* name, RubyFunction3 fun);
-			Module define_private_method (const char* name, RubyFunction4 fun);
-			Module define_private_method (const char* name, RubyFunction5 fun);
-			Module define_private_method (const char* name, RubyFunction6 fun);
-			Module define_private_method (const char* name, RubyFunction7 fun);
-			Module define_private_method (const char* name, RubyFunction8 fun);
-			Module define_singleton_method (const char* name, RubyFunctionN fun);
-			Module define_singleton_method (const char* name, RubyFunction0 fun);
-			Module define_singleton_method (const char* name, RubyFunction1 fun);
-			Module define_singleton_method (const char* name, RubyFunction2 fun);
-			Module define_singleton_method (const char* name, RubyFunction3 fun);
-			Module define_singleton_method (const char* name, RubyFunction4 fun);
-			Module define_singleton_method (const char* name, RubyFunction5 fun);
-			Module define_singleton_method (const char* name, RubyFunction6 fun);
-			Module define_singleton_method (const char* name, RubyFunction7 fun);
-			Module define_singleton_method (const char* name, RubyFunction8 fun);
-
-	};// Module
-
-
-	Module define_module (const char* name);
-
-	Class define_class (const char* name, Value super = rb_cObject);
-
-	void define_const (const char* name, Value val);
-
-
-}// Rucy
-
-
-#endif//EOH

data/include/rucy/value.h

@@ -1,291 +0,0 @@
-// -*- 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/src/function.cpp

@@ -1,158 +0,0 @@
-// -*- c++ -*-
-#include "rucy/function.h"
-
-
-#include <rucy/exception.h>
-
-
-#ifndef TAG_RAISE
-	#define TAG_RAISE 0x6
-#endif
-
-
-namespace Rucy
-{
-
-
-	void
-	define_function (const char* name, RubyFunctionN fun)
-	{
-		rb_define_global_function(name, RUBY_METHOD_FUNC(fun), -1);
-	}
-	void
-	define_function (const char* name, RubyFunction0 fun)
-	{
-		rb_define_global_function(name, RUBY_METHOD_FUNC(fun), 0);
-	}
-	void
-	define_function (const char* name, RubyFunction1 fun)
-	{
-		rb_define_global_function(name, RUBY_METHOD_FUNC(fun), 1);
-	}
-	void
-	define_function (const char* name, RubyFunction2 fun)
-	{
-		rb_define_global_function(name, RUBY_METHOD_FUNC(fun), 2);
-	}
-	void
-	define_function (const char* name, RubyFunction3 fun)
-	{
-		rb_define_global_function(name, RUBY_METHOD_FUNC(fun), 3);
-	}
-	void
-	define_function (const char* name, RubyFunction4 fun)
-	{
-		rb_define_global_function(name, RUBY_METHOD_FUNC(fun), 4);
-	}
-	void
-	define_function (const char* name, RubyFunction5 fun)
-	{
-		rb_define_global_function(name, RUBY_METHOD_FUNC(fun), 5);
-	}
-	void
-	define_function (const char* name, RubyFunction6 fun)
-	{
-		rb_define_global_function(name, RUBY_METHOD_FUNC(fun), 6);
-	}
-	void
-	define_function (const char* name, RubyFunction7 fun)
-	{
-		rb_define_global_function(name, RUBY_METHOD_FUNC(fun), 7);
-	}
-	void
-	define_function (const char* name, RubyFunction8 fun)
-	{
-		rb_define_global_function(name, RUBY_METHOD_FUNC(fun), 8);
-	}
-
-	Value
-	call (Symbol name, int argc, const Value* argv)
-	{
-		return protect(rb_funcall2, Qnil, name.id(), argc, (const VALUE*) argv);
-	}
-	Value
-	call (Symbol name)
-	{
-		const VALUE args[] = {};
-		return protect(rb_funcall2, Qnil, name.id(), 0, args);
-	}
-	Value
-	call (Symbol name, Value v1)
-	{
-		const VALUE args[] = {v1};
-		return protect(rb_funcall2, Qnil, name.id(), 1, args);
-	}
-	Value
-	call (Symbol name, Value v1, Value v2)
-	{
-		const VALUE args[] = {v1, v2};
-		return protect(rb_funcall2, Qnil, name.id(), 2, args);
-	}
-	Value
-	call (Symbol name, Value v1, Value v2, Value v3)
-	{
-		const VALUE args[] = {v1, v2, v3};
-		return protect(rb_funcall2, Qnil, name.id(), 3, args);
-	}
-	Value
-	call (Symbol name, Value v1, Value v2, Value v3, Value v4)
-	{
-		const VALUE args[] = {v1, v2, v3, v4};
-		return protect(rb_funcall2, Qnil, name.id(), 4, args);
-	}
-	Value
-	call (Symbol name, Value v1, Value v2, Value v3, Value v4, Value v5)
-	{
-		const VALUE args[] = {v1, v2, v3, v4, v5};
-		return protect(rb_funcall2, Qnil, name.id(), 5, args);
-	}
-	Value
-	call (Symbol name, Value v1, Value v2, Value v3, Value v4, Value v5, Value v6)
-	{
-		const VALUE args[] = {v1, v2, v3, v4, v5, v6};
-		return protect(rb_funcall2, Qnil, name.id(), 6, args);
-	}
-	Value
-	call (Symbol name, Value v1, Value v2, Value v3, Value v4, Value v5, Value v6, Value v7)
-	{
-		const VALUE args[] = {v1, v2, v3, v4, v5, v6, v7};
-		return protect(rb_funcall2, Qnil, name.id(), 7, args);
-	}
-	Value
-	call (Symbol name, Value v1, Value v2, Value v3, Value v4, Value v5, Value v6, Value v7, Value v8)
-	{
-		const VALUE args[] = {v1, v2, v3, v4, v5, v6, v7, v8};
-		return protect(rb_funcall2, Qnil, name.id(), 8, args);
-	}
-
-	Value
-	eval (const char* str)
-	{
-		SYM(eval);
-		return call(eval, str);
-	}
-
-
-	Value
-	call_protect (VALUE (*fun)(VALUE), VALUE arg)
-	{
-		int state = 0;
-		VALUE ret = rb_protect(fun, arg, &state);
-
-		if (state != 0)
-		{
-			VALUE exception = rb_errinfo();
-			if (state == TAG_RAISE && RTEST(exception))
-			{
-				rb_set_errinfo(Qnil);
-				throw RubyException(exception);
-			}
-
-			throw RubyJumptag(state);
-		}
-
-		return ret;
-	}
-
-
-}// Rucy

data/src/gc.cpp

@@ -1,63 +0,0 @@
-// -*- c++ -*-
-#include "rucy/gc.h"
-
-
-namespace Rucy
-{
-
-
-	static void
-	register_value (VALUE* v)
-	{
-		if (!v) return;
-		rb_gc_register_address(v);
-	}
-
-	static void
-	unregister_value (VALUE* v)
-	{
-		if (!v) return;
-		rb_gc_unregister_address(v);
-	}
-
-	GCGuard::GCGuard (VALUE* v)
-	:	pval(v)
-	{
-		register_value(pval);
-	}
-
-	GCGuard::GCGuard (Value* v)
-	:	pval(v ? &v->v : NULL)
-	{
-		register_value(pval);
-	}
-
-	GCGuard::~GCGuard ()
-	{
-		unregister_value(pval);
-	}
-
-
-	GlobalValue::GlobalValue (Value v)
-	:	val(v), guard(&val)
-	{
-	}
-
-	Value
-	GlobalValue::value () const
-	{
-		return val;
-	}
-
-	GlobalValue::operator VALUE () const
-	{
-		return value();
-	}
-
-	GlobalValue::operator Value () const
-	{
-		return value();
-	}
-
-
-}// Rucy