Início / coding / Perguntas / 77044982
Accepted
OrderAndChaos
Asked: 2023-09-05 21:33:59 +0800 CST

A string multilinha OCaml com ocamlformat produz resultados feios

  • 772

Eu tenho essa consulta sql para construir uma tabela no Sqlite3, estou usando uma string multilinha que funciona bem.

let create_blog_table db =
  let sql =
    "
        CREATE TABLE IF NOT EXISTS blog(
        id INTEGER PRIMARY KEY AUTOINCREMENT,
        author TEXT NOT NULL,
        content TEXT NOT NULL);
    "
  in
  match exec db sql with Rc.OK -> () | _ -> failwith "Error creating table"

Mas quando executo dune fmt(com o ocamlformat instalado) resulta no seguinte:

let create_blog_table db =
  let sql =
    "\n\
    \        CREATE TABLE IF NOT EXISTS blog(\n\
    \        id INTEGER PRIMARY KEY AUTOINCREMENT,\n\
    \        author TEXT NOT NULL,\n\
    \        content TEXT NOT NULL);\n\
    \    "
  in
  match exec db sql with Rc.OK -> () | _ -> failwith "Error creating table"

Essa formatação é necessária ou desejável por algum motivo?

Se não, posso dizer para não fazer isso?

Encontrei a regra, break-string-literalsmas ela só permite autoounever

.ocamlformato

profile = default 
version = 0.26.0

break-string-literals=auto
ocaml

2 respostas

  1. Best Answer

    Exatamente para esse propósito, OCaml oferece uma string literal entre aspas que é delimitada por {|e |}, por exemplo,

      let sql =
    {|
        CREATE TABLE IF NOT EXISTS blog(
        id INTEGER PRIMARY KEY AUTOINCREMENT,
        author TEXT NOT NULL,
        content TEXT NOT NULL);
    |}
  in

    E ocamlformat não tocará em nada dentro da string literal citada, permitindo que você o formate da maneira que desejar.

    Também é importante notar que construir instruções SQL é muito mais fácil com a extrapolação de strings oferecida por ppx_string . Por exemplo, suponha que você não queira codificar os nomes das tabelas e colunas em cada instrução e vinculá-las a variáveis,

    let table_name = "blog"
let id = "id"
let author = "author"
let content = "content"

let sql =
  [%string
    {|
        CREATE TABLE IF NOT EXISTS %{table_name} (
          %{id} INTEGER PRIMARY KEY AUTOINCREMENT,
          %{author} TEXT NOT NULL,
          %{content} TEXT NOT NULL
        );
    |}]
    • 2

  2. A configuração neverpara --break-string-literalsmantém sua formatação.

    $ cat > test.ml
let x = "
  hello
  world
"

let () = print_endline x
$ ocamlformat --enable-outside-detected-project test.ml
let x = "\n  hello\n  world\n"
let () = print_endline x
$ cat > test.ml
let x = "
  hello
  world
"

let () = print_endline x
$ ocamlformat --enable-outside-detected-project --break-string-literals=never test.ml
let x = "
  hello
  world
"

let () = print_endline x
$

    No que diz respeito ao seu exemplo, com --break-string-literalsdefinido como auto, o recuo pode ser mantido. Parece desnecessário apenas porque seu código começou bem recuado. Ajuda que a formatação exata da sua string não seja crucial neste caso.

    • 0

relate perguntas