是否可以暂时重命名和阻止内置函数？

Question

我希望暂时重命名内置符号并使用不同的名称，同时阻止该符号的主名称。例如，我希望以下代码仅打印“2”，而不打印“1”和“3”：

Block[{print = Print, Print}, Print[1]; print[2]; Print[3];]

实际上，上面的代码什么也不打印。

是否可以使 print 在此类代码中工作，同时完全阻止符号 Print ？

像这样的解决方案

With[{Print = f, print = Print}, Print[1]; print[2]; Print[3];] 

并不合适，因为 Print 并未真正被阻止在此类代码中。

当思考禁用消息跟踪的方法时，出现了这个问题内部结构。

Answer 1

这不是很干净，但我相信它是有用的。

Internal`InheritedBlock[{Print},
  Unprotect[Print];
  Print[x__] := Null /; ! TrueQ[$prn];
  print[x__] := Block[{$prn = True}, Print[x]];
  Print[1]; print[2]; Print[3];
]

---

如果不能接受在返回值中用 Null 替换该函数，则可能需要使用类似以下内容的内容：

func[x__] := Hold[func[x]] /; ! TrueQ[$prn];

在 Block 后跟随一个 ReleaseHold。

或者：

func[x__] := zz[x] /; ! TrueQ[$prn];

然后在块后面加上：/。 zz->函数