LeechCraft  0.6.70-6645-gcd10d7e
Modular cross-platform feature rich live environment.
curry.h
Go to the documentation of this file.
1 /**********************************************************************
2  * LeechCraft - modular cross-platform feature rich internet client.
3  * Copyright (C) 2006-2014 Georg Rudoy
4  *
5  * Boost Software License - Version 1.0 - August 17th, 2003
6  *
7  * Permission is hereby granted, free of charge, to any person or organization
8  * obtaining a copy of the software and accompanying documentation covered by
9  * this license (the "Software") to use, reproduce, display, distribute,
10  * execute, and transmit the Software, and to prepare derivative works of the
11  * Software, and to permit third-parties to whom the Software is furnished to
12  * do so, all subject to the following:
13  *
14  * The copyright notices in the Software and this entire statement, including
15  * the above license grant, this restriction and the following disclaimer,
16  * must be included in all copies of the Software, in whole or in part, and
17  * all derivative works of the Software, unless such copies or derivative
18  * works are solely in the form of machine-executable object code generated by
19  * a source language processor.
20  *
21  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
22  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
23  * FITNESS FOR A PARTICULAR PURPOSE, TITLE AND NON-INFRINGEMENT. IN NO EVENT
24  * SHALL THE COPYRIGHT HOLDERS OR ANYONE DISTRIBUTING THE SOFTWARE BE LIABLE
25  * FOR ANY DAMAGES OR OTHER LIABILITY, WHETHER IN CONTRACT, TORT OR OTHERWISE,
26  * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
27  * DEALINGS IN THE SOFTWARE.
28  **********************************************************************/
29 
30 #pragma once
31 
32 #include <tuple>
33 #include <type_traits>
34 #include <utility>
35 #include "oldcppkludges.h"
36 
37 namespace LeechCraft
38 {
39 namespace Util
40 {
41  template<typename F, typename... PrevArgs>
42  class CurryImpl
43  {
44  const F m_f;
45 
46  const std::tuple<PrevArgs...> m_prevArgs;
47  public:
48  CurryImpl (F f, const std::tuple<PrevArgs...>& prev)
49  : m_f { f }
50  , m_prevArgs { prev }
51  {
52  }
53  private:
54  template<typename T>
55  std::result_of_t<F (PrevArgs..., T)> invoke (const T& arg, int) const
56  {
57  return invokeIndexed (arg, std::index_sequence_for<PrevArgs...> {});
58  }
59 
60  template<typename IF>
61  struct Invoke
62  {
63  template<typename... IArgs>
64  auto operator() (IF fr, IArgs... args)
65  {
66  return fr (args...);
67  }
68  };
69 
70  template<typename R, typename C, typename... Args>
71  struct Invoke<R (C::*) (Args...)>
72  {
73  auto operator() (R (C::*ptr) (Args...), C c, Args... rest)
74  {
75  return (c.*ptr) (rest...);
76  }
77 
78  auto operator() (R (C::*ptr) (Args...), C *c, Args... rest)
79  {
80  return (c->*ptr) (rest...);
81  }
82  };
83 
84  template<typename T, std::size_t... Is>
85  auto invokeIndexed (const T& arg, std::index_sequence<Is...>) const ->
86  decltype (Invoke<F> {} (m_f, std::get<Is> (m_prevArgs)..., arg))
87  {
88  return Invoke<F> {} (m_f, std::get<Is> (m_prevArgs)..., arg);
89  }
90 
91  template<typename T>
92  auto invoke (const T& arg, ...) const -> CurryImpl<F, PrevArgs..., T>
93  {
94  return { m_f, std::tuple_cat (m_prevArgs, std::tuple<T> { arg }) };
95  }
96  public:
97  template<typename T>
98  auto operator() (const T& arg) const -> decltype (invoke (arg, 0))
99  {
100  return invoke (arg, 0);
101  }
102  };
103 
104  template<typename F>
106  {
107  return { f, {} };
108  }
109 }
110 }
auto operator()(const T &arg) const -> decltype(invoke(arg, 0))
Definition: curry.h:98
CurryImpl< F > Curry(F f)
Definition: curry.h:105
auto Invoke(F &&f, Args &&...args) -> decltype(std::forward< F >(f)(std::forward< Args >(args)...))
Definition: oldcppkludges.h:39
CurryImpl(F f, const std::tuple< PrevArgs... > &prev)
Definition: curry.h:48