tagua_parser/rules/
expressions.rs

1// Tagua VM
2//
3//
4// New BSD License
5//
6// Copyright © 2016-2016, Ivan Enderlin.
7// All rights reserved.
8//
9// Redistribution and use in source and binary forms, with or without
10// modification, are permitted provided that the following conditions are met:
11//     * Redistributions of source code must retain the above copyright
12//       notice, this list of conditions and the following disclaimer.
13//     * Redistributions in binary form must reproduce the above copyright
14//       notice, this list of conditions and the following disclaimer in the
15//       documentation and/or other materials provided with the distribution.
16//     * Neither the name of the Hoa nor the names of its contributors may be
17//       used to endorse or promote products derived from this software without
18//       specific prior written permission.
19//
20// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
21// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23// ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS AND CONTRIBUTORS BE
24// LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
25// CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
26// SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
27// INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
28// CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
29// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
30// POSSIBILITY OF SUCH DAMAGE.
31
32//! Group of expression rules.
33
34use super::super::ast;
35use super::super::tokens as token;
36use super::literals::decimal;
37
38named!(
39    pub expr<ast::Addition>,
40    chain!(
41        left: decimal ~
42        tag!(token::ADD) ~
43        right: decimal,
44        || ast::Addition { a: ast::Term { t: left }, b: ast::Term { t: right } }
45    )
46);
47
48
49#[cfg(test)]
50mod tests {
51    use super::expr;
52    use super::super::super::ast;
53    use super::super::super::internal::Result;
54
55    #[test]
56    fn case_expr() {
57        assert_eq!(
58            expr(b"1+2"),
59            Result::Done(
60                &b""[..],
61                ast::Addition {
62                    a: ast::Term {
63                        t: ast::Literal::Integer(1)
64                    },
65                    b: ast::Term {
66                        t: ast::Literal::Integer(2)
67                    }
68                }
69            )
70        );
71    }
72}
tagua_parser/rules/expressions.rs

tagua_parser/rules/
expressions.rs
