4308dd03cf
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@11874 626c5289-ae23-0410-ae9c-e8d60b6d4f22
33 lines
1.1 KiB
OpenEdge ABL
33 lines
1.1 KiB
OpenEdge ABL
/* -----------------------------------------------------------------------------
|
|
* 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>
|