passagemath-gap-pkg-semigroups 10.6.29__cp312-abi3-macosx_14_0_arm64.whl

gap/pkg/semigroups/gapbind14/include/gapbind14/tame_free_fn.hpp

@@ -0,0 +1,420 @@
+//
+// gapbind14
+// Copyright (C) 2020-2022 James D. Mitchell
+//
+// This program 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.
+//
+// This program 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 this program.  If not, see <https://www.gnu.org/licenses/>.
+//
+
+#ifndef INCLUDE_GAPBIND14_TAME_FREE_FN_HPP_
+#define INCLUDE_GAPBIND14_TAME_FREE_FN_HPP_
+
+#include <algorithm>    // for reverse
+#include <cstddef>      // for size_t
+#include <type_traits>  // for enable_if_t
+#include <vector>       // for vector
+
+#include "cpp_fn.hpp"       // for CppFunction, GAPBIND14_TRY etc
+#include "gap_include.hpp"  // for Obj
+#include "to_cpp.hpp"       // for to_cpp
+#include "to_gap.hpp"       // for to_gap
+
+namespace gapbind14 {
+  namespace detail {
+
+    ////////////////////////////////////////////////////////////////////////
+    // Wilds
+    ////////////////////////////////////////////////////////////////////////
+
+    template <typename Wild>
+    auto& all_wilds() {
+      static std::vector<Wild> fs;
+      return fs;
+    }
+
+    template <typename Wild>
+    auto wild(size_t i) {
+      return all_wilds<Wild>().at(i);
+    }
+
+    ////////////////////////////////////////////////////////////////////////
+    // Tame functions returning void
+    ////////////////////////////////////////////////////////////////////////
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto tame(Obj self) -> std::enable_if_t<returns_void<Wild>::value
+                                                && arg_count<Wild>::value == 0,
+                                            TSFINAE> {
+      GAPBIND14_TRY(wild<Wild>(N)());
+      return 0L;
+    }
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto tame(Obj self, Obj arg0)
+        -> std::enable_if_t<returns_void<Wild>::value
+                                && arg_count<Wild>::value == 1,
+                            TSFINAE> {
+      using to_cpp_0_type =
+          typename CppFunction<Wild>::params_type::template get<0>;
+      GAPBIND14_TRY(wild<Wild>(N)(to_cpp<to_cpp_0_type>()(arg0)));
+      return 0L;
+    }
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto tame(Obj self, Obj arg0, Obj arg1)
+        -> std::enable_if_t<returns_void<Wild>::value
+                                && arg_count<Wild>::value == 2,
+                            TSFINAE> {
+      using to_cpp_0_type =
+          typename CppFunction<Wild>::params_type::template get<0>;
+      using to_cpp_1_type =
+          typename CppFunction<Wild>::params_type::template get<1>;
+      GAPBIND14_TRY(wild<Wild>(N)(to_cpp<to_cpp_0_type>()(arg0),
+                                  to_cpp<to_cpp_1_type>()(arg1)));
+      return 0L;
+    }
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto tame(Obj self, Obj arg0, Obj arg1, Obj arg2)
+        -> std::enable_if_t<returns_void<Wild>::value
+                                && arg_count<Wild>::value == 3,
+                            TSFINAE> {
+      using to_cpp_0_type =
+          typename CppFunction<Wild>::params_type::template get<0>;
+      using to_cpp_1_type =
+          typename CppFunction<Wild>::params_type::template get<1>;
+      using to_cpp_2_type =
+          typename CppFunction<Wild>::params_type::template get<2>;
+      GAPBIND14_TRY(wild<Wild>(N)(to_cpp<to_cpp_0_type>()(arg0),
+                                  to_cpp<to_cpp_1_type>()(arg1),
+                                  to_cpp<to_cpp_2_type>()(arg2)));
+      return 0L;
+    }
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto tame(Obj self, Obj arg0, Obj arg1, Obj arg2, Obj arg3)
+        -> std::enable_if_t<returns_void<Wild>::value
+                                && arg_count<Wild>::value == 4,
+                            TSFINAE> {
+      using to_cpp_0_type =
+          typename CppFunction<Wild>::params_type::template get<0>;
+      using to_cpp_1_type =
+          typename CppFunction<Wild>::params_type::template get<1>;
+      using to_cpp_2_type =
+          typename CppFunction<Wild>::params_type::template get<2>;
+      using to_cpp_3_type =
+          typename CppFunction<Wild>::params_type::template get<3>;
+      GAPBIND14_TRY(wild<Wild>(N)(to_cpp<to_cpp_0_type>()(arg0),
+                                  to_cpp<to_cpp_1_type>()(arg1),
+                                  to_cpp<to_cpp_2_type>()(arg2),
+                                  to_cpp<to_cpp_3_type>()(arg3)));
+      return 0L;
+    }
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto tame(Obj self, Obj arg0, Obj arg1, Obj arg2, Obj arg3, Obj arg4)
+        -> std::enable_if_t<returns_void<Wild>::value
+                                && arg_count<Wild>::value == 5,
+                            TSFINAE> {
+      using to_cpp_0_type =
+          typename CppFunction<Wild>::params_type::template get<0>;
+      using to_cpp_1_type =
+          typename CppFunction<Wild>::params_type::template get<1>;
+      using to_cpp_2_type =
+          typename CppFunction<Wild>::params_type::template get<2>;
+      using to_cpp_3_type =
+          typename CppFunction<Wild>::params_type::template get<3>;
+      using to_cpp_4_type =
+          typename CppFunction<Wild>::params_type::template get<4>;
+      GAPBIND14_TRY(wild<Wild>(N)(to_cpp<to_cpp_0_type>()(arg0),
+                                  to_cpp<to_cpp_1_type>()(arg1),
+                                  to_cpp<to_cpp_2_type>()(arg2),
+                                  to_cpp<to_cpp_3_type>()(arg3),
+                                  to_cpp<to_cpp_4_type>()(arg4)));
+      return 0L;
+    }
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto
+    tame(Obj self, Obj arg0, Obj arg1, Obj arg2, Obj arg3, Obj arg4, Obj arg5)
+        -> std::enable_if_t<returns_void<Wild>::value
+                                && arg_count<Wild>::value == 6,
+                            TSFINAE> {
+      using to_cpp_0_type =
+          typename CppFunction<Wild>::params_type::template get<0>;
+      using to_cpp_1_type =
+          typename CppFunction<Wild>::params_type::template get<1>;
+      using to_cpp_2_type =
+          typename CppFunction<Wild>::params_type::template get<2>;
+      using to_cpp_3_type =
+          typename CppFunction<Wild>::params_type::template get<3>;
+      using to_cpp_4_type =
+          typename CppFunction<Wild>::params_type::template get<4>;
+      using to_cpp_5_type =
+          typename CppFunction<Wild>::params_type::template get<5>;
+      GAPBIND14_TRY(wild<Wild>(N)(to_cpp<to_cpp_0_type>()(arg0),
+                                  to_cpp<to_cpp_1_type>()(arg1),
+                                  to_cpp<to_cpp_2_type>()(arg2),
+                                  to_cpp<to_cpp_3_type>()(arg3),
+                                  to_cpp<to_cpp_4_type>()(arg4),
+                                  to_cpp<to_cpp_5_type>()(arg5)));
+      return 0L;
+    }
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto tame(Obj self,
+              Obj arg0,
+              Obj arg1,
+              Obj arg2,
+              Obj arg3,
+              Obj arg4,
+              Obj arg5,
+              Obj arg6) -> std::enable_if_t<returns_void<Wild>::value
+                                                && arg_count<Wild>::value == 7,
+                                            TSFINAE> {
+      using to_cpp_0_type =
+          typename CppFunction<Wild>::params_type::template get<0>;
+      using to_cpp_1_type =
+          typename CppFunction<Wild>::params_type::template get<1>;
+      using to_cpp_2_type =
+          typename CppFunction<Wild>::params_type::template get<2>;
+      using to_cpp_3_type =
+          typename CppFunction<Wild>::params_type::template get<3>;
+      using to_cpp_4_type =
+          typename CppFunction<Wild>::params_type::template get<4>;
+      using to_cpp_5_type =
+          typename CppFunction<Wild>::params_type::template get<5>;
+      using to_cpp_6_type =
+          typename CppFunction<Wild>::params_type::template get<6>;
+      GAPBIND14_TRY(wild<Wild>(N)(to_cpp<to_cpp_0_type>()(arg0),
+                                  to_cpp<to_cpp_1_type>()(arg1),
+                                  to_cpp<to_cpp_2_type>()(arg2),
+                                  to_cpp<to_cpp_3_type>()(arg3),
+                                  to_cpp<to_cpp_4_type>()(arg4),
+                                  to_cpp<to_cpp_5_type>()(arg5),
+                                  to_cpp<to_cpp_6_type>()(arg6)));
+      return 0L;
+    }
+
+    ////////////////////////////////////////////////////////////////////////
+    // Tame functions NOT returning void
+    ////////////////////////////////////////////////////////////////////////
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto tame(Obj self) -> std::enable_if_t<!returns_void<Wild>::value
+                                                && arg_count<Wild>::value == 0,
+                                            TSFINAE> {
+      using to_gap_type
+          = gapbind14::to_gap<typename CppFunction<Wild>::return_type>;
+      GAPBIND14_TRY(return to_gap_type()(wild<Wild>(N)()));
+    }
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto tame(Obj self, Obj arg0)
+        -> std::enable_if_t<!returns_void<Wild>::value
+                                && arg_count<Wild>::value == 1,
+                            TSFINAE> {
+      using to_cpp_0_type =
+          typename CppFunction<Wild>::params_type::template get<0>;
+      using to_gap_type
+          = gapbind14::to_gap<typename CppFunction<Wild>::return_type>;
+      GAPBIND14_TRY(
+          return to_gap_type()(wild<Wild>(N)(to_cpp<to_cpp_0_type>()(arg0))));
+    }
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto tame(Obj self, Obj arg0, Obj arg1)
+        -> std::enable_if_t<!returns_void<Wild>::value
+                                && arg_count<Wild>::value == 2,
+                            TSFINAE> {
+      using to_cpp_0_type =
+          typename CppFunction<Wild>::params_type::template get<0>;
+      using to_cpp_1_type =
+          typename CppFunction<Wild>::params_type::template get<1>;
+      using to_gap_type
+          = gapbind14::to_gap<typename CppFunction<Wild>::return_type>;
+      GAPBIND14_TRY(return to_gap_type()(wild<Wild>(N)(
+          to_cpp<to_cpp_0_type>()(arg0), to_cpp<to_cpp_1_type>()(arg1))));
+    }
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto tame(Obj self, Obj arg0, Obj arg1, Obj arg2)
+        -> std::enable_if_t<!returns_void<Wild>::value
+                                && arg_count<Wild>::value == 3,
+                            TSFINAE> {
+      using to_cpp_0_type =
+          typename CppFunction<Wild>::params_type::template get<0>;
+      using to_cpp_1_type =
+          typename CppFunction<Wild>::params_type::template get<1>;
+      using to_cpp_2_type =
+          typename CppFunction<Wild>::params_type::template get<2>;
+      using to_gap_type
+          = gapbind14::to_gap<typename CppFunction<Wild>::return_type>;
+      GAPBIND14_TRY(
+          return to_gap_type()(wild<Wild>(N)(to_cpp<to_cpp_0_type>()(arg0),
+                                             to_cpp<to_cpp_1_type>()(arg1),
+                                             to_cpp<to_cpp_2_type>()(arg2))));
+    }
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto tame(Obj self, Obj arg0, Obj arg1, Obj arg2, Obj arg3)
+        -> std::enable_if_t<!returns_void<Wild>::value
+                                && arg_count<Wild>::value == 4,
+                            TSFINAE> {
+      using to_cpp_0_type =
+          typename CppFunction<Wild>::params_type::template get<0>;
+      using to_cpp_1_type =
+          typename CppFunction<Wild>::params_type::template get<1>;
+      using to_cpp_2_type =
+          typename CppFunction<Wild>::params_type::template get<2>;
+      using to_cpp_3_type =
+          typename CppFunction<Wild>::params_type::template get<3>;
+      using to_gap_type
+          = gapbind14::to_gap<typename CppFunction<Wild>::return_type>;
+      GAPBIND14_TRY(
+          return to_gap_type()(wild<Wild>(N)(to_cpp<to_cpp_0_type>()(arg0),
+                                             to_cpp<to_cpp_1_type>()(arg1),
+                                             to_cpp<to_cpp_2_type>()(arg2),
+                                             to_cpp<to_cpp_3_type>()(arg3))));
+    }
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto tame(Obj self, Obj arg0, Obj arg1, Obj arg2, Obj arg3, Obj arg4)
+        -> std::enable_if_t<!returns_void<Wild>::value
+                                && arg_count<Wild>::value == 5,
+                            TSFINAE> {
+      using to_cpp_0_type =
+          typename CppFunction<Wild>::params_type::template get<0>;
+      using to_cpp_1_type =
+          typename CppFunction<Wild>::params_type::template get<1>;
+      using to_cpp_2_type =
+          typename CppFunction<Wild>::params_type::template get<2>;
+      using to_cpp_3_type =
+          typename CppFunction<Wild>::params_type::template get<3>;
+      using to_cpp_4_type =
+          typename CppFunction<Wild>::params_type::template get<4>;
+      using to_gap_type
+          = gapbind14::to_gap<typename CppFunction<Wild>::return_type>;
+      GAPBIND14_TRY(
+          return to_gap_type()(wild<Wild>(N)(to_cpp<to_cpp_0_type>()(arg0),
+                                             to_cpp<to_cpp_1_type>()(arg1),
+                                             to_cpp<to_cpp_2_type>()(arg2),
+                                             to_cpp<to_cpp_3_type>()(arg3),
+                                             to_cpp<to_cpp_4_type>()(arg4))));
+    }
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto
+    tame(Obj self, Obj arg0, Obj arg1, Obj arg2, Obj arg3, Obj arg4, Obj arg5)
+        -> std::enable_if_t<!returns_void<Wild>::value
+                                && arg_count<Wild>::value == 6,
+                            TSFINAE> {
+      using to_cpp_0_type =
+          typename CppFunction<Wild>::params_type::template get<0>;
+      using to_cpp_1_type =
+          typename CppFunction<Wild>::params_type::template get<1>;
+      using to_cpp_2_type =
+          typename CppFunction<Wild>::params_type::template get<2>;
+      using to_cpp_3_type =
+          typename CppFunction<Wild>::params_type::template get<3>;
+      using to_cpp_4_type =
+          typename CppFunction<Wild>::params_type::template get<4>;
+      using to_cpp_5_type =
+          typename CppFunction<Wild>::params_type::template get<5>;
+      using to_gap_type
+          = gapbind14::to_gap<typename CppFunction<Wild>::return_type>;
+      GAPBIND14_TRY(
+          return to_gap_type()(wild<Wild>(N)(to_cpp<to_cpp_0_type>()(arg0),
+                                             to_cpp<to_cpp_1_type>()(arg1),
+                                             to_cpp<to_cpp_2_type>()(arg2),
+                                             to_cpp<to_cpp_3_type>()(arg3),
+                                             to_cpp<to_cpp_4_type>()(arg4),
+                                             to_cpp<to_cpp_5_type>()(arg5))));
+    }
+
+    template <size_t N, typename Wild, typename TSFINAE = Obj>
+    auto tame(Obj self,
+              Obj arg0,
+              Obj arg1,
+              Obj arg2,
+              Obj arg3,
+              Obj arg4,
+              Obj arg5,
+              Obj arg6) -> std::enable_if_t<!returns_void<Wild>::value
+                                                && arg_count<Wild>::value == 7,
+                                            TSFINAE> {
+      using to_cpp_0_type =
+          typename CppFunction<Wild>::params_type::template get<0>;
+      using to_cpp_1_type =
+          typename CppFunction<Wild>::params_type::template get<1>;
+      using to_cpp_2_type =
+          typename CppFunction<Wild>::params_type::template get<2>;
+      using to_cpp_3_type =
+          typename CppFunction<Wild>::params_type::template get<3>;
+      using to_cpp_4_type =
+          typename CppFunction<Wild>::params_type::template get<4>;
+      using to_cpp_5_type =
+          typename CppFunction<Wild>::params_type::template get<5>;
+      using to_cpp_6_type =
+          typename CppFunction<Wild>::params_type::template get<6>;
+      using to_gap_type
+          = gapbind14::to_gap<typename CppFunction<Wild>::return_type>;
+      GAPBIND14_TRY(
+          return to_gap_type()(wild<Wild>(N)(to_cpp<to_cpp_0_type>()(arg0),
+                                             to_cpp<to_cpp_1_type>()(arg1),
+                                             to_cpp<to_cpp_2_type>()(arg2),
+                                             to_cpp<to_cpp_3_type>()(arg3),
+                                             to_cpp<to_cpp_4_type>()(arg4),
+                                             to_cpp<to_cpp_5_type>()(arg5),
+                                             to_cpp<to_cpp_6_type>()(arg6))));
+    }
+
+    ////////////////////////////////////////////////////////////////////////
+    // Create a vector of tame functions
+    ////////////////////////////////////////////////////////////////////////
+
+    template <size_t N, typename Tame, typename Wild>
+    struct static_push_back {
+      void operator()(std::vector<Tame>& v) {
+        v.push_back(&tame<N - 1, Wild>);
+        static_push_back<N - 1, Tame, Wild>{}(v);
+      }
+    };
+
+    template <typename Tame, typename Wild>
+    struct static_push_back<0, Tame, Wild> {
+      void operator()(std::vector<Tame>& v) {
+        std::reverse(v.begin(), v.end());
+      }
+    };
+
+    template <typename Tame, typename Wild>
+    auto init_tames() {
+      std::vector<Tame> fs;
+      static_push_back<MAX_FUNCTIONS, Tame, Wild>{}(fs);
+      return fs;
+    }
+
+    template <typename Tame, typename Wild>
+    auto& tames() {
+      static std::vector<Tame> fs = init_tames<Tame, Wild>();
+      return fs;
+    }
+
+    template <typename Tame, typename Wild>
+    auto get_tame(size_t i) {
+      return tames<Tame, Wild>().at(i);
+    }
+  }  // namespace detail
+}  // namespace gapbind14
+#endif  // INCLUDE_GAPBIND14_TAME_FREE_FN_HPP_