Milena (Olena)  User documentation 2.0a Id
 All Classes Namespaces Functions Variables Typedefs Enumerator Groups Pages
binary.hh
1 // Copyright (C) 2007, 2008, 2009 EPITA Research and Development Laboratory (LRDE)
2 //
3 // This file is part of Olena.
4 //
5 // Olena is free software: you can redistribute it and/or modify it under
6 // the terms of the GNU General Public License as published by the Free
7 // Software Foundation, version 2 of the License.
8 //
9 // Olena is distributed in the hope that it will be useful,
10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 // General Public License for more details.
13 //
14 // You should have received a copy of the GNU General Public License
15 // along with Olena. If not, see <http://www.gnu.org/licenses/>.
16 //
17 // As a special exception, you may use this file as part of a free
18 // software project without restriction. Specifically, if other files
19 // instantiate templates or use macros or inline functions from this
20 // file, or you compile this file and link it with other files to produce
21 // an executable, this file does not by itself cause the resulting
22 // executable to be covered by the GNU General Public License. This
23 // exception does not however invalidate any other reasons why the
24 // executable file might be covered by the GNU General Public License.
25 
26 #ifndef MLN_FUN_BINARY_HH
27 # define MLN_FUN_BINARY_HH
28 
29 # include <mln/core/concept/meta_function.hh>
30 # include <mln/fun/spe/binary.hh>
31 # include <mln/trait/next/solve.hh>
32 # include <mln/trait/functions.hh>
33 
34 namespace mln
35 {
36 
37  namespace fun
38  {
39 
40  template <typename F, typename E = F>
41  struct binary : mln::Meta_Function_vv2v< E >
42  {
43  typedef F flag;
44  typedef mln_trait_fun_storage(flag) storage;
45 
46  template <typename T1, typename T2>
47  struct with
48  {
49  typedef spe::binary<F, T1, T2> ret;
50  };
51 
52  template <typename T1, typename T2>
53  typename with<T1, T2>::ret::result operator()(const T1& a, const T2& b) const
54  {
55  return typename with<T1, T2>::ret(state())(a, b);
56  }
57 
58  template <typename U>
59  void init(const U& value)
60  {
61  state_ = mln::trait::function::internal::introspect::has_storage_t<flag, void>::compute(value);
62  };
63 
64  binary()
65  {
66  }
67 
68  template <typename U>
69  binary(const U& param)
70  {
71  this->init(param);
72  }
73 
74  stored<storage>& state()
75  {
76  return state_;
77  }
78 
79  const stored<storage>& state() const
80  {
81  return state_;
82  }
83 
84  protected:
85  stored<storage> state_;
86  };
87 
88  } // end of namespace mln::fun
89 
90 } // end of namespace mln
91 
92 #endif // ! MLN_FUN_BINARY_HH