Initial commit.

2 files changed, 86 insertions, 0 deletions

diff --git a/include/http.hrl b/include/http.hrl
new file mode 100644
index 0000000..dc78b34
--- /dev/null
+++ b/include/http.hrl
@@ -0,0 +1,29 @@
+%% Copyright (c) 2011, Loïc Hoguin <[email protected]>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+-record(http_req, {
+	listener = undefined :: undefined | atom(), %% todo
+	method   = 'GET'     :: http_method(),
+	version  = {1, 1}    :: http_version(),
+	peer     = undefined :: undefined | {Address::ip_address(), Port::port_number()},
+	host     = undefined :: undefined | path_tokens(), %% todo
+	raw_host = undefined :: undefined | string(), %% todo
+	path     = undefined :: undefined | path_tokens(), %% todo
+	raw_path = undefined :: undefined | string(), %% todo
+	qs_vals  = undefined :: undefined | bindings(), %% todo
+	raw_qs   = undefined :: undefined | string(),
+	bindings = undefined :: undefined | bindings(),
+	headers  = []        :: http_headers()
+%%	cookies  = undefined :: undefined | http_cookies() %% @todo
+}).
diff --git a/include/types.hrl b/include/types.hrl
new file mode 100644
index 0000000..faee24e
--- /dev/null
+++ b/include/types.hrl
@@ -0,0 +1,57 @@
+%% Copyright (c) 2011, Loïc Hoguin <[email protected]>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+-type application_start_type() :: normal |
+	{takeover, Node::node()} | {failover, Node::node()}.
+
+-type posix() :: atom().
+-opaque socket() :: term().
+-opaque sslsocket() :: term().
+-type ipv4_address() :: {0..255, 0..255, 0..255, 0..255}.
+-type ipv6_address() :: {0..65535, 0..65535, 0..65535, 0..65535,
+						 0..65535, 0..65535, 0..65535, 0..65535}.
+-type ip_address() :: ipv4_address() | ipv6_address().
+-type port_number() :: 0..65535.
+
+-type bindings() :: list({Key::atom(), Value::string()}).
+-type path_tokens() :: list(string()).
+-type match() :: '_' | list(string() | '_' | atom()).
+
+-type dispatch_rules() :: {Host::match(), Path::match(),
+	Handler::module(), Opts::term()}.
+-type dispatch() :: list(dispatch_rules()).
+
+-type http_method() :: 'OPTIONS' | 'GET' | 'HEAD'
+	| 'POST' | 'PUT' | 'DELETE' | 'TRACE' | string().
+-type http_uri() :: '*' | {absoluteURI, http | https, Host::string(),
+	Port::integer() | undefined, Path::string()}
+	| {scheme, Scheme::string(), string()}
+	| {abs_path, string()} | string().
+-type http_version() :: {Major::integer(), Minor::integer()}.
+-type http_header() :: 'Cache-Control' | 'Connection' | 'Date' | 'Pragma'
+	| 'Transfer-Encoding' | 'Upgrade' | 'Via' | 'Accept' | 'Accept-Charset'
+	| 'Accept-Encoding' | 'Accept-Language' | 'Authorization' | 'From' | 'Host'
+	| 'If-Modified-Since' | 'If-Match' | 'If-None-Match' | 'If-Range'
+	| 'If-Unmodified-Since' | 'Max-Forwards' | 'Proxy-Authorization' | 'Range'
+	| 'Referer' | 'User-Agent' | 'Age' | 'Location' | 'Proxy-Authenticate'
+	| 'Public' | 'Retry-After' | 'Server' | 'Vary' | 'Warning'
+	| 'Www-Authenticate' | 'Allow' | 'Content-Base' | 'Content-Encoding'
+	| 'Content-Language' | 'Content-Length' | 'Content-Location'
+	| 'Content-Md5' | 'Content-Range' | 'Content-Type' | 'Etag'
+	| 'Expires' | 'Last-Modified' | 'Accept-Ranges' | 'Set-Cookie'
+	| 'Set-Cookie2' | 'X-Forwarded-For' | 'Cookie' | 'Keep-Alive'
+	| 'Proxy-Connection' | string().
+-type http_headers() :: list({http_header(), string()}).
+%% -type http_cookies() :: term(). %% @todo
+-type http_status() :: non_neg_integer() | string().