cruby 0.0.1

data/README

@@ -0,0 +1,7 @@
+README for cruby
+================
+
+CRubyはRuby上で並行プログラミングを実現するためのライブラリです。
+
+
+

data/Rakefile

@@ -0,0 +1,85 @@
+require 'rubygems'
+require 'rake'
+require 'rake/clean'
+require 'rake/testtask'
+require 'rake/packagetask'
+require 'rake/gempackagetask'
+require 'rake/rdoctask'
+require 'rake/contrib/rubyforgepublisher'
+require 'fileutils'
+include FileUtils
+require File.join(File.dirname(__FILE__), 'lib', 'cruby', 'version')
+
+AUTHOR = "hattori"
+EMAIL = "hattori@isp.co.jp"
+DESCRIPTION = "CRuby is a library that provids concurrent programming in Ruby"
+RUBYFORGE_PROJECT = "cruby"
+HOMEPATH = "http://#{RUBYFORGE_PROJECT}.rubyforge.org"
+BIN_FILES = %w(  )
+
+
+NAME = "cruby"
+REV = File.read(".svn/entries")[/committed-rev="(d+)"/, 1] rescue nil
+VERS = ENV['VERSION'] || (Cruby::VERSION::STRING + (REV ? ".#{REV}" : ""))
+CLEAN.include ['**/.*.sw?', '*.gem', '.config']
+RDOC_OPTS = ['--quiet', '--title', "cruby documentation",
+    "--opname", "index.html",
+    "--line-numbers", 
+    "--main", "README",
+    "--inline-source"]
+
+desc "Packages up cruby gem."
+task :default => [:test]
+task :package => [:clean]
+
+Rake::TestTask.new("test") { |t|
+  t.libs << "test"
+  t.pattern = "test/**/*_test.rb"
+  t.verbose = true
+}
+
+spec =
+    Gem::Specification.new do |s|
+        s.name = NAME
+        s.version = VERS
+        s.platform = Gem::Platform::RUBY
+        s.has_rdoc = true
+        s.extra_rdoc_files = ["README", "CHANGELOG"]
+        s.rdoc_options += RDOC_OPTS + ['--exclude', '^(examples|extras)/']
+        s.summary = DESCRIPTION
+        s.description = DESCRIPTION
+        s.author = AUTHOR
+        s.email = EMAIL
+        s.homepage = HOMEPATH
+        s.executables = BIN_FILES
+        s.rubyforge_project = RUBYFORGE_PROJECT
+        s.bindir = "bin"
+        s.require_path = "lib"
+        s.autorequire = "cruby"
+
+        #s.add_dependency('activesupport', '>=1.3.1')
+        #s.required_ruby_version = '>= 1.8.2'
+
+        s.files = %w(README CHANGELOG Rakefile) +
+          Dir.glob("{bin,doc,test,lib,templates,generator,extras,website,script}/**/*") + 
+          Dir.glob("ext/**/*.{h,c,rb}") +
+          Dir.glob("examples/**/*.rb") +
+          Dir.glob("tools/*.rb")
+        
+        # s.extensions = FileList["ext/**/extconf.rb"].to_a
+    end
+
+Rake::GemPackageTask.new(spec) do |p|
+    p.need_tar = true
+    p.gem_spec = spec
+end
+
+task :install do
+  name = "#{NAME}-#{VERS}.gem"
+  sh %{rake package}
+  sh %{sudo gem install pkg/#{name}}
+end
+
+task :uninstall => [:clean] do
+  sh %{sudo gem uninstall #{NAME}}
+end

data/examples/echoc.rb

@@ -0,0 +1,148 @@
+require 'socket'
+require 'crbtk'
+
+class EchoCtrl
+  # �R���g���[���Ŏg�p����C�x���g��`
+  EVT_CONNECT = 'EVT_CONNECT'    # �ڑ��C�x���g
+  EVT_DISCONN = 'EVT_DISCONN'    # �ؒf�C�x���g
+  EVT_SENDMSG = 'EVT_SENDMSG'    # ���M�C�x���g
+
+  ECHO_PORT = 7
+
+  def initialize view
+    @view = view
+    @sock = nil
+    # �`���l���̏�����
+    @chSockIn  = nil
+    @chSockOut = nil
+    @chConnect = TkChannel.new(EVT_CONNECT)
+    @chDisconn = TkChannel.new(EVT_DISCONN)
+    @chSendMsg = TkChannel.new(EVT_SENDMSG)
+  end
+
+  def loop
+    host = @chConnect.recv  # �ڑ��v���҂�
+    @sock = TCPSocket.open(host, ECHO_PORT)
+    @chSockIn  = IoChannel.new(@sock)
+    @chSockOut = IoChannel.new(@sock)
+
+    def innerLoop 
+      Event.choose[
+                   @chSendMsg.recvEvt.wrap{|m|      # ���M�v���҂�
+                     @chSockOut.send(m)  # ���b�Z�[�W���M
+                     m = @chSockIn.recv  # ���b�Z�[�W��M�҂�
+                     @view.set_recv(m)
+                     innerLoop
+                   },
+                   @chDiscon.recvEvt.wrap{ @sock.close }].sync
+    end
+    loop
+  end
+
+end
+
+#
+# �\���n
+#
+class EchoView
+
+  # �ڑ��{�^���������̏���
+  def connect
+    @host_e.background 'gray'
+    @host_e.state 'disabled'
+    @conn_b.text '�ؒf'
+    @conn_b.command { disconnect }
+    @mesg_e.background 'white'
+    @mesg_e.state 'normal'
+    @send_b.state 'normal'
+
+    CRubyTk.send(EchoCtrl::CONNECT, @host_e.value)
+  end
+
+  # �ؒf�{�^���������̏���
+  def disconnect
+    @host_e.background 'white'
+    @host_e.state 'normal'
+    @conn_b.text '�ڑ�'
+    @conn_b.command { connect }
+    @mesg_e.background 'gray'
+    @mesg_e.state 'disabled'
+    @send_b.state 'disabled'
+
+    CRubyTk.send(EchoCtrl::DISCONN)
+  end
+
+  def initialize
+    root = TkRoot.new { title "EchoClient" }
+    top  = TkFrame.new(root) { background "white" }
+
+    #
+    # �z�X�g���F[        ][�ڑ�]
+    #
+    TkLabel.new(top) {
+      background "white"
+      text '�z�X�g��:'
+      grid('row'=>0, 'column'=>0, 'sticky'=>'w')
+    }
+    @host_e = TkEntry.new(top) {
+      grid('row'=>0, 'column'=>1, 'sticky'=>'ns', 'padx'=>5,'pady'=>5)
+    }
+    @conn_b = TkButton.new(top) {
+      grid('row'=>0, 'column'=>2, 'sticky'=>'e')
+    }
+    
+    #
+    # ���́F[       ][���M]
+    #
+    TkLabel.new(top) {
+      background "white"
+      text '����:'
+      grid('row'=>1, 'column'=>0, 'sticky'=>'w')
+    }
+    @mesg_e = TkEntry.new(top) {
+      grid('row'=>1, 'column'=>1, 'sticky'=>'ns', 'padx'=>5,'pady'=>5)
+    }
+    @send_b = TkButton.new(top) {
+      text '���M'
+      grid('row'=>1, 'column'=>2, 'sticky'=>'e')
+    }
+
+    #
+    # �����F[      ]
+    #
+    TkLabel.new(top) {
+      background "white"
+      text '����:'
+      grid('row'=>2, 'column'=>0, 'sticky'=>'w')
+    }
+    @recv_m = TkMessage.new(top) {
+      background "white"
+      relief 'ridge'
+      aspect 1000
+      grid('row'=>2, 'column'=>1, 'columnspan'=>2, 'sticky'=>'news')
+    }
+    def set_recv mesg
+      # �����ƂƂ��ɕ\������
+      @recv_m.text = Time.now.to_s + ":" + mesg
+    end
+    #
+    # [�I��]
+    #
+    exit_b = TkButton.new(top) {
+      text '�I��'
+      grid('row'=>3, 'column'=>1, 'sticky'=>'news')
+    }
+
+    top.pack('fill' => 'both', 'side' => 'top')
+
+    # �e�{�^���ɑ΂���A�N�V������ݒ�
+    @send_b.command { CRubyTk.send(EchoCtrol::SENDMSG, @mesg_e.value) }
+    exit_b.command { exit }
+
+    disconnect # �������
+  end
+
+end
+
+# EchoCtrl.new(EchoView.new)
+# CRubyTk.mainloop

data/examples/echod.rb

@@ -0,0 +1,18 @@
+require 'socket'
+require '../lib/cruby'
+
+def echod sch
+  while true
+    (sch.recvEvt.wrap {|ch| CRuby::Coroutine.spawn {echoProc(ch)}}).sync
+  end
+end
+def echoProc ch
+  while true
+    ch.send(ch.recv) rescue return
+  end
+end
+
+
+gs = TCPServer.open(10007)
+echod(CRuby::TcpServerChannel.new(gs))
+

data/examples/fib.rb

@@ -0,0 +1,45 @@
+#
+# Fibプロセスネットワーク
+#
+require 'cruby'
+
+# 加算器
+def add (inCh1,inCh2,outCh)
+  outCh.send(inCh1.recv+inCh2.recv)
+  add(inCh1,inCh2,outCh)
+end
+
+def add (inCh1,inCh2,outCh)
+  outCh.send(inCh1.recv+inCh2.recv)
+  add(inCh1,inCh2,outCh)
+end
+
+def copy (inCh,outCh1,outCh2)
+  x = inCh.recv
+  outCh1.send(x); outCh2.send(x)
+  copy(inCh,outCh1,outCh2)
+end
+
+def delay (n,inCh,outCh)
+  outCh.send(n)
+  delay(inCh.recv,inCh,outCh)
+end
+
+def fib
+  outCh = CRuby::Channel.new()
+  c1 = CRuby::Channel.new()
+  c2 = CRuby::Channel.new()
+  c3 = CRuby::Channel.new()
+  c4 = CRuby::Channel.new()
+  c5 = CRuby::Channel.new()
+  CRuby::Coroutine.spawn{delay(0,c4,c5)}
+  CRuby::Coroutine.spawn{copy(c2,c3,c4)}
+  CRuby::Coroutine.spawn{add(c3,c5,c1)}
+  CRuby::Coroutine.spawn{copy(c1,c2,outCh)}
+  c1.send(1)
+  outCh
+end
+
+ch = fib
+20.times { p ch.recv }
+

data/examples/prime.rb

@@ -0,0 +1,40 @@
+#
+# n,n+1,n+2,...を送信するチャネルを返す
+#
+require 'cruby'
+
+def counter (n, ch)
+  ch.send(n); counter(n+1,ch)
+end
+
+def filter (p, inCh, outCh)
+  i = inCh.recv()
+  if i % p != 0 then
+    outCh.send(i)
+  end
+  filter(p,inCh,outCh)
+end
+
+#
+# 篩にかける
+#
+def sieve (inCh, outCh)
+  ch = CRuby::Channel.new()
+  p = inCh.recv(); outCh.send(p)
+  CRuby::Coroutine.spawn { filter(p,inCh,ch) }
+  sieve(ch,outCh)
+end
+
+def primes n
+  nCh = CRuby::Channel.new()
+  CRuby::Coroutine.spawn { counter(2,nCh) }
+  pCh = CRuby::Channel.new()
+  CRuby::Coroutine.spawn { sieve(nCh,pCh) }
+
+  for i in 1..n
+    p pCh.recv()
+  end
+
+end
+
+primes(50)

data/lib/crbtk.rb

@@ -0,0 +1,77 @@
+require 'tk'
+require 'cruby'
+
+# ���荞�ݗp�̗�O��`
+class InterruptException < Exception
+  attr_reader :evtnam, :param
+  def initialize(evtnam,param)
+    @evtnam = evtnam
+    @param  = param
+  end
+end
+
+module Coroutine
+def Coroutine.dispatch
+  while true
+    k = @@rdyQ.dequeue
+    k.call if k != nil
+
+    begin
+      @@io.call if @@io != nil
+      Coroutine.interruptible true
+      sleep
+    rescue InterruptException
+      Coroutine.interruptible false
+      # �C�x���g�z������
+      EventChannel.setEvent($!.evtnam, $!.param)
+    end
+  end
+  assert false
+end
+end
+
+class CRubyTk
+  def self.mainloop
+    @@thread = Thread.current
+    Thread.new {
+      while true
+        Tk.do_one_event(Tk::EventFlag::ALL)
+      end
+    }
+    Coroutine.dispatch
+  end
+
+  # �R�[���o�b�N�̕�������Ă΂��
+  def self.send(evtnam, param = nil)
+    Coroutine.interrupt
+    @@thread.raise InterruptException.new(evtnam, param)
+  end
+
+end
+
+class EventChannel < Channel
+  @@evtTbl = Hash.new # �C�x���g�����L�[�Ƃ���e�[�u��
+
+  def initialize(evtnam)
+    super()
+    @evtnam = evtnam
+    @@evtTbl[evtnam] = self
+  end
+
+  def self.setEvent(evtnam, param)
+    # �C�x���g�L���[����`���l������Ž��o��
+    ch = @@evtTbl[evtnam]
+    p
+    callcc {|k| ch.input(param,k) }
+  end
+
+  def input(mesg, ret)
+    # �`���l���̎�M�҂��L���[�̃v���Z�X�����o��
+    item = @recvQ.dequeue
+    if item
+      item['flg'][0] = true
+      callcc {|k| Coroutine.enqueue(k); ret.call}
+      item['cont'].call(mesg) rescue p $!
+    end
+  end
+end

data/lib/cruby.rb

@@ -0,0 +1,2 @@
+module CRuby; end
+Dir[File.join(File.dirname(__FILE__), 'cruby/**/*.rb')].sort.each { |lib| require lib }

data/lib/cruby/channel.rb

@@ -0,0 +1,197 @@
+class CRuby::Channel
+
+  def initialize
+    @sendQ = CRuby::Queue.new()
+    @recvQ = CRuby::Queue.new()
+  end
+
+  def send msg
+    sendEvt(msg).sync
+  end
+
+  def recv
+    recvEvt.sync
+  end
+
+  # 送信イベントを生成する
+  def sendEvt msg
+    pollFn = Proc.new { @recvQ.poll }
+    doFn = Proc.new {
+      callcc {|k|
+        item = @recvQ.dequeue
+        item['flg'][0] = true
+        CRuby::Coroutine.enqueue(k)
+        item['cont'].call(msg)
+      }
+    }
+    blockFn = Proc.new {|flg,k| @sendQ.enqueue({'flg'=>flg,'msg'=>msg,'cont'=>k}) }
+    CRuby::Event.new([CRuby::Event::BEvt.new(pollFn, doFn, blockFn)])
+  end
+
+  # 受信イベントを生成する
+  def recvEvt
+    pollFn = Proc.new { @sendQ.poll }
+    doFn = Proc.new {
+      item = @sendQ.dequeue
+      item['flg'][0] = true
+      CRuby::Coroutine.enqueue(item['cont'])
+      item['msg']
+    }
+    blockFn = Proc.new {|flg,k| @recvQ.enqueue({'flg'=>flg,'cont'=>k}) }
+    CRuby::Event.new([CRuby::Event::BEvt.new(pollFn, doFn, blockFn)])
+  end
+
+end
+
+# 入出力とタイマー処理
+module IOT
+  @@inTbl = Hash.new {[]}    # 入力IOをキーとするテーブル
+  @@outTbl = Hash.new {[]}   # 出力IOをキーとするテーブル
+  @@timerQ = []
+
+  def IOT.input io
+    # IOキューから入力チャネルを一つ取り出す
+    ich = @@inTbl[io].shift
+    # キューが空になればエントリを削除
+    if @@inTbl[io].empty? then
+      @@inTbl.delete(io)
+    end
+    ich.input
+  end
+
+  def IOT.output io
+    # IOキューから出力チャネルを一つ取り出す
+    och = @@outTbl[io].shift
+    # キューが空になればエントリを削除
+    if @@outTbl[io].empty? then
+      @@outTbl.delete(io)
+    end
+    och.output
+  end
+
+  def IOT.exec
+    tm = nil
+    # IOキューを調べる
+    rds = @@inTbl.keys
+    wds = @@outTbl.keys
+    nxt = @@timerQ.first
+
+    # どちらも空の場合
+    if rds.empty? && wds.empty? && nxt == nil then
+      return nil
+    end
+    if nxt then
+      tm = nxt[:time] - Time.now
+      if tm < 0 then
+        tm = 0
+      end
+    end
+
+    CRuby::Coroutine.interruptible true    # 割り込み可能にセット
+    ds = select(rds,wds,nil,tm)
+    CRuby::Coroutine.interruptible false   # もとに戻す
+    if (ds == nil)
+      @@timerQ.shift
+      nxt[:chan].timeout
+    else
+      # 入力処理
+      ds[0].each {|io| input(io) }
+      # 出力処理
+      ds[1].each {|io| output(io) }
+    end
+    CRuby::Coroutine.dispatch
+  end
+end
+
+class CRuby::IoChannel < CRuby::Channel
+  include IOT
+
+  attr_reader :io
+
+  def initialize io
+    super()
+    @io = io
+  end
+
+  # 送信イベントを生成する
+  def sendEvt msg
+    pollFn = Proc.new { false }
+    blockFn = Proc.new {|flg,k|
+      if flg[0] == true then
+        CRuby::Coroutine.dispatch
+      end
+      @@outTbl[@io] <<= self
+      @sendQ.enqueue({'flg'=>flg,'msg'=>msg,'cont'=>k})
+    }
+    CRuby::Event.new([CRuby::Event::BEvt.new(pollFn, nil, blockFn)])
+  end
+
+  # 受信イベントを生成する
+  def recvEvt
+    pollFn = Proc.new { false }
+    blockFn = Proc.new {|flg,k|
+      if flg[0] == true then
+        CRuby::Coroutine.dispatch
+      end
+      @@inTbl[@io] <<= self
+      @recvQ.enqueue({'flg'=>flg,'cont'=>k})
+    }
+    CRuby::Event.new([CRuby::Event::BEvt.new(pollFn, nil, blockFn)])
+  end
+
+  # 入力処理を行う
+  def input
+    # EOFの処理
+    msg = @io.readpartial(4096)
+    # チャネルの受信待ちキューのプロセスを取り出す
+    item = @recvQ.dequeue
+    item['flg'][0] = true
+    item['cont'].call(msg)
+  end
+
+  # 出力処理を行う
+  def output
+    # チャネルの送信待ちキューのプロセスを取り出す
+    item = @sendQ.dequeue
+    item['flg'][0] = true
+    CRuby::Coroutine.enqueue(item['cont'])
+    io.write(item['msg'])
+  end
+
+end
+
+class CRuby::TimerChannel < CRuby::Channel
+  include IOT
+
+  # 送信イベントを生成する
+  def sendEvt msg
+    pollFn = Proc.new { false }
+    blockFn = Proc.new {|flg,k|
+      if flg[0] == true then
+        CRuby::Coroutine.dispatch
+      end
+      @@timerQ <<= {:time=>Time.now+msg,:chan=>self}
+      @@timerQ.sort! {|a,b| a[:time]<=>b[:time]}
+      @sendQ.enqueue({'flg'=>flg,'msg'=>msg,'cont'=>k})
+    }
+    CRuby::Event.new([CRuby::Event::BEvt.new(pollFn, nil, blockFn)])
+  end
+
+  def timeout
+    item = @sendQ.dequeue
+    item['flg'][0] = true
+    CRuby::Coroutine.enqueue(item['cont'])
+  end
+end
+
+class CRuby::TcpServerChannel < CRuby::IoChannel
+  include IOT
+
+  def input
+    s = @io.accept
+    # チャネルの受信待ちキューのプロセスを取り出す
+    item = @recvQ.dequeue
+    item['flg'][0] = true
+    item['cont'].call(CRuby::IoChannel.new(s))
+  end
+end

data/lib/cruby/coroutine.rb

@@ -0,0 +1,87 @@
+require 'thread'
+
+class CRuby::Queue
+
+  def initialize
+    @queue = []
+  end
+
+  def empty?
+    @queue == []
+  end
+
+  def enqueue val
+    @queue.push val
+  end
+
+  def dequeue
+    return @queue.shift
+  end
+
+  # このメソッドは別のクラスに移すべき
+  def poll
+    # dirtyなエントリを削除
+    @queue.delete_if {|item| item['flg']==[true] }
+    not empty?
+  end
+
+end
+
+module CRuby::Coroutine
+  @@rdyQ = CRuby::Queue.new
+
+  @@flag  = false # 割り込み可能フラグ
+  @@mutex = Mutex.new
+  @@condv = ConditionVariable.new
+
+  def self.rdyq
+    p @@rdyQ
+  end
+
+  # メインスレッドに割り込みをかける
+  def self.interrupt
+    # 割り込み可能になるまで待つ
+    @@mutex.synchronize {
+      while not @@flag
+        @@condv.wait(@@mutex)
+      end
+    }
+  end
+
+  # 割り込み可能フラグをセットする
+  def self.interruptible flag
+    @@mutex.synchronize {
+      if flag
+        @@condv.signal
+      end
+      @@flag = flag
+    }
+  end
+
+  def self.empty?
+    @@rdyQ.empty?
+  end
+  
+  def self.dispatch
+    k = @@rdyQ.dequeue
+    if k != nil then
+      k.call
+      assert false
+    end
+    IOT.exec
+  end
+
+  def self.spawn &f
+    callcc {|parentK|
+      @@rdyQ.enqueue(parentK)
+      f.call         # 例外捕捉する必要あり
+      CRuby::Coroutine.dispatch
+    }
+  end
+
+  def self.enqueue k
+    @@rdyQ.enqueue(k)
+  end
+
+end
+

data/lib/cruby/event.rb

@@ -0,0 +1,51 @@
+class CRuby::Event
+  attr_reader :evts
+
+  class BEvt
+    attr_reader :pollFn, :doFn, :blockFn
+    def initialize (pollFn, doFn, blockFn)
+      @pollFn = pollFn
+      @doFn = doFn
+      @blockFn = blockFn
+    end
+  end
+
+  def initialize bevts
+    @evts = bevts
+  end
+
+  def sync
+    bevt = @evts.find {|evt| evt.pollFn.call() }
+    if bevt then
+      bevt.doFn.call()
+    else
+      callcc {|k|
+        flag = [false]
+        @evts.each {|evt| evt.blockFn.call(flag,k) }
+        CRuby::Coroutine.dispatch()
+      }
+    end
+  end
+
+  # 新しいイベントを生成する
+  def wrap &f
+    CRuby::Event.new(@evts.map {|evt|
+                doFn = Proc.new { f.call(evt.doFn.call()) }
+                blockFn = Proc.new {|flg,k|     # k はsync実行後の継続
+                  callcc {|kk|                  # kk はblockFn実行後の継続
+                    k.call(f.call(callcc {|kkk| # kkk は元のblockFn実行後の継続
+                                    kk.call(evt.blockFn.call(flg,kkk))
+                                  }))}}
+                BEvt.new(evt.pollFn,doFn,blockFn)
+              })
+  end
+
+  # イベントを選択する
+  def self.choose evts
+    CRuby::Event.new((evts.map {|ev| ev.evts}).flatten)
+  end
+
+  def self.select evts
+    CRuby::Event.choose(evts).sync
+  end
+end

data/lib/cruby/version.rb

@@ -0,0 +1,9 @@
+module Cruby #:nodoc:
+  module VERSION #:nodoc:
+    MAJOR = 0
+    MINOR = 0
+    TINY  = 1
+
+    STRING = [MAJOR, MINOR, TINY].join('.')
+  end
+end

data/test/cruby_test.rb

@@ -0,0 +1,56 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class CrubyTest < Test::Unit::TestCase
+
+  def setup
+  end
+  
+  def test_truth
+    assert true
+  end
+
+  def test_cruby_queue
+    q = CRuby::Queue.new
+    assert(q.empty?)
+
+    q.enqueue("foo")
+    assert(!q.empty?)
+    assert_equal("foo", q.dequeue)
+    assert(q.empty?)
+  end
+
+  def test_cruby_coroutine
+    CRuby::Coroutine.spawn { assert(true) }
+  end
+
+  def test_cruby_channel
+    ch = CRuby::Channel.new
+
+    CRuby::Coroutine.spawn { ch.send("hello"); assert(true) }
+    assert_equal("hello", ch.recv)
+  end
+
+  def test_cruby_select
+    ch1 = CRuby::Channel.new
+    ch2 = CRuby::Channel.new
+    CRuby::Coroutine.spawn { ch2.send("hello") }
+    assert_equal("hello",
+      CRuby::Event.select([
+        ch1.recvEvt.wrap {|m| assert(false); m},
+        ch2.recvEvt.wrap {|m| assert(true); m}
+      ])
+    )
+  end
+
+  def test_cruby_timer
+    timer = CRuby::TimerChannel.new
+    timer.send(0.5)
+    assert(true)
+  end
+
+  def test_cruby_stdout
+    chout = CRuby::IoChannel.new(STDOUT)
+    chout.send("\nhoge\n")
+    assert(true)
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,2 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/cruby'

metadata

@@ -0,0 +1,72 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.0
+specification_version: 1
+name: cruby
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+date: 2006-11-08 00:00:00 +09:00
+summary: CRuby is a library that provids concurrent programming in Ruby
+require_paths: 
+- lib
+email: hattori@isp.co.jp
+homepage: http://cruby.rubyforge.org
+rubyforge_project: cruby
+description: CRuby is a library that provids concurrent programming in Ruby
+autorequire: cruby
+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: 
+post_install_message: 
+authors: 
+- hattori
+files: 
+- README
+- CHANGELOG
+- Rakefile
+- test/cruby_test.rb
+- test/test_helper.rb
+- lib/crbtk.rb
+- lib/cruby
+- lib/cruby.rb
+- lib/cruby/version.rb
+- lib/cruby/coroutine.rb
+- lib/cruby/event.rb
+- lib/cruby/channel.rb
+- examples/prime.rb
+- examples/fib.rb
+- examples/echoc.rb
+- examples/echod.rb
+test_files: []
+
+rdoc_options: 
+- --quiet
+- --title
+- cruby documentation
+- --opname
+- index.html
+- --line-numbers
+- --main
+- README
+- --inline-source
+- --exclude
+- ^(examples|extras)/
+extra_rdoc_files: 
+- README
+- CHANGELOG
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: []
+