30 lines
802 B
C
30 lines
802 B
C
/* This is an Scheme48/C interface file,
|
|
** automatically generated by cig.
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h> /* For malloc. */
|
|
#include "libcig.h"
|
|
|
|
/* Make sure foreign-function stubs interface to the C funs correctly: */
|
|
#include "select1.h"
|
|
|
|
scheme_value df_scm_select(long nargs, scheme_value *args)
|
|
{
|
|
extern scheme_value scm_select(scheme_value , scheme_value , scheme_value , scheme_value , int *, int *, int *);
|
|
scheme_value ret1;
|
|
scheme_value r1;
|
|
int r2;
|
|
int r3;
|
|
int r4;
|
|
|
|
cig_check_nargs(5, nargs, "scm_select");
|
|
r1 = scm_select(args[4], args[3], args[2], args[1], &r2, &r3, &r4);
|
|
ret1 = r1;
|
|
VECTOR_REF(*args,0) = ENTER_FIXNUM(r2);
|
|
VECTOR_REF(*args,1) = ENTER_FIXNUM(r3);
|
|
VECTOR_REF(*args,2) = ENTER_FIXNUM(r4);
|
|
return ret1;
|
|
}
|
|
|