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};

有没有办法进行漂亮的打印，哪种格式更好？

Answer 1

您可以使用

禁用紧凑模式

 Compiler.Pretty_print.set_compact pp false;

但是，AFAIK，它默认开启。

如果您对结果仍然不满意，那么还有很多可以使用javascript的外部工具。

js-of-ocaml中的漂亮印花

1 个答案: