guile.i 1.1 KB

123456789101112131415161718192021222324252627282930313233
  1. /* -----------------------------------------------------------------------------
  2. * guile.i
  3. *
  4. * SWIG Configuration File for Guile.
  5. * ----------------------------------------------------------------------------- */
  6. /* Macro for inserting Scheme code into the stub */
  7. #define %scheme %insert("scheme")
  8. #define %goops %insert("goops")
  9. /* Return-styles */
  10. %pragma(guile) return_nothing_doc = "Returns unspecified."
  11. %pragma(guile) return_one_doc = "Returns $values."
  12. %define %values_as_list
  13. %pragma(guile) beforereturn = ""
  14. %pragma(guile) return_multi_doc = "Returns a list of $num_values values: $values."
  15. %enddef
  16. %values_as_list /* the default style */
  17. %define %values_as_vector
  18. %pragma(guile) beforereturn = "GUILE_MAYBE_VECTOR"
  19. %pragma(guile) return_multi_doc = "Returns a vector of $num_values values: $values."
  20. %enddef
  21. %define %multiple_values
  22. %pragma(guile) beforereturn = "GUILE_MAYBE_VALUES"
  23. %pragma(guile) return_multi_doc = "Returns $num_values values: $values."
  24. %enddef
  25. #define GUILE_APPEND_RESULT SWIG_APPEND_VALUE
  26. %include <typemaps.i>