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