63 lines
1.9 KiB
C
63 lines
1.9 KiB
C
/* This is an Scheme48/C interface file,
|
|
** automatically generated by cig.
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h> /* For malloc. */
|
|
#include "libcig.h"
|
|
|
|
#if 0
|
|
#include "cli0cli.h"
|
|
#include "cli0defs.h"
|
|
#include "cli0env.h"
|
|
#else
|
|
#include <windows.h>
|
|
#include <sql.h>
|
|
#include <sqlext.h>
|
|
#endif
|
|
scheme_value df_GetHenvErrorState(long nargs, scheme_value *args)
|
|
{
|
|
extern char *GetHenvErrorState(SQLHENV , char **);
|
|
scheme_value ret1;
|
|
char *r1;
|
|
char *r2;
|
|
|
|
cig_check_nargs(2, nargs, "GetHenvErrorState");
|
|
r1 = GetHenvErrorState((SQLHENV )AlienVal(args[1]), &r2);
|
|
ret1 = VECTOR_REF(*args,0);
|
|
{AlienVal(CAR(ret1)) = (long) r1; CDR(ret1) = strlen_or_false(r1);}
|
|
{AlienVal(CAR(VECTOR_REF(*args,1))) = (long) r2; CDR(VECTOR_REF(*args,1)) = strlen_or_false(r2);}
|
|
return ret1;
|
|
}
|
|
|
|
scheme_value df_GetHdbcErrorState(long nargs, scheme_value *args)
|
|
{
|
|
extern char *GetHdbcErrorState(SQLHENV , SQLHDBC , char **);
|
|
scheme_value ret1;
|
|
char *r1;
|
|
char *r2;
|
|
|
|
cig_check_nargs(3, nargs, "GetHdbcErrorState");
|
|
r1 = GetHdbcErrorState((SQLHENV )AlienVal(args[2]), (SQLHDBC )AlienVal(args[1]), &r2);
|
|
ret1 = VECTOR_REF(*args,0);
|
|
{AlienVal(CAR(ret1)) = (long) r1; CDR(ret1) = strlen_or_false(r1);}
|
|
{AlienVal(CAR(VECTOR_REF(*args,1))) = (long) r2; CDR(VECTOR_REF(*args,1)) = strlen_or_false(r2);}
|
|
return ret1;
|
|
}
|
|
|
|
scheme_value df_GetHstmtErrorState(long nargs, scheme_value *args)
|
|
{
|
|
extern char *GetHstmtErrorState(SQLHENV , SQLHSTMT , char **);
|
|
scheme_value ret1;
|
|
char *r1;
|
|
char *r2;
|
|
|
|
cig_check_nargs(3, nargs, "GetHstmtErrorState");
|
|
r1 = GetHstmtErrorState((SQLHENV )AlienVal(args[2]), (SQLHSTMT )AlienVal(args[1]), &r2);
|
|
ret1 = VECTOR_REF(*args,0);
|
|
{AlienVal(CAR(ret1)) = (long) r1; CDR(ret1) = strlen_or_false(r1);}
|
|
{AlienVal(CAR(VECTOR_REF(*args,1))) = (long) r2; CDR(VECTOR_REF(*args,1)) = strlen_or_false(r2);}
|
|
return ret1;
|
|
}
|
|
|