intersys 0.0.4 → 0.1

data/README

@@ -0,0 +1,63 @@
+This is driver for post-relational database Cache, created by Intersystems (http://intersystems.com/cache/index.html)
+
+Author: Max Lapshin <max@maxidoors.ru>
+Weblog: http://maxidoors.ru
+Home page of the project: http://rubyforge.org/projects/intersys
+
+Currently it supports Object access to Cache and preliminary version of SQL.
+
+To use Cache objects, You must declare proxy class:
+
+	class Person < Intersys::Object
+	end
+
+By default database connection is established with localhost:1973, user _SYSTEM, password SYS
+
+Database connection is shared among ALL classes. Currently, it is impossible to establish connection
+with two databases simultaneously
+
+If You need some other database settings, You must declare it:
+
+	class Person < Intersys::Object
+	  database {:user => "_SYSTEM", :password => "SYS", :namespace => "User", :host => "localhost", :port => "1972"}
+	end
+
+
+After initialization You get following methods for Person:
+
+	Person.intersys_call
+	Person.intersys_methods
+	Person.open(id)
+
+Also, there is very slow
+  
+	Person.all_methods
+
+It loads whole hierarchy of classes and loads all methods from all of them. Method
+  
+	Person.intersys_description 
+
+uses this.
+
+
+You can load proxy interface to Cache object:
+
+	@p = Person.open(id)
+	puts @p.intersys_methods
+
+	puts @p.name
+	puts @p.title
+
+
+Naming conventions:
+
+You have no need to declare proxy methods from ruby class to Cache methods.
+When method_missing is called on instance of Intersys::Object, name of method
+is camelized.
+
+Person.delete_extent is transferred to 
+1. Property DeleteExtent
+2. Method DeleteExtent()
+3. Method %DeleteExtent()
+
+Used which of them first is found.

data/lib/common.c

@@ -22,11 +22,7 @@ VALUE string_from_wchar(VALUE self) {
 
 int run(int err, char *file, int line) {
 	if (err != 0) {
-		VALUE handled = rb_funcall(mIntersys, rb_intern("handle_error"), 4, 
-			INT2FIX(err), rb_str_new2(cbind_get_last_err_msg()), rb_str_new2(file), INT2FIX(line));
-		if(handled == Qnil) {
-			rb_raise(rb_eStandardError, "Intersystems Cache error %d: %s in file %s: %d", err, cbind_get_last_err_msg(), file, line);
-		}
+		rb_raise(rb_eStandardError, "Intersystems Cache error %d: %s in file %s: %d", err, cbind_get_last_err_msg(), file, line);
 	}
 	return err;
 }
@@ -54,4 +50,42 @@ VALUE rb_wcstr_new(const wchar_t *w_str, const char_size_t len) {
 
 VALUE rb_wcstr_new2(const wchar_t *w_str) {
 	return wcstr_new(w_str, w_str ? wcslen(w_str) : -1);
-}
+}
+
+static void intersys_status_mark(struct rbStatus* status) {
+	rb_gc_mark(status->message);
+}
+
+VALUE intersys_status_s_allocate(VALUE klass) {
+	struct rbStatus* status = ALLOC(struct rbStatus);
+	bzero(status, sizeof(struct rbStatus));
+	return Data_Wrap_Struct(klass, intersys_status_mark, 0, status);
+}
+
+VALUE intersys_status_initialize(VALUE self, VALUE code, VALUE message) {
+	struct rbStatus* status;
+	Data_Get_Struct(self, struct rbStatus, status);
+	status->code = code;
+	status->message = message;
+	rb_call_super(1, &message);
+	return self;
+}
+
+VALUE intersys_status_code(VALUE self) {
+	struct rbStatus* status;
+	Data_Get_Struct(self, struct rbStatus, status);
+	return status->code;
+}
+
+VALUE intersys_status_message(VALUE self) {
+	struct rbStatus* status;
+	Data_Get_Struct(self, struct rbStatus, status);
+	return status->message;
+}
+
+VALUE intersys_status_to_s(VALUE self) {
+	struct rbStatus* status;
+	Data_Get_Struct(self, struct rbStatus, status);
+	return status->message;
+}
+

data/lib/definition.c

@@ -21,24 +21,35 @@ static void intersys_definition_free(struct rbDefinition* definition) {
 
 static void intersys_definition_mark(struct rbDefinition* definition) {
 	rb_gc_mark(definition->class_name);
+	if(definition->object != Qnil) {
+		rb_gc_mark(definition->object);
+	}
 }
 
 VALUE intersys_definition_s_allocate(VALUE klass) {
 	struct rbDefinition* definition = ALLOC(struct rbDefinition);
 	bzero(definition, sizeof(struct rbDefinition));
+	definition->object = Qnil;
 	return Data_Wrap_Struct(klass, intersys_definition_mark, intersys_definition_free, definition);
 }
 
 VALUE intersys_definition_initialize(VALUE self, VALUE r_database, VALUE class_name, VALUE name) {
 	struct rbDatabase* database;
 	struct rbDefinition* definition;
+	VALUE name_w = Qnil;
 	
 	Data_Get_Struct(r_database, struct rbDatabase, database);
 	Data_Get_Struct(self, struct rbDefinition, definition);
-	
-	definition->database = database->database;
-	definition->in_name = WCHARSTR(name);
+
+	rb_iv_set(self, "@database", r_database);
+	rb_iv_set(self, "@class_name", class_name);
 	definition->class_name = TOWCHAR(class_name);
+	rb_iv_set(self, "@class_name_w", definition->class_name);
+	rb_iv_set(self, "@name", name);
+	name_w = TOWCHAR(name);
+	rb_iv_set(self, "@name_w", name_w);
+	definition->database = database->database;
+	definition->in_name = WCHARSTR(name_w);
 	
 	RUN(cbind_alloc_class_def(definition->database, CLASS_NAME(definition), &definition->cl_def));
 	return self;
@@ -50,6 +61,27 @@ VALUE intersys_definition_cpp_type(VALUE self) {
 	return INT2FIX(definition->cpp_type);
 }
 
+VALUE intersys_definition_cpp_name(VALUE self) {
+	struct rbDefinition* definition;
+	Data_Get_Struct(self, struct rbDefinition, definition);
+	switch(definition->cpp_type) {
+		case CBIND_VOID: return ID2SYM(rb_intern("void"));
+		case CBIND_OBJ_ID: return ID2SYM(rb_intern("object"));
+		case CBIND_INT_ID: return ID2SYM(rb_intern("int"));
+		case CBIND_DOUBLE_ID: return ID2SYM(rb_intern("double"));
+		case CBIND_BINARY_ID: return ID2SYM(rb_intern("binary"));
+		case CBIND_STRING_ID: return ID2SYM(rb_intern("string"));
+		case CBIND_STATUS_ID: return ID2SYM(rb_intern("status"));
+		case CBIND_TIME_ID: return ID2SYM(rb_intern("time"));
+		case CBIND_DATE_ID: return ID2SYM(rb_intern("date"));
+		case CBIND_TIMESTAMP_ID: return ID2SYM(rb_intern("timestamp"));
+		case CBIND_BOOL_ID: return ID2SYM(rb_intern("bool"));
+		case CBIND_CURRENCY_ID: return ID2SYM(rb_intern("currency"));
+		case CBIND_DLIST_ID: return ID2SYM(rb_intern("dlist"));
+	}
+	return ID2SYM(rb_intern("unknown"));
+}
+
 
 VALUE intersys_definition_cache_type(VALUE self) {
 	struct rbDefinition* definition;
@@ -113,14 +145,21 @@ VALUE intersys_property_set(VALUE self, VALUE value) {
 
 
 
-VALUE intersys_method_initialize(VALUE self, VALUE object) {
+VALUE intersys_method_initialize(VALUE self, VALUE r_database, VALUE class_name, VALUE name, VALUE object) {
 	struct rbDefinition* method;
+	int error;
+	VALUE args[] = {r_database, class_name, name};
+	rb_call_super(3, args);
+	
 	
 	Data_Get_Struct(self, struct rbDefinition, method);
 
 	method->type = D_METHOD;
     RUN(cbind_alloc_mtd_def(&method->def));
-    RUN(cbind_get_mtd_def(method->cl_def, method->in_name, method->def));
+    error = (cbind_get_mtd_def(method->cl_def, method->in_name, method->def));
+	if(error) {
+		rb_raise(rb_eNoMethodError, "No such method %s in Cache class %s", STR(FROMWCSTR(method->in_name)), STR(rb_iv_get(self, "@class_name")));
+	}
     RUN(cbind_get_mtd_is_func(method->def, &method->is_func));
     RUN(cbind_get_mtd_cpp_type(method->def, &method->cpp_type));
     RUN(cbind_get_mtd_cache_type(method->def, &method->cache_type));
@@ -128,11 +167,11 @@ VALUE intersys_method_initialize(VALUE self, VALUE object) {
     RUN(cbind_get_mtd_num_args(method->def, &method->num_args));
     RUN(cbind_get_mtd_args_info(method->def, &method->args_info));
     RUN(cbind_get_mtd_name(method->def, &method->name));
-	if(object != Qnil) {
+	method->object = object;
+	if(rb_obj_is_kind_of(object, cObject)) {
 		struct rbObject* obj;
 		Data_Get_Struct(object, struct rbObject, obj);
 		method->oref = obj->oref;
-		rb_iv_set(self, "@object", object);
 	} else {
 		method->oref = -1;
 	}
@@ -187,6 +226,10 @@ static VALUE extract_next_dlist_elem(char *dlist, int* elem_size) {
         bool_t is_uni;
 		VALUE val;
 
+		rb_warn("Unmarshalling strings from dlist is untested. If You see this message, contact developer at max@maxidoors.ru");
+		//FIXME: If unicode string is returned, there are no three bytes padding at the end of string.
+		// We shouldn't use rb_str_new for it, because there must be allocating buffer by hands. 
+		// RSTRING(str)->aux.capa must be size+4 (usually it is size+1), because of wcslen requires wide zero at the end (4 bytes)
         RUN(cbind_dlist_get_str_elem(dlist, &is_uni, &str, &size, elem_size));
 		val = rb_str_new(str, size);
         if (is_uni) {
@@ -197,16 +240,12 @@ static VALUE extract_next_dlist_elem(char *dlist, int* elem_size) {
 	rb_raise(cUnMarshallError, "Couldn't unmarshall dlist element");
 }
 
-
-
-
-
 VALUE intersys_method_call(VALUE self, VALUE args) {
 	struct rbDefinition* method;
 	int i;
 	Check_Type(args, T_ARRAY);
 	Data_Get_Struct(self, struct rbDefinition, method);
-	if(method->num_args < RARRAY(args)->len) {
+	if(RARRAY(args)->len > method->num_args) {
 		rb_raise(rb_eArgError, "wrong number of arguments (%d for %d)", RARRAY(args)->len, method->num_args);
 	}
 	VALUE database = rb_iv_get(self, "@database");
@@ -227,9 +266,28 @@ VALUE intersys_method_call(VALUE self, VALUE args) {
         RUN(cbind_set_next_arg_as_res(method->database, method->cpp_type));
     }
     RUN(cbind_run_method(method->database, method->oref, CLASS_NAME(method), method->in_name));
+	//TODO: No support for arguments, passed by reference. I don't know, how to implement it.
+	//Perhaps, we must require method replace! from each argument, that is possible to be referenced
 	return intersys_method_extract_retval(self);
 }
 
+VALUE intersys_method_each_argument(VALUE self) {
+	struct rbDefinition* method;
+	int i;
+	VALUE database = rb_iv_get(self, "@database");
+	VALUE class_name = rb_iv_get(self, "@class_name");
+	VALUE name = rb_iv_get(self, "@name");
+	Data_Get_Struct(self, struct rbDefinition, method);
+
+	RUN(cbind_reset_args(method->database));
+	RUN(cbind_mtd_rewind_args(method->def));
+	for(i = 0; i < method->num_args; i++) {
+		VALUE arg = rb_funcall(cArgument, rb_intern("new"), 4, database, class_name, name, self);
+		rb_yield(arg);
+		RUN(cbind_mtd_arg_next(method->def));
+	}
+	return self;
+}
 
 VALUE intersys_argument_initialize(VALUE self, VALUE r_database, VALUE class_name, VALUE name, VALUE r_method) {
 	struct rbDefinition* argument;
@@ -321,7 +379,7 @@ VALUE intersys_method_extract_retval(VALUE self) {
 			if(is_null) {
 				return Qnil;
 			}
-			return rb_funcall(rb_cTime, rb_intern("local"), 3, INT2NUM(year), INT2NUM(month), INT2NUM(day))
+			return rb_funcall(rb_cTime, rb_intern("local"), 3, INT2NUM(year), INT2NUM(month), INT2NUM(day));
         }
         case CBIND_TIMESTAMP_ID:
         {
@@ -372,7 +430,7 @@ VALUE intersys_method_extract_retval(VALUE self) {
 			//TODO: if code is not OK, we should throw exception. No class Status is required
             RUN(cbind_get_arg_as_status(method->database, method->passed_args, &code, NULL, 0, MULTIBYTE, &size, &is_null));
 			if(!code || is_null) {
-				return Qtrue;
+				return method->object;
 			}
 			buf = rb_str_buf_new(size);
             RUN(cbind_get_arg_as_status(method->database, method->passed_args, &code, STR(buf), RSTRING(buf)->aux.capa, MULTIBYTE, &size, &is_null));
@@ -581,3 +639,23 @@ VALUE intersys_argument_set(VALUE self, VALUE obj) {
 	return self;
 	
 }
+
+VALUE intersys_argument_marshall_dlist(VALUE self, VALUE list) {
+	//struct rbDefinition* argument;
+	//Data_Get_Struct(self, struct rbDefinition, argument);
+	rb_iterate(rb_each, list, intersys_argument_marshall_dlist_elem, Qnil);
+	return self;
+}
+
+VALUE intersys_argument_is_by_ref(VALUE self) {
+	struct rbDefinition* argument;
+	Data_Get_Struct(self, struct rbDefinition, argument);
+	return argument->is_by_ref ? Qtrue : Qfalse;
+}
+
+
+
+
+
+
+

data/lib/intersys.c

@@ -1,19 +1,27 @@
 #include "intersys.h"
 
-VALUE mIntersys, cDatabase, cQuery, cObject, cDefinition, cProperty, cMethod, cArgument, cObjectNotFound, cStatus;
-VALUE cTime, cMarshallError, cUnMarshallError;
+VALUE mIntersys, cDatabase, cQuery, cObject, cDefinition, cProperty, cMethod, cArgument;
+VALUE cTime, cMarshallError, cUnMarshallError, cObjectNotFound, cIntersysException, cStatus;
 
 void Init_intersys_cache() {
 	rb_define_method(rb_cString, "to_wchar", string_to_wchar, 0);
 	rb_define_method(rb_cString, "from_wchar", string_from_wchar, 0);
 
+	cTime = rb_const_get(rb_cObject, rb_intern("Time"));
 
 	mIntersys = rb_define_module("Intersys");
-	cObjectNotFound = rb_const_get(mIntersys, rb_intern("ObjectNotFound"));
-	cMarshallError = rb_const_get(mIntersys, rb_intern("MarshallError"));
-	cUnMarshallError = rb_const_get(mIntersys, rb_intern("UnMarshallError"));
-	cStatus = rb_const_get(mIntersys, rb_intern("Status"));
-	cTime = rb_const_get(rb_cObject, rb_intern("Time"));
+	cIntersysException = rb_define_class_under(mIntersys, "IntersysException", rb_eStandardError);
+	cObjectNotFound = rb_define_class_under(mIntersys, "ObjectNotFound", cIntersysException);
+	cMarshallError = rb_define_class_under(mIntersys, "MarshallError", cIntersysException);
+	cUnMarshallError = rb_define_class_under(mIntersys, "UnMarshallError", cIntersysException);
+	
+	
+	cStatus = rb_define_class_under(mIntersys, "Status", cIntersysException);
+	rb_define_alloc_func(cStatus, intersys_status_s_allocate);
+	rb_define_method(cStatus, "initialize", intersys_status_initialize, 2);
+	rb_define_method(cStatus, "code", intersys_status_code, 0);
+	rb_define_method(cStatus, "message", intersys_status_message, 0);
+	rb_define_method(cStatus, "to_s", intersys_status_to_s, 0);
 
 
 	cDatabase = rb_define_class_under(mIntersys, "Database", rb_cObject);
@@ -40,32 +48,46 @@ void Init_intersys_cache() {
 	cObject = rb_define_class_under(mIntersys, "Object", rb_cObject);
 	rb_define_alloc_func(cObject, intersys_object_s_allocate);
 	rb_define_method(cObject, "initialize", intersys_object_initialize, 0);
-	rb_define_singleton_method(cObject, "create_intern", intersys_object_create, 0);
-	rb_define_singleton_method(cObject, "open_intern", intersys_object_open_by_id, 1);
+	rb_define_singleton_method(cObject, "create", intersys_object_create, 0);
+	rb_define_singleton_method(cObject, "open", intersys_object_open_by_id, 1);
 
-	cDefinition = rb_const_get(mIntersys, rb_intern("Definition"));
+	cDefinition = rb_define_class_under(mIntersys, "Definition", rb_cObject);
 	rb_define_alloc_func(cDefinition, intersys_definition_s_allocate);
-	rb_define_method(cDefinition, "intern_initialize", intersys_definition_initialize, 3);
+	rb_define_method(cDefinition, "initialize", intersys_definition_initialize, 3);
 	rb_define_method(cDefinition, "cpp_type", intersys_definition_cpp_type, 0);
+	rb_define_method(cDefinition, "cpp_name", intersys_definition_cpp_name, 0);
 	rb_define_method(cDefinition, "cache_type", intersys_definition_cache_type, 0);
 	rb_define_method(cDefinition, "name", intersys_definition_name, 0);
 	rb_define_method(cDefinition, "in_name", intersys_definition_in_name, 0);
 
-	cProperty = rb_const_get(mIntersys, rb_intern("Property"));
+	cProperty = rb_define_class_under(mIntersys, "Property", cDefinition);
 	rb_define_method(cProperty, "initialize", intersys_property_initialize, 4);
 	rb_define_method(cProperty, "get", intersys_property_get, 0);
 	rb_define_method(cProperty, "set", intersys_property_set, 1);
 
-	cMethod = rb_const_get(mIntersys, rb_intern("Method"));
-	rb_define_method(cMethod, "method_initialize", intersys_method_initialize, 1);
+	cMethod = rb_define_class_under(mIntersys, "Method", cDefinition);
+	rb_define_method(cMethod, "initialize", intersys_method_initialize, 4);
 	rb_define_method(cMethod, "func?", intersys_method_is_func, 0);
 	rb_define_method(cMethod, "class_method?", intersys_method_is_class_method, 0);
 	rb_define_method(cMethod, "num_args", intersys_method_num_args, 0);
+	rb_define_method(cMethod, "each_argument", intersys_method_each_argument, 0);
 	rb_define_method(cMethod, "call!", intersys_method_call, 1);
 	
-	cArgument = rb_const_get(mIntersys, rb_intern("Argument"));
+	cArgument = rb_define_class_under(mIntersys, "Argument", cDefinition);
 	rb_define_method(cArgument, "initialize", intersys_argument_initialize, 4);
 	rb_define_method(cArgument, "default", intersys_argument_default_value, 0);
 	rb_define_method(cArgument, "marshall_dlist_element", intersys_argument_marshall_dlist_elem, 1);
+	rb_define_method(cArgument, "marshall_dlist", intersys_argument_marshall_dlist, 1);
+	/*
+	rb_eval_string(
+	"class Argument \n" \
+    "def marshall_dlist(list)\n" \
+    "  list.each do |elem|\n" \
+    "    marshall_dlist_element(elem)\n" \
+    "  end\n" \
+    "end\n" \
+  	"end");
+	*/
+	rb_define_method(cArgument, "by_ref?", intersys_argument_is_by_ref, 0);
 }
 

data/lib/intersys.h

@@ -23,6 +23,7 @@ struct rbObject {
 	h_database database;
 	int oref;
 	VALUE class_name;
+	bool_t closed;
 };
 
 struct rbDefinition {
@@ -41,6 +42,7 @@ struct rbDefinition {
 	int passed_args;
 	void *args_info;
 	int arg_counter;
+	VALUE object;
 	//Argument definitions
 	bool_t is_by_ref;
 	bool_t is_default;
@@ -55,6 +57,11 @@ struct rbDefinition {
 	int oref;
 };
 
+struct rbStatus {
+	VALUE code;
+	VALUE message;
+};
+
 enum { D_PROPERTY, D_METHOD, D_ARGUMENT};
 
 enum {
@@ -74,6 +81,11 @@ VALUE string_from_wchar(VALUE self);
 VALUE rb_wcstr_new(const wchar_t *w_str, const char_size_t len);
 VALUE rb_wcstr_new2(const wchar_t *w_str);
 VALUE wcstr_new(const wchar_t *w_str, const char_size_t len);
+VALUE intersys_status_s_allocate(VALUE klass);
+VALUE intersys_status_initialize(VALUE self, VALUE code, VALUE message);
+VALUE intersys_status_code(VALUE self);
+VALUE intersys_status_message(VALUE self);
+VALUE intersys_status_to_s(VALUE self);
 
 /******* Database functions *******/
 
@@ -111,19 +123,23 @@ VALUE intersys_object_create(VALUE self);
 VALUE intersys_definition_s_allocate(VALUE klass);
 VALUE intersys_definition_initialize(VALUE self, VALUE r_database, VALUE class_name, VALUE name);
 VALUE intersys_definition_cpp_type(VALUE self);
+VALUE intersys_definition_cpp_name(VALUE self);
 VALUE intersys_definition_cache_type(VALUE self);
 VALUE intersys_definition_name(VALUE self);
 VALUE intersys_definition_in_name(VALUE self);
 VALUE intersys_property_initialize(VALUE self, VALUE r_database, VALUE class_name, VALUE name, VALUE object);
 VALUE intersys_property_get(VALUE self);
 VALUE intersys_property_set(VALUE self, VALUE value);
-VALUE intersys_method_initialize(VALUE self, VALUE object);
+VALUE intersys_method_initialize(VALUE self, VALUE r_database, VALUE class_name, VALUE name, VALUE object);
 VALUE intersys_method_is_func(VALUE self);
 VALUE intersys_method_is_class_method(VALUE self);
 VALUE intersys_method_num_args(VALUE self);
+VALUE intersys_method_each_argument(VALUE self);
 VALUE intersys_method_call(VALUE self, VALUE args);
 VALUE intersys_argument_initialize(VALUE self, VALUE r_database, VALUE class_name, VALUE name, VALUE r_method);
 VALUE intersys_argument_default_value(VALUE self);
+VALUE intersys_argument_is_by_ref(VALUE self);
+VALUE intersys_argument_marshall_dlist(VALUE self, VALUE list);
 VALUE intersys_argument_marshall_dlist_elem(VALUE self, VALUE elem);
 
 // Private declarations. Not for public use

data/lib/intersys.rb

@@ -14,80 +14,99 @@ module Intersys
   rescue
   end
   
-  # Basic exception, thrown in intersys driver
-  class IntersysException < StandardError
-  end
-  
-  # Exception, thrown from Object.open method, when no such ID in database
-  class ObjectNotFound < IntersysException
-  end
-  
-  # Error of marshalling arguments
-  class MarshallError < IntersysException
-  end
+  require File.dirname(__FILE__) + '/intersys_cache'
 
-  # Error of unmarshalling results
-  class UnMarshallError < IntersysException
-  end
-  
-  # Error establishing connection with database
-  class ConnectionError < IntersysException
+  class Method
+    def description
+      args = []
+      each_argument do |arg|
+        descr = ""
+        descr << "out " if arg.by_ref?
+        descr << "#{arg.cache_type} #{arg.name}"
+        descr << (' = '+arg.default) if arg.default
+        args << descr
+      end
+      "#{cache_type} #{name}("+args.join(', ')+")"
+    end
   end
 
-  # Method can return Cache %Status. It is marshalled to this class
-  class Status < IntersysException
-    attr_accessor :code
-    attr_accessor :message
-    def initialize(code, message)
-      @code = code
-      @message = message
+  module Callable
+    # Returns ClassDefinition object for current class
+    def intersys_reflector
+      @reflector ||= Intersys::Reflection::ClassDefinition.open(class_name)
+    end
+    
+    # returns list of methods for this class
+    def intersys_methods
+      @methods ||= intersys_reflector._methods
     end
-  end
 
-  
-  def self.handle_error(error_code, message, file, line)
-    #raise ConnectionError if error_code == 461
-  end
+    # returns list of properties for current class
+    def intersys_properties
+      @properties ||= intersys_reflector.properties
+    end
+    
+  #protected
+    # Loads property definition with required name for required object
+    # for internal use only
+    def intersys_property(name)
+      Property.new(database, class_name, name.to_s, self)
+    end
 
-  # Basic class for arguments, methods and properties description
-  # for internal use only
-  class Definition
-    def initialize(database, class_name, name)
-      @database = database
-      @class_name = class_name
-      @name = name
-      intern_initialize(database, class_name, name)
+    # Loads method definition with required name for required object
+    # for internal use only
+    def intersys_method(name)
+      Method.new(database, class_name, name.to_s, self)
     end
-  end
-  
-  # Class representing one object property
-  # for internal use only
-  class Property < Definition
-  end
-  
-  # Class representing one object method
-  # for internal use only
-  class Method < Definition
-    def initialize(database, class_name, name, object)
-      super(database, class_name, name.to_s)
-      method_initialize(object)
+    
+  public
+    # call class method
+    def intersys_call(method_name, *args)
+      intersys_method(method_name).call!(args)
     end
-  end
-  
-  # Class representing one method argument
-  # for internal use only
-  class Argument < Definition
-    def marshall_dlist(list)
-      list.each do |elem|
-        marshall_dlist_element(elem)
+    alias :call :intersys_call
+    
+    def intersys_has_property?(property)
+      self.intersys_reflector.properties.to_a.include?(property)
+    end
+    
+    def intersys_has_method?(method)
+      self.intersys_reflector._methods.to_a.include?(method)
+    end
+    
+    # Get the specified property
+    def intersys_get(property)
+      intersys_property(property).get
+    end
+    
+    # Set the specified property
+    def intersys_set(property, value)
+      intersys_property(property).set(value)
+    end
+
+    def method_missing(method, *args)
+      method_name = method.to_s.camelize
+      if match_data = method_name.match(/intersys_(.*)/)
+        # Protection from errors in this method
+        return super(method, *args)
       end
+      if match_data = method_name.match(/(\w+)=/)
+        return intersys_set(match_data.captures.first, args.first)
+      end
+      return intersys_get(method_name) if intersys_has_property?(method_name) && args.empty?
+      begin
+        return intersys_call(method_name, *args)
+      rescue NoMethodError => e
+      end
+      begin
+        return intersys_call("%"+method_name, *args)
+      rescue NoMethodError => e
+      end
+      super(method, *args)
     end
+    
   end
 
-
-  require File.dirname(__FILE__) + '/intersys_cache'
-  
-
   # Basic class for all classes, through which is performed access to Cache classes
   # For each Cache class must be created ruby class, inherited from Intersys::Object
   # 
@@ -133,7 +152,20 @@ module Intersys
         class_names[class_name] = self
         class_name
       end
-    public    
+      
+    public
+      # Nice function, that generates description of Cache class, looking just as C++ one
+      # Maybe, later, it will be possible even to generate IDL, using this code
+      def intersys_description
+        "class #{class_name} { \n" + intersys_reflector.all_methods.map do |mtd| 
+          begin
+            "\t"+intersys_method(mtd).description+";\n"
+          rescue
+            "\tundefined #{mtd}\n"
+          end
+        end.join("") + "};"
+      end
+
       # Help to work with instance variables of Intersys::Object class
       # required, because list of registered descendants of Intersys::Object,
       # database connection etc. should be in one place
@@ -158,15 +190,18 @@ module Intersys
         @prefix ||= "User"
       end
 
+      # Returns Cache class name, if called without parameters, or sets one, if passed
       def class_name(name = nil)
         self.class_name = name if name
         self.class_name = (prefix + "." + to_s) unless @class_name
         @class_name 
       end
 
-      def database(db = nil)
+      # Returns database, if called without parameters, or sets one, if passed
+      # Once established, it is not possible now to connect to another database
+      def database(db_options = {})
         common_get_or_set("@database") do
-          db || Intersys::Database.new(:user => "_SYSTEM", :password => "SYS", :namespace => "User")
+          Intersys::Database.new({:user => "_SYSTEM", :password => "SYS", :namespace => "User"}.merge(db_options))
         end
       end
             
@@ -186,25 +221,12 @@ module Intersys
         end
       end
 
-      # Returns ClassDefinition object for current class
-      def reflector
-        @reflector ||= Intersys::Reflection::ClassDefinition.open(class_name)
-      end
-      
-      # returns list of methods for this class
-      def intersys_methods
-        @methods ||= reflector.intersys_get("Methods")
-      end
-
-      # returns list of properties for current class
-      def intersys_properties
-        @properties ||= reflector.properties
-      end
-      
+      # :nodoc
       def inherited(klass)
         class_names[klass.class_name] = klass
       end
     
+      # Look into Cache documentation for what is concurrency. I don't know
       def concurrency
         1
       end
@@ -214,80 +236,40 @@ module Intersys
         5
       end
     
-      # create new instance of this class
-      def create
-        create_intern
-      end
-
-      # try to load class instance from database for this id
-      # ID can be not integer
-      def open(id)
-        call("%OpenId", id)
-      end
-      
-      # Loads property definition with required name for required object
-      # for internal use only
-      def property(name, object)
-        Property.new(database, class_name, name.to_s.to_wchar, object)
+      # Nice method, that deletes all instances of class. 
+      # You can just Person.delete_extent, but Person.delete_all looks more like ActiveRecord
+      def delete_all
+        intersys_call("%DeleteExtent")
       end
-  
-      # Loads method definition with required name for required object
-      # for internal use only
-      def method(name, object)
-        Method.new(database, class_name, name.to_s.to_wchar, object)
-      end
-      
-      # call class method
-      def call(method_name, *args)
-        method(method_name, nil).call!(args)
-      end
-      alias :intersys_call :call
-    #def self.method_missing(method_name, *args)
-    #end
     
     end
     
-    # Get the specified property
-    def intersys_get(property)
-      self.class.property(property, self).get
-    end
-    
-    # Set the specified property
-    def intersys_set(property, value)
-      self.class.property(property, self).set(value)
+    # You can ask for database from instance
+    def database
+      self.class.database
     end
     
-    # Call the specified method
-    def intersys_call(method, *args)
-      self.class.method(method, self).call!(args)
+    # You can ask from instance it's Cache class name
+    def class_name
+      self.class.class_name
     end
     
-    def method_missing(method, *args)
-      method_name = method.to_s.camelize
-      if match_data = method_name.match(/(\w+)=/)
-        return intersys_set(match_data.captures.first, args.first)
-      end
-      return intersys_get(method_name) if has_property?(method_name)
-      return intersys_call(method_name, *args) if has_method?(method_name)
-      puts "Checking whether %#{method_name} is here: #{self.class.reflector._methods}"
-      return intersys_call("%"+method_name, *args) if has_method?("%"+method_name)
-      super(method, *args)
-    end
-
-    def has_property?(property)
-      self.class.reflector.properties.to_a.include?(property)
+    # Returns id of current object.
+    # You can remove this method and You will get string ID, so leave it here
+    # However, if You ask reflector for id, it will give incorrect answer,
+    # because Cache allows id to be string
+    def id
+      intersys_call("%Id").to_i
     end
     
-    def has_method?(method)
-      self.class.reflector._methods.to_a.include?(method)
+    # Destroys current object
+    def destroy
+      self.class.intersys_call("%DeleteId", id)
     end
     
-    
-    # Returns id of current object
-    def id
-      intersys_call("%Id").to_i
-    end
+    include Callable
   end
+  Intersys::Object.extend(Callable)
   
   # Class representing one query
   # You shouldn't create it yourself
@@ -329,9 +311,9 @@ module Intersys
     def query(query)
       data = []
       q = create_query(query).execute.fill(data).close
-      1.upto(data.first.size) do |i|
-        puts q.column_name(i)
-      end
+      #1.upto(data.first.size) do |i|
+      #  puts q.column_name(i)
+      #end
       data
     end
   end
@@ -364,6 +346,16 @@ module Intersys
       def properties
         @properties ||= intersys_get("Properties")
       end
+      
+      def all_methods
+        _methods.to_a + self.super.split(",").map do |klass|
+          klass = klass.strip
+          if match_data = klass.match(/^%([^\.]+)$/)
+            klass = "%Library.#{match_data.captures.first}"
+          end
+          self.class.open(klass).all_methods
+        end.flatten
+      end
     end
 
     class PropertyDefinition < Intersys::Object

data/lib/object.c

@@ -34,16 +34,17 @@ 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;
+	VALUE id = rb_funcall(oid, rb_intern("to_s"), 0);
 	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);
+    error = cbind_openid(object->database, CLASS_NAME(object), WCHARSTR(TOWCHAR(id)), concurrency, timeout, &object->oref);
 	switch(error) {
 		case 0:
 			return r_object;
 		case -9: 
-			rb_raise(cObjectNotFound, "Object with id %s not found", PRINTABLE(oid));
+			rb_raise(cObjectNotFound, "Object with id %s not found", STR(id));
 			return Qnil;
 		default: 
 			RUN(error);
@@ -64,4 +65,3 @@ VALUE intersys_object_create(VALUE self) {
 }
 
 
-

data/lib/query.c

@@ -7,9 +7,7 @@
 #include <sqlucode.h>
 
 static void query_close(struct rbQuery* query) {
-	printf("Trying to close query (%d,%d)\n", query->closed, query->executed);
 	if(!query->closed && query->executed) {
-		printf("Closing query\n");
 		RUN(cbind_query_close(query->query));
 		query->closed = 1;
 	}

data/lib/test.rb

@@ -5,11 +5,26 @@ end
 
 #puts Person.intersys_methods
 def my_mtd
-  Intersys::Reflection::ClassDefinition.method("%OpenId", nil)
+  #Intersys::Reflection::ClassDefinition.intersys_method("%OpenId")
+  Person.intersys_method("%Delete")
 end
 def class_mtd
   my_mtd.class_method?
 end
 
 
-Person.intersys_call("%OpenId", 20)
+@p = Person.intersys_call("%New")
+
+require 'profiler'
+Profiler__::start_profile
+
+@p.name = "Test user"
+puts @p.id
+@p.save
+puts @p.id
+@p.destroy
+
+File.open("desc","w+") {|f| f.write Person.intersys_description }
+
+Profiler__::stop_profile
+File.open("profile", "w+") {|f| Profiler__::print_profile(f)}

data/test/object.rb

@@ -7,21 +7,26 @@ end
 
 class QueryTest < Test::Unit::TestCase
   def test_open_and_save
+    Person.database.start
     @name = "Anni Fyo"
-    @id = 26001
-    #assert Person.intersys_call("Populate", 1000)
+    @id = 31378
+    #assert Person.populate(1000)
     assert @p = Person.open(@id)
     @p.name = @name
     assert @p.save
     assert @p = Person.open(@id)
     assert_equal @name, @p.name
-    assert Person.intersys_call("%DeleteExtent")
+    #assert Person.delete_extent
+    Person.database.rollback
   end
   
   def test_create
+    Person.database.start
     assert @p = Person.intersys_call("%New")
     @p.name = "Test user"
     assert @p.save
-    puts @p.id
+    #puts @p.id
+    assert @p.destroy
+    Person.database.rollback
   end
 end

data/test/query.rb

@@ -1,13 +1,46 @@
 require 'test/unit'
 require File.dirname(__FILE__) + '/../lib/intersys'
 
+class Person < Intersys::Object
+end
+
 
 class QueryTest < Test::Unit::TestCase
   def test_query1
     return
     @db = Intersys::Database.new({})
 
-    @data = @db.query("select * from sample.person")
+    Person.populate(100)
+    @db.start
+#    @data = @db.query("delete from sample.person")
+    @data = @db.query("select Id,name,DOB from sample.person")
+    assert_equal 0, @data.size
+    Person.populate(100)
+    @data = @db.query("select count(Id) from sample.person")
+    assert_equal 100, @data.first.first
+    @data = @db.query("delete from sample.person where %Id > 6")
+    @data = @db.query("select count(Id) from sample.person")
+    assert_equal 6, @data.first.first
+    @data = @db.query("select ID,name from sample.person")
+    @data.each do |row|
+      puts row
+    end
     assert @data.size > 0
+    @db.rollback
+  end
+  
+  def test_select
+    @db = Intersys::Database.new({})
+    assert @db.query("select Id,name,DOB from sample.person")
+  end
+  
+  def test_alter
+    return
+    @db = Intersys::Database.new({})
+
+    @db.start
+    assert @db.query("alter table sample.person add column DOB1 varchar(255)")
+    assert @db.query("select %Id,name,DOB1 from sample.person")
+    @db.rollback
   end
 end

data/test/strings.rb

@@ -11,4 +11,12 @@ class StringTest < Test::Unit::TestCase
   def test_to_wchar
     assert_equal @@wide_string, @@simple_string.to_wchar
   end
+  
+  def test_stress_wide
+    assert_equal @@wide_string, @@wide_string.from_wchar.to_wchar.from_wchar.to_wchar
+  end
+
+  def test_stress
+    assert_equal @@simple_string, @@simple_string.to_wchar.from_wchar.to_wchar.from_wchar
+  end
 end

metadata

@@ -3,7 +3,7 @@ rubygems_version: 0.8.11
 specification_version: 1
 name: intersys
 version: !ruby/object:Gem::Version 
-  version: 0.0.4
+  version: "0.1"
 date: 2006-09-08 00:00:00 +04:00
 summary: Intersystems Cache ruby driver
 require_paths: 
@@ -33,23 +33,15 @@ files:
 - test/reflection.rb
 - test/strings.rb
 - lib/common.c
-- lib/common.o
 - lib/database.c
-- lib/database.o
 - lib/definition.c
-- lib/definition.o
 - lib/extconf.rb
 - lib/intersys.c
 - lib/intersys.h
-- lib/intersys.o
 - lib/intersys.rb
-- lib/intersys_cache.bundle
 - lib/Makefile
-- lib/mkmf.log
 - lib/object.c
-- lib/object.o
 - lib/query.c
-- lib/query.o
 - lib/test.rb
 - README
 test_files: []
@@ -57,6 +49,7 @@ test_files: []
 rdoc_options: 
 - --main=README
 - --line-numbers
+- --webcvs=http://svn.maxidoors.ru/cache-ruby
 - --charset=utf-8
 - --promiscuous
 extra_rdoc_files: 

data/lib/mkmf.log

@@ -1,177 +0,0 @@
-find_header: checking for c_api.h... -------------------- yes
-
-"gcc -E -I. -I/opt/local/lib/ruby/1.8/powerpc-darwin8.4.0 -O -pipe -I/opt/local/include -O -pipe -I/opt/local/include  -fno-common -pipe -fno-common  conftest.c -o conftest.i"
-conftest.c:1:19: error: c_api.h: No such file or directory
-checked program was:
-/* begin */
-#include <c_api.h>
-/* end */
-
-"gcc -E -I. -I/opt/local/lib/ruby/1.8/powerpc-darwin8.4.0 -O -pipe -I/opt/local/include -O -pipe -I/opt/local/include  -fno-common -pipe -fno-common -I/Applications/Cache/dev/cpp/include conftest.c -o conftest.i"
-checked program was:
-/* begin */
-#include <c_api.h>
-/* end */
-
---------------------
-
-find_library: checking for cbind_alloc_db() in -lcbind... -------------------- no
-
-"gcc -g -o conftest -I. -I/Applications/Cache/dev/cpp/include -I/opt/local/lib/ruby/1.8/powerpc-darwin8.4.0 -O -pipe -I/opt/local/include -O -pipe -I/opt/local/include  -fno-common -pipe -fno-common -I/Applications/Cache/dev/cpp/include -I/cygdrive/c/Progra~1/Cache/dev/cpp/include -I/cygdrive/c/Cachesys/dev/cpp/include -Wall conftest.c  -L"/opt/local/lib" -L/opt/local/lib     -lruby-static -lcbind  -lpthread -ldl -lobjc  "
-conftest.c: In function ‘t’:
-conftest.c:4: warning: implicit declaration of function ‘cbind_alloc_db’
-/usr/bin/ld: can't locate file for: -lcbind
-collect2: ld returned 1 exit status
-checked program was:
-/* begin */
-
-/*top*/
-int main() { return 0; }
-int t() { cbind_alloc_db(); return 0; }
-/* end */
-
-"gcc -g -o conftest -I. -I/Applications/Cache/dev/cpp/include -I/opt/local/lib/ruby/1.8/powerpc-darwin8.4.0 -O -pipe -I/opt/local/include -O -pipe -I/opt/local/include  -fno-common -pipe -fno-common -I/Applications/Cache/dev/cpp/include -I/cygdrive/c/Progra~1/Cache/dev/cpp/include -I/cygdrive/c/Cachesys/dev/cpp/include -Wall conftest.c  -L"/opt/local/lib" -L/opt/local/lib     -lruby-static -lcbind  -lpthread -ldl -lobjc  "
-conftest.c: In function ‘t’:
-conftest.c:5: error: ‘cbind_alloc_db’ undeclared (first use in this function)
-conftest.c:5: error: (Each undeclared identifier is reported only once
-conftest.c:5: error: for each function it appears in.)
-checked program was:
-/* begin */
-
-
-/*top*/
-int main() { return 0; }
-int t() { void ((*volatile p)()); p = (void ((*)()))cbind_alloc_db; return 0; }
-/* end */
-
-"gcc -g -o conftest -I. -I/Applications/Cache/dev/cpp/include -I/opt/local/lib/ruby/1.8/powerpc-darwin8.4.0 -O -pipe -I/opt/local/include -O -pipe -I/opt/local/include  -fno-common -pipe -fno-common -I/Applications/Cache/dev/cpp/include -I/cygdrive/c/Progra~1/Cache/dev/cpp/include -I/cygdrive/c/Cachesys/dev/cpp/include -Wall conftest.c  -L"/opt/local/lib" -L/opt/local/lib     -lruby-static -lcbind  -lpthread -ldl -lobjc  "
-/usr/bin/ld: can't locate file for: -lcbind
-collect2: ld returned 1 exit status
-checked program was:
-/* begin */
-int cbind_alloc_db();
-/*top*/
-int main() { return 0; }
-int t() { cbind_alloc_db(); return 0; }
-/* end */
-
-"gcc -g -o conftest -I. -I/Applications/Cache/dev/cpp/include -I/opt/local/lib/ruby/1.8/powerpc-darwin8.4.0 -O -pipe -I/opt/local/include -O -pipe -I/opt/local/include  -fno-common -pipe -fno-common -I/Applications/Cache/dev/cpp/include -I/cygdrive/c/Progra~1/Cache/dev/cpp/include -I/cygdrive/c/Cachesys/dev/cpp/include -Wall conftest.c  -L"/opt/local/lib" -L"/Applications/Cache/dev/cpp/lib" -L/opt/local/lib     -lruby-static -lcbind  -lpthread -ldl -lobjc  "
-conftest.c: In function ‘t’:
-conftest.c:4: warning: implicit declaration of function ‘cbind_alloc_db’
-/usr/bin/ld: can't locate file for: -lcbind
-collect2: ld returned 1 exit status
-checked program was:
-/* begin */
-
-/*top*/
-int main() { return 0; }
-int t() { cbind_alloc_db(); return 0; }
-/* end */
-
-"gcc -g -o conftest -I. -I/Applications/Cache/dev/cpp/include -I/opt/local/lib/ruby/1.8/powerpc-darwin8.4.0 -O -pipe -I/opt/local/include -O -pipe -I/opt/local/include  -fno-common -pipe -fno-common -I/Applications/Cache/dev/cpp/include -I/cygdrive/c/Progra~1/Cache/dev/cpp/include -I/cygdrive/c/Cachesys/dev/cpp/include -Wall conftest.c  -L"/opt/local/lib" -L"/Applications/Cache/dev/cpp/lib" -L/opt/local/lib     -lruby-static -lcbind  -lpthread -ldl -lobjc  "
-conftest.c: In function ‘t’:
-conftest.c:5: error: ‘cbind_alloc_db’ undeclared (first use in this function)
-conftest.c:5: error: (Each undeclared identifier is reported only once
-conftest.c:5: error: for each function it appears in.)
-checked program was:
-/* begin */
-
-
-/*top*/
-int main() { return 0; }
-int t() { void ((*volatile p)()); p = (void ((*)()))cbind_alloc_db; return 0; }
-/* end */
-
-"gcc -g -o conftest -I. -I/Applications/Cache/dev/cpp/include -I/opt/local/lib/ruby/1.8/powerpc-darwin8.4.0 -O -pipe -I/opt/local/include -O -pipe -I/opt/local/include  -fno-common -pipe -fno-common -I/Applications/Cache/dev/cpp/include -I/cygdrive/c/Progra~1/Cache/dev/cpp/include -I/cygdrive/c/Cachesys/dev/cpp/include -Wall conftest.c  -L"/opt/local/lib" -L"/Applications/Cache/dev/cpp/lib" -L/opt/local/lib     -lruby-static -lcbind  -lpthread -ldl -lobjc  "
-/usr/bin/ld: can't locate file for: -lcbind
-collect2: ld returned 1 exit status
-checked program was:
-/* begin */
-int cbind_alloc_db();
-/*top*/
-int main() { return 0; }
-int t() { cbind_alloc_db(); return 0; }
-/* end */
-
-"gcc -g -o conftest -I. -I/Applications/Cache/dev/cpp/include -I/opt/local/lib/ruby/1.8/powerpc-darwin8.4.0 -O -pipe -I/opt/local/include -O -pipe -I/opt/local/include  -fno-common -pipe -fno-common -I/Applications/Cache/dev/cpp/include -I/cygdrive/c/Progra~1/Cache/dev/cpp/include -I/cygdrive/c/Cachesys/dev/cpp/include -Wall conftest.c  -L"/opt/local/lib" -L"/cygdrive/c/Progra~1/Cache/dev/cpp/lib" -L/opt/local/lib     -lruby-static -lcbind  -lpthread -ldl -lobjc  "
-conftest.c: In function ‘t’:
-conftest.c:4: warning: implicit declaration of function ‘cbind_alloc_db’
-/usr/bin/ld: warning -L: directory name (/cygdrive/c/Progra~1/Cache/dev/cpp/lib) does not exist
-/usr/bin/ld: can't locate file for: -lcbind
-collect2: ld returned 1 exit status
-checked program was:
-/* begin */
-
-/*top*/
-int main() { return 0; }
-int t() { cbind_alloc_db(); return 0; }
-/* end */
-
-"gcc -g -o conftest -I. -I/Applications/Cache/dev/cpp/include -I/opt/local/lib/ruby/1.8/powerpc-darwin8.4.0 -O -pipe -I/opt/local/include -O -pipe -I/opt/local/include  -fno-common -pipe -fno-common -I/Applications/Cache/dev/cpp/include -I/cygdrive/c/Progra~1/Cache/dev/cpp/include -I/cygdrive/c/Cachesys/dev/cpp/include -Wall conftest.c  -L"/opt/local/lib" -L"/cygdrive/c/Progra~1/Cache/dev/cpp/lib" -L/opt/local/lib     -lruby-static -lcbind  -lpthread -ldl -lobjc  "
-conftest.c: In function ‘t’:
-conftest.c:5: error: ‘cbind_alloc_db’ undeclared (first use in this function)
-conftest.c:5: error: (Each undeclared identifier is reported only once
-conftest.c:5: error: for each function it appears in.)
-checked program was:
-/* begin */
-
-
-/*top*/
-int main() { return 0; }
-int t() { void ((*volatile p)()); p = (void ((*)()))cbind_alloc_db; return 0; }
-/* end */
-
-"gcc -g -o conftest -I. -I/Applications/Cache/dev/cpp/include -I/opt/local/lib/ruby/1.8/powerpc-darwin8.4.0 -O -pipe -I/opt/local/include -O -pipe -I/opt/local/include  -fno-common -pipe -fno-common -I/Applications/Cache/dev/cpp/include -I/cygdrive/c/Progra~1/Cache/dev/cpp/include -I/cygdrive/c/Cachesys/dev/cpp/include -Wall conftest.c  -L"/opt/local/lib" -L"/cygdrive/c/Progra~1/Cache/dev/cpp/lib" -L/opt/local/lib     -lruby-static -lcbind  -lpthread -ldl -lobjc  "
-/usr/bin/ld: warning -L: directory name (/cygdrive/c/Progra~1/Cache/dev/cpp/lib) does not exist
-/usr/bin/ld: can't locate file for: -lcbind
-collect2: ld returned 1 exit status
-checked program was:
-/* begin */
-int cbind_alloc_db();
-/*top*/
-int main() { return 0; }
-int t() { cbind_alloc_db(); return 0; }
-/* end */
-
-"gcc -g -o conftest -I. -I/Applications/Cache/dev/cpp/include -I/opt/local/lib/ruby/1.8/powerpc-darwin8.4.0 -O -pipe -I/opt/local/include -O -pipe -I/opt/local/include  -fno-common -pipe -fno-common -I/Applications/Cache/dev/cpp/include -I/cygdrive/c/Progra~1/Cache/dev/cpp/include -I/cygdrive/c/Cachesys/dev/cpp/include -Wall conftest.c  -L"/opt/local/lib" -L"/cygdrive/c/Cachesys/dev/cpp/lib" -L/opt/local/lib     -lruby-static -lcbind  -lpthread -ldl -lobjc  "
-conftest.c: In function ‘t’:
-conftest.c:4: warning: implicit declaration of function ‘cbind_alloc_db’
-/usr/bin/ld: warning -L: directory name (/cygdrive/c/Cachesys/dev/cpp/lib) does not exist
-/usr/bin/ld: can't locate file for: -lcbind
-collect2: ld returned 1 exit status
-checked program was:
-/* begin */
-
-/*top*/
-int main() { return 0; }
-int t() { cbind_alloc_db(); return 0; }
-/* end */
-
-"gcc -g -o conftest -I. -I/Applications/Cache/dev/cpp/include -I/opt/local/lib/ruby/1.8/powerpc-darwin8.4.0 -O -pipe -I/opt/local/include -O -pipe -I/opt/local/include  -fno-common -pipe -fno-common -I/Applications/Cache/dev/cpp/include -I/cygdrive/c/Progra~1/Cache/dev/cpp/include -I/cygdrive/c/Cachesys/dev/cpp/include -Wall conftest.c  -L"/opt/local/lib" -L"/cygdrive/c/Cachesys/dev/cpp/lib" -L/opt/local/lib     -lruby-static -lcbind  -lpthread -ldl -lobjc  "
-conftest.c: In function ‘t’:
-conftest.c:5: error: ‘cbind_alloc_db’ undeclared (first use in this function)
-conftest.c:5: error: (Each undeclared identifier is reported only once
-conftest.c:5: error: for each function it appears in.)
-checked program was:
-/* begin */
-
-
-/*top*/
-int main() { return 0; }
-int t() { void ((*volatile p)()); p = (void ((*)()))cbind_alloc_db; return 0; }
-/* end */
-
-"gcc -g -o conftest -I. -I/Applications/Cache/dev/cpp/include -I/opt/local/lib/ruby/1.8/powerpc-darwin8.4.0 -O -pipe -I/opt/local/include -O -pipe -I/opt/local/include  -fno-common -pipe -fno-common -I/Applications/Cache/dev/cpp/include -I/cygdrive/c/Progra~1/Cache/dev/cpp/include -I/cygdrive/c/Cachesys/dev/cpp/include -Wall conftest.c  -L"/opt/local/lib" -L"/cygdrive/c/Cachesys/dev/cpp/lib" -L/opt/local/lib     -lruby-static -lcbind  -lpthread -ldl -lobjc  "
-/usr/bin/ld: warning -L: directory name (/cygdrive/c/Cachesys/dev/cpp/lib) does not exist
-/usr/bin/ld: can't locate file for: -lcbind
-collect2: ld returned 1 exit status
-checked program was:
-/* begin */
-int cbind_alloc_db();
-/*top*/
-int main() { return 0; }
-int t() { cbind_alloc_db(); return 0; }
-/* end */
-
---------------------
-