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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
/* -----------------------------------------------------------------------------
* std_string_view.i
*
* std::string_view typemaps for Guile
* ----------------------------------------------------------------------------- */
%{
#include <string>
#include <string_view>
%}
namespace std {
%naturalvar string_view;
%typemap(in) string_view (char *$1_ptr) {
size_t $1_len;
$1_ptr = scm_to_utf8_stringn($input, &$1_len);
$1 = std::string_view($1_ptr, $1_len);
}
%typemap(freearg) string_view %{
SWIG_free($1_ptr);
%}
%typemap(out) string_view %{
$result = scm_from_utf8_stringn($1.data(), $1.size());
%}
%typemap(in) const string_view& (char *$1_ptr, $*1_ltype view) {
size_t $1_len;
$1_ptr = scm_to_utf8_stringn($input, &$1_len);
view = std::string_view($1_ptr, $1_len);
$1 = &view;
}
%typemap(out) const string_view& %{
$result = scm_from_utf8_stringn($1->data(), $1->size());
%}
%typemap(varout) string_view %{
$result = scm_from_utf8_stringn($1.data(), $1.size());
%}
// for throwing of any kind of string_view, string_view ref's and
// string_view pointers we convert all to Guile strings
%typemap(throws) string_view, string_view&, const string_view& %{
scm_throw(scm_from_locale_symbol("swig-exception"),
scm_list_1(scm_from_utf8_stringn($1.data(), $1.size())));
%}
%typemap(throws) string_view*, const string_view* %{
scm_throw(scm_from_locale_symbol("swig-exception"),
scm_list_1(scm_from_utf8_stringn($1->data(), $1->size())));
%}
%typemap(typecheck,precedence=SWIG_TYPECHECK_STRINGVIEW) string_view, const string_view& {
$1 = scm_is_string($input);
}
class string_view;
}
|
