看來,我已經找到了實現與單向內置功能Message
我想:
Unprotect[Message];
Message[_, HoldForm[Block[List[$MyMagicalTag$, ___], _]], _] := Null;
Message[args___] /;
Block[{$MyMagicalTag$, Message}, [email protected][inMsg]] :=
Block[{$MyMagicalTag$, inMsg = True, lastargs = HoldComplete[args]},
Message[args]];
Message[args___] /;
Block[{$MyMagicalTag$,
Message}, (inMsg && (HoldComplete[args] =!= lastargs))] := Null;
Protect[Message];
現在事情按預期工作:
In[6]:= On[]
In[7]:= Sin[1,1]//AbsoluteTiming
During evaluation of In[7]:= Message::trace: Message[Sin::argx,Sin,2] --> Block[{$MyMagicalTag$,inMsg=True,lastargs=HoldComplete[Sin::argx,Sin,2]},Message[Sin::argx,Sin,2]]. >>
During evaluation of In[7]:= Sin::argx: Sin called with 2 arguments; 1 argument is expected. >>
During evaluation of In[7]:= AbsoluteTiming::trace: AbsoluteTiming[Sin[1,1]] --> {0.1502160,Sin[1,1]}. >>
Out[7]= {0.1502160,Sin[1,1]}
上述唯一的問題是,CPU負荷仍然很高,你可以從時序參考。
其他測試情況下也正常工作:
In[8]:= 1+1//AbsoluteTiming
During evaluation of In[8]:= Plus::trace: 1+1 --> 2. >>
During evaluation of In[8]:= AbsoluteTiming::trace: AbsoluteTiming[1+1] --> {0.0400576,2}. >>
Out[8]= {0.0400576,2}
感謝Mr.Wizard他help。
我已經調查了這種情況下的一些照顧和結果在我的問題中解釋。所有這些::跟蹤'消息'在評估'Message [Sin :: argx,Sin,2]'時產生。最後有一些對MakeBoxes的調用,但它又是在最後一條消息Message :: trace:Message [Sin :: argx,Sin,2] - > Null之前。 >> '。你的建議是關閉追蹤。我需要關閉「Message」內部的跟蹤和/或理解爲什麼沒有無限循環。 – 2011-04-25 02:46:30
關於這個問題的原因,考慮例如'在[Block]; Sin [1,1]'。如果在一個複雜的程序裏面生成一些'Message',並且我想跟蹤一些Symbol的評估,我可以從Message的評估中得到垃圾信息。我只需要關閉「消息」內部的跟蹤,而不是周圍的代碼。 – 2011-04-25 03:21:13
@Alexey我不認爲你所要求的是可能的,因爲跟蹤不區分內部程序是否使用該符號。我剛剛注意到,在[Block]上運行'Sin [1,1]'這些不需要的消息第二次消失,這可能會有所幫助。 – Sasha 2011-04-25 13:46:14