看来,我已经找到了实现与单向内置功能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