=encoding utf8

=head1 NAME

Term::Getch - ReadKey()ライクなインターフェースのMSWin32用の代替

=head1 SYNOPSIS

	use Term::Getch;
	
	while(1) {
		my $c = getch(); 
		print "Input: $c\r";
	}

=head1 DESCRIPTION

これはすべてのActivePerlでTerm::ReadKeyを動かそうとしてかなわなかったWin32ユーザーのためのモジュールです。
もしかすると誰か動かせた人が要るのかも知れませんし、そうでないかもしれませんが、私が今日Term::ReadKeyを動かそうとしてとんでもない時間を費やしてしまったのは確かです。
それで、終いには絶望のあまり、delimaのためのポータブルソリューションというちょっとした企てをハックしあげたわけです。
Term::Getchをごらんあれ;

これはgetch()という一つだけの関数をエクスポートします。
オプションでエクスポートできるのはascii()で、これは渡されたすべての文字のASCIIキャラクタコードを返します。
（getch()はchr()で与えられたASCIIキャラクタを返します。）

getch()はB<もし>あなたがMSWin32ユーザーであれば、Win32::Consoleがインストールされていることを要求します。
MSWin32ユーザーでなければ、eval()ステートメント内でTerm::ReadKeyを採用しようとします。

getch()はノンブロッキング・リード・コールです。
もし待ち状態の文字がなければ、undefを返します。
そうでなければ、（キーが上げられた時点で）ASCIIキャラクタを返します。

=head2 EXPORT

getch()
ascii()

=head2 NOTE

Note: これは作者のWindows98環境でのみ試験されています。
その他のシステムでもうまく動くか確信はありません。
もしあなたのシステム上ではうまく動作しなくて、あなたがMS Windowsユーザではなければ、Term::ReadKeyをダウンロードしてあなたのシステム上でコンパイルしてみてください。
こちらが期待しているより、うまく動く可能性もあります。
さて、ご静聴、ありがとうございました。
うまくいきます様に！

=head1 AUTHOR

Josiah Bryan F<E<lt>jdb@wcoil.comE<gt>>

Copyright (c) 2000 Josiah Bryan. All rights reserved. This program is free software; 
you can redistribute it and/or modify it under the same terms as Perl itself.

The C<Term::Getch> and related modules are free software. THEY COME WITHOUT WARRANTY OF ANY KIND.

=head1 DOWNLOAD

Term::Getchの最新版は次のURLから取得することができます。
http://www.josiah.countystart.com/modules/get.pl?getch:pod

=head1 SEE ALSO

perl(1), Win32::Console, Term::ReadKey

=head1 DOCUMENT TRANSLATION

Makio Tsukamoto, tsukamoto@gmail.com

=cut