#include <cerrno></cerrno>

#include <cstring>			/* memset */</cstring>

#include <vector></vector>

#include <stdexcept> // std::domain_error(-)</stdexcept>

#include <locale></locale>

#include <iconv.h></iconv.h>

#include "igs_resource_msg_from_err.h"

/*------ localeを日本に設定し日本語を扱うことを指示(必須)

使う文字コードは"locale -a"で調べる */

void igs::resource::locale_to_jp(void)

{

	setlocale(LC_CTYPE, "ja_JP.utf8");

}

#if 0 //------

/*

	リサーチ中

	日本語環境を環境変数から取ってくる場合のルーチン

	deamonの場合これでいいのか???

	さらに調査が必要

	2013-02-18

 */

#include <x11 xlib.h=""></x11>

#include <x11 xlocale.h=""></x11>

void igs::resource::locale_to_jp(void) {

	/*

		Software Design 1993年3月号

		"SPECIAL ISSUE  どうする?UNIXの日本語環境"

		稚内北星短期大学  丸山 不二夫

		Page14  リスト4  より

		X11R5での日本語処理 - ロケールの設定

		標準的な処理手順

		全てのX(lib)プログラムの先頭で行う

	*/

	/* 次の場合、環境変数 LANG から、地域名を得ます

		引数locale が "" の場合、

		ロケールの各部分の設定には環境変数が参照される。

		その詳細は実装依存である。

		Linux Programmer’s Manual  July 4, 1999より

	*/

	if ( ::setlocale( LC_ALL ,"" ) == NULL ) {

		throw std::domain_error( "Can not set locale." );

	}

	/* Xlibが、現在の地域をサポートしているかチェックします */

	if ( !::XSupportsLocale() ) {

		std::string msg("X is not support locale ");

		msg += setlocale( LC_ALL ,NULL );

		msg += ".\n";

		throw std::domain_error( msg.c_str() );

	}

	/* 次の場合、環境変数 XMODIFIERS から修飾子が得られます

	この修飾子は。入力メソッド (IM) の指定に使われます */

	if ( ::XSetLocaleModifiers("") == NULL ) {

		throw std::domain_error( "Can not set locale modifiers." );

	}

}

/*

#g++ -L/usr/X11R6/lib/ -lXmu -lXext -lX11 -lgthread -lglib -lm tes82.cxx

g++ tes82.cxx -L/usr/X11R6/lib/ -lX11

*/

#endif //------

/*------ マルチバイト文字列 --> ワイド文字文字列 ------*/

void igs::resource::mbs_to_wcs(

	const std::string &mbs, std::wstring &wcs)

{

	size_t length = 0;

	{

		const char *src_ptr = mbs.c_str();

		mbstate_t ss;

		::memset(&ss, 0, sizeof(ss));

		length = ::mbsrtowcs(NULL, &src_ptr, 0, &ss);

		if (length == (size_t)(-1)) { /* 不正なマルチバイト列に遭遇した */

			throw std::domain_error(

				"mbstowcs(-) got bad multi byte character,when size");

		}

		if (length <= 0) {

			return;

		} /* 文字がないなら何もしない */

		++length;

	}

	//std::vector<wchar_t> dst(length);</wchar_t>

	wcs.resize(length);

	{

		const char *src_ptr = mbs.c_str();

		mbstate_t ss;

		::memset(&ss, 0, sizeof(ss));

		//length = ::mbsrtowcs(&dst.at(0) ,&src_ptr ,length ,&ss);

		length = ::mbsrtowcs(

			const_cast<wchar_t *="">(wcs.c_str()), &src_ptr, length, &ss);</wchar_t>

		if (length == (size_t)(-1)) { /* 不正なマルチバイト列に遭遇した */

			throw std::domain_error(

				"mbstowcs(-) got bad multi byte character,when conv");

		}

		if (length <= 0) {

			throw std::domain_error(

				"mbstowcs(-) got zero or under equal -2 ");

		}

	}

	//wcs = std::wstring(dst.begin() ,dst.end()-1);/* 終端以外を */

	wcs.erase(wcs.end() - 1); /* 終端文字を消す */

}

/*------ ワイド文字文字列 --> マルチバイト文字列 ------*/

void igs::resource::wcs_to_mbs(

	const std::wstring &wcs, std::string &mbs)

{

	size_t length = 0;

	{

		const wchar_t *src_ptr = wcs.c_str();

		mbstate_t ss;

		::memset(&ss, 0, sizeof(ss));

		length = ::wcsrtombs(NULL, &src_ptr, 0, &ss);

		if (length <= 0) {

			return;

		} /* 文字がないなら何もしない */

		++length;

	}

	//std::vector<char> dst(length);</char>

	mbs.resize(length);

	{

		const wchar_t *src_ptr = wcs.c_str();

		mbstate_t ss;

		::memset(&ss, 0, sizeof(ss));

		//length = ::wcsrtombs(&dst.at(0) ,&src_ptr ,length ,&ss);

		length = ::wcsrtombs(

			const_cast<char *="">(mbs.c_str()), &src_ptr, length, &ss);</char>

		if (length <= 0) {

			throw std::domain_error(

				"wcstombs(-) got bad wide character");

		}

	}

	//mbs = std::string(dst.begin() ,dst.end()-1);/* 終端以外を */

	mbs.erase(mbs.end() - 1); /* 終端文字を消す */

}

/*------ UNICODE宣言ならマルチバイト文字列をワイド文字文字列に変換 ------*/

const std::basic_string<tchar> igs::resource::ts_from_mbs(</tchar>

	const std::string &mbs)

{

#if defined UNICODE

	std::wstring wcs;

	igs::resource::mbs_to_wcs(mbs, wcs);

	return wcs;

#else

	/* MBCSの場合のsize()は文字数ではなくchar(byte)数,2bytes文字は2 */

	return mbs;

#endif

}

/*------ UNICODE宣言ならワイド文字文字列をマルチバイト文字列に変換 ------*/

const std::string igs::resource::mbs_from_ts(

	const std::basic_string<tchar> &ts)</tchar>

{

#if defined UNICODE

	std::string mbs;

	igs::resource::wcs_to_mbs(ts, mbs);

	return mbs;

#else

	/* MBCSの場合のsize()は文字数ではなくchar(byte)数,2bytes文字は2 */

	return ts;

#endif

}

/*------ cp932を含む文字列をutf-8に変換(マルチバイト文字列) ------*/

namespace

{

const std::string iconv_to_from_(

	const std::string &text, const char *tocode, const char *fromcode)

{

	iconv_t icd = ::iconv_open(tocode, fromcode); // "iconv --list"

	if (reinterpret_cast<iconv_t>(-1) == icd) {</iconv_t>

		throw std::domain_error(

			igs_resource_msg_from_err(TEXT("iconv_open(-)"), errno));

	}

	std::vector<char> dst(text.size() * 4);</char>

	char *inbuf = const_cast<char *="">(text.c_str());</char>

	char *outbuf = &dst.at(0);

	size_t inbytesleft = text.size();

	size_t outbytesleft = dst.size();

	size_t ret = ::iconv(

		icd, &inbuf, &inbytesleft, &outbuf, &outbytesleft);

	*outbuf = '\0';

	/*

	retに処理した数が入るはずだが、rhel5ではゼロが帰るので、

	処理数を別途計算する

	*/

	ret = dst.size() - outbytesleft;

	if (ret <= 0) {

		//if (static_cast<size_t>(-1) == ret) {</size_t>

		::iconv_close(icd);

		throw std::domain_error(

			igs_resource_msg_from_err(TEXT("iconv(-)"), errno));

	}

	if (-1 == ::iconv_close(icd)) {

		throw std::domain_error(

			igs_resource_msg_from_err(TEXT("iconv_close(-)"), errno));

	}

	std::string mbs(std::string(dst.begin(), dst.begin() + ret));

	return mbs;

}

}

const std::string igs::resource::utf8_from_cp932_mb(const std::string &text)

{

	return iconv_to_from_(text, "UTF-8", "CP932"); // "iconv --list"

}

const std::string igs::resource::cp932_from_utf8_mb(const std::string &text)

{

	return iconv_to_from_(text, "CP932", "UTF-8"); // "iconv --list"

}

/*------ エラーメッセージ表示の元関数、直接呼び出すことはしない ------*/

#include <cerrno>  // errno</cerrno>

#include <cstring> // strerror_r()</cstring>

#include <sstream> // std::istringstream</sstream>

#include "igs_resource_msg_from_err.h"

const std::string igs::resource::msg_from_err_(

	const std::basic_string<tchar> &tit, const int erno, const std::string &file, const std::string &line, const std::string &pretty_function, const std::string &comp_type, const std::string &gnuc, const std::string &gnuc_minor, const std::string &gnuc_patchlevel, const std::string &gnuc_rh_release, const std::string &date, const std::string &time)</tchar>

{

	std::string errmsg;

	errmsg += '\"';

	/* フルパスで入ってきた場合ファイル名だけにする */

	std::string::size_type index = file.find_last_of("/\\");

	if (std::basic_string<tchar>::npos != index) {</tchar>

		errmsg += file.substr(index + 1);

	} else {

		errmsg += file;

	}

	errmsg += ':';

	errmsg += line;

	errmsg += ':';

	errmsg += comp_type;

	errmsg += ':';

	errmsg += gnuc;

	errmsg += '.';

	errmsg += gnuc_minor;

	errmsg += '.';

	errmsg += gnuc_patchlevel;

	errmsg += '-';

	errmsg += gnuc_rh_release;

	{

		std::istringstream ist(date);

		std::string month, day, year;

		ist >> month;

		ist >> day;

		ist >> year;

		errmsg += ':';

		errmsg += year;

		errmsg += ':';

		errmsg += month;

		errmsg += ':';

		errmsg += day;

	}

	errmsg += ':';

	errmsg += time;

	errmsg += '\"';

	errmsg += ' ';

	errmsg += '\"';

	errmsg += pretty_function;

	errmsg += '\"';

	errmsg += ' ';

	errmsg += '\"';

	if (0 < tit.size()) {

		errmsg += igs::resource::mbs_from_ts(tit);

	}

	if (0 != erno) {

		errmsg += ':';

#if defined __HP_aCC

		/* 

	HP-UX(v11.23)では、strerror_r()をサポートしない。

	注意::strerror()はThread SafeではなくMulti Threadでは正常動作しない

	*/

		errmsg += ::strerror(erno);

#elif((_POSIX_C_SOURCE >= 200112L || _XOPEN_SOURCE >= 600) && !_GNU_SOURCE)

		/*

	http://japanese-linux-man-pages.coding-school.com/man/X_strerror_r-3

	より、POSIX.1.2002で規定されたXSI準拠のバージョンのstrerror_r()

	*/

		char buff[4096];

		const int ret = ::strerror_r(erno, buff, sizeof(buff));

		if (0 == ret) {

			errmsg += buff;

		} else if (-1 == ret) {

			swtich(errno)

			{

			case EINVAL:

				errmsg +=

					"strerror_r() gets Error : The value of errnum is not a "

					"valid error number.";

				/* errnum の値が有効なエラー番号ではない */

				break;

			case ERANGE:

				errmsg +=

					"strerror_r() gets Error : Insufficient storage was "

					"supplied via strerrbuf and buflen  to contain the "

					"generated message string.";

				/* エラーコードを説明する文字列のために、

			充分な領域が確保できな かった */

				break;

			deatult:

				errmsg +=

					"strerror_r() gets Error and Returns bad errno";

				break;

			}

		} else {

			errmsg +=

				"strerror_r() returns bad value";

		}

#elif defined(__APPLE__)

		char buff[4096];

		int ret = ::strerror_r(erno, buff, sizeof(buff));

		if (!ret) {

			errmsg += buff;

		}

#else

		/* linuxはここに来る?

	http://japanese-linux-man-pages.coding-school.com/man/X_strerror_r-3

	より、GNU仕様のバージョンのstrerror_r()。非標準の拡張

	これはThread Safeか??????

	*/

		char buff[4096];

		const char *ret = ::strerror_r(erno, buff, sizeof(buff));

		errmsg += ret;

#endif

	}

	errmsg += '\"';

	return errmsg;

}