734 lines
20 KiB
C
734 lines
20 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_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;
|
|
}
|
|
|