* Programmer: Kevin M. Rosenberg
* Date Started: Mar 2002
*
- * $Id$
- *
* This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
*
* CLSQL users are granted the rights to distribute and use this software
* (http://opensource.franz.com/preamble.html), also known as the LLGPL.
***************************************************************************/
-#ifdef WIN32
+#if defined(WIN32)||defined(WIN64)
#include <windows.h>
BOOL WINAPI DllEntryPoint(HINSTANCE hinstdll, DWORD fdwReason,
- LPVOID lpvReserved)
+ LPVOID lpvReserved)
{
return 1;
}
-
+
#define DLLEXPORT __declspec(dllexport)
#else
-#define DLLEXPORT
+#define DLLEXPORT
#endif
DLLEXPORT
void
clsql_mysql_data_seek (MYSQL_RES* res, unsigned int offset_high32,
- unsigned int offset_low32)
+ unsigned int offset_low32)
{
my_ulonglong offset;
offset = offset_high32;
offset = offset << 32;
offset += offset_low32;
-
+
mysql_data_seek (res, offset);
}
/* The following functions are used to return 64-bit integers to Lisp.
- They return the 32-bit low part and store in upper 32-bits in a
+ They return the 32-bit low part and store in upper 32-bits in a
located sent via a pointer */
static const unsigned int bitmask_32bits = 0xFFFFFFFF;
/* Accessor functions to hide the differences across MySQL versions */
DLLEXPORT
-short int
+unsigned int
+clsql_mysql_field_flags (MYSQL_FIELD* field)
+{
+ return field->flags;
+}
+
+
+DLLEXPORT
+unsigned int
clsql_mysql_field_type (MYSQL_FIELD* field)
{
return field->type;
DLLEXPORT
void
-bind_param (MYSQL_BIND bind[], unsigned int n, unsigned long length, unsigned short is_null,
- void* buffer, unsigned short buffer_type, unsigned long buffer_length)
+bind_param (MYSQL_BIND bind[], unsigned int n, unsigned long length, unsigned short is_null,
+ void* buffer, unsigned short buffer_type, unsigned long buffer_length)
{
*bind[n].length = length;
*bind[n].is_null = is_null;
}
-DLLEXPORT
DLLEXPORT
unsigned int
clsql_mysql_stmt_affected_rows (MYSQL_STMT* stmt, unsigned int* pHigh32)
return lower_32bits(nAffected);
}
-
#endif