1 | # /* ************************************************************************** |
2 | # * * |
3 | # * (C) Copyright Edward Diener 2014. |
4 | # * Distributed under the Boost Software License, Version 1.0. (See |
5 | # * accompanying file LICENSE_1_0.txt or copy at |
6 | # * http://www.boost.org/LICENSE_1_0.txt) |
7 | # * * |
8 | # ************************************************************************** */ |
9 | # |
10 | # /* See http://www.boost.org for most recent version. */ |
11 | # |
12 | # include <boost/preprocessor/punctuation.hpp> |
13 | # include "test.h" |
14 | |
15 | # define A_TUPLE (*,#,zz) |
16 | # define A_TUPLE2 (*,#,(zz,44,(e7))) |
17 | # define A_TUPLE_PLUS (mmf,34,^^,!) 456 |
18 | # define PLUS_ATUPLE yyt (j,ii%) |
19 | # define JDATA ggh |
20 | # define NOT_TUPLE y6() |
21 | # define NOT_TUPLE2 &(kkkgg,(e)) |
22 | # define A_SEQ (r)($)(#) |
23 | # define AN_ARRAY (4,(5,7,f,x)) |
24 | # define A_LIST (e,(g,(&,BOOST_PP_NIL))) |
25 | # define DATA (5 + 3) * 4 |
26 | # define DATA2 4 * (5 + 3) |
27 | # define DATA3 4 * (5 + 3) * (2 + 1) |
28 | # define DATA4 (5 + 3) * (2 + 1) * 4 |
29 | |
30 | // is_begin_parens |
31 | |
32 | BEGIN BOOST_PP_IS_BEGIN_PARENS() == 0 END |
33 | BEGIN BOOST_PP_IS_BEGIN_PARENS(A_TUPLE) == 1 END |
34 | BEGIN BOOST_PP_IS_BEGIN_PARENS(A_TUPLE2) == 1 END |
35 | BEGIN BOOST_PP_IS_BEGIN_PARENS(A_TUPLE_PLUS) == 1 END |
36 | BEGIN BOOST_PP_IS_BEGIN_PARENS(PLUS_ATUPLE) == 0 END |
37 | BEGIN BOOST_PP_IS_BEGIN_PARENS(JDATA) == 0 END |
38 | BEGIN BOOST_PP_IS_BEGIN_PARENS(NOT_TUPLE) == 0 END |
39 | BEGIN BOOST_PP_IS_BEGIN_PARENS(NOT_TUPLE2) == 0 END |
40 | BEGIN BOOST_PP_IS_BEGIN_PARENS(A_SEQ) == 1 END |
41 | BEGIN BOOST_PP_IS_BEGIN_PARENS(AN_ARRAY) == 1 END |
42 | BEGIN BOOST_PP_IS_BEGIN_PARENS(A_LIST) == 1 END |
43 | BEGIN BOOST_PP_IS_BEGIN_PARENS((y)2(x)) == 1 END |
44 | |
45 | // remove_parens |
46 | |
47 | BEGIN BOOST_PP_REMOVE_PARENS(DATA) == 17 END |
48 | BEGIN BOOST_PP_REMOVE_PARENS(DATA2)== 32 END |
49 | BEGIN BOOST_PP_REMOVE_PARENS(DATA3)== 96 END |
50 | BEGIN BOOST_PP_REMOVE_PARENS(DATA4)== 41 END |
51 | |