about summary refs log tree commit diff
path: root/extra/guile/scm/detail/define.hpp
blob: 08b6e763381f48fd553c74ada6886e8df6a4bc5b (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
//
// 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

#ifndef SCM_AUTO_EXPORT
#define SCM_AUTO_EXPORT 1
#endif

#include <scm/detail/subr_wrapper.hpp>
#include <scm/list.hpp>

namespace scm {
namespace detail {

template <typename Tag, typename Fn>
static void define_impl(const std::string& name, Fn fn)
{
    using args_t = function_args_t<Fn>;
    constexpr auto args_size = pack_size_v<args_t>;
    constexpr auto has_rest  = std::is_same<pack_last_t<args_t>, scm::args>{};
    constexpr auto arg_count = args_size - has_rest;
    auto subr = (scm_t_subr) +subr_wrapper_aux<Tag>(fn, args_t{});
    scm_c_define_gsubr(name.c_str(), arg_count, 0, has_rest, subr);
#if SCM_AUTO_EXPORT
    scm_c_export(name.c_str());
#endif
}

} // namespace detail
} // namespace scm