el4r 1.0.4

data/testing/test-gc.rb

@@ -0,0 +1,81 @@
+#!/usr/bin/env ruby
+require 'tmpdir'
+require 'test/unit'
+
+# This test must be performed separately
+class TestGC < Test::Unit::TestCase
+
+  def setup
+    el4r_rubyobj_stock.gc_trigger_count = 100
+    el4r_rubyobj_stock.gc_trigger_increment = 100
+    elvar.el4r_lisp_object_gc_trigger_count = 100
+    elvar.el4r_lisp_object_gc_trigger_increment = 200
+  end
+
+  # Lisp object GC
+  def test_lispGC
+#     message(hash_table_count(el(:el4r_lisp_object_hash)))
+#     message(getq(:el4r_lisp_object_gc_trigger_count))
+    100.times {
+      el4r_lisp_eval("(cons nil nil)")
+    }
+#     message(hash_table_count(el(:el4r_lisp_object_hash)))
+#     message(getq(:el4r_lisp_object_gc_trigger_count))
+
+    assert( hash_table_count(el(:el4r_lisp_object_hash)) < 100 )
+    assert( getq(:el4r_lisp_object_gc_trigger_count) > 100 )
+  end
+
+  class Foo < ElApp
+    def initialize(x={})
+      defun(:f){zero}
+    end
+    def zero
+      0
+    end
+  end
+  
+  # Ruby object GC
+  def test_rubyGC
+    Foo.run
+    100.times{
+      el4r_lisp_eval(el4r_ruby2lisp(Object.new))
+    }
+    GC.start
+    funcall(:garbage_collect)
+    funcall(:garbage_collect)
+    funcall(:garbage_collect)
+    assert( el4r_rubyobj_stock.count_of_stocked_objects < 100, "count_of_stocked_objects=#{el4r_rubyobj_stock.count_of_stocked_objects}" )
+    assert( el4r_rubyobj_stock.gc_trigger_count > 100 )
+
+    assert_equal(0, f)
+    funcall(:garbage_collect)
+    funcall(:garbage_collect)
+    el4r_rubyobj_stock.garbage_collect
+
+    oid2obj = el4r_rubyobj_stock.instance_variable_get(:@oid_to_obj_hash)
+    alive_ids = oid2obj.keys
+    el4r_log(alive_ids.map{|id| "#{id}:#{oid2obj[id].class}"}.join("\n"))
+    begin
+      open(File.join(Dir.tmpdir,"el4r-idlst"),"w") {|f|
+        f.puts alive_ids
+      }
+    rescue
+    end
+  end  
+
+  # Interactive and GC
+  # (view-diary "2006-02-24" -1)
+  def test_interactive
+    defun(:itest, :interactive=>lambda{[1]}){|x| x}
+    el4r_garbage_collect
+    assert_equal(1, call_interactively(:itest))
+  end
+
+  def test_define_key
+    define_key(:global_map, "\C-c\C-x") { 1 }
+    el4r_garbage_collect
+    assert_equal(1, call_interactively(key_binding "\C-c\C-x"))
+  end
+
+end

data/testing/test.el

@@ -0,0 +1,16 @@
+(el4r-debug-ruby-eval-report "nil")
+(el4r-debug-ruby-eval-report "true")
+(el4r-debug-ruby-eval-report "false")
+(el4r-debug-ruby-eval-report "1 + 6")
+(el4r-debug-ruby-eval-report "\"String\"")
+
+(put 'test-error
+     'error-conditions                        
+     '(error test-error))
+(put 'test-error 'error-message "Test Error")
+
+(condition-case err
+    (el4r-ruby-eval "el4r_lisp_eval(\"(signal 'test-error '(123))\")")
+  (test-error (insert-string (format "Error is passed: %s" err))
+              ))
+

data/testing/test.rb

@@ -0,0 +1,97 @@
+def assert_fail
+  el4r_log(El4r::ErrorUtils.backtrace_message(caller))
+  raise("el4r assertion failure.")
+end
+
+el4r_lisp_eval(<<'EOF')
+  (insert-string (el4r-ruby-eval "\"Hello from ruby from emacs from ruby!\n\""))
+EOF
+el4r_lisp_eval('t')
+insert_string("Hello from ruby!\n")
+
+list = el("'(3 2 1)")
+list = cons(4, list)
+insert_string(prin1_to_string(list)); newline
+
+ary = []
+while list
+  ary << car(list)
+  list = cdr(list)
+end
+insert_string(ary.inspect); newline
+
+obj = Object.new
+insert_string("Is ruby object passed? ... #{car(cons(obj, nil)) == obj}")
+newline
+
+# Using defun ( Proc -> Lambda conversion )
+defun(:my_ruby_func) { |a|
+  insert_string("String from my_ruby_func: '#{a}'"); newline
+}
+my_ruby_func("Hello!")
+
+defun(:my_command, :interactive => true) {
+  insert_string("My Interactive command from Ruby."); newline
+}
+call_interactively(:my_command)
+
+defun(:my_command2,
+      :interactive => "d", :docstring => "description...") { |point|
+  insert_string("Current point is #{point}."); newline
+}
+nth(1, commandp(:my_command2)) == "d" or assert_fail
+documentation(:my_command2) == "description..." or assert_fail
+call_interactively(:my_command2)
+
+
+# Calling lambda
+lambda = el4r_lisp_eval("(lambda (i) (+ i 1))")
+funcall(lambda, 1) == 2 or assert_fail
+
+# Calling special form like save-excursion
+with(:save_excursion) {
+  beginning_of_buffer
+  insert_string("This is inserted at the beginning of buffer."); newline
+}
+
+# ELListCell
+cons(1, cons(2, nil)).to_a == [1, 2] or assert_fail
+
+# Accessing to lisp variables with elvar
+elvar.myvar = 123
+123 == elvar.myvar or assert_fail
+
+# Lisp object GC
+100.times {
+  el4r_lisp_eval("(cons nil nil)")
+}
+hash_table_count(el(:el4r_lisp_object_hash)) < 100 or assert_fail
+getq(:el4r_lisp_object_gc_trigger_count) > 100 or assert_fail
+insert_string("Okay, GC of lisp objects works well!"); newline
+
+# Ruby object GC
+100.times {
+  el4r_lisp_eval(el4r_ruby2lisp(Object.new))
+}
+el4r_rubyobj_stock.count_of_stocked_objects < 100 or assert_fail
+el4r_rubyobj_stock.gc_trigger_count > 100 or assert_fail
+insert_string("Okay, GC of Ruby objects works well!"); newline
+
+# Error passing
+begin
+  el4r_lisp_eval(<<-'EOF')
+    (el4r-ruby-eval "raise \"Is error handled correctly?\""))
+  EOF
+  raise("Oh, no!")
+rescue RuntimeError
+end
+
+# let
+elvar.testval = 12
+testval_in_letblock = nil
+let(:testval, 24) {
+  testval_in_letblock = elvar.testval
+}
+testval_in_letblock == 24 or assert_fail
+elvar.testval == 12 or assert_fail
+insert_string("Ok, let form works well."); newline

data/testing/utf8.txt

@@ -0,0 +1 @@
+日本語

metadata

@@ -0,0 +1,311 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.0
+specification_version: 1
+name: el4r
+version: !ruby/object:Gem::Version 
+  version: 1.0.4
+date: 2006-12-17 00:00:00 +09:00
+summary: EmacsRuby engine - EmacsLisp for Ruby
+require_paths: 
+- lib
+email: 
+homepage: 
+rubyforge_project: 
+description: El4r enables you to write Emacs programs in Ruby(EmacsRuby) as well as in EmacsLisp. It also enables you to unit-test Emacs programs automatically both in EmacsLisp and in EmacsRuby.  == How to install ruby -ropen-uri -e 'URI("http://www.rubyist.net/~rubikitch/archive/el4r-1.0.4.tar.gz").read.display' > el4r-1.0.4.tar.gz tar xzf el4r-1.0.4.tar.gz cd el4r-1.0.4 ruby setup.rb  ruby -S el4r-rctool -p ruby -S el4r-rctool -i   == How to use See the files below testing/ and doc/.
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: []
+
+files: 
+- BUGS
+- Changes
+- bin/el4r-instance
+- bin/el4r-rctool
+- bin/el4r-runtest
+- bin/el4r
+- data/emacs/site-lisp/el4r.el
+- doc/created.rid
+- doc/rdoc-style.css
+- doc/files
+- doc/classes
+- doc/fr_file_index.html
+- doc/fr_class_index.html
+- doc/fr_method_index.html
+- doc/index.html
+- doc/files/bin
+- doc/files/bin/el4r-instance.html
+- doc/classes/ElMixin.src
+- doc/classes/El4r.src
+- doc/classes/El4r
+- doc/classes/ElMixin.html
+- doc/classes/El4r.html
+- doc/classes/ElApp.src
+- doc/classes/ElApp.html
+- doc/classes/El4rAccessor.src
+- doc/classes/El4rAccessor.html
+- doc/classes/ElMixin.src/M000001.html
+- doc/classes/ElMixin.src/M000002.html
+- doc/classes/ElMixin.src/M000003.html
+- doc/classes/ElMixin.src/M000004.html
+- doc/classes/ElMixin.src/M000006.html
+- doc/classes/ElMixin.src/M000007.html
+- doc/classes/El4r.src/M000004.html
+- doc/classes/El4r.src/M000005.html
+- doc/classes/El4r.src/M000006.html
+- doc/classes/El4r.src/M000008.html
+- doc/classes/El4r.src/M000009.html
+- doc/classes/El4r/ELMethodsMixin.src
+- doc/classes/El4r/ELListCell.src
+- doc/classes/El4r/ELVector.src
+- doc/classes/El4r/ELRubyObjectStock.src
+- doc/classes/El4r/ELVariables.src
+- doc/classes/El4r/ELSequence.src
+- doc/classes/El4r/ELInstance.src
+- doc/classes/El4r/ELObject.src
+- doc/classes/El4r/ELMethodsMixin.html
+- doc/classes/El4r/ELListCell.html
+- doc/classes/El4r/ELVector.html
+- doc/classes/El4r/ELRubyObjectStock.html
+- doc/classes/El4r/ELVariables.html
+- doc/classes/El4r/ELSequence.html
+- doc/classes/El4r/ELInstance.html
+- doc/classes/El4r/ELObject.html
+- doc/classes/El4r/El4rOutput.src
+- doc/classes/El4r/El4rOutput.html
+- doc/classes/El4r/ELConsCell.src
+- doc/classes/El4r/ELConsCell.html
+- doc/classes/El4r/ELMethodsMixin.src/M000006.html
+- doc/classes/El4r/ELMethodsMixin.src/M000008.html
+- doc/classes/El4r/ELMethodsMixin.src/M000009.html
+- doc/classes/El4r/ELMethodsMixin.src/M000010.html
+- doc/classes/El4r/ELMethodsMixin.src/M000011.html
+- doc/classes/El4r/ELMethodsMixin.src/M000012.html
+- doc/classes/El4r/ELMethodsMixin.src/M000014.html
+- doc/classes/El4r/ELMethodsMixin.src/M000016.html
+- doc/classes/El4r/ELMethodsMixin.src/M000017.html
+- doc/classes/El4r/ELMethodsMixin.src/M000018.html
+- doc/classes/El4r/ELMethodsMixin.src/M000019.html
+- doc/classes/El4r/ELMethodsMixin.src/M000020.html
+- doc/classes/El4r/ELMethodsMixin.src/M000021.html
+- doc/classes/El4r/ELMethodsMixin.src/M000022.html
+- doc/classes/El4r/ELMethodsMixin.src/M000023.html
+- doc/classes/El4r/ELMethodsMixin.src/M000024.html
+- doc/classes/El4r/ELMethodsMixin.src/M000025.html
+- doc/classes/El4r/ELMethodsMixin.src/M000007.html
+- doc/classes/El4r/ELMethodsMixin.src/M000013.html
+- doc/classes/El4r/ELMethodsMixin.src/M000015.html
+- doc/classes/El4r/ELMethodsMixin.src/M000026.html
+- doc/classes/El4r/ELMethodsMixin.src/M000027.html
+- doc/classes/El4r/ELMethodsMixin.src/M000028.html
+- doc/classes/El4r/ELMethodsMixin.src/M000029.html
+- doc/classes/El4r/ELMethodsMixin.src/M000030.html
+- doc/classes/El4r/ELMethodsMixin.src/M000031.html
+- doc/classes/El4r/ELMethodsMixin.src/M000032.html
+- doc/classes/El4r/ELMethodsMixin.src/M000033.html
+- doc/classes/El4r/ELMethodsMixin.src/M000034.html
+- doc/classes/El4r/ELMethodsMixin.src/M000035.html
+- doc/classes/El4r/ELMethodsMixin.src/M000036.html
+- doc/classes/El4r/ELListCell.src/M000026.html
+- doc/classes/El4r/ELListCell.src/M000027.html
+- doc/classes/El4r/ELListCell.src/M000028.html
+- doc/classes/El4r/ELListCell.src/M000031.html
+- doc/classes/El4r/ELListCell.src/M000032.html
+- doc/classes/El4r/ELListCell.src/M000033.html
+- doc/classes/El4r/ELListCell.src/M000034.html
+- doc/classes/El4r/ELListCell.src/M000037.html
+- doc/classes/El4r/ELListCell.src/M000038.html
+- doc/classes/El4r/ELVector.src/M000028.html
+- doc/classes/El4r/ELVector.src/M000029.html
+- doc/classes/El4r/ELVector.src/M000030.html
+- doc/classes/El4r/ELVector.src/M000033.html
+- doc/classes/El4r/ELVector.src/M000034.html
+- doc/classes/El4r/ELVector.src/M000035.html
+- doc/classes/El4r/ELVector.src/M000036.html
+- doc/classes/El4r/ELVector.src/M000039.html
+- doc/classes/El4r/ELVector.src/M000040.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000030.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000031.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000032.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000033.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000034.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000035.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000036.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000037.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000038.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000039.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000040.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000041.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000042.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000043.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000044.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000045.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000046.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000047.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000048.html
+- doc/classes/El4r/ELRubyObjectStock.src/M000049.html
+- doc/classes/El4r/ELVariables.src/M000037.html
+- doc/classes/El4r/ELVariables.src/M000038.html
+- doc/classes/El4r/ELVariables.src/M000039.html
+- doc/classes/El4r/ELVariables.src/M000040.html
+- doc/classes/El4r/ELVariables.src/M000045.html
+- doc/classes/El4r/ELVariables.src/M000046.html
+- doc/classes/El4r/ELVariables.src/M000047.html
+- doc/classes/El4r/ELVariables.src/M000048.html
+- doc/classes/El4r/ELVariables.src/M000049.html
+- doc/classes/El4r/ELVariables.src/M000051.html
+- doc/classes/El4r/ELVariables.src/M000052.html
+- doc/classes/El4r/ELVariables.src/M000053.html
+- doc/classes/El4r/ELSequence.src/M000040.html
+- doc/classes/El4r/ELSequence.src/M000041.html
+- doc/classes/El4r/ELSequence.src/M000042.html
+- doc/classes/El4r/ELSequence.src/M000043.html
+- doc/classes/El4r/ELSequence.src/M000044.html
+- doc/classes/El4r/ELSequence.src/M000045.html
+- doc/classes/El4r/ELSequence.src/M000048.html
+- doc/classes/El4r/ELSequence.src/M000049.html
+- doc/classes/El4r/ELSequence.src/M000050.html
+- doc/classes/El4r/ELSequence.src/M000051.html
+- doc/classes/El4r/ELSequence.src/M000052.html
+- doc/classes/El4r/ELSequence.src/M000053.html
+- doc/classes/El4r/ELSequence.src/M000054.html
+- doc/classes/El4r/ELSequence.src/M000055.html
+- doc/classes/El4r/ELSequence.src/M000056.html
+- doc/classes/El4r/ELSequence.src/M000057.html
+- doc/classes/El4r/ELSequence.src/M000058.html
+- doc/classes/El4r/ELInstance.src/M000046.html
+- doc/classes/El4r/ELInstance.src/M000047.html
+- doc/classes/El4r/ELInstance.src/M000048.html
+- doc/classes/El4r/ELInstance.src/M000049.html
+- doc/classes/El4r/ELInstance.src/M000050.html
+- doc/classes/El4r/ELInstance.src/M000051.html
+- doc/classes/El4r/ELInstance.src/M000052.html
+- doc/classes/El4r/ELInstance.src/M000053.html
+- doc/classes/El4r/ELInstance.src/M000054.html
+- doc/classes/El4r/ELInstance.src/M000055.html
+- doc/classes/El4r/ELInstance.src/M000056.html
+- doc/classes/El4r/ELInstance.src/M000057.html
+- doc/classes/El4r/ELInstance.src/M000058.html
+- doc/classes/El4r/ELInstance.src/M000059.html
+- doc/classes/El4r/ELInstance.src/M000060.html
+- doc/classes/El4r/ELInstance.src/M000061.html
+- doc/classes/El4r/ELInstance.src/M000062.html
+- doc/classes/El4r/ELInstance.src/M000063.html
+- doc/classes/El4r/ELInstance.src/M000064.html
+- doc/classes/El4r/ELInstance.src/M000065.html
+- doc/classes/El4r/ELInstance.src/M000066.html
+- doc/classes/El4r/ELInstance.src/M000067.html
+- doc/classes/El4r/ELInstance.src/M000068.html
+- doc/classes/El4r/ELInstance.src/M000069.html
+- doc/classes/El4r/ELInstance.src/M000070.html
+- doc/classes/El4r/ELInstance.src/M000071.html
+- doc/classes/El4r/ELInstance.src/M000072.html
+- doc/classes/El4r/ELInstance.src/M000073.html
+- doc/classes/El4r/ELInstance.src/M000074.html
+- doc/classes/El4r/ELInstance.src/M000075.html
+- doc/classes/El4r/ELInstance.src/M000076.html
+- doc/classes/El4r/ELInstance.src/M000077.html
+- doc/classes/El4r/ELInstance.src/M000078.html
+- doc/classes/El4r/ELInstance.src/M000079.html
+- doc/classes/El4r/ELInstance.src/M000080.html
+- doc/classes/El4r/ELInstance.src/M000081.html
+- doc/classes/El4r/ELInstance.src/M000082.html
+- doc/classes/El4r/ELInstance.src/M000083.html
+- doc/classes/El4r/ELInstance.src/M000084.html
+- doc/classes/El4r/ELInstance.src/M000085.html
+- doc/classes/El4r/ELInstance.src/M000086.html
+- doc/classes/El4r/ELInstance.src/M000087.html
+- doc/classes/El4r/ELInstance.src/M000088.html
+- doc/classes/El4r/ELInstance.src/M000089.html
+- doc/classes/El4r/ELInstance.src/M000090.html
+- doc/classes/El4r/ELInstance.src/M000091.html
+- doc/classes/El4r/ELInstance.src/M000092.html
+- doc/classes/El4r/ELInstance.src/M000093.html
+- doc/classes/El4r/ELObject.src/M000078.html
+- doc/classes/El4r/ELObject.src/M000079.html
+- doc/classes/El4r/ELObject.src/M000080.html
+- doc/classes/El4r/ELObject.src/M000081.html
+- doc/classes/El4r/ELObject.src/M000083.html
+- doc/classes/El4r/ELObject.src/M000084.html
+- doc/classes/El4r/ELObject.src/M000082.html
+- doc/classes/El4r/ELObject.src/M000085.html
+- doc/classes/El4r/ELObject.src/M000086.html
+- doc/classes/El4r/ELObject.src/M000087.html
+- doc/classes/El4r/ELObject.src/M000088.html
+- doc/classes/El4r/ELObject.src/M000090.html
+- doc/classes/El4r/ELObject.src/M000091.html
+- doc/classes/El4r/ELObject.src/M000092.html
+- doc/classes/El4r/ELObject.src/M000093.html
+- doc/classes/El4r/ELObject.src/M000095.html
+- doc/classes/El4r/ELObject.src/M000096.html
+- doc/classes/El4r/ELObject.src/M000094.html
+- doc/classes/El4r/ELObject.src/M000097.html
+- doc/classes/El4r/ELObject.src/M000098.html
+- doc/classes/El4r/ELObject.src/M000099.html
+- doc/classes/El4r/ELObject.src/M000100.html
+- doc/classes/El4r/ELObject.src/M000102.html
+- doc/classes/El4r/ELObject.src/M000103.html
+- doc/classes/El4r/El4rOutput.src/M000080.html
+- doc/classes/El4r/El4rOutput.src/M000081.html
+- doc/classes/El4r/El4rOutput.src/M000088.html
+- doc/classes/El4r/El4rOutput.src/M000089.html
+- doc/classes/El4r/El4rOutput.src/M000090.html
+- doc/classes/El4r/El4rOutput.src/M000091.html
+- doc/classes/El4r/El4rOutput.src/M000092.html
+- doc/classes/El4r/El4rOutput.src/M000094.html
+- doc/classes/El4r/El4rOutput.src/M000095.html
+- doc/classes/El4r/El4rOutput.src/M000096.html
+- doc/classes/El4r/ELConsCell.src/M000044.html
+- doc/classes/El4r/ELConsCell.src/M000046.html
+- doc/classes/El4r/ELConsCell.src/M000050.html
+- doc/classes/ElApp.src/M000001.html
+- doc/classes/ElApp.src/M000002.html
+- doc/classes/ElApp.src/M000003.html
+- doc/classes/ElApp.src/M000004.html
+- doc/classes/El4rAccessor.src/M000005.html
+- el4r.en.html
+- el4r.ja.html
+- files
+- lib/el4r/el4r-sub.rb
+- lib/el4r/emacsruby/autoload/70el4r-mode.rb
+- lib/el4r/emacsruby/el4r-mode.rb
+- lib/el4r/emacsruby/stdlib.rb
+- lib/el4r/exec-el4r.rb
+- man/el4r.1
+- setup.rb
+- testing/alltest.rb
+- testing/badcase.rb
+- testing/el4r.e
+- testing/euc.txt
+- testing/jis.txt
+- testing/sjis.txt
+- testing/test-el4r.rb
+- testing/test-gc.rb
+- testing/test.el
+- testing/test.rb
+- testing/utf8.txt
+test_files: []
+
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: 
+- none
+dependencies: []
+