intersys 0.0.2

data/lib/object.c

@@ -0,0 +1,69 @@
+#include "intersys.h"
+
+
+static void intersys_object_free(struct rbObject* object) {
+//	printf("Releasing object %d\n", object->oref);
+	if (object->oref) {
+		RUN(cbind_object_release(object->database, object->oref));
+	}
+	free(object);
+}
+
+static void intersys_object_mark(struct rbObject* object) {
+	rb_gc_mark(object->class_name);
+}
+
+
+VALUE intersys_object_s_allocate(VALUE klass) {
+	struct rbObject* object = ALLOC(struct rbObject);
+	bzero(object, sizeof(struct rbObject));
+	return Data_Wrap_Struct(klass, intersys_object_mark, intersys_object_free, object);
+}
+
+VALUE intersys_object_initialize(VALUE self) {
+	struct rbObject* object;
+	struct rbDatabase* base;
+	VALUE klass = rb_funcall(self, rb_intern("class"), 0);
+	VALUE database = rb_funcall(klass, rb_intern("database"), 0);
+	Data_Get_Struct(self, struct rbObject, object);
+	Data_Get_Struct(database, struct rbDatabase, base);
+	object->database = base->database;
+	object->class_name = TOWCHAR(rb_funcall(klass, rb_intern("class_name"), 0));
+	return self;
+}
+
+VALUE intersys_object_open_by_id(VALUE self, VALUE oid) {
+	int concurrency = rb_funcall(self, rb_intern("concurrency"), 0);
+	int timeout = rb_funcall(self, rb_intern("timeout"), 0);
+	int error;
+	struct rbObject* object;
+	VALUE r_object = rb_funcall(self, rb_intern("new"), 0);
+	Data_Get_Struct(r_object, struct rbObject, object);
+	
+    error = cbind_openid(object->database, CLASS_NAME(object), WCHARSTR(oid), concurrency, timeout, &object->oref);
+	switch(error) {
+		case 0:
+			return r_object;
+		case -9: 
+			rb_raise(cObjectNotFound, "Object with id %s not found", PRINTABLE(oid));
+			return Qnil;
+		default: 
+			RUN(error);
+			return Qnil;
+	}
+	return r_object;
+}
+
+VALUE intersys_object_create(VALUE self) {
+	wchar_t *init_val = NULL;
+	struct rbObject *object;
+	VALUE r_object = rb_funcall(self, rb_intern("new"), 0);
+	
+	Data_Get_Struct(r_object, struct rbObject, object);
+	
+	RUN(cbind_create_new(object->database, CLASS_NAME(object), init_val,&object->oref));
+	return r_object;
+}
+
+
+

data/lib/query.c

@@ -0,0 +1,153 @@
+#include "intersys.h"
+#include <sql.h>
+#include <sqlext.h>
+#include <sqlucode.h>
+
+void intersys_query_free(struct rbQuery* query) {
+	RUN(cbind_free_query(query->query));
+	free(query);
+}
+
+VALUE intersys_query_s_allocate(VALUE klass) {
+	struct rbQuery* query = ALLOC(struct rbQuery);
+	bzero(query, sizeof(struct rbQuery));
+	return Data_Wrap_Struct(klass, 0, intersys_query_free, query);
+}
+
+VALUE intersys_query_initialize(VALUE self, VALUE database, VALUE sql_query) {
+	struct rbQuery* query;
+	struct rbDatabase* base;
+	int sql_code;
+	Data_Get_Struct(self, struct rbQuery, query);
+	Data_Get_Struct(database, struct rbDatabase, base);
+	RUN(cbind_alloc_query(base->database, &query->query));
+	RUN(cbind_prepare_gen_query(query->query, WCHARSTR(sql_query), &sql_code));
+	return self;
+}
+
+VALUE intersys_query_execute(VALUE self) {
+	struct rbQuery* query;
+	int sql_code;
+	int res;
+	Data_Get_Struct(self, struct rbQuery, query);
+	RUN(cbind_query_execute(query->query, &sql_code));
+    RUN(cbind_query_get_num_pars(query->query, &res));
+	return self;
+}
+
+VALUE intersys_query_get_data(VALUE self, VALUE index) {
+	struct rbQuery* query;
+	int type = 0;
+	VALUE ret = Qnil;
+	bool_t is_null;
+	Data_Get_Struct(self, struct rbQuery, query);
+
+    RUN(cbind_query_get_col_sql_type(query->query, FIX2INT(index), &type));
+	switch(type) {
+        case SQL_WCHAR:
+        case SQL_WVARCHAR:
+        case SQL_WLONGVARCHAR:
+        case SQL_CHAR:
+        case SQL_VARCHAR:
+        case SQL_LONGVARCHAR:
+        {
+            wchar_t buf[32767];
+            int size;
+            RUN(cbind_query_get_uni_str_data(query->query, buf, sizeof(buf), &size, &is_null));
+            if (is_null) {
+				return Qnil;
+            }
+			return FROMWCSTR(buf);
+        }
+        case SQL_BINARY:
+        case SQL_LONGVARBINARY:
+        case SQL_VARBINARY:
+        {
+            char buf[32767];
+            int size;
+            
+            RUN(cbind_query_get_bin_data(query->query, buf, sizeof(buf), &size, &is_null));
+            if (is_null) {
+				return Qnil;
+            }
+			return rb_str_new(buf, size);
+		}
+        case SQL_TINYINT:
+        case SQL_SMALLINT:
+        case SQL_INTEGER:
+        case SQL_BIGINT:
+        case SQL_BIT:
+        {
+            int res;
+            RUN(cbind_query_get_int_data(query->query, &res, &is_null));
+            if (is_null) {
+				return Qnil;
+            }
+			return INT2NUM(res);
+        }
+        case SQL_FLOAT:
+        case SQL_DOUBLE:
+        case SQL_REAL:
+        case SQL_NUMERIC:
+        case SQL_DECIMAL:
+        {
+            double res;
+            RUN(cbind_query_get_double_data(query->query, &res, &is_null));
+            if (is_null) {
+				return Qnil;
+            }
+			return rb_float_new(res);
+        }
+
+
+		
+	}
+	return ret;
+}
+
+VALUE intersys_query_column_name(VALUE self, VALUE i) {
+	struct rbQuery* query;
+	Data_Get_Struct(self, struct rbQuery, query);
+	int len;
+	const wchar_t *res;
+	RUN(cbind_query_get_col_name_len(query->query, FIX2INT(i), &len));
+	RUN(cbind_query_get_col_name(query->query, FIX2INT(i), &res));
+	return FROMWCSTR(res);
+}
+
+VALUE intersys_query_fetch(VALUE self) {
+	struct rbQuery* query;
+	VALUE data;
+	Data_Get_Struct(self, struct rbQuery, query);
+	int num_cols = 0;
+	int i = 0;
+	int sql_code;
+
+	RUN(cbind_query_fetch(query->query, &sql_code));
+	
+	data = rb_ary_new();
+
+	if(sql_code == 100) {
+		query->query = 1;
+		rb_funcall(self, rb_intern("close"), 0);
+		return data;
+	}
+	if(sql_code) {
+		return data;
+	//	rb_raise(rb_eStandardError, "Error in SQL: %d", sql_code);
+	}
+	
+	RUN(cbind_query_get_num_cols(query->query, &num_cols));
+	for(i = 0; i < num_cols; i++) {
+		rb_ary_push(data, rb_funcall(self, rb_intern("get_data"), 1, INT2FIX(i+1)));
+	}
+	rb_funcall(self, rb_intern("close"), 0);
+	return data;
+}
+
+VALUE intersys_query_close(VALUE self) {
+	struct rbQuery* query;
+	Data_Get_Struct(self, struct rbQuery, query);
+	RUN(cbind_query_close(query->query));
+	return self;
+}

data/test/object.rb

@@ -0,0 +1,17 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/intersys'
+
+
+class Person < Intersys::Object
+end
+
+class QueryTest < Test::Unit::TestCase
+  def test_open_and_save
+    @p = Person.open(21)
+    @name = "Anni Fyo"
+    @p.name = @name
+    @p.save
+    @p = Article.open(21)
+    assert_equal @name, @p.name
+  end
+end

data/test/query.rb

@@ -0,0 +1,12 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/intersys'
+
+
+class QueryTest < Test::Unit::TestCase
+  def test_query1
+    @db = Intersys::Database.new({})
+
+    @data = @db.query("select * from sample.person")
+    assert @data.size > 0
+  end
+end

data/test/reflection.rb

@@ -0,0 +1,65 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/intersys'
+
+
+class Article < Intersys::Object
+  prefix "Sample"
+end
+class Person < Intersys::Object
+end
+
+class ReflectionTest < Test::Unit::TestCase
+  def test_methods
+    @cdef = Intersys::Reflection::ClassDefinition.open("%Dictionary.ClassDefinition")
+    assert_equal "%Dictionary.ClassDefinition", @cdef.name
+    assert_equal "persistent", @cdef.class_type
+    assert_equal "%Persistent,%Dictionary.ClassDefinitionQuery", @cdef.super
+    assert_equal 58, @cdef.properties.size
+    assert_equal 19, @cdef._methods.size
+  end
+  
+  def test_class_names
+    assert_equal Article, Article.lookup("Sample.Article")
+    assert_equal Person, Article.lookup("User.Person")
+  end
+  
+  def test_class_create
+    @cdef = Intersys::Reflection::ClassDefinition.call("%New", "User.Person")
+    @cdef.class_type = "persistent"
+    @cdef.super = "%Persistent,%Populate,%XML.Adaptor"
+    @props = @cdef.properties
+
+    @prop = Intersys::Reflection::PropertyDefinition.intersys_call("%New", "Person:Name")
+    assert @props << @prop
+    @prop.type = "%String"
+
+    @prop = Intersys::Reflection::PropertyDefinition.intersys_call("%New", "Person:SSN")
+    assert @props << @prop
+    @prop.type = "%String"
+
+    @prop = Intersys::Reflection::PropertyDefinition.intersys_call("%New", "Person:Title")
+    assert @props << @prop
+    @prop.type = "%String"
+
+    @prop = Intersys::Reflection::PropertyDefinition.intersys_call("%New", "Person:DOB")
+    assert @props << @prop
+    @prop.type = "%String"
+    
+    @prop = Intersys::Reflection::PropertyDefinition.intersys_call("%New", "Person:Home")
+    assert @props << @prop
+    @prop.type = "Sample.Address"
+    
+    @prop = Intersys::Reflection::PropertyDefinition.intersys_call("%New", "Person:Business")
+    assert @props << @prop
+    @prop.type = "Sample.Address"
+    
+    assert_equal "User.Person", @cdef.name
+    assert_equal 6, @cdef.properties.size
+    #@cdef.save
+  end
+  
+  def test_populate
+    assert Person.intersys_call("Populate", 1000)
+    
+  end
+end

data/test/strings.rb

@@ -0,0 +1,14 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/intersys'
+
+class StringTest < Test::Unit::TestCase
+  @@wide_string = "\000\000\000a\000\000\000b\000\000\000c\000\000\000\000"
+  @@simple_string = "abc"
+  def test_from_wchar
+    assert_equal @@simple_string, @@wide_string.from_wchar
+  end
+  
+  def test_to_wchar
+    assert_equal @@wide_string, @@simple_string.to_wchar
+  end
+end

metadata

@@ -0,0 +1,69 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: intersys
+version: !ruby/object:Gem::Version 
+  version: 0.0.2
+date: 2006-09-02 00:00:00 +04:00
+summary: Intersystems Cache ruby driver
+require_paths: 
+- lib
+email: max@maxidoors.ru
+homepage: http://maxidoors.ru/
+rubyforge_project: intersys
+description: 
+autorequire: intersys
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+authors: 
+- Max Lapshin
+files: 
+- test/object.rb
+- test/query.rb
+- test/reflection.rb
+- test/strings.rb
+- lib/common.c
+- lib/database.c
+- lib/definition.c
+- lib/extconf.rb
+- lib/intersys.c
+- lib/intersys.h
+- lib/intersys.rb
+- lib/object.c
+- lib/query.c
+- README
+test_files: []
+
+rdoc_options: 
+- --main=README
+- --line-numbers
+- --charset=utf-8
+- --promiscuous
+extra_rdoc_files: 
+- README
+executables: []
+
+extensions: 
+- lib/extconf.rb
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: activesupport
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "1.0"
+    version: