jelq

use axum::{

    Json,

    http::{HeaderValue, Method, StatusCode, header},

    response::{IntoResponse, Response},

};

use serde_json::json;

use super::ctx::Ctx;

use crate::{headers::ACCEPT_PATCH, problem::Problem};

const THERAPY: &str = "Your options are listed in the Allow header. There are more of them than you think. You could also try being honest. It is not in the Allow header because it is not a method.";

pub type Handler<T> = fn(&mut T, &Ctx) -> Response;

/// A predicate for when a method is available, and the refusal when it is not.

type Guard<T> = (fn(&T) -> bool, &'static str);

pub struct Verb<T: 'static> {

    method: &'static str,

    handle: Handler<T>,

    guard: Option<Guard<T>>,

}

impl<T> Verb<T> {

    pub const fn new(method: &'static str, handle: Handler<T>) -> Self {

        Self {

            method,

            handle,

            guard: None,

        }

    }

    /// Makes the method available only while `available` holds, refusing with `refusal` otherwise.

    pub const fn only_when(self, available: fn(&T) -> bool, refusal: &'static str) -> Self {

        Self {

            guard: Some((available, refusal)),

            ..self

        }

    }

    fn available(&self, target: &T) -> bool {

        self.guard.is_none_or(|(available, _)| available(target))

    }

}

/// The methods a resource supports. `Allow`, `OPTIONS` and `405` are all derived from this list.

pub struct Resource<T: 'static> {

    pub verbs: &'static [Verb<T>],

    pub accept_patch: bool,

}

impl<T> Resource<T> {

    pub const fn new(verbs: &'static [Verb<T>]) -> Self {

        Self {

            verbs,

            accept_patch: false,

        }

    }

    pub fn allow(&self, target: &T) -> String {

        Self::listed(self.verbs.iter().filter(|verb| verb.available(target)))

    }

    /// The methods with every guard assumed open, for resources that have none.

    pub fn allow_any(&self) -> String {

        Self::listed(self.verbs.iter())

    }

    fn listed<'a>(verbs: impl Iterator<Item = &'a Verb<T>>) -> String {

        let mut methods = Vec::new();

        for verb in verbs {

            methods.push(verb.method);

            if verb.method == "GET" {

                methods.push("HEAD");

            }

        }

        methods.push("OPTIONS");

        methods.join(", ")

    }

    pub fn dispatch(&self, target: &mut T, ctx: &Ctx) -> Response {

        let requested = ctx.method.as_str();

        let lookup = if requested == "HEAD" {

            "GET"

        } else {

            requested

        };

        match self.verbs.iter().find(|verb| verb.method == lookup) {

            Some(verb) if verb.available(target) => (verb.handle)(target, ctx),

            Some(verb) => {

                let refusal = verb.guard.map_or("", |(_, refusal)| refusal);

                method_not_allowed(refusal.to_owned(), &self.allow(target))

            }

            None if requested == "OPTIONS" => options(&self.allow(target), self.accept_patch),

            None => unsupported(&ctx.method, &self.allow(target)),

        }

    }

}

fn method_not_allowed(detail: String, allow: &str) -> Response {

    Problem::new(StatusCode::METHOD_NOT_ALLOWED, "method-not-allowed", detail)

        .header(header::ALLOW, allow)

        .into_response()

}

pub fn unsupported(method: &Method, allow: &str) -> Response {

    let name = method.as_str();

    match name {

        "CONNECT" => StatusCode::NOT_IMPLEMENTED.into_response(),

        "BREW" => Problem::new(

            StatusCode::IM_A_TEAPOT,

            "brew",

            "The server is a teapot. RFC 2324 is clear on this. It is not yet short and stout.",

        )

        .into_response(),

        "GET" | "HEAD" | "POST" | "PUT" | "PATCH" | "DELETE" | "OPTIONS" | "TRACE" | "JELQ" => {

            method_not_allowed(format!("{method} is not supported here."), allow)

        }

        _ if name.eq_ignore_ascii_case("jelq") => Problem::new(

            StatusCode::NOT_IMPLEMENTED,

            "not-implemented",

            format!(

                "The server does not implement {method}. Methods are case-sensitive. JELQ is shouted for a reason."

            ),

        )

        .into_response(),

        _ => Problem::new(

            StatusCode::NOT_IMPLEMENTED,

            "not-implemented",

            format!("The server does not implement {method}."),

        )

        .into_response(),

    }

}

fn options(allow: &str, accept_patch: bool) -> Response {

    let mut response = (

        StatusCode::OK,

        [(header::ALLOW, allow)],

        Json(json!({ "detail": THERAPY })),

    )

        .into_response();

    if accept_patch {

        response.headers_mut().insert(

            ACCEPT_PATCH,

            HeaderValue::from_static("application/json-patch+json"),

        );

    }

    response

}