mirror of
https://github.com/nillerusr/source-engine.git
synced 2024-12-23 14:46:53 +00:00
37 lines
1.2 KiB
OpenEdge ABL
37 lines
1.2 KiB
OpenEdge ABL
/* -----------------------------------------------------------------------------
|
|
* See the LICENSE file for information on copyright, usage and redistribution
|
|
* of SWIG, and the README file for authors - http://www.swig.org/release.html.
|
|
*
|
|
* 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>
|