Source file spin_template.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
module type Template = sig
  val name : string

  val file_list : string list

  val read : string -> string option
end

module Cli : Template = struct
  include Cli

  let name = "cli"
end

module Lib : Template = struct
  include Lib

  let name = "lib"
end

module Bin : Template = struct
  include Bin

  let name = "bin"
end

module Ppx : Template = struct
  include Ppx

  let name = "ppx"
end

module C_bindings : Template = struct
  include C_bindings

  let name = "c-bindings"
end

module Js : Template = struct
  include Js

  let name = "js"
end

module Hello : Template = struct
  include Hello

  let name = "hello"
end

let hello : (module Template) = (module Hello)

let all : (module Template) list =
  [ (module Cli)
  ; (module Lib)
  ; (module Bin)
  ; (module Ppx)
  ; (module C_bindings)
  ; (module Js)
  ]