type host =
  Nethttpd_services.host = {
  server_pref_name : string option;
  server_pref_port : int option;
  server_names : (string * int) list;
  server_addresses : (Unix.inet_addr * int) list;
}
type 'a host_distributor = (host * 'a Nethttpd_types.http_service) list
val host_distributor :
  'a host_distributor ->
  [> `Host_distributor of 'a host_distributor ] Nethttpd_types.http_service
val default_host : ?pref_name:string -> ?pref_port:int -> unit -> host
val options_service :
  unit -> [> `Options_service ] Nethttpd_types.http_service
type 'a uri_distributor = (string * 'a Nethttpd_types.http_service) list
val uri_distributor :
  'a uri_distributor ->
  [> `Uri_distributor of 'a uri_distributor ] Nethttpd_types.http_service
type 'a linear_distributor =
    ((Nethttpd_types.extended_environment -> bool) *
     'a Nethttpd_types.http_service)
    list
val linear_distributor :
  'a linear_distributor ->
  [> `Linear_distributor of 'a linear_distributor ]
  Nethttpd_types.http_service
type method_filter = [ `Limit of string list | `Limit_except of string list ]
type 'a method_distributor =
    (method_filter * 'a Nethttpd_types.http_service) list
val method_distributor :
  'a method_distributor ->
  [> `Method_distributor of 'a method_distributor ]
  Nethttpd_types.http_service
type file_option =
    [ `Enable_gzip
    | `Enable_index_file of string list
    | `Enable_listings of
        Nethttpd_types.extended_environment ->
        Netcgi1_compat.Netcgi_types.cgi_activation -> file_service -> unit ]
and file_service =
  Nethttpd_services.file_service = {
  file_docroot : string;
  file_uri : string;
  file_suffix_types : (string * string) list;
  file_default_type : string;
  file_options : file_option list;
}
val file_service :
  file_service ->
  [> `File_service of file_service ] Nethttpd_types.http_service
val file_translator : file_service -> string -> string
val simple_listing :
  ?hide:string list ->
  Nethttpd_types.extended_environment ->
  Netcgi1_compat.Netcgi_types.cgi_activation -> file_service -> unit
type std_activation_options =
  Nethttpd_services.std_activation_options = {
  stdactv_processing :
    (string ->
     Netmime.mime_header -> Netcgi1_compat.Netcgi.argument_processing)
    option;
  stdactv_operating_type : Netcgi1_compat.Netcgi.operating_type option;
}
type std_activation =
    [ `Std_activation of std_activation_options
    | `Std_activation_buffered
    | `Std_activation_tempfile
    | `Std_activation_unbuffered ]
type 'a dynamic_service =
  'a Nethttpd_services.dynamic_service = {
  dyn_handler : Nethttpd_types.extended_environment -> 'a -> unit;
  dyn_activation : Nethttpd_types.extended_environment -> 'a;
  dyn_uri : string option;
  dyn_translator : string -> string;
  dyn_accept_all_conditionals : bool;
} constraint 'a = #Netcgi1_compat.Netcgi_types.cgi_activation
val std_activation :
  std_activation ->
  Nethttpd_types.extended_environment ->
  Netcgi1_compat.Netcgi_types.cgi_activation
val dynamic_service :
  (#Netcgi1_compat.Netcgi_types.cgi_activation as 'a) dynamic_service ->
  [> `Dynamic_service of 'a dynamic_service ] Nethttpd_types.http_service
type ac_by_host_rule = [ `Allow of string list | `Deny of string list ]
type 'a ac_by_host = ac_by_host_rule * 'a Nethttpd_types.http_service
val ac_by_host :
  'a ac_by_host ->
  [> `Ac_by_host of 'a ac_by_host ] Nethttpd_types.http_service
val read_media_types_file : string -> (string * string) list