daikini-octave-ruby 1.0.9

data/Manifest.txt

@@ -0,0 +1,39 @@
+History.txt
+LICENSE.txt
+Manifest.txt
+README.txt
+Rakefile
+ext/octave_api/MANIFEST
+ext/octave_api/Makefile
+ext/octave_api/extconf.rb
+ext/octave_api/octave-includes.h
+ext/octave_api/octave-ruby.cpp
+ext/octave_api/octave-ruby.h
+ext/octave_api/octave_api.c
+ext/octave_api/octave_api.h
+ext/octave_api/or-array.cpp
+ext/octave_api/or-array.h
+ext/octave_api/or-boolean_matrix.cpp
+ext/octave_api/or-boolean_matrix.h
+ext/octave_api/or-cell_matrix.cpp
+ext/octave_api/or-cell_matrix.h
+ext/octave_api/or-hash.cpp
+ext/octave_api/or-hash.h
+ext/octave_api/or-matrix.cpp
+ext/octave_api/or-matrix.h
+ext/octave_api/or-string.cpp
+ext/octave_api/or-string.h
+ext/octave_api/or-struct_matrix.cpp
+ext/octave_api/or-struct_matrix.h
+ext/octave_api/or-variable.cpp
+ext/octave_api/or-variable.h
+lib/octave.rb
+lib/octave/driver/native/driver.rb
+lib/octave/engine.rb
+lib/octave/matrix.rb
+lib/octave/version.rb
+octave-ruby.gemspec
+setup.rb
+test/driver/native/test_conversions.rb
+test/driver/native/test_driver.rb
+test/test_engine.rb

data/README.txt

@@ -0,0 +1,58 @@
+octave-ruby
+    http://octave-ruby.rubyforge.org/
+    jonathan@daikini.com
+    A big thank you to Lipomics Technologies, Inc. http://www.lipomics.com for sponsoring this project.
+    
+== DESCRIPTION:
+  
+A Ruby interface to the Octave interpreted language.
+
+== FEATURES:
+  
+* Data type conversion between Octave and Ruby String, Boolean, Nil and Numeric values
+* Matrix, CellMatrix and StructMatrix helper classes for working with Octave matrices
+
+== USAGE:
+
+  require 'octave'
+  
+  engine = Octave::Engine.new
+  engine.eval "123.456 * 789.101112"
+  engine.rand(10)
+  
+  matrix = Octave::Matrix.new(20, 400)
+  20.times { |m| 400.times { |n| matrix[m, n] = rand } }
+  engine.put_variable("m", matrix)
+  
+  engine.save "/tmp/20_x_400_matrix"
+
+== REQUIREMENTS:
+
+* Octave
+* GCC or some other compiler to build the included extension
+* Mocha (For testing only)
+
+== INSTALL:
+
+Simply do the following, after installing Octave:
+
+  * ruby setup.rb config
+  * ruby setup.rb setup
+  * ruby setup.rb install
+
+Alternatively, you can download and install the RubyGem package for
+octave-ruby (you must have RubyGems and Octave installed, first):
+
+  * gem install octave-ruby
+
+If you have Octave installed in a non-standard location, you can specify the location of the include and lib files by doing:
+
+  * gem install octave-ruby -- --with-octave-include=/usr/local/include/octave-3.0.0/octave \
+     --with-octave-lib=/usr/local/lib/octave-3.0.0 \
+     --with-dep-include=/usr/local/include/octave-3.0.0
+  
+== LICENSE
+
+octave-ruby is licensed under the GPL License.
+
+Copyright (c) 2007 Jonathan Younger <jonathan.younger@lipomics.com>

data/Rakefile

@@ -0,0 +1,18 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+require './lib/octave/version.rb'
+
+Hoe.new('octave-ruby', Octave::Version::STRING) do |p|
+  p.rubyforge_name = 'octave-ruby'
+  p.author = ["Jonathan Younger"]
+  p.email = ["jonathan@daikini.com"]
+  p.summary = "A Ruby interface to the Octave interpreted language."
+  p.description = p.paragraphs_of('README.txt', 2..5).join("\n\n")
+  p.url = "http://octave-ruby.rubyforge.org/"
+  p.changes = p.paragraphs_of('History.txt', 0..1).join("\n\n")
+  p.spec_extras["extensions"] = "ext/octave_api/extconf.rb"
+end
+
+# vim: syntax=Ruby

data/ext/octave_api/MANIFEST

@@ -0,0 +1,4 @@
+extconf.rb
+post-clean.rb
+post-distclean.rb
+octave_api.i

data/ext/octave_api/Makefile

@@ -0,0 +1,149 @@
+
+SHELL = /bin/sh
+
+#### Start of system configuration section. ####
+
+srcdir = .
+topdir = /System/Library/Frameworks/Ruby.framework/Versions/1.8/usr/lib/ruby/1.8/universal-darwin9.0
+hdrdir = $(topdir)
+VPATH = $(srcdir):$(topdir):$(hdrdir)
+prefix = $(DESTDIR)/System/Library/Frameworks/Ruby.framework/Versions/1.8/usr
+exec_prefix = $(prefix)
+sitedir = $(DESTDIR)/Library/Ruby/Site
+rubylibdir = $(libdir)/ruby/$(ruby_version)
+docdir = $(datarootdir)/doc/$(PACKAGE)
+dvidir = $(docdir)
+datarootdir = $(prefix)/share
+archdir = $(rubylibdir)/$(arch)
+sbindir = $(exec_prefix)/sbin
+psdir = $(docdir)
+localedir = $(datarootdir)/locale
+htmldir = $(docdir)
+datadir = $(datarootdir)
+includedir = $(prefix)/include
+infodir = $(DESTDIR)/usr/share/info
+sysconfdir = $(prefix)/etc
+mandir = $(DESTDIR)/usr/share/man
+libdir = $(exec_prefix)/lib
+sharedstatedir = $(prefix)/com
+oldincludedir = $(DESTDIR)/usr/include
+pdfdir = $(docdir)
+sitearchdir = $(sitelibdir)/$(sitearch)
+bindir = $(exec_prefix)/bin
+localstatedir = $(prefix)/var
+sitelibdir = $(sitedir)/$(ruby_version)
+libexecdir = $(exec_prefix)/libexec
+
+CC = gcc
+LIBRUBY = $(LIBRUBY_SO)
+LIBRUBY_A = lib$(RUBY_SO_NAME)-static.a
+LIBRUBYARG_SHARED = -l$(RUBY_SO_NAME)
+LIBRUBYARG_STATIC = -l$(RUBY_SO_NAME)
+
+RUBY_EXTCONF_H = 
+CFLAGS   =  -fno-common -arch i386 -Os -pipe -fno-common 
+INCFLAGS = -I. -I. -I/System/Library/Frameworks/Ruby.framework/Versions/1.8/usr/lib/ruby/1.8/universal-darwin9.0 -I.
+CPPFLAGS = -DHAVE_OCTAVE_H -I/Applications/Octave.app/Contents/Resources/include -I/Applications/Octave.app/Contents/Resources/lib -I/Applications/Octave.app/Contents/Resources/include/octave-3.0.2/octave -I/Applications/Octave.app/Contents/Resources/lib/octave-3.0.2 -I/Applications/Octave.app/Contents/Resources/include/octave-3.0.2
+CXXFLAGS = $(CFLAGS) 
+DLDFLAGS = -L. -arch i386  
+LDSHARED = g++ -pipe -bundle
+AR = ar
+EXEEXT = 
+
+RUBY_INSTALL_NAME = ruby
+RUBY_SO_NAME = ruby
+arch = universal-darwin9.0
+sitearch = universal-darwin9.0
+ruby_version = 1.8
+ruby = /System/Library/Frameworks/Ruby.framework/Versions/1.8/usr/bin/ruby
+RUBY = $(ruby)
+RM = rm -f
+MAKEDIRS = mkdir -p
+INSTALL = /usr/bin/install -c
+INSTALL_PROG = $(INSTALL) -m 0755
+INSTALL_DATA = $(INSTALL) -m 644
+COPY = cp
+
+#### End of system configuration section. ####
+
+preload = 
+
+libpath = . $(libdir) /Applications/Octave.app/Contents/Resources/lib /Applications/Octave.app/Contents/Resources/lib/octave-3.0.2
+LIBPATH =  -L"." -L"$(libdir)" -L"/Applications/Octave.app/Contents/Resources/lib" -L"/Applications/Octave.app/Contents/Resources/lib/octave-3.0.2"
+DEFFILE = 
+
+CLEANFILES = mkmf.log
+DISTCLEANFILES = 
+
+extout = 
+extout_prefix = 
+target_prefix = 
+LOCAL_LIBS = 
+LIBS = $(LIBRUBYARG_SHARED) -loctinterp -lcruft -loctave  -lpthread -ldl -lm  
+SRCS = octave_api.c octave-ruby.cpp or-array.cpp or-boolean_matrix.cpp or-cell_matrix.cpp or-hash.cpp or-matrix.cpp or-string.cpp or-struct_matrix.cpp or-variable.cpp
+OBJS = octave_api.o octave-ruby.o or-array.o or-boolean_matrix.o or-cell_matrix.o or-hash.o or-matrix.o or-string.o or-struct_matrix.o or-variable.o
+TARGET = octave_api
+DLLIB = $(TARGET).bundle
+EXTSTATIC = 
+STATIC_LIB = 
+
+RUBYCOMMONDIR = $(sitedir)$(target_prefix)
+RUBYLIBDIR    = $(sitelibdir)$(target_prefix)
+RUBYARCHDIR   = $(sitearchdir)$(target_prefix)
+
+TARGET_SO     = $(DLLIB)
+CLEANLIBS     = $(TARGET).bundle $(TARGET).il? $(TARGET).tds $(TARGET).map
+CLEANOBJS     = *.o *.a *.s[ol] *.pdb *.exp *.bak
+
+all:		$(DLLIB)
+static:		$(STATIC_LIB)
+
+clean:
+		@-$(RM) $(CLEANLIBS) $(CLEANOBJS) $(CLEANFILES)
+
+distclean:	clean
+		@-$(RM) Makefile $(RUBY_EXTCONF_H) conftest.* mkmf.log
+		@-$(RM) core ruby$(EXEEXT) *~ $(DISTCLEANFILES)
+
+realclean:	distclean
+install: install-so install-rb
+
+install-so: $(RUBYARCHDIR)
+install-so: $(RUBYARCHDIR)/$(DLLIB)
+$(RUBYARCHDIR)/$(DLLIB): $(DLLIB)
+	$(INSTALL_PROG) $(DLLIB) $(RUBYARCHDIR)
+install-rb: pre-install-rb install-rb-default
+install-rb-default: pre-install-rb-default
+pre-install-rb: Makefile
+pre-install-rb-default: Makefile
+$(RUBYARCHDIR):
+	$(MAKEDIRS) $@
+
+site-install: site-install-so site-install-rb
+site-install-so: install-so
+site-install-rb: install-rb
+
+.SUFFIXES: .c .m .cc .cxx .cpp .C .o
+
+.cc.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.cxx.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.cpp.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.C.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.c.o:
+	$(CC) $(INCFLAGS) $(CPPFLAGS) $(CFLAGS) -c $<
+
+$(DLLIB): $(OBJS)
+	@-$(RM) $@
+	$(LDSHARED) -o $@ $(OBJS) $(LIBPATH) $(DLDFLAGS) $(LOCAL_LIBS) $(LIBS)
+
+
+
+$(OBJS): ruby.h defines.h

data/ext/octave_api/extconf.rb

@@ -0,0 +1,30 @@
+# Loads mkmf which is used to make makefiles for Ruby extensions
+require 'mkmf'
+
+octave_dirs = dir_config( "octave", "/usr/local/octave/include", "/usr/local/octave/lib" )
+dep_dirs = dir_config( "dep", octave_dirs.first.split(File::SEPARATOR)[0..-3].join(File::SEPARATOR), octave_dirs.last.split(File::SEPARATOR)[0..-2].join(File::SEPARATOR) )
+
+if have_header("octave.h" ) &&
+  have_library("octave") &&
+  have_library("cruft") &&
+  have_library("octinterp", "octave_main" )
+  
+  if Config::CONFIG["arch"] =~ /-darwin\d/
+    CONFIG['LDSHARED'] = "g++ -pipe -bundle"
+    if octave_dirs.any?
+      octave_dirs << File.dirname(octave_dirs.first)
+      octave_includes = (dep_dirs + octave_dirs).collect { |dir| "-I#{dir}" }.join(" ")
+      with_cppflags(octave_includes) { true }
+    end
+  else
+    CONFIG['LDSHARED'] = "g++ -shared"
+    if octave_dirs.any?
+      octave_dirs << File.dirname(octave_dirs.first)
+      octave_dirs << "/usr/local/include"
+      octave_includes = (dep_dirs + octave_dirs).collect { |dir| "-I#{dir}" }.join(" ")
+      with_cppflags(octave_includes) { true }
+    end
+  end
+  
+  create_makefile( "octave_api" )
+end

data/ext/octave_api/octave-includes.h

@@ -0,0 +1,11 @@
+#include "octave/config.h"
+#include "octave.h"
+#include "symtab.h"
+#include "parse.h"
+#include "unwind-prot.h"
+#include "toplev.h"
+#include "error.h" 
+#include "variables.h"
+#include "sighandlers.h"
+#include "sysdep.h"
+#include "ov-struct.h"

data/ext/octave_api/octave-ruby.cpp

@@ -0,0 +1,62 @@
+#include "octave-ruby.h"
+#include "octave-includes.h"
+#include "or-variable.h"
+
+void initialize_octave()
+{
+  char *argv[2];
+  argv[0] = "octave-ruby";
+  argv[1] = "-q";
+  octave_main(2,argv,1);
+  bind_internal_variable("crash_dumps_octave_core", false);
+}
+
+extern void recover_from_exception(void)
+{
+  unwind_protect::run_all();
+  can_interrupt = true;
+  octave_interrupt_immediately = 0;
+  octave_interrupt_state = 0;
+  octave_allocation_error = 0;
+}
+
+VALUE or_feval(VALUE function_name, VALUE arguments)
+{
+  VALUE ruby_val = Qnil;
+  int i, n;
+  octave_value_list argList;
+  
+  n = RARRAY(arguments)->len;
+  
+  for (i = 0; i < n; i++) {
+    argList(i) = OR_Variable(RARRAY(arguments)->ptr[i]).to_octave();
+  }
+  
+  if (octave_set_current_context) {
+    unwind_protect::run_all();
+    raw_mode(0);
+  }
+
+  can_interrupt = true;
+  octave_initialized = true;
+
+  try {
+    curr_sym_tab = top_level_sym_tab;
+    reset_error_handler();
+    
+    octave_value_list val = feval(std::string(RSTRING(function_name)->ptr), argList, 1);
+    if(val.length() > 0 && val(0).is_defined()) {
+      ruby_val = OR_Variable(val(0)).to_ruby();
+    }
+  } catch (octave_interrupt_exception) {
+    recover_from_exception();
+    error_state = -2; 
+  } catch (std::bad_alloc) {
+    recover_from_exception();
+    error_state = -3;
+  }
+
+  octave_initialized = false;
+
+  return(ruby_val);
+}

data/ext/octave_api/octave-ruby.h

@@ -0,0 +1,18 @@
+#ifndef EXECUTECALL_H_INCLUDED_
+#define EXECUTECALL_H_INCLUDED_
+
+#include "ruby.h"
+
+#ifdef __cplusplus
+extern "C"
+{
+#endif
+
+extern VALUE or_feval(VALUE function_name, VALUE arguments);
+extern void initialize_octave();
+
+#ifdef __cplusplus /* extern "C" */
+}
+#endif
+
+#endif /*EXECUTECALL_H_INCLUDED_ */

data/ext/octave_api/octave_api.c

@@ -0,0 +1,22 @@
+#include "octave_api.h"
+#include "ruby.h"
+#include "octave-ruby.h"
+
+// Defining a space for information and references about the module to be stored internally
+VALUE OCTAVE_API = Qnil;
+
+// The initialization method for this module
+void Init_octave_api() {
+  OCTAVE_API = rb_define_module("Octave");
+  OCTAVE_API = rb_define_module_under(OCTAVE_API, "Driver");
+  OCTAVE_API = rb_define_module_under(OCTAVE_API, "Native");
+  OCTAVE_API = rb_define_module_under(OCTAVE_API, "API");
+  rb_define_module_function(OCTAVE_API, "feval", feval, 2);
+  
+  initialize_octave();
+}
+
+VALUE feval(VALUE self, VALUE function_name, VALUE arguments)
+{
+  return or_feval(function_name, arguments);
+}

data/ext/octave_api/octave_api.h

@@ -0,0 +1,13 @@
+#include "ruby.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+// Prototype for the initialization method - Ruby calls this, not you
+void Init_octave_api();
+static VALUE feval(VALUE self, VALUE function_name, VALUE arguments);
+
+#ifdef __cplusplus
+}
+#endif

data/ext/octave_api/or-array.cpp

@@ -0,0 +1,56 @@
+#include "or-array.h"
+#include "or-variable.h"
+
+OR_Array::~OR_Array() {}
+
+octave_value OR_Array::to_octave()
+{
+  int row_index;
+  int number_of_rows = RARRAY(ruby_val)->len;
+  VALUE cell;
+  
+  if (should_convert_to_cell_matrix()) {
+    Cell matrix = Cell(number_of_rows, 1);
+    
+    for (row_index = 0; row_index < number_of_rows; row_index++) {
+      cell = RARRAY(ruby_val)->ptr[row_index];
+      matrix(row_index, 0) = OR_Variable(cell).to_octave();
+    }
+    
+    return matrix;
+  } else {
+    Matrix matrix = Matrix(number_of_rows, 1);
+    
+    for (row_index = 0; row_index < number_of_rows; row_index++) {
+      cell = RARRAY(ruby_val)->ptr[row_index];
+
+      if (rb_type(cell) == T_FLOAT) {
+        matrix(row_index, 0) = RFLOAT(cell)->value;
+      } else if (rb_type(cell) == T_FIXNUM) {
+        matrix(row_index, 0) = FIX2LONG(cell);
+      } else {
+        matrix(row_index, 0) = octave_NaN;
+      }
+    }
+    
+    return matrix;
+  }
+}
+
+bool OR_Array::should_convert_to_cell_matrix()
+{
+  int row_index;
+  VALUE value;
+  VALUE type;
+  int number_of_rows = RARRAY(ruby_val)->len;
+
+  for (row_index = 0; row_index < number_of_rows; row_index++) {
+    value = RARRAY(ruby_val)->ptr[row_index];
+    type = rb_type(value);
+    if (type != T_FLOAT && type != T_FIXNUM && value != Qnil) {
+      return true;
+    }
+  }
+
+  return false;
+}