diff options
Diffstat (limited to 'trunk/Lib/guile/guile.i')
| -rw-r--r-- | trunk/Lib/guile/guile.i | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/trunk/Lib/guile/guile.i b/trunk/Lib/guile/guile.i new file mode 100644 index 000000000..ef270d74b --- /dev/null +++ b/trunk/Lib/guile/guile.i @@ -0,0 +1,33 @@ +/* ----------------------------------------------------------------------------- + * guile.i + * + * SWIG Configuration File for Guile. + * ----------------------------------------------------------------------------- */ + +/* Macro for inserting Scheme code into the stub */ +#define %scheme %insert("scheme") +#define %goops %insert("goops") + +/* Return-styles */ +%pragma(guile) return_nothing_doc = "Returns unspecified." +%pragma(guile) return_one_doc = "Returns $values." + +%define %values_as_list + %pragma(guile) beforereturn = "" + %pragma(guile) return_multi_doc = "Returns a list of $num_values values: $values." +%enddef +%values_as_list /* the default style */ + +%define %values_as_vector + %pragma(guile) beforereturn = "GUILE_MAYBE_VECTOR" + %pragma(guile) return_multi_doc = "Returns a vector of $num_values values: $values." +%enddef + +%define %multiple_values + %pragma(guile) beforereturn = "GUILE_MAYBE_VALUES" + %pragma(guile) return_multi_doc = "Returns $num_values values: $values." +%enddef + +#define GUILE_APPEND_RESULT SWIG_APPEND_VALUE + +%include <typemaps.i> |