[ruby-list:31928] termio on FreeBSD-4.4

さとけん＠ネットブレーンと申します。
始めまして。

この度、シリアルポートで通信するプログラムを ruby で書こうと思い、
termio を使ったプログラム中なのですが、ちょっと動作で悩んでいるので教
えて頂けると幸です。

足りない情報があれば、ご連絡下さい。

《環境》
FreeBSD-4.4-Stable
ruby-1.6.5
# この ruby は ports/x11-toolkits/ruby-gtk で入れたもの
termio.tar.gz
# http://arika.org/pub/Tools/Ruby/termios.tar.gz からダウンロードした
#もの

cuaa0 (COM1), cuaa1 (COM2) をクロスケーブルで接続

《テストプログラム》
添付のプログラムのうち、serial1.rb が受信用、serial2.rb が送信用です。

《問題点》
1) serial1.rb で newtio.c_ispeed, newtio.c_ospeed を設定すると、デー
タを受信できない。

2) newtio.c_ispeed もしくは newtio.c_ospeed のどちらかのみ設定しよう
とすると、

./serial1.rb:34:in `setattr': can't set terminal parameters (Invalid argument) (RuntimeError)

のように setattr がエラーとなる。

FreeBSD 上で開発し、Linux にもっていって動かしたいので、DEVICE 以外変
わらないで動くといいなぁ、と思っております。

# 以前 C でシリアルプログラミングしたときは、cfset[io]speed に変更し
# て設定したような気もするので、termio.c_[io]speed に問題があるかも知
# れませんが。

よろしくお願い致します。

《プログラム》
# dev.each か dev.print かの違いだけなのですけど…

---------- serial1.rb ----------
#!/usr/local/bin/ruby

require 'termios'
include Termios

DEVICE = '/dev/cuaa0'
BAUDRATE = B4800

dev = open(DEVICE, 'r+')
oldtio = getattr(dev)
newtio = new_termios()
newtio.c_ispeed = BAUDRATE
newtio.c_ospeed = BAUDRATE
newtio.c_cflag = oldtio.c_cflag
newtio.c_iflag = oldtio.c_iflag
newtio.c_lflag = oldtio.c_lflag
newtio.c_oflag = oldtio.c_oflag
oldtio.c_cc.each_index {|i| newtio.c_cc[i] = oldtio.c_cc[i]}
flush(dev, TCIFLUSH)
setattr(dev, TCSANOW, newtio)
dev.each {|c|
  print "#{c}"
}
flush(dev, TCIOFLUSH)
setattr(dev, TCSANOW, oldtio)
dev.close
exit
----------
---------- serial2.rb ----------
#!/usr/local/bin/ruby

require 'termios'
include Termios

DEVICE = '/dev/cuaa0'
BAUDRATE = B4800

dev = open(DEVICE, 'r+')
oldtio = getattr(dev)
newtio = new_termios()
newtio.c_ispeed = BAUDRATE
newtio.c_ospeed = BAUDRATE
newtio.c_cflag = oldtio.c_cflag
newtio.c_iflag = oldtio.c_iflag
newtio.c_lflag = oldtio.c_lflag
newtio.c_oflag = oldtio.c_oflag
oldtio.c_cc.each_index {|i| newtio.c_cc[i] = oldtio.c_cc[i]}
flush(dev, TCIFLUSH)
setattr(dev, TCSANOW, newtio)
dev.print "Hello\n"
flush(dev, TCIOFLUSH)
setattr(dev, TCSANOW, oldtio)
dev.close
exit
----------