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
open! Import
open Import_time
module Unix = Core_unix
module Command = Core_kernel.Command
include (Command
: (module type of struct include Command end
with module Shape := Command.Shape
with module Deprecated := Command.Deprecated))
module Path = Private.Path
module For_unix = Private.For_unix (struct
module Signal = Signal
module Sys = Core_sys
module Thread = Core_thread
module Time = Time
module Unix = Unix
end)
let run = For_unix.run
let shape = For_unix.shape
module Deprecated = struct
include Command.Deprecated
let run = For_unix.deprecated_run
end
module Shape = struct
include Command.Shape
let help_text = For_unix.help_for_shape
end