組み込みTclランタイムによって実行されるハンドル終了コマンド

Question

私は、Tclを組み込んだ小さなシェルアプリケーションを用意して、Tclコードの一部を実行しています。 Tclインタプリタは、Tcl_CreateInterpを使用して初期化されます。すべてが非常に簡単です：

1. ユーザーがTclコマンドコマンドは、評価のためTcl_Evalに渡される
3. 繰り返し

しかし有効なTclのあるユーザーが「終了」、もしTclインタプリタとシェルアプリケーションはすべて自動的に終了します。

Q：Tclインタープリタからのこの出口信号を捕まえることができる方法はありますか？私は本当にすべてのユーザーコマンドをチェックしたくないです。私はTcl_CreateExitHandlerを試しましたが、動作しませんでした。

ありがとうございます。

Answer 1

Tcl_CreateExitHandlerを使用すると問題なく動作します。問題は、ハンドラの実装にprintfを追加し、出力が端末に表示されなかったことです。だから私はそれが呼ばれていないと思った。ただし、このハンドラが実行されるまでには、stdoutは存在しません。アプリケーション上でstraceを実行すると、ハンドラが正常に実行されていることが示されます。

この問題のもう1つの解決策は、atexitを使用してそこで終了イベントを処理することです。

Answer 2

コマンドを取り除く

rename exit "" 

またはユーザーをできるように、それを再定義し、それが無効であることを知っている：また

proc exit {args} { error "The exit command is not available in this context" } 

検討する価値はsafe interpではなく、メインにユーザーのコードが実行されていますシェル。そうすることで、ユーザーがアクセスできるものを正確に制御することができます。

また、interp（非安全）の子を作成し、そのinterpのexitコマンドを無効にすることもできます。あなただけ誤ってそれを入力してユーザーを避けるためにしようとしている場合

最後に、あなただけの、何か他のものへの出口の名前を変更できます。

rename exit __exit 

proc exit {args} { 
    puts -nonewline "Do you really want to exit? (y/n) " 
    flush stdout 
    gets stdin answer 
    if {$answer == "y"} { 
     __exit [lindex $args 0] 
    } 
} 

この方法：

namespace eval ::hidden {} 
rename exit ::hidden::exit 

Answer 3

はexitコマンドの名前を変更しますユーザータイプがexitの場合は、カスタムexitコマンドを実行して、好きなことをすることができます。