ellip 1.1.0

Elliptic integrals for Rust
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115

/*
 * Ellip is licensed under The 3-Clause BSD, see LICENSE.
 * Copyright 2025 Sira Pornsiriprasert <code@psira.me>
 */

/// Macro to conditionally return error.
macro_rules! check {
    (@return Err, $fn_name:ident, $var:ident, $value_name:expr) => {
        return Err(concat![stringify!($fn_name), ": ", stringify!($var), " cannot be ", $value_name, "."])
    };
    ($fn_name:ident, $check_method:ident, $value_name:expr, [$($var:ident),* $(,)?] $(,)?) => {
        $(
            if $var.$check_method() {
                check!(@return Err, $fn_name, $var, $value_name);
            }
        )*
    };
    ($fn_name:ident, ($predicate:expr), $value_name:expr, [$($var:ident),* $(,)?] $(,)?) => {
        $(
            if $predicate {
                check!(@return Err, $fn_name, $var, $value_name);
            }
        )*
    };
    (@nan, $fn_name:ident, [$($var:ident),* $(,)?] $(,)?) => {{
        $(
            if $var.is_nan() {
                return Err(concat![stringify!($fn_name), ": Arguments cannot be NAN."])
            }
        )*

    }};
    (@zero, $fn_name:ident, [$($var:ident),* $(,)?] $(,)?) => {
        check!($fn_name, is_zero, "zero", [$($var),*])
    };
    (@inf, $fn_name:ident, [$($var:ident),* $(,)?] $(,)?) => {
        check!($fn_name, is_infinite, "infinite", [$($var),*])
    };
    (@neg, $fn_name:ident, $msg:expr, [$first:ident, $($var:ident),* $(,)?] $(,)?) => {
        if $first$(.min($var))* < T::zero() {
            return Err(concat![stringify!($fn_name), ": ", $msg]);
        }
    };
    (@neg, $fn_name:ident, [$first:ident, $($var:ident),* $(,)?] $(,)?) => {
        check!(@neg, $fn_name, "Arguments must be non-negative.", [$first, $($var),*])
    };
    (@multi_zero, $fn_name:ident, [$($var:ident),* $(,)?] $(,)?) => {{
        let mut count: u8 = 0;
        $(
            count += $var.is_zero() as u8;
        )*
        if count > 1 {
            return Err(concat![stringify!($fn_name), ": At most one argument can be zero."]);
        }
    }};
    (@multi, $fn_name:ident, $value_name:expr, $check_method:ident, [$first:ident, $($var:ident),* $(,)?] $(,)?) => {{
        // Check if more than one var leads to true and return error.
        let var_array = [$first, $($var),*];
        let mut count = 0;
        for var in var_array {
            if var.$check_method() {
                count += 1;
            }
            if count >= 2 {
                return Err(
                    concat![
                        stringify!($fn_name),
                        ": More than one argument in ",
                        stringify!($first), $(", ", stringify!($var), )*
                        " cannot be ",
                        $value_name,
                        "."
                    ]
                )
            }
        }
    }};
}
pub(crate) use check;

macro_rules! case {
    ($predicate:expr, $res:expr) => {
        if $predicate {
            return Ok($res);
        }
    };
    (@any [$($var:expr),+] == $value:expr, $res:expr) =>{
        $(
            if $var == $value {
                return Ok($res)
            }
        )+
    }
}
pub(crate) use case;

macro_rules! declare {
    (mut [$($var:ident),+ $(,)?] = $value:expr) => {
        $(let mut $var = $value;)+
    };
    (mut [$($var:ident $(= $value:expr)?),+ $(,)?]) => {
        $(let mut $var $(= $value)?;)+
    };
    ([$($var:ident $(= $value:expr)?),+ $(,)?]) => {
        $(let $var $(= $value)?;)+
    };
}
pub(crate) use declare;

macro_rules! let_mut {
    ($($var:ident),+ $(,)?) => {
        $(let mut $var = $var;)+
    };
}
pub(crate) use let_mut;