需要什么静态类型来修复这个“非法反射访问”？

Question

尝试获取 Unicode 字符串的长度，我在 RosettaCode [1] 上找到了这个名为 grapheme-length 的代码。

(def grapheme-length
  #(->> (doto (BreakIterator/getCharacterInstance)
          (.setText %))
        (partial (memfn next))
        repeatedly
        (take-while (partial not= BreakIterator/DONE))
        count))

我像这样从 REPL 中调用它来测试：

(star-traders.util/grapheme-length "\uD83D\uDE04⌘\uD83D\uDE00") ; Expecting 3

虽然它返回了预期的值，但我还得到了一个意想不到的红色警告，要求我“考虑将此报告给 clojure.lang.InjectedInvoker 的维护者”...

WARNING: An illegal reflective access operation has occurred
WARNING: Illegal reflective access by clojure.lang.InjectedInvoker/0x0000000800cc8440 (file:/Users/myusername/.m2/repository/org/clojure/clojure/1.10.1/clojure-1.10.1.jar) to method sun.text.RuleBasedBreakIterator.setText(java.text.CharacterIterator)
WARNING: Please consider reporting this to the maintainers of clojure.lang.InjectedInvoker/0x0000000800cc8440
WARNING: Use --illegal-access=warn to enable warnings of further illegal reflective access operations
WARNING: All illegal access operations will be denied in a future release

显然，这是由 JVM 由于 Java 9 模块系统的添加而产生的已知问题，并在 Clojure FAQ 中被提及。 [2]

虽然问题在添加了 --illegal-access=deny 到 JVM Args 后消失了，但建议的解决方案是使用类型提示修复代码。

我已经尝试使用 --illegal-access=warn 来定位并修复它，如下所示：

          (.setText ^java.text.BreakIterator %)) ; Problem happens here (I think)

然而，问题仍然存在，这让我好奇我应该使用正确的类型。

我该如何修改代码以消除编译器警告，而不是压制警告？

[1] https://rosettacode.org/wiki/String_length#Grapheme_Length_2
[2] https://clojure.org/guides/faq#illegal_access

Answer 1

实际上，反射警告来源于这个的几行代码：setText 调用以及 next 调用。我相信你需要以下代码来解决这个问题

user=> (def grapheme-length
  #(->> (doto (BreakIterator/getCharacterInstance)
          (.setText ^String %)) ; hint the argument here
        (partial (fn [^BreakIterator o] (.next o))) ; hint the object here
        repeatedly
        (take-while (partial not= BreakIterator/DONE))
        count))
#'user/grapheme-length
user=> (grapheme-length "\uD83D\uDE04⌘\uD83D\uDE00")
3
user=> 

Comments

总的来说，因为其实现特性，memfn 总是会引入反射

---

Sean，这招真管用。谢谢。我很 curious你怎么想到这个思路的，但这可以另当别论。我觉得我没有理解错误信息。谢谢 Alex -- 这是我第一次遇到 memfn。（这也值得一谈。）

---

我把我的 REPL 会话复制到了 Gist 并注解了：https://gist.github.com/seancorfield/01e42dbf3de68bab6ef3d7d6245af192