Source file `swagger.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
open Printf

let codegen ~path_base
            ~definition_base
            ~reference_base
            ~reference_root
            ?(output = stdout)
            ~input =
  let ic = open_in input in
  let s = really_input_string ic (in_channel_length ic) in
  let swagger = Swagger_j.swagger_of_string s in
  Gen.of_swagger
    ~path_base
    ~definition_base
    ~reference_base
    ~reference_root
    swagger
  |> Gen.to_string
  |> fprintf output "%s\n%!"