ocaml - js-of-ocaml 中的 pretty-print

Question

我有以下 OCaml 程序 打开Js

let lex s = Compiler.Parse_js.lexer_from_file s
let parse s = lex s |> Compiler.Parse_js.parse

let buffer_pp program = 
  let buf = Buffer.create 10 in
  let pp = Compiler.Pretty_print.to_buffer buf in
  Compiler.Js_output.program pp program;
  Buffer.contents buf |> print_endline

let () = 
  parse "test.js" |> buffer_pp

以及下面的 JavaScript 程序

function person(first, last, age, eyecolor) {
  this.firstName = first;
  this.lastName = last;
  this.age = age;
  this.eyeColor = eyecolor;
}
person.prototype.name = function() {
  return this.firstName + " " + this.lastName;
};

运行编译后的ocaml代码时，会打印出

function person(first,last,age,eyecolor)
 {this.firstName=first;this.lastName=last;this.age=age;this.eyeColor=eyecolor}
person.prototype.name=function(){return this.firstName+" "+this.lastName};

有没有一种方法可以进行 pretty-print ，从而更好地显示格式？

Answer 1

您可以使用

禁用紧凑模式

 Compiler.Pretty_print.set_compact pp false;

但是，据我所知，它默认处于打开状态。

还有很多外部工具可以美化 javascript，如果您对结果仍然不满意，可以使用它们。