| 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" |