about summary refs log tree commit diff
path: root/third_party/immer/extra/guile/scm/detail/subr_wrapper.hpp
diff options
context:
space:
mode:
authorVincent Ambo <mail@tazj.in>2020-12-23T12·36+0100
committertazjin <mail@tazj.in>2020-12-23T12·44+0000
commit73e9265f954528b6b2eccf98572e77126539a8df (patch)
tree48a1e093761e86c5e605d074e8c4d5f1bb64f1b1 /third_party/immer/extra/guile/scm/detail/subr_wrapper.hpp
parentf7ea650142eb796eb3f2827c805cc0bc563e2183 (diff)
chore(3p/immer): Remove vendored copy of immer r/2029
We ended up dropping the use of this library again.

Change-Id: I2c44cd22a6128d23f87a582402bf5fb84991d608
Reviewed-on: https://cl.tvl.fyi/c/depot/+/2292
Tested-by: BuildkiteCI
Reviewed-by: Profpatsch <mail@profpatsch.de>
Diffstat (limited to 'third_party/immer/extra/guile/scm/detail/subr_wrapper.hpp')
-rw-r--r--third_party/immer/extra/guile/scm/detail/subr_wrapper.hpp111
1 files changed, 0 insertions, 111 deletions
diff --git a/third_party/immer/extra/guile/scm/detail/subr_wrapper.hpp b/third_party/immer/extra/guile/scm/detail/subr_wrapper.hpp
deleted file mode 100644
index fc11ff1c51ec..000000000000
--- a/third_party/immer/extra/guile/scm/detail/subr_wrapper.hpp
+++ /dev/null
@@ -1,111 +0,0 @@
-//
-// immer: immutable data structures for C++
-// Copyright (C) 2016, 2017, 2018 Juan Pedro Bolivar Puente
-//
-// This software is distributed under the Boost Software License, Version 1.0.
-// See accompanying file LICENSE or copy at http://boost.org/LICENSE_1_0.txt
-//
-
-#pragma once
-
-#include <scm/detail/invoke.hpp>
-#include <scm/detail/function_args.hpp>
-#include <scm/detail/convert.hpp>
-
-namespace scm {
-namespace detail {
-
-// this anonymous namespace should help avoiding registration clashes
-// among translation units.
-namespace {
-
-template <typename Tag, typename R, typename Fn>
-auto subr_wrapper_impl(Fn fn, pack<R>, pack<>)
-{
-    check_call_once<Tag, Fn>();
-    static const Fn fn_ = fn;
-    return [] () -> SCM { return to_scm(invoke(fn_)); };
-}
-template <typename Tag, typename Fn, typename R, typename T1>
-auto subr_wrapper_impl(Fn fn, pack<R>, pack<T1>)
-{
-    check_call_once<Tag, Fn>();
-    static const Fn fn_ = fn;
-    return [] (SCM a1) -> SCM {
-        return to_scm(invoke(fn_, to_cpp<T1>(a1)));
-    };
-}
-template <typename Tag, typename Fn, typename R, typename T1, typename T2>
-auto subr_wrapper_impl(Fn fn, pack<R>, pack<T1, T2>)
-{
-    check_call_once<Tag, Fn>();
-    static const Fn fn_ = fn;
-    return [] (SCM a1, SCM a2) -> SCM {
-        return to_scm(invoke(fn_, to_cpp<T1>(a1), to_cpp<T2>(a2)));
-    };
-}
-template <typename Tag, typename Fn, typename R, typename T1, typename T2,
-          typename T3>
-auto subr_wrapper_impl(Fn fn, pack<R>, pack<T1, T2, T3>)
-{
-    check_call_once<Tag, Fn>();
-    static const Fn fn_ = fn;
-    return [] (SCM a1, SCM a2, SCM a3) -> SCM {
-        return to_scm(invoke(fn_, to_cpp<T1>(a1), to_cpp<T2>(a2),
-                             to_cpp<T3>(a3)));
-    };
-}
-
-template <typename Tag, typename Fn>
-auto subr_wrapper_impl(Fn fn, pack<void>, pack<>)
-{
-    check_call_once<Tag, Fn>();
-    static const Fn fn_ = fn;
-    return [] () -> SCM { invoke(fn_); return SCM_UNSPECIFIED; };
-}
-template <typename Tag, typename Fn, typename T1>
-auto subr_wrapper_impl(Fn fn, pack<void>, pack<T1>)
-{
-    check_call_once<Tag, Fn>();
-    static const Fn fn_ = fn;
-    return [] (SCM a1) -> SCM {
-        invoke(fn_, to_cpp<T1>(a1)); return SCM_UNSPECIFIED;
-    };
-}
-template <typename Tag, typename Fn, typename T1, typename T2>
-auto subr_wrapper_impl(Fn fn, pack<void>, pack<T1, T2>)
-{
-    check_call_once<Tag, Fn>();
-    static const Fn fn_ = fn;
-    return [] (SCM a1, SCM a2) -> SCM {
-        invoke(fn_, to_cpp<T1>(a1), to_cpp<T2>(a2));
-        return SCM_UNSPECIFIED;
-    };
-}
-template <typename Tag, typename Fn, typename T1, typename T2, typename T3>
-auto subr_wrapper_impl(Fn fn, pack<void>, pack<T1, T2, T3>)
-{
-    check_call_once<Tag, Fn>();
-    static const Fn fn_ = fn;
-    return [] (SCM a1, SCM a2, SCM a3) -> SCM {
-        invoke(fn_, to_cpp<T1>(a1), to_cpp<T2>(a2), to_cpp<T3>(a3));
-        return SCM_UNSPECIFIED;
-    };
-}
-
-template <typename Tag, typename Fn, typename... Args>
-auto subr_wrapper_aux(Fn fn, pack<Args...>)
-{
-    return subr_wrapper_impl<Tag>(
-        fn, pack<std::result_of_t<Fn(Args...)>>{}, pack<Args...>{});
-}
-
-template <typename Tag, typename Fn>
-auto subr_wrapper(Fn fn)
-{
-    return subr_wrapper_aux<Tag>(fn, function_args_t<Fn>{});
-}
-
-} // anonymous namespace
-} // namespace detail
-} // namespace scm