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

/*<LICENSE>
    This file is part of Memthol.

    Copyright (C) 2020 OCamlPro.

    Memthol is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    Memthol is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with Memthol.  If not, see <https://www.gnu.org/licenses/>.
*/

/// Import the crate's whole prelude.
#[macro_export]
macro_rules! prelude {
    () => {
        use $crate::prelude::*;
    };
}

/// Applies some action to a `CtfParser` applied to some bytes.
#[macro_export]
macro_rules! parse {
    (
        $bytes:expr => |$parser_pat:pat| $action:expr
    ) => {{
        match $crate::parse::CtfParser::new($bytes)? {
            $crate::prelude::Either::Left($parser_pat) => $action,
            $crate::prelude::Either::Right($parser_pat) => $action,
        }
    }};
}

macro_rules! parser_do {
    (
        $parser_disj:expr => join |$parser_pat:pat| {
            $($stuff:tt)*
        }
    ) => {
        match $parser_disj {
            $crate::prelude::Either::Left($parser_pat) => {
                $($stuff)*
            }
            $crate::prelude::Either::Right($parser_pat) => {
                $($stuff)*
            }
        }
    };
    (
        $parser_disj:expr => map |mut $parser_id:ident| {
            $($stuff:tt)*
        }
    ) => {
        match $parser_disj {
            $crate::prelude::Either::Left(mut $parser_id) => $crate::prelude::Either::Left({
                $($stuff)*
            }),
            $crate::prelude::Either::Right(mut $parser_id) => $crate::prelude::Either::Right({
                $($stuff)*
            }),
        }
    };
}

macro_rules! parse_error {
    (|| $($tail:tt)*) => {
        || { parse_error!($($tail)*) }
    };

    (expected $exp:expr) => {
        parse_error!(expected $exp, found "EOF")
    };
    (expected $exp:expr, found $found:expr) => {
        format!("expected `{}`, found `{}`", $exp, $found)
    };
}

#[cfg(not(debug_assertions))]
macro_rules! pinfo {
    ($($stuff:tt)*) => {
        ()
    };
}
#[cfg(debug_assertions)]
macro_rules! pinfo {
    ($parser:expr, $($blah:tt)*) => {if $crate::VERB {
        let (pos, max) = $parser.real_position();
        $crate::prelude::log::info!("[{}/{}] {}", pos, max, format_args!($($blah)*))
    }};
}
#[cfg(not(debug_assertions))]
macro_rules! pdebug {
    ($($stuff:tt)*) => {
        ()
    };
}
#[cfg(debug_assertions)]
macro_rules! pdebug {
    ($parser:expr, $($blah:tt)*) => {if $crate::DEBUG_VERB {
        let (pos, max) = $parser.real_position();
        $crate::prelude::log::debug!("[{}/{}] {}", pos, max, format_args!($($blah)*))
    }};
}