Lib/guile/guile.i

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