/* 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;
    }