#!/usr/bin/perl
#********************************* DISCLAIMER *********************************
# Copyright (c) 2003 IIJIMA Hiromitsu aka Delmonta, the Chairman of DENNOU
#	GEDOU GAKKAI, N. D. D. <http://www.dennougedougakkai-ndd.org>
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted under the BSD License modified in 22 July 1999,
# found at <http://www.opensource.org/licenses/bsd-license.php>.
#******************************************************************************

#******************************* WHAT IS THIS? ********************************
# ターミナルにバイナリを吐いてしまったときに、ASCII に戻すスクリプトです。
#******************************************************************************

#***************************** SYSTEM REQUIREMENTS ****************************
# Perl 4.036 以降。
#******************************************************************************

# SI/SO による半角カタカナを抜ける
print "\cO";


# ESC $ B による全角モードを抜ける
print "\e(B";


# EUC-JP なら G1（全角文字）、G2（半角カナ）、G3（補助漢字）も元に戻す
if ($ENV{LANG} =~ /^ja(_jp)?(\.euc.*|.\ujis)?$/i)
	{print "\e)\$B\e*I\e+\$D";}


# 文字の色をデフォルトに戻す
print "\e[0m";