cgen 0.16.0

data/test/test-cgen.rb

@@ -0,0 +1,127 @@
+require 'test/unit'
+require 'cgen/cgen'
+
+
+class BasicTemplateTest < Test::Unit::TestCase
+
+  class BasicTemplate < CGenerator::Template
+    accumulator(:acc0, :acc1, :acc2)
+    def initialize(*args)
+      super
+      add 'acc 0 is ', acc0!, 'acc 1 is ', acc1!, 'acc 2 is ', acc2!
+    end
+  end
+
+  def setup
+    @template = BasicTemplate.new
+    @template.acc0 "zero", "zippo", "zed"
+    @template.acc1 "one", "unity", "uno"
+    @template.acc2 "two", "deuce", "brace"
+  end
+  alias set_up setup
+
+  def test_accumulator
+    result = ['acc 0 is ', "zero", "zippo", "zed",
+              'acc 1 is ', "one", "unity", "uno",
+              'acc 2 is ', "two", "deuce", "brace"].join "\n"
+    assert_equal(result, @template.to_s)
+  end
+
+end
+
+
+class CFragmentTest < Test::Unit::TestCase
+
+  class CodeTemplate < CGenerator::CFragment
+    accumulator(:decl) {StatementKeyAccumulator}
+    accumulator(:block) {BlockAccumulator}
+    accumulator(:inner, :outer) {StatementAccumulator}
+    def initialize(*args)
+      super
+      add decl!, block(inner!), outer!
+    end
+  end
+
+  def setup
+    @template = CodeTemplate.new
+    @template.decl :i => "int i"
+    @template.inner "i = 0"
+    @template.outer "f = 1.3"
+    @template.decl :f => "float f"
+  end
+  alias set_up setup
+
+  def test_accumulator
+    result = <<-END
+      int i;
+      float f;
+      {
+          i = 0;
+      }
+      f = 1.3;
+    END
+    result = result.chomp.tabto 0
+    assert_equal(result, @template.to_s)
+  end
+
+end
+
+
+class LibraryTest < Test::Unit::TestCase
+  class Sample
+  end
+
+  ##=== setup code to be done once ===##
+  @lib = CGenerator::Library.new "cgen_test_lib"
+
+  @lib.define_c_method(Sample, :add).instance_eval {
+    arguments "x", "y"
+    returns "rb_float_new(NUM2DBL(x) + NUM2DBL(y))"
+  }
+
+  @lib.define_c_singleton_method(Sample, :reverse).instance_eval {
+    rb_array_args
+    declare :result => "VALUE result"
+    reverse_c_name = declare_symbol :reverse
+    body "result = rb_funcall(args, #{reverse_c_name}, 0)"
+    returns "result"
+  }
+
+#    @lib.declare_symbol "just_to_be_unique_#{(Time.now.to_f * 1000).to_i}"
+
+  other_include_file, other_source_file = @lib.add_file "other_file"
+
+  other_source_file.define_c_method(Sample, :sub).instance_eval {
+    scope "extern"
+    arguments "x", "y"
+    returns "rb_float_new(NUM2DBL(x) - NUM2DBL(y))"
+  }
+
+  attr_accessor :ba
+
+  @lib.before_commit { @@ba = [1] }
+  @lib.before_commit { @@ba << 2 }
+  @lib.after_commit  { @@ba << 3 }
+  @lib.after_commit  { @@ba << 4 }
+
+  require 'fileutils'
+  dir = File.join("tmp", RUBY_VERSION)
+  FileUtils.mkpath dir
+  Dir.chdir dir do
+    @lib.commit
+  end
+  ##==================================##
+
+  def test_add
+    assert_equal(3, Sample.new.add(1, 2))
+#      assert_equal(-1, Sample.new.sub(1, 2))
+  end
+
+  def test_reverse
+    assert_equal([6, 5, 4], Sample.reverse(4, 5, 6))
+  end
+
+  def test_before_after
+    assert_equal([1,2,4,3], @@ba)
+  end
+end

data/test/test-cshadow.rb

@@ -0,0 +1,289 @@
+require 'test/unit'
+require 'cgen/cshadow'
+
+#
+#  Tests in this file focus on:
+#   - shadow objects in general, rather than particular attribute
+#     types, which are tested in attribute.rb
+#   - behavior accessible from Ruby. The examples (complex.rb,
+#     matrix.rb) test shadow objects from C.
+#  Features tested include inheritance, multiple attributes, omission
+#  of readers or writers, etc.
+#
+
+# EmptyBase hierarchy tests the following:
+#  - inheritance with "gaps"
+#  - using the same attr name in parallel branches
+
+class EmptyBase
+  include CShadow
+end
+
+class EBSub_1 < EmptyBase
+  shadow_attr_accessor :x => "int x"
+end
+
+class EBSub_1_1 < EBSub_1
+end
+
+class EBSub_2 < EmptyBase
+end
+
+class EBSub_2_2 < EBSub_2
+  shadow_attr_accessor :x => "int x"
+end
+
+
+# Base hierarchy tests the following:
+#  - inheritance with multiple attributes
+#  - omission of readers and writers
+#  - accessors with different names than the variables
+#  - conflicting accessor names or C variable names
+#  - #each_shadow_attr and #shadow_attrs
+#  - protected and private attrs
+
+class Base
+  include CShadow
+  shadow_attr_reader :x => 'int x'
+  shadow_attr_writer :y => 'int y'
+  shadow_attr_accessor :obj => Array
+  shadow_attr_accessor :nonpersistent, :np => Object
+end
+
+class Sub_1 < Base
+  shadow_attr :z => 'int zzz'
+end
+
+# test a class with no shadow_attrs
+class Sub_2 < Base
+  attr_reader :ruby_reader
+  attr_writer :ruby_writer
+end
+
+module Mod_For_Sub_3
+  class Sub_3 < Base
+    # Make sure the nested class name bug isn't biting today.
+  end
+end
+
+class Sub_4 < Base
+  private :x
+  protected :y=
+end
+
+# OtherBase tests using shadow_library to specify another library
+# to put definitions in. OtherFile tests using shadow_library_file
+# to put definintions in another file within the same library.
+
+class OtherBase
+  include CShadow
+  shadow_library Base
+  shadow_attr_accessor :str => "char *pchar"
+end
+
+class OtherFile < OtherBase
+  shadow_library_file "OtherFile"
+  shadow_attr_accessor :x => "double x"
+end
+
+
+# Compile-time tests (that is, pre-commit)
+
+class CompileTimeTestCase < Test::Unit::TestCase
+  def test_conflict
+    assert_raises(NameError) {
+      Sub_2.class_eval {
+        shadow_attr "y" => 'char * yy'
+      }
+    }
+    assert_raises(NameError) {
+      Sub_2.class_eval {
+        shadow_attr :y => 'char * yy'
+      }
+    }
+    assert_raises(NameError) {
+      Sub_2.class_eval {
+        shadow_attr :yy => 'char * y'
+      }
+    }
+
+    # Checking overwrite by attr_*
+    assert_raises(NameError) {
+      Sub_2.class_eval {
+        attr_accessor :y
+      }
+    }
+    assert_raises(NameError) {
+      Sub_2.class_eval {
+        attr_reader :y
+      }
+    }
+    assert_raises(NameError) {
+      Sub_2.class_eval {
+        attr_writer :y
+      }
+    }
+
+    # Checking overwrite by shadow_attr_*
+    assert_raises(NameError) {
+      Sub_2.class_eval {
+       shadow_attr_reader :ruby_writer => Object
+      }
+    }
+    assert_raises(NameError) {
+      Sub_2.class_eval {
+       shadow_attr_writer :ruby_reader => Object
+      }
+    }
+  end
+end
+
+require 'fileutils'
+dir = File.join("tmp", RUBY_VERSION)
+FileUtils.mkpath dir
+Dir.chdir dir do
+  EmptyBase.commit
+  Base.commit         # do not commit OtherBase
+end
+
+METHOD_MISSING_ERROR =
+  RUBY_VERSION.to_f >= 1.7 ?
+    NoMethodError :
+    NameError
+
+# Run-time tests (that is, post-commit)
+
+class EmptyBaseTestCase < Test::Unit::TestCase
+
+  def test_empty_base
+    ebs1 = EBSub_1.new
+    ebs2 = EBSub_2.new
+    ebs11 = EBSub_1_1.new
+    ebs22 = EBSub_2_2.new
+
+    ebs1.x = 3
+    ebs11.x = 4
+    ebs22.x = 5
+
+    assert_raises(METHOD_MISSING_ERROR) {
+      ebs2.x = 6
+    }
+
+    assert_equal(3, ebs1.x)
+    assert_equal(4, ebs11.x)
+    assert_equal(5, ebs22.x)
+  end
+
+end
+
+class BaseTestCase < Test::Unit::TestCase
+
+  def test_limited_access
+    b = Sub_1.new
+
+    assert_raises(METHOD_MISSING_ERROR) {
+      b.x = 1
+    }
+    assert_equal(0, b.x)
+
+    b.y = 2
+    assert_raises(METHOD_MISSING_ERROR) {
+      b.y
+    }
+
+    assert_raises(METHOD_MISSING_ERROR) {
+      b.z = 3
+    }
+    assert_raises(METHOD_MISSING_ERROR) {
+      b.z
+    }
+  end
+
+  def test_inherit
+    b = Sub_1.new
+
+    # test inheritance of attr initializers
+    assert_equal(nil, b.obj)
+
+    # test inheritance of attr dump/load code
+    b.obj = [1,2,3]
+    assert_equal([1,2,3], Marshal.load(Marshal.dump(b)).obj)
+  end
+  
+  def test_marshal
+    b = Base.new
+    b.obj = [1, {:foo => "foo"}, "bar"]
+    b.instance_eval {@z=3}
+    bb = Marshal.load(Marshal.dump(b))
+    assert_equal(bb.obj, b.obj)
+    assert_equal(bb.instance_eval{@z}, b.instance_eval{@z})
+  end
+
+  def test_nonpersistence
+    b = Base.new
+    assert_equal(nil, b.np)
+    b.np = [4,5,6]
+    assert_equal([4,5,6], b.np)
+    bb = Marshal.load(Marshal.dump(b))
+    assert_equal(nil, bb.np)
+  end
+
+  def test_protect
+    a = Base.new
+    b = Sub_4.new
+    assert_nothing_raised {a.x; a.y = 2}
+    assert_raises(METHOD_MISSING_ERROR) {
+      b.x
+    }
+    assert_raises(METHOD_MISSING_ERROR) {
+      b.y = 2
+    }
+  end
+
+  def test_reflection
+    names = Sub_1.shadow_attrs.collect { |attr| attr.var.to_s }.sort
+    assert_equal(['np', 'obj', 'x', 'y', 'z'], names)
+  end
+
+end
+
+class OtherBaseTestCase < Test::Unit::TestCase
+
+  def test_sharing_library
+    ob = OtherBase.new
+    ob.str = "fred"
+    assert_equal("fred", ob.str)
+
+    ob = OtherFile.new
+    ob.x = 1.2
+    assert_equal(1.2, ob.x)      
+  end
+
+end
+
+begin
+  require 'yaml'
+  module Kernel
+    undef :y # else conflict with checking :y is undefined above
+  end
+  CShadow.allow_yaml
+rescue Exception => e
+  $stderr.puts "Could not load yaml : #{e.inspect}"
+else
+
+  class YamlTest < Test::Unit::TestCase
+
+    def test_yaml
+      base = Base.new
+      base.obj = [1,2,3]
+      base.np = "456"
+
+      base2 = YAML.load(YAML.dump(base))
+      
+      assert_equal(base.obj, base2.obj)
+      assert_equal(nil, base2.np)
+    end
+
+  end
+
+end

data/test/test.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+
+def run(x)
+  puts "-"*x.size
+  puts x
+  system(x)
+#  unless system(x)
+#    puts " ... failed: #{$?}"
+#  end
+end
+
+require 'rbconfig'
+ruby = Config::CONFIG["RUBY_INSTALL_NAME"]
+
+run "#{ruby} test-cgen.rb"
+run "#{ruby} test-cshadow.rb"
+run "#{ruby} test-attribute.rb"

metadata

@@ -0,0 +1,123 @@
+--- !ruby/object:Gem::Specification 
+name: cgen
+version: !ruby/object:Gem::Version 
+  version: 0.16.0
+platform: ruby
+authors: 
+- Joel VanderWerf
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-07-26 00:00:00 -07:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: bones
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 2.5.1
+    version: 
+description: |
+  Framework for dynamically generating and loading C extensions from Ruby
+  programs. Includes CShadow module for defining classes in terms of C structs
+  with accessors and inheritance.
+
+email: vjoel@users.sourceforge.net
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- History.txt
+- README.txt
+- examples/inherit-example.txt
+files: 
+- .gitignore
+- History.txt
+- README.txt
+- examples/bench.rb
+- examples/complex.rb
+- examples/complex2.rb
+- examples/cshadow-example.rb
+- examples/cshadow-point.rb
+- examples/ctest.rb
+- examples/ctest2.rb
+- examples/ctest3.rb
+- examples/ctest4.rb
+- examples/ctest5.rb
+- examples/example-ruby-talk-30April2004.rb
+- examples/fixed-array.rb
+- examples/inherit-example.rb
+- examples/inherit-example.txt
+- examples/instance-eval.rb
+- examples/ivset.rb
+- examples/marshal-test.rb
+- examples/matrix.rb
+- examples/modular-def.rb
+- examples/objattr.rb
+- examples/opaque-struct-test.rb
+- examples/sample.rb
+- examples/struct.rb
+- examples/test.rb
+- examples/yaml.rb
+- install.rb
+- lib/cgen/attribute.rb
+- lib/cgen/cgen.rb
+- lib/cgen/cshadow.rb
+- lib/cgen/inherit.rb
+- rakefile
+- tasks/ann.rake
+- tasks/bones.rake
+- tasks/gem.rake
+- tasks/git.rake
+- tasks/notes.rake
+- tasks/post_load.rake
+- tasks/rdoc.rake
+- tasks/rubyforge.rake
+- tasks/setup.rb
+- tasks/spec.rake
+- tasks/svn.rake
+- tasks/test.rake
+- tasks/zentest.rake
+- test/test-attribute.rb
+- test/test-cgen.rb
+- test/test-cshadow.rb
+- test/test.rb
+has_rdoc: true
+homepage: http://rubyforge.org/projects/cgen/
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --main
+- README.txt
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: cgen
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: Library for packed binary data stored in ruby Strings
+test_files: 
+- test/test-attribute.rb
+- test/test-cgen.rb
+- test/test-cshadow.rb