Tcl_WriteCharsでUnicodeをサポートするには？

Question

Tcl_WriteCharsの出力UTF-8文字を正しく設定するための初期設定はありますか？例えば

#include <tcl.h> 

int main() 
{ 
     Tcl_Interp *tcl = Tcl_CreateInterp(); 

     Tcl_Channel channel = Tcl_GetStdChannel(TCL_STDOUT); 

     Tcl_WriteChars(channel, "hello\n", -1); 
     Tcl_WriteChars(channel, "你好\n", -1); 
     Tcl_WriteRaw(channel, "你好\n", -1); 

     Tcl_Close(tcl, channel); 

     Tcl_DeleteInterp(tcl); 

     return 0; 
} 

ソースコードはUTF-8エンコーディングで保存され、次の出力は、UTF-8ロケールのLinuxからです：

hello 
?? 
你好 

Answer 1

あなたはUTF-8（およびホストするエンコーディングを設定する必要がありますあなたが実行しているのは、デフォルトのために他のものを使用しているようです）。チャンネルに書き込む前にこれを行います。

Tcl_SetChannelOption(interp, channel, "-encoding", "utf-8"); 

適切に、あなたはそのリターンコードをチェックする必要があります（以下のような）が、すべてのチャネルは、そのオプションとutf-8エンコードのTclに直接焼成する必要があり、それは失敗しません。

if (Tcl_SetChannelOption(interp, channel, "-encoding", "utf-8") != TCL_OK) { 
    return TCL_ERROR; 
} 

---

[EDIT]：持つもう少し慎重にコードを再読み込み（およびシステムのデフォルトエンコーディングが最初の場所で実際にUTF-8であることが判明）、実際問題がありますあなたはTcl_FindExecutable()と呼んでいないそのルーチンは、実際に何をするか（スクリプト内でinfo nameofexecutableの作業をする以外は）Tclが内部ライブラリを初期化できるように、誤って名前が付けられています。具体的には、エンコーディング管理サブシステムを初期化します。それは、システムエンコーディングが本当に何であるかを明らかにするポイントです（そうでなければ、最も問題の少ない通常のエンコーディングであるiso8859-1に戻ります）。

あなたのコードは次のようになります。

#include <tcl.h> 

int main(int argc, char *argv[]) /// <<<< CHANGED HERE 
{ 
    Tcl_FindExecutable(argv[0]); /// <<<< CHANGED HERE 

    Tcl_Interp *tcl = Tcl_CreateInterp(); 

    Tcl_Channel channel = Tcl_GetStdChannel(TCL_STDOUT); 

    Tcl_WriteChars(channel, "hello\n", -1); 
    Tcl_WriteChars(channel, "你好\n", -1); 
    Tcl_WriteRaw(channel, "你好\n", -1); 

    Tcl_Close(tcl, channel); 

    Tcl_DeleteInterp(tcl); 

    return 0; 
} 

私はあなたが文の後に宣言を置くことに満足しているコンパイラを使用していると仮定しています。これは広く実装されているC99の機能です（そしてC++にもあります）。