rubyuno 0.3.0

data/ext/rubyuno/string.cxx

@@ -0,0 +1,252 @@
+
+#include "rubyuno.hxx"
+
+#ifdef HAVE_RUBY_IO_H
+#include <ruby/io.h>
+#endif
+
+#include <rtl/textenc.h>
+#include <osl/thread.h>
+
+using rtl::OString;
+using rtl::OUString;
+using rtl::OUStringToOString;
+
+namespace rubyuno
+{
+
+OUString
+asciiVALUE2OUString(VALUE str)
+{
+	Check_Type(str, T_STRING);
+	return OUString(RSTRING_PTR(str), RSTRING_LEN(str), RTL_TEXTENCODING_ASCII_US);
+}
+
+VALUE
+asciiOUString2VALUE(const OUString &str)
+{
+	OString o = OUStringToOString(str, RTL_TEXTENCODING_ASCII_US);
+#ifdef HAVE_RUBY_ENCODING_H
+	return rb_enc_str_new(o.getStr(), o.getLength(), rb_usascii_encoding());
+#else
+	return rb_str_new(o.getStr(), o.getLength());
+#endif
+}
+
+#ifdef HAVE_RUBY_ENCODING_H
+rtl_TextEncoding
+Encoding2TextEncoding(VALUE encoding)
+{
+	rtl_TextEncoding ret;
+	int index = rb_to_encoding_index(encoding);
+	
+	if (index == rb_enc_find_index("US-ASCII"))
+		ret = RTL_TEXTENCODING_ASCII_US;
+	else if (index == rb_enc_find_index("UTF-8"))
+		ret = RTL_TEXTENCODING_UTF8;
+	else if (index == rb_enc_find_index("EUC-JP"))
+		ret = RTL_TEXTENCODING_EUC_JP;
+	else if (index == rb_enc_find_index("Shift_JIS"))
+		ret = RTL_TEXTENCODING_SHIFT_JIS;
+	else if (index == rb_enc_find_index("Big5"))
+		ret = RTL_TEXTENCODING_BIG5;
+	else if (index == rb_enc_find_index("EUC-KR"))
+		ret = RTL_TEXTENCODING_EUC_KR;
+	else if (index == rb_enc_find_index("EUC-TW"))
+		ret = RTL_TEXTENCODING_EUC_TW;
+	else if (index == rb_enc_find_index("GB18030"))
+		ret = RTL_TEXTENCODING_GB_18030;
+	else if (index == rb_enc_find_index("GBK"))
+		ret = RTL_TEXTENCODING_GBK;
+	else if (index == rb_enc_find_index("ISO-8859-1"))
+		ret = RTL_TEXTENCODING_ISO_8859_1;
+	else if (index == rb_enc_find_index("ISO-8859-2"))
+		ret = RTL_TEXTENCODING_ISO_8859_2;
+	else if (index == rb_enc_find_index("ISO-8859-3"))
+		ret = RTL_TEXTENCODING_ISO_8859_3;
+	else if (index == rb_enc_find_index("ISO-8859-4"))
+		ret = RTL_TEXTENCODING_ISO_8859_4;
+	else if (index == rb_enc_find_index("ISO-8859-5"))
+		ret = RTL_TEXTENCODING_ISO_8859_5;
+	else if (index == rb_enc_find_index("ISO-8859-6"))
+		ret = RTL_TEXTENCODING_ISO_8859_6;
+	else if (index == rb_enc_find_index("ISO-8859-7"))
+		ret = RTL_TEXTENCODING_ISO_8859_7;
+	else if (index == rb_enc_find_index("ISO-8859-8"))
+		ret = RTL_TEXTENCODING_ISO_8859_8;
+	else if (index == rb_enc_find_index("ISO-8859-9"))
+		ret = RTL_TEXTENCODING_ISO_8859_9;
+	else if (index == rb_enc_find_index("ISO-8859-10"))
+		ret = RTL_TEXTENCODING_ISO_8859_10;
+	else if (index == rb_enc_find_index("ISO-8859-13"))
+		ret = RTL_TEXTENCODING_ISO_8859_13;
+	else if (index == rb_enc_find_index("ISO-8859-14"))
+		ret = RTL_TEXTENCODING_ISO_8859_14;
+	else if (index == rb_enc_find_index("ISO-8859-15"))
+		ret = RTL_TEXTENCODING_ISO_8859_15;
+	else if (index == rb_enc_find_index("KOI8-R"))
+		ret = RTL_TEXTENCODING_KOI8_R;
+	else if (index == rb_enc_find_index("KOI8-U"))
+		ret = RTL_TEXTENCODING_KOI8_U;
+	else if (index == rb_enc_find_index("Windows-1251"))
+		ret = RTL_TEXTENCODING_MS_1251;
+	else if (index == rb_enc_find_index("IBM437"))
+		ret = RTL_TEXTENCODING_IBM_437 ;
+	else if (index == rb_enc_find_index("IBM737"))
+		ret = RTL_TEXTENCODING_IBM_737;
+	else if (index == rb_enc_find_index("IBM775"))
+		ret = RTL_TEXTENCODING_IBM_775;
+	else if (index == rb_enc_find_index("IBM852"))
+		ret = RTL_TEXTENCODING_IBM_852;
+	else if (index == rb_enc_find_index("IBM852"))
+		ret = RTL_TEXTENCODING_IBM_855;
+	else if (index == rb_enc_find_index("IBM855"))
+		ret = RTL_TEXTENCODING_IBM_857;
+	else if (index == rb_enc_find_index("IBM857"))
+		ret = RTL_TEXTENCODING_IBM_860;
+	else if (index == rb_enc_find_index("IBM860"))
+		ret = RTL_TEXTENCODING_IBM_861;
+	else if (index == rb_enc_find_index("IBM861"))
+		ret = RTL_TEXTENCODING_IBM_862;
+	else if (index == rb_enc_find_index("IBM862"))
+		ret = RTL_TEXTENCODING_IBM_863;
+	else if (index == rb_enc_find_index("IBM863"))
+		ret = RTL_TEXTENCODING_IBM_864;
+	else if (index == rb_enc_find_index("IBM864"))
+		ret = RTL_TEXTENCODING_IBM_865;
+	else if (index == rb_enc_find_index("IBM865"))
+		ret = RTL_TEXTENCODING_IBM_866;
+	else if (index == rb_enc_find_index("IBM866"))
+		ret = RTL_TEXTENCODING_IBM_869 ;
+	else if (index == rb_enc_find_index("Windows-1258"))
+		ret = RTL_TEXTENCODING_MS_1258;
+	else if (index == rb_enc_find_index("macCentEuro"))
+		ret = RTL_TEXTENCODING_APPLE_CENTEURO;
+	else if (index == rb_enc_find_index("macCroatian"))
+		ret = RTL_TEXTENCODING_APPLE_CROATIAN;
+	else if (index == rb_enc_find_index("macCyrillic"))
+		ret = RTL_TEXTENCODING_APPLE_CYRILLIC;
+	else if (index == rb_enc_find_index("macGreek"))
+		ret = RTL_TEXTENCODING_APPLE_GREEK;
+	else if (index == rb_enc_find_index("macIceland"))
+		ret = RTL_TEXTENCODING_APPLE_ICELAND;
+	else if (index == rb_enc_find_index("macRoman"))
+		ret = RTL_TEXTENCODING_APPLE_ROMAN;
+	else if (index == rb_enc_find_index("macRomania"))
+		ret = RTL_TEXTENCODING_APPLE_ROMANIAN;
+	else if (index == rb_enc_find_index("macThai"))
+		ret = RTL_TEXTENCODING_APPLE_THAI;
+	else if (index == rb_enc_find_index("macTurkish"))
+		ret = RTL_TEXTENCODING_APPLE_TURKISH;
+	else if (index == rb_enc_find_index("stateless-ISO-2022-JP"))
+		ret = RTL_TEXTENCODING_ISO_2022_JP;
+	else if (index == rb_enc_find_index("GB2312"))
+		ret = RTL_TEXTENCODING_GB_2312;
+	else if (index == rb_enc_find_index("GB12345"))
+		ret = RTL_TEXTENCODING_GBT_12345;
+	else if (index == rb_enc_find_index("Windows-1252"))
+		ret = RTL_TEXTENCODING_MS_1252;
+	else if (index == rb_enc_find_index("Windows-1250"))
+		ret = RTL_TEXTENCODING_MS_1250;
+	else if (index == rb_enc_find_index("Windows-1253"))
+		ret = RTL_TEXTENCODING_MS_1253;
+	else if (index == rb_enc_find_index("Windows-1254"))
+		ret = RTL_TEXTENCODING_MS_1254;
+	else if (index == rb_enc_find_index("Windows-1255"))
+		ret = RTL_TEXTENCODING_MS_1255;
+	else if (index == rb_enc_find_index("Windows-1256"))
+		ret = RTL_TEXTENCODING_MS_1256;
+	else if (index == rb_enc_find_index("Windows-1257"))
+		ret = RTL_TEXTENCODING_MS_1257;
+	else if (index == rb_enc_find_index("MacJapanese"))
+		ret = RTL_TEXTENCODING_APPLE_JAPANESE;
+	else
+		ret = RTL_TEXTENCODING_UTF8;
+		
+	return ret;
+}
+#else
+rtl_TextEncoding
+Encoding2TextEncoding(const char *enc)
+{
+	rtl_TextEncoding ret;
+	if (strcmp(enc, "UTF8") == 0)
+	{
+		ret = RTL_TEXTENCODING_UTF8;
+	}
+	else if (strcmp(enc, "SJIS") == 0)
+	{
+		ret = RTL_TEXTENCODING_SHIFT_JIS;
+	}
+	else if (strcmp(enc, "EUC") == 0)
+	{
+		ret = RTL_TEXTENCODING_EUC_JP;
+	}
+	else
+	{
+		ret = RTL_TEXTENCODING_UTF8;
+	}
+	return ret;
+}
+#endif
+
+static rtl_TextEncoding external_encoding;
+
+VALUE
+ustring2RString(const ::rtl::OUString &str)
+{
+#ifdef HAVE_RUBY_ENCODING_H
+	//OString o = OUStringToOString(str, RTL_TEXTENCODING_UTF8);
+	//return rb_enc_str_new(o.getStr(), o.getLength(), rb_utf8_encoding());
+	OString o = OUStringToOString(str, external_encoding);
+	return rb_enc_str_new(o.getStr(), o.getLength(), rb_default_external_encoding());
+#else
+	OString o = OUStringToOString(str, external_encoding);
+	return rb_str_new(o.getStr(), o.getLength());
+#endif
+}
+
+OUString
+rbString2OUString(VALUE rbstr)
+{
+	Check_Type(rbstr, T_STRING);
+#ifdef HAVE_RUBY_ENCODING_H
+	//VALUE str = rb_funcall(rbstr, rb_intern("encode"), 1, rb_str_new2("UTF-8"));
+	//return OUString(RSTRING_PTR(str), RSTRING_LEN(str), RTL_TEXTENCODING_UTF8);
+	
+	return OUString(RSTRING_PTR(rbstr), RSTRING_LEN(rbstr), Encoding2TextEncoding(rb_obj_encoding(rbstr)));
+#else
+	return OUString(RSTRING_PTR(rbstr), RSTRING_LEN(rbstr), external_encoding);
+#endif
+}
+
+/*
+void
+set_external_encoding(VALUE encoding)
+{
+	external_encoding = Encoding2TextEncoding(encoding);
+}
+*/
+
+void
+init_external_encoding()
+{
+#ifdef HAVE_RUBY_ENCODING_H
+	external_encoding = Encoding2TextEncoding(rb_enc_default_external());
+#else
+	external_encoding = Encoding2TextEncoding(rb_get_kcode());
+#endif
+}
+
+VALUE
+bytes2VALUE(const com::sun::star::uno::Sequence< sal_Int8 > &bytes)
+{
+#ifdef HAVE_RUBY_ENCODING_H
+	return rb_enc_str_new((char*)bytes.getConstArray(), bytes.getLength(), rb_ascii8bit_encoding());
+#else
+	return rb_str_new((char*)bytes.getConstArray(), bytes.getLength());
+#endif
+}
+
+}
+

data/ext/rubyuno/type.cxx

@@ -0,0 +1,358 @@
+
+#include "rubyuno.hxx"
+
+#include <osl/thread.h>
+#include <rtl/ustrbuf.hxx>
+#include <typelib/typedescription.hxx>
+
+#include <com/sun/star/reflection/XInterfaceTypeDescription2.hpp>
+
+using com::sun::star::lang::XSingleServiceFactory;
+using com::sun::star::reflection::XInterfaceTypeDescription2;
+using com::sun::star::reflection::XTypeDescription;
+using com::sun::star::script::XInvocation2;
+using com::sun::star::uno::Any;
+using com::sun::star::uno::Reference;
+using com::sun::star::uno::RuntimeException;
+using com::sun::star::uno::Sequence;
+using com::sun::star::uno::TypeDescription;
+using com::sun::star::uno::UNO_QUERY;
+using com::sun::star::uno::XInterface;
+
+using rtl::OUString;
+using rtl::OUStringToOString;
+using rtl::OUStringBuffer;
+
+namespace rubyuno
+{
+
+VALUE
+get_module_class()
+{
+	return rb_const_get(rb_cObject, rb_intern("Rubyuno"));
+	ID id;
+	id = rb_intern("Rubyuno");
+	if (rb_const_defined(rb_cObject, id))
+		return rb_const_get(rb_cObject, id);
+	rb_raise(rb_eRuntimeError, "module undefined (Rubyuno)");
+}
+
+VALUE
+get_class(const char *name)
+{
+	VALUE module;
+	ID id;
+	id = rb_intern(name);
+	
+	module = get_module_class();
+	if (rb_const_defined(module, id))
+		return rb_const_get(module, id);
+	rb_raise(rb_eRuntimeError, "class undefined (%s)", RSTRING_PTR(&name));
+}
+
+
+VALUE
+get_proxy_class()
+{
+	return get_class("RubyunoProxy");
+}
+
+VALUE
+get_enum_class()
+{
+	return get_class("Enum");
+}
+
+VALUE
+get_type_class()
+{
+	return get_class("Type");
+}
+
+VALUE
+get_char_class()
+{
+	return get_class("Char");
+}
+
+VALUE
+get_any_class()
+{
+	return get_class("Any");
+}
+
+VALUE
+get_bytes_class()
+{
+	return get_class("ByteSequence");
+}
+
+VALUE
+get_interface_class()
+{
+	ID id;
+	VALUE module = get_module_class();
+	id = rb_intern("Com");
+	if (!rb_const_defined(module, id))
+		rb_raise(rb_eRuntimeError, "unknown error (Rubyuno::Com)");
+	VALUE com_module = rb_const_get(module, id);
+	id = rb_intern("Sun");
+	if (!rb_const_defined(com_module, id))
+		rb_raise(rb_eRuntimeError, "unknown error (Rubyuno::Com::Sun)");
+	VALUE sun_module = rb_const_get(com_module, id);
+	id = rb_intern("Star");
+	if (!rb_const_defined(sun_module, id))
+		rb_raise(rb_eRuntimeError, "unknown error (Rubyuno::Com::Sun::Star)");
+	VALUE star_module = rb_const_get(sun_module, id);
+	id = rb_intern("Uno");
+	if (!rb_const_defined(star_module, id))
+		rb_raise(rb_eRuntimeError, "unknown error (Rubyuno::Com::Sun::Star::Uno)");
+	VALUE uno_module = rb_const_get(star_module, id);
+	id = rb_intern("XInterface");
+	if (!rb_const_defined(uno_module, id))
+		rb_raise(rb_eRuntimeError, "unknown error (Rubyuno::Com::Sun::Star::Uno::XInterface)");
+	return rb_const_get(uno_module, id);
+}
+
+VALUE
+get_struct_class()
+{
+	return get_class("RubyunoStruct");
+}
+
+VALUE
+get_exception_class()
+{
+	ID id;
+	VALUE module = get_module_class();
+	id = rb_intern("Com");
+	if (!rb_const_defined(module, id))
+		rb_raise(rb_eRuntimeError, "unknown error (Rubyuno::Com)");
+	VALUE com_module = rb_const_get(module, id);
+	id = rb_intern("Sun");
+	if (!rb_const_defined(com_module, id))
+		rb_raise(rb_eRuntimeError, "unknown error (Rubyuno::Com::Sun)");
+	VALUE sun_module = rb_const_get(com_module, id);
+	id = rb_intern("Star");
+	if (!rb_const_defined(sun_module, id))
+		rb_raise(rb_eRuntimeError, "unknown error (Rubyuno::Com::Sun::Star)");
+	VALUE star_module = rb_const_get(sun_module, id);
+	id = rb_intern("Uno");
+	if (!rb_const_defined(star_module, id))
+		rb_raise(rb_eRuntimeError, "unknown error (Rubyuno::Com::Sun::Star::Uno)");
+	VALUE uno_module = rb_const_get(star_module, id);
+	id = rb_intern("Exception");
+	if (!rb_const_defined(uno_module, id))
+		rb_raise(rb_eRuntimeError, "unknown error (Rubyuno::Com::Sun::Star::Uno::Exception)");
+	return rb_const_get(uno_module, id);
+}
+
+VALUE
+new_Type(VALUE type_name, VALUE type_class)
+{
+	return rb_funcall(get_enum_class(), rb_intern("new"), type_name, type_class);
+}
+
+VALUE
+new_Char(VALUE character)
+{
+	VALUE char_class = get_char_class();
+	return rb_funcall(char_class, rb_intern("new"), character);
+}
+
+
+VALUE
+new_rubyuno_object(const Any &a, const Reference< XSingleServiceFactory > &xFactory)
+{
+	Reference< XInterface > tmp_interface;
+	a >>= tmp_interface;
+	if (!tmp_interface.is())
+		return Qnil;
+	return new_rubyuno_proxy(a, xFactory, get_proxy_class());
+}
+
+VALUE
+new_rubyuno_proxy(const Any &object, const Reference< XSingleServiceFactory > &xFactory, VALUE klass)
+{
+	Sequence< Any > arguments(1);
+	arguments[0] <<= object;
+	Reference< XInvocation2 > xinvocation(xFactory->createInstanceWithArguments(arguments), UNO_QUERY);
+	
+	VALUE obj;
+	RubyunoInternal *rubyuno;
+	rubyuno = new RubyunoInternal();
+	obj = rb_obj_alloc(klass);
+	DATA_PTR(obj) = rubyuno;
+	
+	rubyuno->wrapped = object;
+	rubyuno->invocation = xinvocation;
+	return obj;
+}
+
+void
+set_rubyuno_struct(const Any &object, const Reference< XSingleServiceFactory > &xFactory, VALUE &self)
+{
+	Sequence< Any > arguments(1);
+	arguments[0] <<= object;
+	
+	Reference< XInvocation2 > xinvocation(xFactory->createInstanceWithArguments(arguments), UNO_QUERY);
+	
+	RubyunoInternal *rubyuno;
+	Data_Get_Struct(self, RubyunoInternal, rubyuno);
+	
+	rubyuno->wrapped = object;
+	rubyuno->invocation = xinvocation;
+}
+
+
+/*
+ * Create or get modules according to name.
+ */
+VALUE
+create_module(const OUString &name)
+{
+	VALUE parent;
+	parent = get_module_class();
+	
+	ID id;
+	sal_Int32 ends, pos, tmp;
+	char *s;
+	OUStringBuffer buf;
+	ends = name.lastIndexOfAsciiL(".", 1);
+	if (!(ends > 1))
+		rb_raise(rb_eArgError, "invalid name(%s)", 
+		OUStringToOString(name, osl_getThreadTextEncoding()).getStr());
+	tmp = 0;
+	pos = name.indexOfAsciiL(".", 1, 0);
+	OUString tmpName = name.copy(ends + 1);
+	if (tmpName.getLength() < 1)
+		rb_raise(rb_eRuntimeError, "invalid name (%s)", 
+		OUStringToOString(tmpName, osl_getThreadTextEncoding()).getStr());
+	
+	while (pos < ends)
+	{
+		pos = name.indexOfAsciiL(".", 1, tmp);
+		
+		buf.append(name.copy(tmp, 1).toAsciiUpperCase()).append(name.copy(tmp +1, pos - tmp -1));
+		s = (char*)(OUStringToOString(buf.makeStringAndClear(), RTL_TEXTENCODING_ASCII_US).getStr());
+		
+		id = rb_intern(s);
+		if (rb_const_defined(parent, id))
+			parent = rb_const_get(parent, id);
+		else
+			parent = rb_define_module_under(parent, s);
+		
+		tmp = pos + 1;
+	}
+	return parent;
+}
+
+
+/*
+ * Find and define class (for structs and exceptions) or module (for interfaces).
+ */
+VALUE
+find_class(const OUString &name, typelib_TypeClass typeClass)
+{
+	ID id;
+	VALUE module;
+	sal_Int32 ends;
+	char *className;
+	
+	module = create_module(name);
+	ends = name.lastIndexOfAsciiL(".", 1);
+	className = (char*) OUStringToOString(
+					name.copy(ends + 1), RTL_TEXTENCODING_ASCII_US).getStr();
+	id = rb_intern(className);
+	if (rb_const_defined(module, id))
+	{
+		return rb_const_get(module, id);
+	}
+	VALUE klass;
+	
+	if (typeClass == typelib_TypeClass_STRUCT)
+	{
+		klass = rb_define_class_under(module, className, get_struct_class());
+	}
+	else if (typeClass == typelib_TypeClass_EXCEPTION)
+	{
+		 klass = rb_define_class_under(module, className, get_exception_class());
+	}
+	else if (typeClass == typelib_TypeClass_INTERFACE)
+	{
+		klass = rb_define_module_under(module, className);
+	}
+	else
+	{
+		rb_raise(rb_eArgError, "unsupported type (%s)", className);
+	}
+	rb_define_const(klass, "TYPENAME", asciiOUString2VALUE(name));
+	return klass;
+}
+
+
+/*
+ * Define interface module.
+ */
+VALUE
+find_interface(Reference< XTypeDescription > &xTd)
+{
+	OUString name = xTd->getName();
+	
+	VALUE module = find_class(name, (typelib_TypeClass)xTd->getTypeClass());
+	
+	Reference< XInterfaceTypeDescription2 > xInterfaceTd(xTd, UNO_QUERY);
+	Sequence< Reference< XTypeDescription > > xBaseTypes = xInterfaceTd->getBaseTypes();
+	Sequence< Reference< XTypeDescription>  > xOptionalTypes = xInterfaceTd->getOptionalBaseTypes();
+	
+	VALUE parent;
+	for (int i = 0; i < xBaseTypes.getLength(); i++)
+	{
+		parent = find_interface(xBaseTypes[i]);
+		if (! NIL_P(parent))
+			rb_include_module(module, parent);
+	}
+	for (int i = 0; i < xOptionalTypes.getLength(); i++)
+	{
+		parent = find_interface(xBaseTypes[i]);
+		if (! NIL_P(parent))
+			rb_include_module(module, parent);
+	}
+	return module;
+}
+
+void
+raise_rb_exception(const Any &a)
+{
+	try
+	{
+		com::sun::star::uno::Exception e;
+		a >>= e;
+		
+		VALUE module, klass;
+		Runtime runtime;
+		
+		OUString typeName = a.getValueTypeName();
+		module = create_module(typeName);
+		
+		klass = find_class(typeName, (typelib_TypeClass)a.getValueTypeClass());
+		
+		rb_raise(klass, OUStringToOString(e.Message, RTL_TEXTENCODING_ASCII_US).getStr());
+	}
+	catch (com::sun::star::lang::IllegalArgumentException &e)
+	{
+		rb_raise(rb_eRuntimeError, "illegal argument exception at exception conversion.");
+	}
+	catch (com::sun::star::script::CannotConvertException &e)
+	{
+		rb_raise(rb_eRuntimeError, "error at exception conversion.");
+	}
+	catch (RuntimeException &e)
+	{
+		rb_raise(rb_eRuntimeError, "runtime exception at exception conversion.");
+	}
+}
+
+
+}
+