[ruby-list:22110] Re: Thread & STDIN.getc

こんにちは、伊達と申します。

From: "Masato Toyoshima" <[e-mail]>
To: "ruby mailing list" <[e-mail]>
Sent: Tuesday, April 25, 2000 5:07 PM
Subject: [ruby-list:22108] Re: Thread & STDIN.getc

こういう動作ではダメですか？
豊島さんの前のテストコードを元にしています。
便宜上、打った文字はlogという名前のファイルに出力します。
raw にすると ^c が効かなくなるので20文字打ったら終了します。
#実はsttyって何なんだか全然分かってないのですが(^^;

=========================
require "thread"

system("stty raw -echo")
STDOUT.sync = true

def timeout(sec)
  begin
    x = Thread.current
    y = Thread.start {
      sleep sec
      x.kill if x.status
    }
    yield sec
    return true
  ensure
    Thread.kill y if y.status
  end
end

b = 1
z=Thread.start{
while true
  print "thread ",b," "
  b=b+1
  sleep 0.001
end

}

nstdin=nil
nwrite=nil

fp = File.open("log", "w")
num = 0
while true
   nstdin=nil
   timeout(0.01) do
    nstdin=STDIN.getc
   end
    case nstdin
    when nil
     pass
    when ?\n, ?\r
      case nwrite
      when nil
       fp.write "\n"
      else
       nwrite << "\n"
       fp.write nwrite
       nwrite = nil
      end
    else
      case nwrite
      when nil
        nwrite = nstdin.chr
      else
       nwrite << nstdin.chr
      end
    end
  num += 1
  if num > 20
    system("stty cbreak echo")
    fp.close
    exit
  end
end
=========================

by
DATE Ken@
Software Engineering Lab. Meiji Univ.