ocaml-http 0.1.5 · OCaml Package

type version = [

| `HTTP_1_0
| `HTTP_1_1

]

type meth = [

| `GET
| `POST

]

type daemon_mode = [

| `Fork
| `Single
| `Thread

]

type tcp_server =
  sockaddr:Unix.sockaddr ->
  timeout:int option ->
  (Pervasives.in_channel -> Pervasives.out_channel -> unit) ->
  unit

type auth_info = [

| `Basic of string * string

]

type informational_substatus = [

| `Continue
| `Switching_protocols

]

type success_substatus = [

| `Accepted
| `Created
| `No_content
| `Non_authoritative_information
| `OK
| `Partial_content
| `Reset_content

]

type redirection_substatus = [

| `Found
| `Moved_permanently
| `Multiple_choices
| `Not_modified
| `See_other
| `Temporary_redirect
| `Use_proxy

]

type client_error_substatus = [

| `Bad_request
| `Conflict
| `Expectation_failed
| `Forbidden
| `Gone
| `Length_required
| `Method_not_allowed
| `Not_acceptable
| `Not_found
| `Payment_required
| `Precondition_failed
| `Proxy_authentication_required
| `Request_URI_too_large
| `Request_entity_too_large
| `Request_time_out
| `Requested_range_not_satisfiable
| `Unauthorized
| `Unsupported_media_type

]

type server_error_substatus = [

| `Bad_gateway
| `Gateway_time_out
| `HTTP_version_not_supported
| `Internal_server_error
| `Not_implemented
| `Service_unavailable

]

type informational_status = [

| `Informational of informational_substatus

]

type success_status = [

| `Success of success_substatus

]

type redirection_status = [

| `Redirection of redirection_substatus

]

type client_error_status = [

| `Client_error of client_error_substatus

]

type server_error_status = [

| `Server_error of server_error_substatus

]

type error_status = [

| `Client_error of client_error_substatus
| `Server_error of server_error_substatus

]

type status = [

| `Client_error of client_error_substatus
| `Informational of informational_substatus
| `Redirection of redirection_substatus
| `Server_error of server_error_substatus
| `Success of success_substatus

]

type status_code = [

| `Code of int
| `Status of status

]

type file_source =

| FileSrc of string
| InChanSrc of Pervasives.in_channel

exception Invalid_header of string

exception Invalid_header_name of string

exception Invalid_header_value of string

exception Invalid_HTTP_version of string

exception Invalid_HTTP_method of string

exception Invalid_code of int

exception Malformed_URL of string

exception Malformed_query of string

exception Malformed_query_part of string * string

exception Malformed_request_URI of string

exception Malformed_cookies of string

exception Malformed_request of string

exception Malformed_response of string

exception Param_not_found of string

exception Invalid_status_line of string

exception Header_not_found of string

exception Quit

exception Unauthorized of string

class type message = object ... end

class type request = object ... end

class type response = object ... end

type daemon_spec = {

address : string;
auth : (string * auth_info) option;
callback : request -> Pervasives.out_channel -> unit;
mode : daemon_mode;
port : int;
root_dir : string option;
exn_handler : (exn -> Pervasives.out_channel -> unit) option;
timeout : int option;
auto_close : bool;

}

class type connection = object ... end

class type daemon = object ... end

package ocaml-http