Commit | Line | Data |
---|---|---|
920dae64 AT |
1 | /* SWIG Configuration File for Guile. -*-c-*-*/ |
2 | ||
3 | /* Macro for inserting Scheme code into the stub */ | |
4 | #define %scheme %insert("scheme") | |
5 | #define %goops %insert("goops") | |
6 | ||
7 | /* Return-styles */ | |
8 | %pragma(guile) return_nothing_doc = "Returns unspecified." | |
9 | %pragma(guile) return_one_doc = "Returns $values." | |
10 | ||
11 | %define %values_as_list | |
12 | %pragma(guile) beforereturn = "" | |
13 | %pragma(guile) return_multi_doc = "Returns a list of $num_values values: $values." | |
14 | %enddef | |
15 | %values_as_list /* the default style */ | |
16 | ||
17 | %define %values_as_vector | |
18 | %pragma(guile) beforereturn = "GUILE_MAYBE_VECTOR" | |
19 | %pragma(guile) return_multi_doc = "Returns a vector of $num_values values: $values." | |
20 | %enddef | |
21 | ||
22 | %define %multiple_values | |
23 | %pragma(guile) beforereturn = "GUILE_MAYBE_VALUES" | |
24 | %pragma(guile) return_multi_doc = "Returns $num_values values: $values." | |
25 | %enddef | |
26 | ||
27 | #define GUILE_APPEND_RESULT SWIG_APPEND_VALUE | |
28 | ||
29 | %include "typemaps.i" |