如何解决用于OCaml的Sublime Text 3构建系统不应用引号

我想在Sublime Test 3中为OCaml创建一个构建系统。我不太清楚自己在做什么，到目前为止，我已经知道了：

{
    "shell_cmd": "printf \"#use \\\"${file}\\\";;\\\n\" | ocaml","file_regex": "^(..[^:]*):([0-9]+):?([0-9]+)?:? (.*)$","working_dir": "${file_path}","selector": "source.ml,source.in,source.txt","variants":
    [
        {
            "name": "Run in Terminal","linux": 
            {
                "shell_cmd": "gnome-terminal -e 'bash -c \"(printf \\\"#use \\\"${file}\\\";;\\n\\\" && cat) | ocaml\"'",},}
    ]
}

除了一行是正确的，我非常有信心。（请不要担心第一行，它会起作用，我正在尝试使“在终端中运行”现在起作用。）

我从Internet上大多数代码都用于C ++构建，但是我可以将其用于OCaml，我只是想将其优化为更干净的版本。我的目标是能够在Sublime控制台中运行代码（完美运行，尽管根据我在n之前添加了多少个反斜线而有很小的差异，但是我无法完全弄清它的来源），但是我一生都无法使用“在终端上运行”选项。

我需要它在新的终端窗口中执行代码，最好使用#use指令，因为我已经通过文件重定向实现了这一点，但是它看起来很奇怪且不平衡。但是，我还需要OCaml解释器来继续读取用户的输入。（从文件读取时，我也设法实现了这一点。）

那么当我试用此构建系统时会发生什么？

        OCaml version 4.08.1

Findlib has been successfully loaded. Additional directives:
  #require "package";;      to load a package
  #list;;                   to list the available packages
  #camlp4o;;                to load camlp4 (standard Syntax)
  #camlp4r;;                to load camlp4 (revised Syntax)
  #predicates "p,q,...";;   to set these predicates
  Topfind.reset();;         to force that packages will be reloaded
  #thread;;                 to enable threads
  # #use /home/maurycyt/Desktop/test.ml;;
Error: Syntax error
#

似乎我缺少引号。

我尝试添加更多的反斜杠，因为可能我的转义不够。不幸的是，这行不通。

"shell_cmd": "gnome-terminal -e 'bash -c \"(printf \\\"#use \\\\\"${file}\\\\\";;\\n\\\" && cat) | ocaml\"'",

产生与上述相同的输出，而

"shell_cmd": "gnome-terminal -e 'bash -c \"(printf \\\"#use \\\\\\\"${file}\\\\\\\";;\\n\\\" && cat) | ocaml\"'",

产生以下差异：

# #use \/home/maurycyt/Desktop/test.ml\;;
Error: Illegal character (\\)

当我需要转义引号时，看起来好像我要添加转义的反斜杠！发生了什么事？

FIX：

我添加了更多的反斜杠，但认为它不会起作用。现在，该行如下所示：

"shell_cmd": "gnome-terminal -e 'bash -c \"(printf \\\"#use \\\\\\\\\\\"${file}\\\\\\\\\\\";;\\n\\\" && cat) | ocaml\"'",

我不知道它为什么起作用，因为我觉得反斜杠太多了。

我还想知道我应该怎么做，以便解释器很好地输出其输出，就像对Sublime控制台进行的构建一样：

# 
val a : int = 4
val fib : int -> int = <fun>
- : int = 55

而不是如何处理终端：

# val a : int = 4
val fib : int -> int = <fun>
- : int = 55
#

P.S。编辑此问题的人：谢谢，不要删除其中的很大一部分。