ShowItのデバッグ機能をオン/オフに切り替える

Question

ここで定義したMathematicaのデバッグ目的でShowItのバリアントを使用するのはhttps://stackoverflow.com/a/8270643/884752です。私はrcollyerのアイデアをもう一度読んで、メッセージをいくつかの機能で使用して、ここでそれらをオンまたはオフにすることをhttps://stackoverflow.com/a/4211700/884752にしました。私はShowItのために同様のことをすることが可能かどうか尋ねていますが、私はそれを管理しませんでした。誰かが何か考えを持っていますか？私はあなたの意図を理解していれば感謝

Answer 1

は：

debug::ShowIt = "`1`"; 
SetAttributes[System`ShowIt, HoldAll]; 
System`ShowIt[code__] := System`ShowIt[{code}]; 
System`ShowIt[code_] := 
    With[{y = code}, 
    Message[debug::ShowIt, HoldForm[code = y]]; 
    y 
    ]; 

In[5]:= ShowIt[2 + 2] 

During evaluation of In[5]:= debug::ShowIt: 2 + 2 = 4 

Out[5]= 4 

In[6]:= Off[debug::ShowIt] 
     ShowIt[2 + 2] 

Out[7]= 4