请在 2024 Clojure 状态调查! 中分享您的想法。

欢迎!请参阅关于页面,了解更多关于如何使用本页面的信息。

+2
REPL
关闭

io-prepl 使用 valf 序列化 eval 结果,如果序列化的值在打印时抛出异常,则保留异常原样。

重现

# terminal 1
clj -X clojure.core.server/start-server \
  :name '"io-prepl"' \
  :port 7777 \
  :accept clojure.core.server/io-prepl \
  :server-daemon false

# terminal 2
nc localhost 7777
(reify Object (toString [_] (/ 1 0)))
{:tag :ret, :val {:via [{:type java.lang.ArithmeticException, :message "Divide by zero", :at [clojure.lang.Numbers divide "Numbers.java" 188]}], :trace [[clojure.lang.Numbers divide "Numbers.java" 188] [clojure.lang.Numbers divide "Numbers.java" 3901] [user$eval220$reify__221 toString "NO_SOURCE_FILE" 3] [clojure.core$str invokeStatic "core.clj" 555] [clojure.core$print_object invokeStatic "core_print.clj" 117] [clojure.core$fn__7297 invokeStatic "core_print.clj" 120] [clojure.core$fn__7297 invoke "core_print.clj" 120] [clojure.lang.MultiFn invoke "MultiFn.java" 234] [clojure.core$pr_on invokeStatic "core.clj" 3662] [clojure.core$pr invokeStatic "core.clj" 3665] [clojure.core$pr invoke "core.clj" 3665] [clojure.lang.AFn applyToHelper "AFn.java" 154] [clojure.lang.RestFn applyTo "RestFn.java" 132] [clojure.core$apply invokeStatic "core.clj" 667] [clojure.core$pr_str invokeStatic "core.clj" 4724] [clojure.core$pr_str doInvoke "core.clj" 4724] [clojure.lang.RestFn invoke "RestFn.java" 408] [clojure.core.server$io_prepl$fn__8978$fn__8979 invoke "server.clj" 289] [clojure.core.server$io_prepl$fn__8978 invoke "server.clj" 288] [clojure.core.server$prepl$fn__8964 invoke "server.clj" 239] [clojure.core.server$prepl invokeStatic "server.clj" 228] [clojure.core.server$prepl doInvoke "server.clj" 191] [clojure.lang.RestFn invoke "RestFn.java" 425] [clojure.core.server$io_prepl invokeStatic "server.clj" 283] [clojure.core.server$io_prepl doInvoke "server.clj" 272] [clojure.lang.RestFn invoke "RestFn.java" 397] [clojure.lang.AFn applyToHelper "AFn.java" 152] [clojure.lang.RestFn applyTo "RestFn.java" 132] [clojure.lang.Var applyTo "Var.java" 705] [clojure.core$apply invokeStatic "core.clj" 667] [clojure.core.server$accept_connection invokeStatic "server.clj" 73] [clojure.core.server$start_server$fn__8902$fn__8903$fn__8905 invoke "server.clj" 117] [clojure.lang.AFn run "AFn.java" 22] [java.lang.Thread run "Thread.java" 834]], :cause "Divide by zero", :phase :print-eval-result}, :ns "user", :ms 3, :form "(reify Object (toString [_] (/ 1 0)))", :exception true}

这会给连接到 io-prepl 的其他 prepl 带来问题,例如始终使用其 valf 进行反序列化的 remote-prepl

# terminal 3
clj
Clojure 1.10.3
user=> ((requiring-resolve 'clojure.core.server/remote-prepl) "localhost" 7777 *in* prn)
(reify Object (toString [_] (/ 1 0)))
{:tag :ret, :val {:via [{:type java.lang.ClassCastException, :message "class clojure.lang.PersistentArrayMap cannot be cast to class java.lang.String (clojure.lang.PersistentArrayMap is in unnamed module of loader 'app'; java.lang.String is in module java.base of loader 'bootstrap')", :at [clojure.core$read_string invokeStatic "core.clj" 3793]}], :trace [[clojure.core$read_string invokeStatic "core.clj" 3793] [clojure.core$read_string invoke "core.clj" 3793] [clojure.core.server$remote_prepl$fn__8992$fn__8994 invoke "server.clj" 322] [clojure.core.server$remote_prepl$fn__8992 invoke "server.clj" 321] [clojure.lang.AFn run "AFn.java" 22] [java.lang.Thread run "Thread.java" 834]], :cause "class clojure.lang.PersistentArrayMap cannot be cast to class java.lang.String (clojure.lang.PersistentArrayMap is in unnamed module of loader 'app'; java.lang.String is in module java.base of loader 'bootstrap')", :phase :read-eval-result}, :ns "user", :ms 1, :form "(reify Object (toString [_] (/ 1 0)))", :exception true}

在这种情况下,原始异常(打印时的除以零)被另一个异常(尝试读取字符串映射时的类转换异常)所掩盖。

以以下标注关闭: 已发布在 1.11.0-beta1 中

2 个答案

0

我认为您提出,应该在 https://github.com/clojure/clojure/blob/master/src/clj/clojure/core/server.clj#L291 将 valf 应用到 ex→data 的结果上?

(只是在确保我理解您的意思)

我只尝试表述问题,而没有提出考虑欠佳的解决方案:)

我对此进行了一些思考,我认为在打印阶段异常时调用 valf 是合理的。我认为这是 io-prepl 的 valf 正确处理异常的要求。我考虑的另一个替代方案是在 remote-prepl 中吞没读取异常,并返回未读取的值,但这会使 io-prepl 的语义变得模糊和不可靠,并使关于 remote-prepl 的值的推理变得复杂。
io-prepl 产生并远程-prepl 使用 :val 的值。它们都有可以通过 valf 定制该行为的函数,但默认的 valf 是 (pr / read),即字符串化。在 io-prepl 中,valf 被调用在结果值上,但不在异常值上。在远程-prepl 中,总是调用 valf。这造成了一种不对称。

我认为另一个可能的解决方案是让 remote-prepl 在异常 :val 上执行不同的操作(你的建议是一条路径,另一条路径是根据 :exception 主动选择不同的路径),但这似乎阻止了 valf 的原始目标(这允许调用者自定义 val 处理)。

在创建票据之前,我只是在讨论这些。
我在考虑是在 io-prepl (文档字符串似乎非常明确) 中存在问题,还是在 remote-prepl (应定制 :val 的读取以处理 :exception)。
>在 io-prepl 中,valf 只调用在结果值上,而不在异常值上。

我认为这是一个错误,当异常值在执行阶段发生时,会在异常值上调用valf。

    # 终端 1
    clj -X clojure.core.server/start-server \
    :name '"io-prepl"' \
    :port 7777 \
    :accept clojure.core.server/io-prepl \
    :server-daemon false

    # 终端 2
     nc localhost 7777
    (/ 1 0)
    {:tag :ret, :val "{:via [{:type java.lang.ArithmeticException, :message \"Divide by zero\", :at [clojure.lang.Numbers divide \"Numbers.java\" 188]}], :trace [[clojure.lang.Numbers divide \"Numbers.java\" 188] [clojure.lang.Numbers divide \"Numbers.java\" 3901] [user$eval214 invokeStatic \"NO_SOURCE_FILE\" 2] [user$eval214 invoke \"NO_SOURCE_FILE\" 2] [clojure.lang.Compiler eval \"Compiler.java\" 7177] [clojure.lang.Compiler eval \"Compiler.java\" 7132] [clojure.core$eval invokeStatic \"core.clj\" 3214] [clojure.core.server$prepl$fn__8941 invoke \"server.clj\" 232] [clojure.core.server$prepl invokeStatic \"server.clj\" 228] [clojure.core.server$prepl doInvoke \"server.clj\" 191] [clojure.lang.RestFn invoke \"RestFn.java\" 425] [clojure.core.server$io_prepl invokeStatic \"server.clj\" 283] [clojure.core.server$io_prepl doInvoke \"server.clj\" 272] [clojure.lang.RestFn invoke \"RestFn.java\" 397] [clojure.lang.AFn applyToHelper \"AFn.java\" 152] [clojure.lang.RestFn applyTo \"RestFn.java\" 132] [clojure.lang.Var applyTo \"Var.java\" 705] [clojure.core$apply invokeStatic \"core.clj\" 665] [clojure.core.server$accept_connection invokeStatic \"server.clj\" 73] [clojure.core.server$start_server$fn__8879$fn__8880$fn__8882 invoke \"server.clj\" 117] [clojure.lang.AFn run \"AFn.java\" 22] [java.lang.Thread run \"Thread.java\" 832]], :cause \"Divide by zero\", :phase :execution}", :ns "user", :form "(/ 1 0)", :exception true}

鉴于这种情况,我认为这是一个io-prepl的问题,而不是remote-prepl的问题。
by
因此,由于io-prepl包装的prepl会将抛出的异常放在`:val`键上,所以异常会使用valf进行序列化。我建议更改CLJ-2620中的问题说明,因为它表示io-prepl不序列化错误值,但实际上io-prepl并不序列化某些错误值,即序列化过程中抛出的异常。
0
by
...