/* 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_SQLAllocConnect(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLAllocConnect(SQLHENV, SQLHDBC*);
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(2, nargs, "SQLAllocConnect");
    r1 = SQLAllocConnect((SQLHENV)AlienVal(args[1]), (SQLHDBC*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLAllocEnv(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLAllocEnv(SQLHENV*);
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(1, nargs, "SQLAllocEnv");
    r1 = SQLAllocEnv((SQLHENV*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLAllocStmt(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLAllocStmt(SQLHDBC , SQLHSTMT*);
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(2, nargs, "SQLAllocStmt");
    r1 = SQLAllocStmt((SQLHDBC )AlienVal(args[1]), (SQLHSTMT*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLBindCol(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLBindCol(SQLHSTMT , UWORD , SWORD , PTR , SDWORD , SDWORD*);
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(6, nargs, "SQLBindCol");
    r1 = SQLBindCol((SQLHSTMT )AlienVal(args[5]), EXTRACT_FIXNUM(args[4]), EXTRACT_FIXNUM(args[3]), (PTR )AlienVal(args[2]), EXTRACT_FIXNUM(args[1]), (SDWORD*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLBindParameter(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLBindParameter(SQLHSTMT , UWORD , SWORD , SWORD , SWORD , UDWORD , SWORD , PTR , SDWORD , SDWORD*);
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(10, nargs, "SQLBindParameter");
    r1 = SQLBindParameter((SQLHSTMT )AlienVal(args[9]), EXTRACT_FIXNUM(args[8]), EXTRACT_FIXNUM(args[7]), EXTRACT_FIXNUM(args[6]), EXTRACT_FIXNUM(args[5]), EXTRACT_FIXNUM(args[4]), EXTRACT_FIXNUM(args[3]), (PTR )AlienVal(args[2]), EXTRACT_FIXNUM(args[1]), (SDWORD*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLCancel(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLCancel(SQLHSTMT );
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(1, nargs, "SQLCancel");
    r1 = SQLCancel((SQLHSTMT )AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLColAttributes(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLColAttributes(SQLHSTMT , UWORD , UWORD , PTR , SWORD , SWORD*, SDWORD*);
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(7, nargs, "SQLColAttributes");
    r1 = SQLColAttributes((SQLHSTMT )AlienVal(args[6]), EXTRACT_FIXNUM(args[5]), EXTRACT_FIXNUM(args[4]), (PTR )AlienVal(args[3]), EXTRACT_FIXNUM(args[2]), (SWORD*)AlienVal(args[1]), (SDWORD*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLConnect(long nargs, scheme_value *args)
{
    
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(7, nargs, "SQLConnect");
    r1 = SQLConnect((SQLHDBC )AlienVal(args[6]), cig_string_body(args[5]), EXTRACT_FIXNUM(args[4]), cig_string_body(args[3]), EXTRACT_FIXNUM(args[2]), cig_string_body(args[1]), EXTRACT_FIXNUM(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLDescribeCol(long nargs, scheme_value *args)
{
    
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(9, nargs, "SQLDescribeCol");
    r1 = SQLDescribeCol((SQLHSTMT )AlienVal(args[8]), EXTRACT_FIXNUM(args[7]), cig_string_body(args[6]), EXTRACT_FIXNUM(args[5]), (SWORD*)AlienVal(args[4]), (SWORD*)AlienVal(args[3]), (UDWORD*)AlienVal(args[2]), (SWORD*)AlienVal(args[1]), (SWORD*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLDescribeParam(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLDescribeParam(SQLHSTMT , UWORD , SWORD*, UDWORD*, SWORD*, SWORD*);
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(6, nargs, "SQLDescribeParam");
    r1 = SQLDescribeParam((SQLHSTMT )AlienVal(args[5]), EXTRACT_FIXNUM(args[4]), (SWORD*)AlienVal(args[3]), (UDWORD*)AlienVal(args[2]), (SWORD*)AlienVal(args[1]), (SWORD*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLDisconnect(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLDisconnect(SQLHDBC );
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(1, nargs, "SQLDisconnect");
    r1 = SQLDisconnect((SQLHDBC )AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLError(long nargs, scheme_value *args)
{
    
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(8, nargs, "SQLError");
    r1 = SQLError((SQLHENV )AlienVal(args[7]), (SQLHDBC )AlienVal(args[6]), (SQLHSTMT )AlienVal(args[5]), cig_string_body(args[4]), (SDWORD*)AlienVal(args[3]), cig_string_body(args[2]), EXTRACT_FIXNUM(args[1]), (SWORD*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLExecDirect(long nargs, scheme_value *args)
{
    
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(3, nargs, "SQLExecDirect");
    r1 = SQLExecDirect((SQLHSTMT )AlienVal(args[2]), cig_string_body(args[1]), EXTRACT_FIXNUM(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLExecute(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLExecute(SQLHSTMT );
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(1, nargs, "SQLExecute");
    r1 = SQLExecute((SQLHSTMT )AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLFetch(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLFetch(SQLHSTMT );
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(1, nargs, "SQLFetch");
    r1 = SQLFetch((SQLHSTMT )AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLFreeConnect(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLFreeConnect(SQLHDBC );
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(1, nargs, "SQLFreeConnect");
    r1 = SQLFreeConnect((SQLHDBC )AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLFreeEnv(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLFreeEnv(SQLHENV );
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(1, nargs, "SQLFreeEnv");
    r1 = SQLFreeEnv((SQLHENV )AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLFreeStmt(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLFreeStmt(SQLHSTMT , UWORD );
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(2, nargs, "SQLFreeStmt");
    r1 = SQLFreeStmt((SQLHSTMT )AlienVal(args[1]), EXTRACT_FIXNUM(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLGetCursorName(long nargs, scheme_value *args)
{
    
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(4, nargs, "SQLGetCursorName");
    r1 = SQLGetCursorName((SQLHSTMT )AlienVal(args[3]), cig_string_body(args[2]), EXTRACT_FIXNUM(args[1]), (SWORD*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLNumResultCols(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLNumResultCols(SQLHSTMT , SWORD*);
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(2, nargs, "SQLNumResultCols");
    r1 = SQLNumResultCols((SQLHSTMT )AlienVal(args[1]), (SWORD*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLPrepare(long nargs, scheme_value *args)
{
    
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(3, nargs, "SQLPrepare");
    r1 = SQLPrepare((SQLHSTMT )AlienVal(args[2]), cig_string_body(args[1]), EXTRACT_FIXNUM(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLRowCount(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLRowCount(SQLHSTMT , SDWORD*);
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(2, nargs, "SQLRowCount");
    r1 = SQLRowCount((SQLHSTMT )AlienVal(args[1]), (SDWORD*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLSetCursorName(long nargs, scheme_value *args)
{
    
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(3, nargs, "SQLSetCursorName");
    r1 = SQLSetCursorName((SQLHSTMT )AlienVal(args[2]), cig_string_body(args[1]), EXTRACT_FIXNUM(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_SQLTransact(long nargs, scheme_value *args)
{
    extern SQLRETURN SQL_API SQLTransact(SQLHENV , SQLHDBC , UWORD );
    scheme_value ret1;
    SQLRETURN SQL_API r1;

    cig_check_nargs(3, nargs, "SQLTransact");
    r1 = SQLTransact((SQLHENV )AlienVal(args[2]), (SQLHDBC )AlienVal(args[1]), EXTRACT_FIXNUM(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_makesqlhenv(long nargs, scheme_value *args)
{
    extern SQLHENV*makesqlhenv(void);
    scheme_value ret1;
    SQLHENV*r1;

    cig_check_nargs(1, nargs, "makesqlhenv");
    r1 = makesqlhenv();
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_derefsqlhenv(long nargs, scheme_value *args)
{
    extern SQLHENV derefsqlhenv(SQLHENV*);
    scheme_value ret1;
    SQLHENV r1;

    cig_check_nargs(2, nargs, "derefsqlhenv");
    r1 = derefsqlhenv((SQLHENV*)AlienVal(args[1]));
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_freesqlhenv(long nargs, scheme_value *args)
{
    extern int freesqlhenv(SQLHENV*);
    scheme_value ret1;
    int r1;

    cig_check_nargs(1, nargs, "freesqlhenv");
    r1 = freesqlhenv((SQLHENV*)AlienVal(args[0]));
    ret1 = ENTER_BOOLEAN(r1);
    return ret1;
    }

scheme_value df_makesqlhdbc(long nargs, scheme_value *args)
{
    extern SQLHDBC*makesqlhdbc(void);
    scheme_value ret1;
    SQLHDBC*r1;

    cig_check_nargs(1, nargs, "makesqlhdbc");
    r1 = makesqlhdbc();
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_derefsqlhdbc(long nargs, scheme_value *args)
{
    extern SQLHDBC derefsqlhdbc(SQLHDBC*);
    scheme_value ret1;
    SQLHDBC r1;

    cig_check_nargs(2, nargs, "derefsqlhdbc");
    r1 = derefsqlhdbc((SQLHDBC*)AlienVal(args[1]));
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_freesqlhdbc(long nargs, scheme_value *args)
{
    extern int freesqlhdbc(SQLHDBC*);
    scheme_value ret1;
    int r1;

    cig_check_nargs(1, nargs, "freesqlhdbc");
    r1 = freesqlhdbc((SQLHDBC*)AlienVal(args[0]));
    ret1 = ENTER_BOOLEAN(r1);
    return ret1;
    }

scheme_value df_makesqlhstmt(long nargs, scheme_value *args)
{
    extern SQLHSTMT*makesqlhstmt(void);
    scheme_value ret1;
    SQLHSTMT*r1;

    cig_check_nargs(1, nargs, "makesqlhstmt");
    r1 = makesqlhstmt();
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_derefsqlhstmt(long nargs, scheme_value *args)
{
    extern SQLHSTMT derefsqlhstmt(SQLHSTMT*);
    scheme_value ret1;
    SQLHSTMT r1;

    cig_check_nargs(2, nargs, "derefsqlhstmt");
    r1 = derefsqlhstmt((SQLHSTMT*)AlienVal(args[1]));
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_freesqlhstmt(long nargs, scheme_value *args)
{
    extern int freesqlhstmt(SQLHSTMT*);
    scheme_value ret1;
    int r1;

    cig_check_nargs(1, nargs, "freesqlhstmt");
    r1 = freesqlhstmt((SQLHSTMT*)AlienVal(args[0]));
    ret1 = ENTER_BOOLEAN(r1);
    return ret1;
    }

scheme_value df_makeStorage(long nargs, scheme_value *args)
{
    extern void*makeStorage(SDWORD*);
    scheme_value ret1;
    void*r1;

    cig_check_nargs(2, nargs, "makeStorage");
    r1 = makeStorage((SDWORD*)AlienVal(args[1]));
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_freeStorage(long nargs, scheme_value *args)
{
    extern int freeStorage(void*);
    scheme_value ret1;
    int r1;

    cig_check_nargs(1, nargs, "freeStorage");
    r1 = freeStorage((void*)AlienVal(args[0]));
    ret1 = ENTER_BOOLEAN(r1);
    return ret1;
    }

scheme_value df_makeSDWORD(long nargs, scheme_value *args)
{
    extern SDWORD*makeSDWORD(void);
    scheme_value ret1;
    SDWORD*r1;

    cig_check_nargs(1, nargs, "makeSDWORD");
    r1 = makeSDWORD();
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_derefSDWORD(long nargs, scheme_value *args)
{
    extern SDWORD derefSDWORD(SDWORD*);
    scheme_value ret1;
    SDWORD r1;

    cig_check_nargs(2, nargs, "derefSDWORD");
    r1 = derefSDWORD((SDWORD*)AlienVal(args[1]));
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_extractSDWORD(long nargs, scheme_value *args)
{
    extern SDWORD extractSDWORD(SDWORD*);
    scheme_value ret1;
    SDWORD r1;

    cig_check_nargs(1, nargs, "extractSDWORD");
    r1 = extractSDWORD((SDWORD*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_assignSDWORD(long nargs, scheme_value *args)
{
    extern int assignSDWORD(SDWORD*, long );
    scheme_value ret1;
    int r1;

    cig_check_nargs(2, nargs, "assignSDWORD");
    r1 = assignSDWORD((SDWORD*)AlienVal(args[1]), EXTRACT_FIXNUM(args[0]));
    ret1 = ENTER_BOOLEAN(r1);
    return ret1;
    }

scheme_value df_freeSDWORD(long nargs, scheme_value *args)
{
    extern int freeSDWORD(SDWORD*);
    scheme_value ret1;
    int r1;

    cig_check_nargs(1, nargs, "freeSDWORD");
    r1 = freeSDWORD((SDWORD*)AlienVal(args[0]));
    ret1 = ENTER_BOOLEAN(r1);
    return ret1;
    }

scheme_value df_makeUDWORD(long nargs, scheme_value *args)
{
    extern UDWORD*makeUDWORD(void);
    scheme_value ret1;
    UDWORD*r1;

    cig_check_nargs(1, nargs, "makeUDWORD");
    r1 = makeUDWORD();
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_derefUDWORD(long nargs, scheme_value *args)
{
    extern UDWORD derefUDWORD(UDWORD*);
    scheme_value ret1;
    UDWORD r1;

    cig_check_nargs(2, nargs, "derefUDWORD");
    r1 = derefUDWORD((UDWORD*)AlienVal(args[1]));
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_extractUDWORD(long nargs, scheme_value *args)
{
    extern UDWORD extractUDWORD(UDWORD*);
    scheme_value ret1;
    UDWORD r1;

    cig_check_nargs(1, nargs, "extractUDWORD");
    r1 = extractUDWORD((UDWORD*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_freeUDWORD(long nargs, scheme_value *args)
{
    extern int freeUDWORD(UDWORD*);
    scheme_value ret1;
    int r1;

    cig_check_nargs(1, nargs, "freeUDWORD");
    r1 = freeUDWORD((UDWORD*)AlienVal(args[0]));
    ret1 = ENTER_BOOLEAN(r1);
    return ret1;
    }

scheme_value df_makeSWORD(long nargs, scheme_value *args)
{
    extern SWORD*makeSWORD(void);
    scheme_value ret1;
    SWORD*r1;

    cig_check_nargs(1, nargs, "makeSWORD");
    r1 = makeSWORD();
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_derefSWORD(long nargs, scheme_value *args)
{
    extern SWORD derefSWORD(SWORD*);
    scheme_value ret1;
    SWORD r1;

    cig_check_nargs(2, nargs, "derefSWORD");
    r1 = derefSWORD((SWORD*)AlienVal(args[1]));
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_extractSWORD(long nargs, scheme_value *args)
{
    extern SWORD extractSWORD(SWORD*);
    scheme_value ret1;
    SWORD r1;

    cig_check_nargs(1, nargs, "extractSWORD");
    r1 = extractSWORD((SWORD*)AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_assignSWORD(long nargs, scheme_value *args)
{
    extern int assignSWORD(SWORD*, long );
    scheme_value ret1;
    int r1;

    cig_check_nargs(2, nargs, "assignSWORD");
    r1 = assignSWORD((SWORD*)AlienVal(args[1]), EXTRACT_FIXNUM(args[0]));
    ret1 = ENTER_BOOLEAN(r1);
    return ret1;
    }

scheme_value df_freeSWORD(long nargs, scheme_value *args)
{
    extern int freeSWORD(SWORD*);
    scheme_value ret1;
    int r1;

    cig_check_nargs(1, nargs, "freeSWORD");
    r1 = freeSWORD((SWORD*)AlienVal(args[0]));
    ret1 = ENTER_BOOLEAN(r1);
    return ret1;
    }

scheme_value df_makeUCHAR(long nargs, scheme_value *args)
{
    extern char *makeUCHAR(void);
    scheme_value ret1;
    char *r1;

    cig_check_nargs(1, nargs, "makeUCHAR");
    r1 = makeUCHAR();
    ret1 = VECTOR_REF(*args,0);
    {AlienVal(CAR(ret1)) = (long) r1; CDR(ret1) = strlen_or_false(r1);}
    return ret1;
    }

scheme_value df_derefUCHAR(long nargs, scheme_value *args)
{
    extern UCHAR derefUCHAR(const char *);
    scheme_value ret1;
    UCHAR r1;

    cig_check_nargs(2, nargs, "derefUCHAR");
    r1 = derefUCHAR(cig_string_body(args[1]));
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_extractUCHAR(long nargs, scheme_value *args)
{
    extern char *extractUCHAR(const char *);
    scheme_value ret1;
    char *r1;

    cig_check_nargs(2, nargs, "extractUCHAR");
    r1 = extractUCHAR(cig_string_body(args[1]));
    ret1 = VECTOR_REF(*args,0);
    {AlienVal(CAR(ret1)) = (long) r1; CDR(ret1) = strlen_or_false(r1);}
    return ret1;
    }

scheme_value df_freeUCHAR(long nargs, scheme_value *args)
{
    extern int freeUCHAR(const char *);
    scheme_value ret1;
    int r1;

    cig_check_nargs(1, nargs, "freeUCHAR");
    r1 = freeUCHAR(cig_string_body(args[0]));
    ret1 = ENTER_BOOLEAN(r1);
    return ret1;
    }

scheme_value df_VoidToString(long nargs, scheme_value *args)
{
    extern char *VoidToString(PTR );
    scheme_value ret1;
    char *r1;

    cig_check_nargs(2, nargs, "VoidToString");
    r1 = VoidToString((PTR )AlienVal(args[1]));
    ret1 = VECTOR_REF(*args,0);
    {AlienVal(CAR(ret1)) = (long) r1; CDR(ret1) = strlen_or_false(r1);}
    return ret1;
    }

scheme_value df_VoidToInteger(long nargs, scheme_value *args)
{
    extern int VoidToInteger(PTR );
    scheme_value ret1;
    int r1;

    cig_check_nargs(1, nargs, "VoidToInteger");
    r1 = VoidToInteger((PTR )AlienVal(args[0]));
    ret1 = ENTER_FIXNUM(r1);
    return ret1;
    }

scheme_value df_StringToVoid(long nargs, scheme_value *args)
{
    extern void*StringToVoid(scheme_value , PTR );
    scheme_value ret1;
    void*r1;

    cig_check_nargs(3, nargs, "StringToVoid");
    r1 = StringToVoid(args[2], (PTR )AlienVal(args[1]));
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_FixedStringToVoid(long nargs, scheme_value *args)
{
    extern void*FixedStringToVoid(scheme_value , UDWORD , PTR );
    scheme_value ret1;
    void*r1;

    cig_check_nargs(4, nargs, "FixedStringToVoid");
    r1 = FixedStringToVoid(args[3], EXTRACT_FIXNUM(args[2]), (PTR )AlienVal(args[1]));
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }

scheme_value df_IntegerToVoid(long nargs, scheme_value *args)
{
    extern void*IntegerToVoid(int , PTR );
    scheme_value ret1;
    void*r1;

    cig_check_nargs(3, nargs, "IntegerToVoid");
    r1 = IntegerToVoid(EXTRACT_FIXNUM(args[2]), (PTR )AlienVal(args[1]));
    ret1 = VECTOR_REF(*args,0);
    AlienVal(ret1) = (long) r1;
    return ret1;
    }