*/

#if defined(_WIN32)

#define DLLEXP __declspec(dllexport)

#else

#define DLLEXP

#endif

#include

#include

#include

#include

#define LIBVERSION “mysqlsystems_udf_log version 0.1 beta”

#define ERR_ARG “Hiro tells you: Exactly one argument expected!”

#define ERR_MEM “Out of memory!”

#ifdef  __cplusplus

extern “C” {

#endif

/**

* mysqlsystems_udf_log

*/

DLLEXP

my_bool mysqlsystems_udf_log_init(

UDF_INIT *initid

,    UDF_ARGS *args

,    char *message

){

return 0;

}

DLLEXP

void mysqlsystems_udf_log_deinit(

UDF_INIT *initid

){}

DLLEXP

char* mysqlsystems_udf_log(

UDF_INIT *initid

,    UDF_ARGS *args

,    char* result

,    unsigned long* length

,    char *is_null

,    char *error

){

*length = strlen(LIBVERSION);

return LIBVERSION;

}

/**

* another one : log2error

*/

DLLEXP

my_bool log2error_init(

UDF_INIT *initid

,    UDF_ARGS *args

,    char *message

){

if(args->arg_count==1){

//alloc mem for format pattern:

// “%s0.xxxx\n”

// where xxxx is the max

// 7 = length of %s0.\n + trailing \0

if(!(initid->ptr = (char *)malloc(7 + 4))){

strcpy(message, ERR_MEM);

return 1;

}

args->arg_type[0] = STRING_RESULT;

initid->maybe_null = 0;

} else {

strcpy(message, ERR_ARG);

return 1;

}

return 0;

}

DLLEXP

void log2error_deinit(

UDF_INIT *initid

){

if(initid->ptr)

{

fflush(stderr);

free(initid->ptr);

}

}

DLLEXP

my_ulonglong log2error(

UDF_INIT *initid

,    UDF_ARGS *args

,    char *is_null

,    char *error

){

int numDigits;

char *fmt;

*is_null = 0;

if(args->args[0]==NULL){

fprintf(stderr, “NULL\n”);

} else {

fmt = (char *)initid->ptr;

memcpy(fmt, “%0.”, 3);

sprintf(fmt+3, “%d”, args->lengths[0]<=9998? args->lengths[0]: 9998);

numDigits = strlen(fmt + 4);

memcpy(fmt + 4 + numDigits, “s\n\0″, 3);

fprintf(stderr, fmt, args->args[0]);

}

return 0;

}

#ifdef  __cplusplus

}

#endif