Source file `ortac_qcheck_stm.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
module Config = Config
module Ir = Ir
module Ir_of_gospel = Ir_of_gospel
module Reserr = Reserr
module Stm_of_ir = Stm_of_ir

let main path config output module_prefix submodule quiet () =
  let open Reserr in
  let fmt = Registration.get_out_formatter output in
  let pp = pp quiet Ppxlib_ast.Pprintast.structure fmt in
  pp
    (let* sigs, config = Config.init path config module_prefix submodule in
     let* ir = Ir_of_gospel.run sigs config in
     Stm_of_ir.stm config ir)

open Cmdliner

module Plugin : sig
  val cmd : unit Cmd.t
end = struct
  let info =
    Cmd.info "qcheck-stm"
      ~doc:"Generate QCheck-stm test file according to Gospel specifications."

  let module_prefix =
    let parse s = Ok (Some s) and docv = "MODULE_PREFIX" in
    Arg.(
      value
      & opt (conv ~docv (parse, Fmt.(option string))) None
      & info [ "m"; "module-prefix" ] ~absent:"" ~docv
          ~doc:
            "Prefix for opening the module corresponding to FILE when it is \
             part of a library that has MODULE_PREFIX as name.")

  let submodule =
    let parse s = Ok (Some s) and docv = "SUBMODULE" in
    Arg.(
      value
      & opt (conv ~docv (parse, Fmt.(option string))) None
      & info [ "s"; "submodule" ] ~absent:"" ~docv
          ~doc:"Build the qcheck-stm tests for SUBMODULE inside FILE")

  let config =
    Arg.(
      required
      & pos 1 (some string) None
      & info []
          ~doc:
            "Build the qcheck-stm tests using CONFIG module as configuration \
             file."
          ~docv:"CONFIG")

  let term =
    let open Registration in
    Term.(
      const main
      $ ocaml_file
      $ config
      $ output_file
      $ module_prefix
      $ submodule
      $ quiet
      $ setup_log)

  let cmd = Cmd.v info term
end

let () = Registration.register Plugin.cmd