[OpenSPARC-T2-SAM] / sam-t2 / devtools / amd64 / share / swig / 1.3.26 / guile / guile.i

/* 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"
Commit	Line	Data
920dae64 AT	1	/* SWIG Configuration File for Guile. --c--*/
	2
	3	/* Macro for inserting Scheme code into the stub */
	4	#define %scheme %insert("scheme")
	5	#define %goops %insert("goops")
	6
	7	/* Return-styles */
	8	%pragma(guile) return_nothing_doc = "Returns unspecified."
	9	%pragma(guile) return_one_doc = "Returns $values."
	10
	11	%define %values_as_list
	12	%pragma(guile) beforereturn = ""
	13	%pragma(guile) return_multi_doc = "Returns a list of $num_values values: $values."
	14	%enddef
	15	%values_as_list /* the default style */
	16
	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
	22	%define %multiple_values
	23	%pragma(guile) beforereturn = "GUILE_MAYBE_VALUES"
	24	%pragma(guile) return_multi_doc = "Returns $num_values values: $values."
	25	%enddef
	26
	27	#define GUILE_APPEND_RESULT SWIG_APPEND_VALUE
	28
	29	%include "typemaps.i"