sig
  module File_descr = Core.Core_unix.File_descr
  type error =
    Unix.error =
      E2BIG
    | EACCES
    | EAGAIN
    | EBADF
    | EBUSY
    | ECHILD
    | EDEADLK
    | EDOM
    | EEXIST
    | EFAULT
    | EFBIG
    | EINTR
    | EINVAL
    | EIO
    | EISDIR
    | EMFILE
    | EMLINK
    | ENAMETOOLONG
    | ENFILE
    | ENODEV
    | ENOENT
    | ENOEXEC
    | ENOLCK
    | ENOMEM
    | ENOSPC
    | ENOSYS
    | ENOTDIR
    | ENOTEMPTY
    | ENOTTY
    | ENXIO
    | EPERM
    | EPIPE
    | ERANGE
    | EROFS
    | ESPIPE
    | ESRCH
    | EXDEV
    | EWOULDBLOCK
    | EINPROGRESS
    | EALREADY
    | ENOTSOCK
    | EDESTADDRREQ
    | EMSGSIZE
    | EPROTOTYPE
    | ENOPROTOOPT
    | EPROTONOSUPPORT
    | ESOCKTNOSUPPORT
    | EOPNOTSUPP
    | EPFNOSUPPORT
    | EAFNOSUPPORT
    | EADDRINUSE
    | EADDRNOTAVAIL
    | ENETDOWN
    | ENETUNREACH
    | ENETRESET
    | ECONNABORTED
    | ECONNRESET
    | ENOBUFS
    | EISCONN
    | ENOTCONN
    | ESHUTDOWN
    | ETOOMANYREFS
    | ETIMEDOUT
    | ECONNREFUSED
    | EHOSTDOWN
    | EHOSTUNREACH
    | ELOOP
    | EOVERFLOW
    | EUNKNOWNERR of int
  module Error = Core.Core_unix.Error
  exception Unix_error of Error.t * string * string
  module Syscall_result = Core.Core_unix.Syscall_result
  external unix_error : int -> string -> string -> 'a = "unix_error_stub"
  val error_message : error -> string
  val handle_unix_error : (unit -> 'a) -> 'a
  val retry_until_no_eintr : (unit -> 'a) -> 'a
  val environment : unit -> string array
  val putenv : key:string -> data:string -> unit
  val unsetenv : string -> unit
  module Exit = Core.Core_unix.Exit
  module Exit_or_signal = Core.Core_unix.Exit_or_signal
  module Exit_or_signal_or_stop = Core.Core_unix.Exit_or_signal_or_stop
  type env =
      [ `Extend of (string * string) list
      | `Replace of (string * string) list
      | `Replace_raw of string list ]
  val exec :
    prog:string ->
    args:string list ->
    ?use_path:bool -> ?env:env -> unit -> Core_kernel.Std.never_returns
  val fork :
    unit -> [ `In_the_child | `In_the_parent of Core_kernel.Std.Pid.t ]
  type wait_on =
      [ `Any
      | `Group of Core_kernel.Std.Pid.t
      | `My_group
      | `Pid of Core_kernel.Std.Pid.t ]
  val wait :
    ?restart:bool -> wait_on -> Core_kernel.Std.Pid.t * Exit_or_signal.t
  val wait_nohang :
    wait_on -> (Core_kernel.Std.Pid.t * Exit_or_signal.t) option
  val wait_untraced :
    ?restart:bool ->
    wait_on -> Core_kernel.Std.Pid.t * Exit_or_signal_or_stop.t
  val wait_nohang_untraced :
    wait_on -> (Core_kernel.Std.Pid.t * Exit_or_signal_or_stop.t) option
  val waitpid : Core_kernel.Std.Pid.t -> Exit_or_signal.t
  val waitpid_exn : Core_kernel.Std.Pid.t -> unit
  val system : string -> Exit_or_signal.t
  val getpid : unit -> Core_kernel.Std.Pid.t
  val getppid : unit -> Core_kernel.Std.Pid.t option
  val getppid_exn : unit -> Core_kernel.Std.Pid.t
  module Thread_id = Core.Core_unix.Thread_id
  val gettid : (unit -> Thread_id.t) Core_kernel.Std.Or_error.t
  val nice : int -> int
  val stdin : File_descr.t
  val stdout : File_descr.t
  val stderr : File_descr.t
  type open_flag =
    Unix.open_flag =
      O_RDONLY
    | O_WRONLY
    | O_RDWR
    | O_NONBLOCK
    | O_APPEND
    | O_CREAT
    | O_TRUNC
    | O_EXCL
    | O_NOCTTY
    | O_DSYNC
    | O_SYNC
    | O_RSYNC
    | O_SHARE_DELETE
    | O_CLOEXEC
  val open_flag_of_sexp : Core_kernel.Std.Sexp.t -> open_flag
  val sexp_of_open_flag : open_flag -> Core_kernel.Std.Sexp.t
  type file_perm = int
  val openfile :
    ?perm:file_perm -> mode:open_flag list -> string -> File_descr.t
  module Open_flags = Core.Core_unix.Open_flags
  val fcntl_getfl : File_descr.t -> Open_flags.t
  val fcntl_setfl : File_descr.t -> Open_flags.t -> unit
  val close : ?restart:bool -> File_descr.t -> unit
  val with_file :
    ?perm:file_perm ->
    string -> mode:open_flag list -> f:(File_descr.t -> 'a) -> 'a
  val read :
    ?restart:bool ->
    ?pos:int -> ?len:int -> File_descr.t -> buf:string -> int
  val write : ?pos:int -> ?len:int -> File_descr.t -> buf:string -> int
  val single_write :
    ?restart:bool ->
    ?pos:int -> ?len:int -> File_descr.t -> buf:string -> int
  val in_channel_of_descr : File_descr.t -> Core_kernel.Std.In_channel.t
  val out_channel_of_descr : File_descr.t -> Core_kernel.Std.Out_channel.t
  val descr_of_in_channel : Core_kernel.Std.In_channel.t -> File_descr.t
  val descr_of_out_channel : Core_kernel.Std.Out_channel.t -> File_descr.t
  type seek_command = Unix.seek_command = SEEK_SET | SEEK_CUR | SEEK_END
  val lseek : File_descr.t -> int64 -> mode:seek_command -> int64
  val truncate : string -> len:int64 -> unit
  val ftruncate : File_descr.t -> len:int64 -> unit
  type file_kind =
    Unix.file_kind =
      S_REG
    | S_DIR
    | S_CHR
    | S_BLK
    | S_LNK
    | S_FIFO
    | S_SOCK
  type stats =
    Unix.LargeFile.stats = {
    st_dev : int;
    st_ino : int;
    st_kind : file_kind;
    st_perm : file_perm;
    st_nlink : int;
    st_uid : int;
    st_gid : int;
    st_rdev : int;
    st_size : int64;
    st_atime : float;
    st_mtime : float;
    st_ctime : float;
  }
  val stat : string -> stats
  val lstat : string -> stats
  val fstat : File_descr.t -> stats
  module Native_file = Core.Core_unix.Native_file
  type lock_command =
    Unix.lock_command =
      F_ULOCK
    | F_LOCK
    | F_TLOCK
    | F_TEST
    | F_RLOCK
    | F_TRLOCK
  val lockf :
    File_descr.t -> mode:lock_command -> len:Core_kernel.Std.Int64.t -> unit
  module Flock_command = Core.Core_unix.Flock_command
  val flock : File_descr.t -> Flock_command.t -> bool
  val isatty : File_descr.t -> bool
  val unlink : string -> unit
  val remove : string -> unit
  val rename : src:string -> dst:string -> unit
  val link : ?force:bool -> target:string -> link_name:string -> unit -> unit
  val chmod : string -> perm:file_perm -> unit
  val fchmod : File_descr.t -> perm:file_perm -> unit
  val chown : string -> uid:int -> gid:int -> unit
  val fchown : File_descr.t -> uid:int -> gid:int -> unit
  val umask : int -> int
  val access :
    string ->
    [ `Exec | `Exists | `Read | `Write ] list ->
    (unit, exn) Core_kernel.Std.Result.t
  val access_exn :
    string -> [ `Exec | `Exists | `Read | `Write ] list -> unit
  val dup : File_descr.t -> File_descr.t
  val dup2 : src:File_descr.t -> dst:File_descr.t -> unit
  val set_nonblock : File_descr.t -> unit
  val clear_nonblock : File_descr.t -> unit
  val set_close_on_exec : File_descr.t -> unit
  val clear_close_on_exec : File_descr.t -> unit
  val mkdir : ?perm:file_perm -> string -> unit
  val mkdir_p : ?perm:file_perm -> string -> unit
  val rmdir : string -> unit
  val chdir : string -> unit
  val getcwd : unit -> string
  val chroot : string -> unit
  type dir_handle = Unix.dir_handle
  val opendir : ?restart:bool -> string -> dir_handle
  val readdir : dir_handle -> string
  val rewinddir : dir_handle -> unit
  val closedir : dir_handle -> unit
  val pipe : unit -> File_descr.t * File_descr.t
  val mkfifo : string -> perm:file_perm -> unit
  module Process_info = Core.Core_unix.Process_info
  val create_process : prog:string -> args:string list -> Process_info.t
  val create_process_env :
    ?working_dir:string ->
    prog:string -> args:string list -> env:env -> unit -> Process_info.t
  val open_process_in : string -> in_channel
  val open_process_out : string -> out_channel
  val open_process : string -> in_channel * out_channel
  module Process_channels = Core.Core_unix.Process_channels
  val open_process_full : string -> env:string array -> Process_channels.t
  val close_process_in : in_channel -> Exit_or_signal.t
  val close_process_out : out_channel -> Exit_or_signal.t
  val close_process : in_channel * out_channel -> Exit_or_signal.t
  val close_process_full : Process_channels.t -> Exit_or_signal.t
  val symlink : src:string -> dst:string -> unit
  val readlink : string -> string
  module Select_fds = Core.Core_unix.Select_fds
  type select_timeout =
      [ `After of Core_kernel.Time_ns.Span.t | `Immediately | `Never ]
  val select :
    ?restart:bool ->
    read:File_descr.t list ->
    write:File_descr.t list ->
    except:File_descr.t list ->
    timeout:select_timeout -> unit -> Select_fds.t
  val pause : unit -> unit
  type process_times =
    Unix.process_times = {
    tms_utime : float;
    tms_stime : float;
    tms_cutime : float;
    tms_cstime : float;
  }
  type tm =
    Unix.tm = {
    tm_sec : int;
    tm_min : int;
    tm_hour : int;
    tm_mday : int;
    tm_mon : int;
    tm_year : int;
    tm_wday : int;
    tm_yday : int;
    tm_isdst : bool;
  }
  val time : unit -> float
  val gettimeofday : unit -> float
  val gmtime : float -> tm
  val timegm : tm -> float
  val localtime : float -> tm
  val mktime : tm -> float * tm
  val strftime : tm -> string -> string
  val alarm : int -> int
  val sleep : int -> unit
  val nanosleep : float -> float
  val times : unit -> process_times
  val utimes : string -> access:float -> modif:float -> unit
  type interval_timer =
    Unix.interval_timer =
      ITIMER_REAL
    | ITIMER_VIRTUAL
    | ITIMER_PROF
  type interval_timer_status =
    Unix.interval_timer_status = {
    it_interval : float;
    it_value : float;
  }
  val getitimer : interval_timer -> interval_timer_status
  val setitimer :
    interval_timer -> interval_timer_status -> interval_timer_status
  val getuid : unit -> int
  val geteuid : unit -> int
  val setuid : int -> unit
  val getgid : unit -> int
  val getegid : unit -> int
  val setgid : int -> unit
  module Passwd = Core.Core_unix.Passwd
  module Group = Core.Core_unix.Group
  val getlogin : unit -> string
  module Protocol_family = Core.Core_unix.Protocol_family
  module Inet_addr = Core.Core_unix.Inet_addr
  module Cidr = Core.Core_unix.Cidr
  type socket_domain = Unix.socket_domain = PF_UNIX | PF_INET | PF_INET6
  type socket_type =
    Unix.socket_type =
      SOCK_STREAM
    | SOCK_DGRAM
    | SOCK_RAW
    | SOCK_SEQPACKET
  type sockaddr =
    Unix.sockaddr =
      ADDR_UNIX of string
    | ADDR_INET of Inet_addr.t * int
  val domain_of_sockaddr : sockaddr -> socket_domain
  val socket :
    domain:socket_domain -> kind:socket_type -> protocol:int -> File_descr.t
  val socketpair :
    domain:socket_domain ->
    kind:socket_type -> protocol:int -> File_descr.t * File_descr.t
  val accept : File_descr.t -> File_descr.t * sockaddr
  val bind : File_descr.t -> addr:sockaddr -> unit
  val connect : File_descr.t -> addr:sockaddr -> unit
  val listen : File_descr.t -> max:int -> unit
  type shutdown_command =
    Unix.shutdown_command =
      SHUTDOWN_RECEIVE
    | SHUTDOWN_SEND
    | SHUTDOWN_ALL
  val shutdown : File_descr.t -> mode:shutdown_command -> unit
  val getsockname : File_descr.t -> sockaddr
  val getpeername : File_descr.t -> sockaddr
  type msg_flag = Unix.msg_flag = MSG_OOB | MSG_DONTROUTE | MSG_PEEK
  val recv :
    File_descr.t ->
    buf:string -> pos:int -> len:int -> mode:msg_flag list -> int
  val recvfrom :
    File_descr.t ->
    buf:string -> pos:int -> len:int -> mode:msg_flag list -> int * sockaddr
  val send :
    File_descr.t ->
    buf:string -> pos:int -> len:int -> mode:msg_flag list -> int
  val sendto :
    File_descr.t ->
    buf:string ->
    pos:int -> len:int -> mode:msg_flag list -> addr:sockaddr -> int
  type socket_bool_option =
    Core.Core_unix.socket_bool_option =
      SO_DEBUG
    | SO_BROADCAST
    | SO_REUSEADDR
    | SO_KEEPALIVE
    | SO_DONTROUTE
    | SO_OOBINLINE
    | SO_ACCEPTCONN
    | TCP_NODELAY
    | IPV6_ONLY
  type socket_int_option =
    Core.Core_unix.socket_int_option =
      SO_SNDBUF
    | SO_RCVBUF
    | SO_ERROR
    | SO_TYPE
    | SO_RCVLOWAT
    | SO_SNDLOWAT
  type socket_optint_option = Core.Core_unix.socket_optint_option = SO_LINGER
  type socket_float_option =
    Core.Core_unix.socket_float_option =
      SO_RCVTIMEO
    | SO_SNDTIMEO
  val getsockopt : File_descr.t -> socket_bool_option -> bool
  val setsockopt : File_descr.t -> socket_bool_option -> bool -> unit
  val getsockopt_int : File_descr.t -> socket_int_option -> int
  val setsockopt_int : File_descr.t -> socket_int_option -> int -> unit
  val getsockopt_optint : File_descr.t -> socket_optint_option -> int option
  val setsockopt_optint :
    File_descr.t -> socket_optint_option -> int option -> unit
  val getsockopt_float : File_descr.t -> socket_float_option -> float
  val setsockopt_float : File_descr.t -> socket_float_option -> float -> unit
  val open_connection : sockaddr -> in_channel * out_channel
  val shutdown_connection : in_channel -> unit
  val establish_server :
    (in_channel -> out_channel -> unit) -> addr:sockaddr -> unit
  val gethostname : unit -> string
  module Host = Core.Core_unix.Host
  module Protocol = Core.Core_unix.Protocol
  module Service = Core.Core_unix.Service
  type addr_info =
    Core.Core_unix.addr_info = {
    ai_family : socket_domain;
    ai_socktype : socket_type;
    ai_protocol : int;
    ai_addr : sockaddr;
    ai_canonname : string;
  }
  type getaddrinfo_option =
    Core.Core_unix.getaddrinfo_option =
      AI_FAMILY of socket_domain
    | AI_SOCKTYPE of socket_type
    | AI_PROTOCOL of int
    | AI_NUMERICHOST
    | AI_CANONNAME
    | AI_PASSIVE
  val getaddrinfo :
    string -> string -> getaddrinfo_option list -> addr_info list
  type name_info =
    Core.Core_unix.name_info = {
    ni_hostname : string;
    ni_service : string;
  }
  type getnameinfo_option =
    Core.Core_unix.getnameinfo_option =
      NI_NOFQDN
    | NI_NUMERICHOST
    | NI_NAMEREQD
    | NI_NUMERICSERV
    | NI_DGRAM
  val getnameinfo : sockaddr -> getnameinfo_option list -> name_info
  module Terminal_io = Core.Core_unix.Terminal_io
  val get_sockaddr : string -> int -> sockaddr
  val set_in_channel_timeout : in_channel -> float -> unit
  val set_out_channel_timeout : out_channel -> float -> unit
  val exit_immediately : int -> 'a
  val mknod :
    ?file_kind:file_kind ->
    ?perm:int -> ?major:int -> ?minor:int -> string -> unit
  module IOVec = Core.Core_unix.IOVec
  external dirfd : dir_handle -> File_descr.t = "unix_dirfd"
  external sync : unit -> unit = "unix_sync"
  external fsync : File_descr.t -> unit = "unix_fsync"
  external fdatasync : File_descr.t -> unit = "unix_fdatasync"
  external readdir_ino : dir_handle -> string * nativeint
    = "unix_readdir_ino_stub"
  val read_assume_fd_is_nonblocking :
    File_descr.t -> ?pos:int -> ?len:int -> string -> int
  val write_assume_fd_is_nonblocking :
    File_descr.t -> ?pos:int -> ?len:int -> string -> int
  val writev_assume_fd_is_nonblocking :
    File_descr.t -> ?count:int -> string IOVec.t array -> int
  val writev : File_descr.t -> ?count:int -> string IOVec.t array -> int
  external pselect :
    File_descr.t list ->
    File_descr.t list ->
    File_descr.t list ->
    float ->
    int list -> File_descr.t list * File_descr.t list * File_descr.t list
    = "unix_pselect_stub"
  module RLimit = Core.Core_unix.RLimit
  module Resource_usage = Core.Core_unix.Resource_usage
  type sysconf =
    Core.Core_unix.sysconf =
      ARG_MAX
    | CHILD_MAX
    | HOST_NAME_MAX
    | LOGIN_NAME_MAX
    | OPEN_MAX
    | PAGESIZE
    | RE_DUP_MAX
    | STREAM_MAX
    | SYMLOOP_MAX
    | TTY_NAME_MAX
    | TZNAME_MAX
    | POSIX_VERSION
    | PHYS_PAGES
    | AVPHYS_PAGES
    | IOV_MAX
  external sysconf : sysconf -> int64 = "unix_sysconf"
  val mkstemp : string -> string * File_descr.t
  val mkdtemp : string -> string
  external abort : unit -> 'a = "unix_abort" "noalloc"
  external initgroups : string -> int -> unit = "unix_initgroups"
  val getgrouplist : string -> int -> int array
  val getgroups : unit -> int array
  val fnmatch :
    ?flags:[ `Casefold
           | `File_name
           | `Leading_dir
           | `No_escape
           | `Pathname
           | `Period ] list ->
    pat:string -> string -> bool
  val wordexp :
    (?flags:[ `No_cmd | `Show_err | `Undef ] list -> string -> string array)
    Core_kernel.Std.Or_error.t
  module Utsname = Core.Core_unix.Utsname
  val uname : unit -> Utsname.t
  val if_indextoname : int -> string
  val mcast_join :
    ?ifname:string -> ?source:Inet_addr.t -> File_descr.t -> sockaddr -> unit
  val mcast_leave : ?ifname:string -> File_descr.t -> sockaddr -> unit
  val get_mcast_ttl : File_descr.t -> int
  val set_mcast_ttl : File_descr.t -> int -> unit
  val get_mcast_loop : File_descr.t -> bool
  val set_mcast_loop : File_descr.t -> bool -> unit
  val set_mcast_ifname : File_descr.t -> string -> unit
  module Scheduler = Core.Core_unix.Scheduler
  module Priority = Core.Core_unix.Priority
  module Mman = Core.Core_unix.Mman
  module Syslog = Core.Core_unix.Syslog
  val error_of_sexp : Sexplib.Sexp.t -> error
  val sexp_of_error : error -> Sexplib.Sexp.t
  val env_of_sexp : Sexplib.Sexp.t -> env
  val __env_of_sexp__ : Sexplib.Sexp.t -> env
  val sexp_of_env : env -> Sexplib.Sexp.t
  val wait_on_of_sexp : Sexplib.Sexp.t -> wait_on
  val __wait_on_of_sexp__ : Sexplib.Sexp.t -> wait_on
  val sexp_of_wait_on : wait_on -> Sexplib.Sexp.t
  val file_perm_of_sexp : Sexplib.Sexp.t -> file_perm
  val sexp_of_file_perm : file_perm -> Sexplib.Sexp.t
  val seek_command_of_sexp : Sexplib.Sexp.t -> seek_command
  val sexp_of_seek_command : seek_command -> Sexplib.Sexp.t
  val file_kind_of_sexp : Sexplib.Sexp.t -> file_kind
  val sexp_of_file_kind : file_kind -> Sexplib.Sexp.t
  val stats_of_sexp : Sexplib.Sexp.t -> stats
  val sexp_of_stats : stats -> Sexplib.Sexp.t
  val lock_command_of_sexp : Sexplib.Sexp.t -> lock_command
  val sexp_of_lock_command : lock_command -> Sexplib.Sexp.t
  val sexp_of_select_timeout : select_timeout -> Sexplib.Sexp.t
  val process_times_of_sexp : Sexplib.Sexp.t -> process_times
  val sexp_of_process_times : process_times -> Sexplib.Sexp.t
  val tm_of_sexp : Sexplib.Sexp.t -> tm
  val sexp_of_tm : tm -> Sexplib.Sexp.t
  val interval_timer_of_sexp : Sexplib.Sexp.t -> interval_timer
  val sexp_of_interval_timer : interval_timer -> Sexplib.Sexp.t
  val interval_timer_status_of_sexp : Sexplib.Sexp.t -> interval_timer_status
  val sexp_of_interval_timer_status : interval_timer_status -> Sexplib.Sexp.t
  val bin_socket_domain : socket_domain Core_kernel.Std.Bin_prot.Type_class.t
  val bin_read_socket_domain :
    socket_domain Core_kernel.Std.Bin_prot.Read.reader
  val __bin_read_socket_domain__ :
    (int -> socket_domain) Core_kernel.Std.Bin_prot.Read.reader
  val bin_reader_socket_domain :
    socket_domain Core_kernel.Std.Bin_prot.Type_class.reader
  val bin_size_socket_domain :
    socket_domain Core_kernel.Std.Bin_prot.Size.sizer
  val bin_write_socket_domain :
    socket_domain Core_kernel.Std.Bin_prot.Write.writer
  val bin_writer_socket_domain :
    socket_domain Core_kernel.Std.Bin_prot.Type_class.writer
  val socket_domain_of_sexp : Sexplib.Sexp.t -> socket_domain
  val sexp_of_socket_domain : socket_domain -> Sexplib.Sexp.t
  val bin_socket_type : socket_type Core_kernel.Std.Bin_prot.Type_class.t
  val bin_read_socket_type : socket_type Core_kernel.Std.Bin_prot.Read.reader
  val __bin_read_socket_type__ :
    (int -> socket_type) Core_kernel.Std.Bin_prot.Read.reader
  val bin_reader_socket_type :
    socket_type Core_kernel.Std.Bin_prot.Type_class.reader
  val bin_size_socket_type : socket_type Core_kernel.Std.Bin_prot.Size.sizer
  val bin_write_socket_type :
    socket_type Core_kernel.Std.Bin_prot.Write.writer
  val bin_writer_socket_type :
    socket_type Core_kernel.Std.Bin_prot.Type_class.writer
  val socket_type_of_sexp : Sexplib.Sexp.t -> socket_type
  val sexp_of_socket_type : socket_type -> Sexplib.Sexp.t
  val bin_sockaddr : sockaddr Core_kernel.Std.Bin_prot.Type_class.t
  val bin_read_sockaddr : sockaddr Core_kernel.Std.Bin_prot.Read.reader
  val __bin_read_sockaddr__ :
    (int -> sockaddr) Core_kernel.Std.Bin_prot.Read.reader
  val bin_reader_sockaddr :
    sockaddr Core_kernel.Std.Bin_prot.Type_class.reader
  val bin_size_sockaddr : sockaddr Core_kernel.Std.Bin_prot.Size.sizer
  val bin_write_sockaddr : sockaddr Core_kernel.Std.Bin_prot.Write.writer
  val bin_writer_sockaddr :
    sockaddr Core_kernel.Std.Bin_prot.Type_class.writer
  val sockaddr_of_sexp : Sexplib.Sexp.t -> sockaddr
  val sexp_of_sockaddr : sockaddr -> Sexplib.Sexp.t
  val shutdown_command_of_sexp : Sexplib.Sexp.t -> shutdown_command
  val sexp_of_shutdown_command : shutdown_command -> Sexplib.Sexp.t
  val msg_flag_of_sexp : Sexplib.Sexp.t -> msg_flag
  val sexp_of_msg_flag : msg_flag -> Sexplib.Sexp.t
  val socket_bool_option_of_sexp : Sexplib.Sexp.t -> socket_bool_option
  val sexp_of_socket_bool_option : socket_bool_option -> Sexplib.Sexp.t
  val socket_int_option_of_sexp : Sexplib.Sexp.t -> socket_int_option
  val sexp_of_socket_int_option : socket_int_option -> Sexplib.Sexp.t
  val socket_float_option_of_sexp : Sexplib.Sexp.t -> socket_float_option
  val sexp_of_socket_float_option : socket_float_option -> Sexplib.Sexp.t
  val addr_info_of_sexp : Sexplib.Sexp.t -> addr_info
  val sexp_of_addr_info : addr_info -> Sexplib.Sexp.t
  val getaddrinfo_option_of_sexp : Sexplib.Sexp.t -> getaddrinfo_option
  val sexp_of_getaddrinfo_option : getaddrinfo_option -> Sexplib.Sexp.t
  val name_info_of_sexp : Sexplib.Sexp.t -> name_info
  val sexp_of_name_info : name_info -> Sexplib.Sexp.t
  val getnameinfo_option_of_sexp : Sexplib.Sexp.t -> getnameinfo_option
  val sexp_of_getnameinfo_option : getnameinfo_option -> Sexplib.Sexp.t
  val sysconf_of_sexp : Sexplib.Sexp.t -> sysconf
  val sexp_of_sysconf : sysconf -> Sexplib.Sexp.t
  val fork_exec :
    ?stdin:Core.Std.Unix.File_descr.t ->
    ?stdout:Core.Std.Unix.File_descr.t ->
    ?stderr:Core.Std.Unix.File_descr.t ->
    ?path_lookup:bool ->
    ?env:[ `Extend of (string * string) list
         | `Replace of (string * string) list ] ->
    ?working_dir:string ->
    ?setuid:int -> ?setgid:int -> string -> string list -> Core.Std.Pid.t
  val seteuid : int -> unit
  val setreuid : uid:int -> euid:int -> unit
  external ntohl : Core.Std.Int32.t -> Core.Std.Int32.t = "extended_ml_ntohl"
  external htonl : Core.Std.Int32.t -> Core.Std.Int32.t = "extended_ml_htonl"
  type statvfs =
    Extended_unix.statvfs = {
    bsize : int;
    frsize : int;
    blocks : int;
    bfree : int;
    bavail : int;
    files : int;
    ffree : int;
    favail : int;
    fsid : int;
    flag : int;
    namemax : int;
  }
  external statvfs : string -> statvfs = "statvfs_stub"
  external getloadavg : unit -> float * float * float = "getloadavg_stub"
  module Extended_passwd = Extended_unix.Extended_passwd
  external strptime : fmt:string -> string -> Core.Std.Unix.tm
    = "unix_strptime"
  module Inet_port = Extended_unix.Inet_port
  module Mac_address = Extended_unix.Mac_address
  module Quota = Extended_unix.Quota
  module Mount_entry = Extended_unix.Mount_entry
  val terminal_width : int Core.Std.Lazy.t
  val bin_statvfs : statvfs Core.Std.Bin_prot.Type_class.t
  val bin_read_statvfs : statvfs Core.Std.Bin_prot.Read.reader
  val __bin_read_statvfs__ : (int -> statvfs) Core.Std.Bin_prot.Read.reader
  val bin_reader_statvfs : statvfs Core.Std.Bin_prot.Type_class.reader
  val bin_size_statvfs : statvfs Core.Std.Bin_prot.Size.sizer
  val bin_write_statvfs : statvfs Core.Std.Bin_prot.Write.writer
  val bin_writer_statvfs : statvfs Core.Std.Bin_prot.Type_class.writer
  val statvfs_of_sexp : Sexplib.Sexp.t -> statvfs
  val sexp_of_statvfs : statvfs -> Sexplib.Sexp.t
end