4a30a92fb1
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5180 626c5289-ae23-0410-ae9c-e8d60b6d4f22
29 lines
907 B
C
29 lines
907 B
C
/* SWIG Configuration File for Guile. -*-c-*-*/
|
|
|
|
/* 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"
|