[ruby-list:14982] Re: thread with curses

土岐です。

From: HATTORI Masashi <[e-mail]>
Subject: [ruby-list:14970] thread with curses
Date: Thu, 10 Jun 1999 13:12:36 +0900

> 画面を二つにわけて片方をキーボードからの入力用、片方をサーバーから送られ
> て来たデータの表示用、というようなのを作ろうと思ったのですが、入力用の方
> でgetstrすると、そこで止まってしまいます。
> 
> こういうときはどのように書いたらいいのでしょうか。

curses の IO は ruby 本体の IO と違ってスレッドのことは考慮してくれな
いので、止まってしまうのはどうしようもないと思います。IO::select で入
力の有無をチェックしてから getch で一文字ずつ読み出してみたらどうでしょ
う。

require "curses"
include Curses

module Curses
  class Window
    def get_str
      str = ""
      max = str.length
      line = cury
      col = curx
      catch(:CURSES_WINDOW_GET_STR) do
	loop do
	  setpos(line, col)
	  addstr(" " * max)
	  setpos(line, col)
	  addstr(str)
	  refresh
	  sleep(0.1) if (IO::select([ STDIN ]))
	  case (c = getch)
	  when ?\C-h
	    str.chop!
	  when ?\C-u
	    str = ""
	  when ?\n
	    throw(:CURSES_WINDOW_GET_STR,
		  unless (str.empty?) then str end)
	  when ?\C-g
	    throw(:CURSES_WINDOW_GET_STR, nil)
	  else
	    str << c.chr
	  end
	  max = [ max, str.length ].max
	end
      end
    end
  end
end

init_screen

# これも追加
cbreak
noecho

max = lines - 3

output = Window.new( max, cols, 0, 0)
output.setpos( 0, 0)
input = Window.new( 2, cols, max + 1, 0)

Thread.start do
  i = 0
  while i < 100
    output.addstr( i.to_s + "\n")
    output.refresh
    sleep 1
    i += 1
  end
end

while TRUE
  input.setpos( 1, 0)
  input.addstr( "input > ")
  input.refresh
  # sleep 2
  tmp = input.get_str
  if tmp == "q"
    break
  end
  output.addstr( tmp + "\n")
  output.refresh
  input.clear
end

input.close
output.close

close_screen

----------------------------------------------------------------------------
土岐 仁謙	神戸大学物理高エネ研 Ｍ２
URL: http://www3.phys.sci.kobe-u.ac.jp/~toki/index.html
PGP fingerprint = D0 A8 90 AB 73 F8 34 FE  CE CA DB BF 01 30 C0 35