Packages
mazurka
0.3.18
1.0.8
1.0.7
1.0.6
1.0.5
1.0.4
1.0.3
1.0.2
1.0.1
1.0.0
0.3.39
0.3.38
0.3.37
0.3.36
0.3.35
0.3.34
0.3.33
0.3.32
0.3.31
0.3.30
0.3.29
0.3.28
0.3.27
0.3.26
0.3.25
0.3.24
0.3.23
0.3.22
0.3.21
0.3.20
0.3.19
0.3.18
0.3.17
0.3.16
0.3.15
0.3.14
0.3.13
0.3.12
0.3.11
0.3.10
0.3.9
0.3.8
0.3.7
0.3.6
0.3.5
0.3.4
0.3.3
0.3.2
0.3.1
0.3.0
0.2.10
0.2.9
0.2.8
0.2.7
0.2.6
0.2.5
0.2.4
0.2.3
0.2.2
0.2.1
0.2.0
0.1.10
0.1.9
0.1.8
0.1.7
0.1.6
0.1.5
0.1.4
0.1.3
0.1.2
0.1.1
0.1.0
hypermedia api toolkit
Current section
Files
Jump to
Current section
Files
lib/mazurka/protocol/request.ex
defmodule Mazurka.Protocol.Request do
defmacro request(resource, [do: block]) do
quote do
import unquote(__MODULE__)
var!(conn) = %Plug.Conn{adapter: {Mazurka.Protocol.Request, %{}},
owner: self(),
port: 80,
peer: {{127, 0, 0, 1}, 111317},
remote_ip: {127, 0, 0, 1},
params: %{},
query_params: %{},
private: %{mazurka_route: unquote(resource)}}
unquote(block)
var!(conn)
end
end
# for method <- [:get, :post, :put, :patch, :delete, :options, :head] do
# defmacro unquote(method)(path) do
# method = unquote(method)
# quote do
# method(unquote(method))
# path(unquote(path))
# end
# end
# end
defmacro method(method) do
method = method |> to_string |> String.upcase
quote do
var!(conn) = %{var!(conn) | method: unquote(method)}
end
end
defmacro host(host) do
quote do
var!(conn) = %{var!(conn) | host: unquote(host)}
end
end
defmacro path(path) do
quote do
info = Mazurka.Protocol.Request.split_path(unquote(path))
var!(conn) = %{var!(conn) | path_info: info}
end
end
defmacro params(params) do
quote do
var!(conn) = Plug.Conn.put_private(var!(conn), :mazurka_params, unquote(params))
end
end
defmacro query(query) do
query = Mazurka.Compiler.Utils.eval(query, __CALLER__)
query = cond do
is_binary(query) ->
Plug.Conn.Query.decode(query)
is_map(query) ->
query
end
|> Macro.escape
quote do
params = var!(conn).params
query_params = var!(conn).query_params
var!(conn) = %{var!(conn) |
params: Dict.merge(query_params, unquote(query)),
query_params: Dict.merge(query_params, unquote(query))}
end
end
defmacro query(key, value) do
quote do
params = var!(conn).params
query_params = var!(conn).query_params
var!(conn) = %{var!(conn) |
params: Dict.put(query_params, unquote(key), unquote(value)),
query_params: Dict.put(query_params, unquote(key), unquote(value))}
end
end
defmacro body(_content) do
# TODO
quote do
# var!(conn) = %{var!(conn) | }
end
end
defmacro header(kvs) do
kvs = kvs
|> Mazurka.Compiler.Utils.eval(__CALLER__)
|> Enum.map(fn({key, value}) ->
{to_string(key), to_string(value)}
end)
|> Macro.escape
quote do
headers = var!(conn).req_headers
var!(conn) = %{var!(conn) | req_headers: unquote(kvs) ++ headers}
end
end
defmacro header(key, value) do
quote do
headers = var!(conn).req_headers
var!(conn) = %{var!(conn) | req_headers: [{unquote(key), unquote(value)} | headers]}
end
end
defmacro accept(subtype) when subtype in ["html", "plain", "css"] do
quote do
accept("text", unquote(subtype))
end
end
defmacro accept(subtype) do
{type, subtype} = case subtype |> to_string |> String.split("/") do
[subtype] ->
{"application", subtype}
[type, subtype] ->
{type, subtype}
end
quote do
accept(unquote(type), unquote(subtype))
end
end
defmacro accept(type, subtype, _params \\ %{}) do
## TODO send params
accept = "#{type}/#{subtype}"
quote do
header("accept", unquote(accept))
end
end
defmacro ip(ip) do
ip = cond do
is_binary(ip) ->
{:ok, ip} = ip |> String.to_char_list |> :inet.parse_address
ip
is_tuple(ip) ->
ip
end
|> Macro.escape
quote do
var!(conn) = %{var!(conn) | remote_ip: unquote(ip)}
end
end
## Helpers
def split_path(path) do
segments = :binary.split(path, "/", [:global])
for segment <- segments, segment != "", do: segment
end
end