jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

The great merge

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2002-11-30 22:01:28 +00:00
commit 516036631c
1508 changed files with 125983 additions and 44037 deletions
Download patch file Download diff file Expand all files Collapse all files

52
SWIG/Examples/test-suite/multivalue.i Normal file
View file

@ -0,0 +1,52 @@
/* -*- c -*- */
%module test
#ifdef SWIGGUILE
/* Multiple values as lists. By default, if more than one value is to
be returned, a list of the values is created and returned; to switch
back to this behavior, use: */
%values_as_list;
void divide_l(int a, int b, int *OUTPUT, int *OUTPUT);
/* Multiple values as vectors. By issueing: */
%values_as_vector;
/* vectors instead of lists will be used. */
void divide_v(int a, int b, int *OUTPUT, int *OUTPUT);
/* Multiple values for multiple-value continuations.
(This is the most elegant way.) By issueing: */
%multiple_values;
/* multiple values are passed to the multiple-value
continuation, as created by `call-with-values' or the
convenience macro `receive'. (See the Scheme file.) */
void divide_mv(int a, int b, int *OUTPUT, int *OUTPUT);
#endif
%{
void divide_l(int a, int b, int *quotient_p, int *remainder_p)
{
*quotient_p = a/b;
*remainder_p = a%b;
}
void divide_v(int a, int b, int *quotient_p, int *remainder_p)
{
*quotient_p = a/b;
*remainder_p = a%b;
}
void divide_mv(int a, int b, int *quotient_p, int *remainder_p)
{
*quotient_p = a/b;
*remainder_p = a%b;
}
%}